Ecel VBA编程 典型实例——将数组赋值单元格.docxVIP

Excel VBA 编程 典型实例——将数组赋值单元格 在 Excel 中，主要操作都是在工作表中进行的，如输入数据等，同样也可以使用数组来实现该操作。利用数组对单元格进行赋值可以减少劳动强度，而且还可以控制单元格的格式、字体或颜色。 练习要点 使用数组赋值 添加控件 操作步骤 【插入】按钮，选择【表单控件】栏中的【按钮】控件 ，如图 5-16 所示。启动 【插入】按钮，选择【表单控件】栏中的【按钮】控件 ，如图 5-16 所示。 选择图 5-16 插入按钮 选择 将控件放置到单元格中，此时弹出【指定宏】对话框，如图5-17 所示，单击对话框中的【新建】按钮，弹出 VBE 窗口。 宏名单击图 5-17 宏名 单击 输入在 VBE 窗口中的【代码】编辑窗口内，如图5-18 所示。 输入 定义了一个数组Dim x%, y%, s(1 To 4, 1 To 5)For x = 1 To 4For y = 1 To 5 s(x, y) 定义了一个数组 Dim x%, y%, s(1 To 4, 1 To 5) For x = 1 To 4 For y = 1 To 5 s(x, y) = x ^ y Next y Next x 给单元格赋值Sheets(1).Range(A1:E4) = s 设置字体颜色 Range(A1:E4).Font.ColorIndex = 5 设置字体背景色 Range(A1:E4).Font.ThemeColor = 8 当单击按钮时，在工作表中的单元格将有数据出现。