1[1].2vba入门之一《与代码亲密接触》--山菊花.pdf

VBA 入门之一《与代码亲密接触》 去除粗枝繁叶，留一根主干，作攀天之梯，目标是那金碧辉煌的 VBA 殿堂。 一路上，两旁都是漂亮的姑娘，不要三心二意，请跟我走。 闲话少说，言归正传。 打开 Excel，新建一工作簿。 0 如果你的工具栏中找不到 “控件工具箱”，请打开它。控件工具箱可悬浮在工作表中，也可停靠在 窗口的四周(如 4 楼图样)。 1 点击命令按钮，在工作表中拖动鼠标至适合大小。 2 按钮出来了。通过右键菜单，可以编辑它的文字。 3 点击控件工具箱中的 “属性”按钮，或如上图所示的右键菜单中点击 “属性”。按钮的前景色、背 景色、字体等统称为 “属性”。 4 设置属性虽然有趣，但总不过瘾，来点刺激的。双击按钮，眼前是另一片天地，它叫做 VB 编辑器 (或 称 VBE)，VBA 的一切神奇将从这里诞生。 5 依样画葫芦。在光标处输入下面一行代码： QUOTE: MsgBox "哈哈，我会 VBA 啦……" msgbox 不拘大小写，后面有一个空格，引号是半角引号。 输入完毕后点击工具按钮返回 Excel 窗口。 6 点击控件工具箱中的 “退出设计模式”按钮。 “芝麻开门”按钮周围的小圈圈没了，转换成运行模 式。 这一步经常要做的，注意。 7 点击按钮 “芝麻开门”，这就是代码运行的效果图，一个系统对话框。 重复练习一遍：点击 “设计模式”按钮，再点击 “芝麻开门”，这时按钮被选择。 点击 “退出设计模式”，再点击 “芝麻开门”，又进入运行状态。 8 现在，由工作表界面切换到 VBE 界面，下列方式可任选一种： 按 Alt+TAB 选择 VBE 图标，松开复合键。 工作表标签右键菜单-查看代码。 菜单：工具-宏-VB 编辑器。 Alt+F11。 双击控件。 9 将代码修改为： QUOTE: Private Sub CommandButton1_Click() ctxt = "哈哈，我会 VBA 啦……" MsgBox ctxt, 64, "宣告" End Sub 实际修改的是中间的黑色字体部分。 代码中，蓝色处是一个空格，粉红色处是一个逗号。 命令后面、命令与命令之间，间隔一个以上的空格。 参数与参数之间，用逗号分开。 运行代码的办法，除了在工作表上点击按钮，还可以在 VBE 窗口中直接运行，把光标定位到代码首尾 之间 (从 “Private Sub CommandButton1_Click()”到 “End Sub”)，如下图所示执行菜单命令或按 F8，逐行执行代码。 如果执行 “运行-运行子过程”命令 (按 F5)，将连续执行过程首尾之间的全部代码。 10代码的解释： ctxt 叫做自定义变量，就像我们代数中常用的 x、y、z 一样。 ctxt = "……" 叫做赋值，跟代数中的赋值是一样的。 11MsgBox 是什么东西？我们总是想知道。 请选择 MsgBox(实际上，只需把光标定位到命令中的任意位置均可)，按F1 键，系统将弹出帮助窗口 并显示该命令的帮助。 12在 B2:D4 单元格输入一些数据备用。为工作表添加第二个按钮。 这个按钮的功能是：用鼠标点击这些单元格，然后点击按钮，像上例一样弹出一个对话框，显示的内 容为这个单元格的名称和内容。 13双击按钮。在光标闪烁处，输入代码： msgbox "你点击的单元格是：" & (蓝色位置表示空格)，接下来要输入的代码是 “ActiveCell.Address”，输入这些代码可以使用键盘 输入，也可以从属性列表中选择。按 Ctrl+J，在代码窗口中弹出一个下拉列表，就是属性/方法列表， 将光标移动到 ActiveCell，然后点击键盘上的小数点 “.”，结果ActiveCell 连同小数点被输入到 代码窗口中。 窗口中继续显示属性列表中，选择属性 “Address”，按空格键输入该属性。 接着，输入 “&Chr(13) _”，回车换行，继续输入： & "该单元格的值等于：" & ActiveCell.Value, 64, "神算子" 完整的代码是： QUOTE: Private Sub CommandButton2_Click() MsgBox "你点击的单元格是：" & ActiveCell.Address & Chr(13) _ & "该单元格的值等于：" & ActiveCell.Value, 64, "神算子" End Sub 辛苦了。返回 Excel，退出设计模式，先看一下运行的效果。 14切换到 Excel，退出设计模式，测试代码： 用鼠标点击