vba制作excel菜单

1、首先需要打开VBA编辑器。

2、编辑代码，我只写了一个简单的功能：d出“HelloWorld”对话框。

3、携激轮将该Excel保存为加载宏xlam格式，千万铅亮不能选错了格式，否则无法加载excel中的宏代辩信码。

4、加载刚才保存的HelloWrold.xlam。点击文件-选项-加载项，然后点击转到。

5、把宏文件嵌入excel菜单。点击文件-选项-自定义功能区，在自定义功能区新建选项卡，再新建组，将左侧显示的宏命令添加至新建组内，新建的选项卡和组可以重命名，宏命令可以设置自己的图标。

6、点击命令，完成。

首先我们打开一个excel工作样表作为例子。

在开发工具标签面板下打开vba编辑窗口，或者使用alt+f11快捷键打开vba编辑窗口。

点击插入一个新的模块，并定义模块sub Jiujiu（）。

接下来在jiujiu模块中输入以下

Sub nine9()

Dim i As Byte, j As Byte, s As Byte

For i = 1 To 9

For j = i To 9

s = j * i

Cells(j, i) = i &"*" &j &"=" &s

Next j

Next i

End Sub

代码。

详细解释一下，dim是定义i、j、s三个变量的数据类型为字节。

然后for是循环语句，定义i的取值是从1到9。

同样在顺序执行下，j定义的取值是从i到9

用数学的方法表示则是当i=1时，j=1。

cells函数卜猜仿是excel函数，作用是返回指定的行列，括号内的取值为I,J。对应Excel表格中的行列。后面的=号为输出在excel表格中的数据。

我们可以看修改一下变量与定量相加的结果。我们将i值加上10，其他保持不变，得出的结果是一个错误的公式。

next是顺序执行，以本例中next j举例，则是对j值i to 9进行重复取值，并输出到excel表格中，如果将next i 与next j呼唤，我们可型纤以得到兆瞎一个错误引用的结果。

大家可以多试验一下，这个例子中每个函数与参数的配合，以及运行的规律来加深印象，我们可以看到本例代码所得到的结果是正确的。

10

先写到这里了，谢谢大家的观看。

祝大家生活愉快。

小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。

看不清楚图片的可以点击放大再看哦。

---