[已解决]99乘法表

selling · 发表于 2012-5-9 08:57

我自己试做了个99乘法表，可是没有达到预期，哪个高手帮个忙指导指导，谢谢啦
Sub 乘法表()
Dim i, k As Integer
For i = 1 To 9
For k = 1 To 9
Cells(i, k) = i & "×" & k & "=" & i * k
Next
k = k + 1
Next
i = i + 1
End Sub

最佳答案

月排行榜 / 总排行榜

ws278106483

2012-5-10 11:36

Sub 乘法表()
Dim i, k As Integer
For i = 1 To 9
For k = 1 To i
Cells(i, k) = i & "×" & k & "=" & i * k
Next
k = k + 1
Next
i = i + 1
End Sub

跳转到最佳答案楼层

enter_1012 · 发表于 2012-5-10 11:15

提示: 作者被禁止或删除内容自动屏蔽

ws278106483 · 发表于 2012-5-10 11:36

这个最佳答案由 ws278106483 给出，感谢 ws278106483 的回答。

单击隐藏图章

Sub 乘法表()
Dim i, k As Integer
For i = 1 To 9
For k = 1 To i
Cells(i, k) = i & "×" & k & "=" & i * k
Next
k = k + 1
Next
i = i + 1
End Sub

ws278106483 · 发表于 2012-5-10 11:36

看看，对不对。改一下就对了。，

ws278106483 · 发表于 2012-5-10 11:39

觉得好给个最佳。

selling · 发表于 2012-5-13 16:32

谢谢啦！我想了很久，没想到这么一改就好了{:111:}

201228 · 发表于 2012-7-19 19:48

你两的 vba 有差别吗？　我看了半天没　　好像都一样

selling · 发表于 2012-9-3 06:10

差别就在循环I就好了

		自动登录	找回密码
密码			注册

enter_1012 enter_1012 当前离线积分 13 IP卡狗仔卡	发表于 2012-5-10 11:15 \| 显示全部楼层工作中常用的Excel函数公式，全印在一张超大鼠标垫上提示: 作者被禁止或删除内容自动屏蔽
enter_1012 enter_1012 当前离线积分 13 IP卡狗仔卡
	回复使用道具举报显身卡