Hi,大家好,上一期介绍了VBA在Excel上的基本的文件操作,例如新建,另存为,重命名等操作。
有了之前的Excel文件操作的基础了,就可以进一步的学习激动人心的Excel的单元格的操作。
同样,VBA也对单元格进行了抽象,使用Worksheet对象的Cells属性来表示工作表的所有的单元格。
如果Cells属性带上横纵坐标的参数,则表示对应的横纵坐标的单元格。这里说的横纵坐标就是对应Excel上的第多少列和多少行,因此通过Cells属性及横纵坐标的参数,就可以访问Excel表格中任意一个单元格。
通过坐标以及此前介绍的循环,就可以批量访问任意的单元格了。
下面通过一个具体的例子,看看通过VBA代码对单元格实行操作,具体代码如下:
Sub Multi_Table()Dim i As IntegerDim j As IntegerDim rng As RangeSet rng = Sheet1.Cells(9, 15)With rng.Font.Bold = True.Font.Italic = True.Font.Size = 20.Value = "九九乘法表".Columns.AutoFitEnd WithFor i = 1 To 9 For j = 1 To i Sheet1.Cells(10 + i, 10 + j) = j & " * " & i & " = " & j * i Sheet1.Range(Sheet1.Cells(10 + i, 10 + j), Sheet1.Cells(10 + i, 10 + j)).Columns.AutoFit NextNextEnd Sub
复制粘贴上述代码到Excel的中Sheet1的VBA的代码编辑窗口,如下图所示:
点击运行按钮,运行此子过程代码,运行结果如下图所示:
下面详细的注释一下相关的代码:
Sub Multi_Table()'定义几个控制变量,用于循环控制Dim i As IntegerDim j As IntegerDim rng As Range'为了便于下面的设置,这里将第9行,第15列单元格绑定到Range对象上Set rng = Sheet1.Cells(9, 15)'对第9行,15列单元格进行设置With rng'设置该单元格内容加粗.Font.Bold = True'设置该单元格内容斜体.Font.Italic = True'设置该单元格字号为20.Font.Size = 20'设置该单元格的内容为“九九乘法表”.Value = "九九乘法表"'设置该单元格列宽为自适应,防止文字太长显示不全.Columns.AutoFitEnd With'循环设置九九乘法表对应的各个单元格,并设置对应单元格列宽为自适应For i = 1 To 9 For j = 1 To i Sheet1.Cells(10 + i, 10 + j) = j & " * " & i & " = " & j * i Sheet1.Range(Sheet1.Cells(10 + i, 10 + j), Sheet1.Cells(10 + i, 10 + j)).Columns.AutoFit NextNextEnd Sub
觉得有用吗?想了解更多吗 ?下方扫码关注喔!