求助求助，怎么用FOR EACH NEXT 和IF 语句建立九九乘法表！ - vba吧

level 1

柒_WitHeRed 楼主

输出结果如下
1 2 3 4 5 6 7 8 9
2 4 6 8 10 12 14 16 18
3 6 9 12 15 18 21 24 27
4 8 12 16 20 24 28 32 36
5 10 15 20 25 30 35 40 45
以此类推。。。

2013年05月18日 13点05分 1

level 5

fengtf12

Sub chengfabiao()
Dim rg As Range
For Each rg In Range("a1:i9")
rg.Value = rg.Row * rg.Column
Next
End Sub

2013年05月18日 13点05分 2

fengtf12

如果就上面那点要求好像不需要用if吧？

2013年05月18日 13点05分

柒_WitHeRed

回复 fengtf12 :Public Sub test() Dim m As Integer, n As Integer m = 1 And n = 1 For Each i In Range("a1,i9") If m < 10 And n < 10 Then i.Value = m * n m = m + 1 End If Next i n = n + 1 End Sub 这样为什么不对嗯。。

2013年05月19日 01点05分

柒_WitHeRed

回复 fengtf12 : Dim m As Integer, n As Integer m = 1 And n = 1 For Each i In Range("a1,i9") If m < 10 And n < 10 Then i.Value = m * n m = m + 1 End If Next i m = 1 n = n + 1 End Sub 显示不出来。。

2013年05月19日 01点05分

level 11

梦轩wj

Dim k, x As String, i, j As Integerk = ""x = ""For i = 1 To 9For j = 1 To i
If i * j < 10 Then x = Space(1) + Str(i * j) Else x = Str(i * j)End If k = k + Space(3) & i & " *" & j & "=" + x Next j k = k + Chr(13) Next i MsgBox k

2013年05月20日 10点05分 3