用for...next实现九九乘法表
工具/原料
Excel软件
方法/步骤
1、功能:用for...next实现九九乘法表。初始数据为空;
2、在外狒芙梨VBE中编写代码;SubForEach99()Dima%,b%Fora=1To9Forb=1To9Ifb>aThen惺绅寨瞀Sheet3.Cells(a,b)=""ElseSheet3.Cells(a,b)=a&"*"&b&"="&a*bEndIfNextNextEndSub
3、设置炝里谧艮断点,并按F8可以进行调试,在调试过程中,打开本地窗口,可以查看到变量的值的变化情况;打开Excel界面,随着调试工作的进行,相应地,Excel表格的数据也在逐步发生变化。
4、点击插入--形状,选择一个圆形形状;
5、在刚刚选择的形状中右键,点击指定宏,指定刚刚定义的宏ForEach99,并点击确定。
6、运行宏,得到如下运行结果,即9*9九九乘法表。
7、综上所述,利用for....next可以实现99乘法表的功能。