VBA基础--单元格的引用方法

vba 单元格 写公式

在VBA中，您可以使用以下方法在单元格中写入公式：

1. 使用Range对象的Formula属性：

```vba

Range("A1").Formula = "=SUM(1,2)"

```

上述代码将在A1单元格中写入公式"=SUM(1,2)"。

2. 使用Range对象的FormulaR1C1属性：

如果您需要使用相对引用而不是绝对引用，则可以使用该属性。该属性将公式以行和列的形式表示。例如，如果要写入的公式为"=SUM(A1:A2)"，则可以使用以下代码：

```vba

Range("B1").FormulaR1C1 = "=SUM(R[-1]C:R[-2]C)"

```

上述代码将在B1单元格中使用相对引用写入公式。

3. 使用Application.WorksheetFunction对象：

如果您需要使用Excel内置函数，则可以使用该对象。例如，如果要写入公式"=AVERAGE(A1:A3)"，则可以使用以下代码：

```vba

Range("C1").Value = Application.WorksheetFunction.Average(Range("A1:A3"))

```

上述代码将计算A1到A3单元格的平均值，并将结果写入C1单元格。

Excel_VBA_编程教程(完整版)excel高级教程

VBA - Excel编程概念之：【单元格和区域】一、如何引用单元格和区域

使用Visual Basic的普通任务是指定单元格或单元格区域，然后对该单元格或 单元格区域进行一些操作，如输入公式或更改格式。通常用一条语句就能完成操 作，该语句可标识单元格，还可更改某个属性或应用某个方法。

在Visual Basic中，Range 对象既可表示单个单元格，也可表示单元格区域。 下列主题说明了标识和处理 Range对象最常用的方法。

用A1样式记号引用单元格和单元格区域 可使用Range属性来引用A1引用样式中的单元格或单元格区域。下述子程 序将单元格区域A1:D5的字体设置为加粗。

Sub FormatRa nge()

Workbooks("Book1").Sheets("Sheet1").Ra nge("A1:D5") _

.Fo

nt.Bold :

End Sub

下表演示了使用 =True

Range属性的一些 A1样式引用。

引用

Ran ge("A1")

Ra

nge("A1:B5") 含义

单元格A1

从单元格A1到单元格B5的区域

Ra nge("C5:D9,G9:H16")多块选定区域

Ran ge("A:A")

Ran ge("1:1")

Ran ge("A:C")

Ran ge("1:5") A列

第一行

从A列到C列的区域 从第一行到第五行的区域 Range("1:1,3:3,8:8") 第 1、3 和 8 行

Range("A:A,C:C,F:F") A、C 和 F 列

用编号引用单元格

通过使用行列编号，可用 Cells属性来引用单个单元格。该属性返回代表单个

单元格的Range对象。下例中，Cells(6,1)返回Sheet1上的单元格 A6，然 后将Value属性设置为10。

Sub En terValue()

vba中range用法

VBA中的Range是一个非常重要的对象，它可以用来引用工作表上的单元格或单元格范围。下面是关于VBA中Range的详细用法：

1. 引用单个单元格：

使用Range对象可以引用工作表上的单个单元格。例如，以下代码将引用工作表Sheet1上的A1单元格：

```vba

Dim rng As Range

Set rng = Worksheets("Sheet1").Range("A1")

```

2. 引用多个单元格：

使用Range对象还可以引用多个相邻的单元格。例如，以下代码将引用工作表Sheet1上从A1到B2的4个单元格：

```vba

Dim rng As Range Set rng = Worksheets("Sheet1").Range("A1:B2")

```

3. 引用整列或整行：

使用Range对象还可以引用整列或整行。例如，以下代码将引用工作表Sheet1上的第一列：

```vba

Dim rng As Range

Set rng = Worksheets("Sheet1").Columns(1)

```

4. 引用选定区域：

使用Selection对象可以引用当前选定区域。例如，以下代码将引用当前选定区域中的所有单元格：

```vba

Dim rng As Range

Set rng = Selection

```

5. 引用命名范围：

使用Names集合可以引用命名范围。例如，以下代码将引用名为MyRange的命名范围：

```vba

Dim rng As Range

Set rng = Range("MyRange")

```

6. 引用偏移单元格：

使用Offset方法可以引用相对于当前Range对象的偏移单元格。例如，以下代码将引用当前Range对象下方的第一个单元格：

```vba

Dim rng As Range

Set rng = Selection.Offset(1, 0)

百度文库 - 让每个人平等地提升自我

1 单元格在VBA的表示方法：

1、Range("单元格地址") 如Range("a1") 即为A1单元格

2、CELLS（行，列） 如CELLS（1，1）也为A1单元格，CELLS（2，1）为 A2单元格

工作表在VBA中表示方法：sheets("工作表名")

每个函数前都要加Application.WorksheetFunction.？

答：如果是单个调用必须加

如果是多个调用就可以用WITH语句省去后面的

如Sub 矩形1_单击()

Dim i As Integer

For i = 1 To 20

Sheets("sheet1").Cells(i, 1) = i

Next

With Application.WorksheetFunction

Range("a21").Value = .Sum(Range("a1:a20")) 注意SUM前面要有个点才行

Range("a22").Value = .Average(Range("a1:a20"))

End With

End Sub

COLUMN是指列,COLUMNS是指列的集合

ROW是表示行,ROWS是行的集合

如果用Sheets("sheet1").columns.select 会选定所有列即整个工作表

SUB 语句，需要有个事件触发它，才能执行，就比如一个箱子，只有去搬、推等外力施加与它时，它才会动。设置个按纽目的就是为了执行SUB语句

Range("A1:A22").ClearContents该语句是清除内容的语句

Private 的中文意思是私有的，Private Sub中的程序只能在本程序内部运行而不能被其他程序调用，而SUB语句则可以

如：

SUB BB（）

END SUB

SUB AA（）

BB

END SUB

Range("B65536").End(xlUp).Row 百度文库 - 让每个人平等地提升自我