VBA九九乘法表

sflwcf

Sub 九九乘法表()
Dim i!, j!
For i = 1 To 9
  For j = 1 To 9
    sheet1.Cells(i, j) = i&"×"&j"="i * j
If i = j Then Exit For
  Next j
Next i
End Sub



显示 缺少语句结束，
问题在sheet1.Cells(i, j) = i&"×"&j"="i * j，请问哪儿不对

ctp_119

1. Sub 九九乘法表()
   
2. Dim i!, j!
   
3. For i = 1 To 9
   
4.   For j = 1 To 9
   
5.     Sheet1.Cells(i, j) = i & "×" & j & "=" & i * j
   
6. If i = j Then Exit For
   
7.   Next j
   
8. Next i
   
9. End Sub
   

复制代码

这样改即可

ctp_119

sflwcf 发表于 2013-3-4 21:01
谢谢，后来清楚了，是因为没有隔空

还少了连接符“&”

sflwcf

谢谢，后来清楚了，是因为没有隔空

kpjc

=号前后要有&

yjh_27

1. Sub 九九乘法表()
   
2. Dim i!, j!
   
3. For i = 1 To 9
   
4.   For j = 1 To i
   
5.     Sheet1.Cells(i, j) = i & "×" & j & "=" & i * j
   
6.   Next j
   
7. Next i
   
8. End Sub

复制代码

这样更简捷

buciyuan

Sub 九九乘法表()
Dim a%, b%
For a = 1 To 9
    For b = 1 To 9
        If b > a Then
            Sheet1.Cells(a, b) = ""
         Else
            Sheet1.Cells(a, b) = a & "×" & b & "=" & a * b
        End If
    Next
Next
End Sub

buciyuan

sub 九九乘法表()
Dim a%, b%
For a = 1 To 9
    For b = 1 To 9
        If a >= b Then
            Sheet1.Cells(a, b) = a & "×" & b & "=" & a * b
        End If
    Next
Next
End Sub

buciyuan

Sub 九九乘法表()
Dim a%, b%
For a = 1 To 9
    For b = 1 To a
       Sheet1.Cells(a, b) = a & "×" & b & "=" & a * b
    Next
Next
End Sub

buciyuan

Sub 九九乘法表()
Dim a%, b%
For a = 1 To 9
    For b = 1 To 9
       If b > a Then
          Exit For
       Else
          Sheet1.Cells(a, b) = a & "×" & b & "=" & a * b
       End If
    Next
Next
End Sub