vba九九乘法表代码_VBA应用之Excel篇续2

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

觉得有用吗？想了解更多吗 ？下方扫码关注喔！