-
打开一个Excel文件,鼠标右击下面的工作表(如sheet1)。选择“查看代码”,就可以打开VBA编辑界面。
-
选择如下图所示的下拉菜单,选择“worksheet”。
选择如下图所示的下拉菜单,选择对应的触发模式。这里我们选择BeforeDoubleClick,意思就是说:在本工作表鼠标双击(之前),将触发下面的代码程序。(activate意思是说:在sheet表被选取的时候,就触发;Change意思是说:在这个模式下,只要sheet(工作表)发生变化,就将触发;Before Right Click是指在鼠标右击之前触发;SelectionChange是指在鼠标焦点发生变化时,触发。)
-
Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)
其中:sheet1.cells(1,3)就是指第一行第三列的这个单元格;Sheet1.Cells(1, 1)就是指第一行第一列的这个单元格;Sheet1.Cells(1, 2)就是指第一行第二列的单元格。执行语句的意思是:将cells(1,1)和cells(1,2)的值相加,并赋值给cells(1,3)
注意的是:写语句的时候,输入法一定要是输入字母的模式。要不然你的语句会报错。
-
然后点击保存,回到Excel的原始界面。在cells(1,1)和cells(1,2)中输入两个数值。(楼主输入的是:125895和78954)
注意看:现在的cells(1,3)数值是空的。
-
在sheet1的工作表中,双击你的鼠标。你会发现,cells(1,3)的值变成了cells(1,1)和cells(1,2)的和。(204849=125895+78954)
-
1.什么是cells呢?
cells是单元格的意思,这个很容易理解,在excel中最基本的就是单元格这个对象了,cells也是VBA中的一个基本的对象元素。以一个小实例来说明一下:
程序:
Sub 单元格对象()
Cells(1, 1).Select
End Sub
2.cells怎么用呢?
-
2.1 cells(i,j)的含义
cells(i,j)中i指的是行数,j指的是列数,cells(i,j)指的是第i行的第j列单元格。下面以一段小程序来说明一下cells行列的使用:
程序:
Sub 单元格对象()
Dim i, j As Integer
For i = 1 To 3
For j = 1 To 2
Cells(i, j) = i + j
Next
Next
End Sub
-
cells的常见用法是进行赋值运算,如:cells(1,2)=cells(1,1),同样的道理,cells也可以赋给任意一个变量,这里要说明一下,cells直接赋值的话一般是将cells里面的数值赋值给其他对象,也就是cells.value
-
2.3 cells的属性
cells常见的属性有两种,一个是字体属性,一个是背景色属性。首先我们来了解一下它的字体属性:
表达方式:cells.font;
字体属性又有字体大小、颜色、类型、加粗等属性。
字体大小:cells.font.size;
字体颜色:cells.font.color;
字体类型:cells.font.name;
字体加粗:cells.font.fontstyle;
看下图效果显示:
再来看一下它的背景颜色:
-
表达方式:cells.Interior.color
具体用法如下图:
-
3.cells对象的另外一种形式
在Excel VBA中还可以用range对象来表示,例如cells(1,1)单元格可以用range("A1")来表示,见下面一个小实例:
程序:
Sub 单元格对象()
Cells(1, 1) = "VBA教研室"
Range("a1").Delete
End Sub