Private Sub CommandButton1_Click()
Cells(1, 1) = 1
Cells(1, 2) = 2
Cells(1, 3) = 3
Cells(1, 4) = 4
Cells(1, 5) = 5
Cells(1, 6) = 6
Cells(1, 7) = 7
Cells(1, 8) = 8
Cells(1, 9) = 9
Cells(2, 1) = 1 * 2
Cells(2, 2) = 2 * 2
Cells(2, 3) = 3 * 2
Cells(2, 4) = 4 * 2
Cells(2, 5) = 5 * 2
Cells(2, 6) = 6 * 2
Cells(2, 7) = 2 * 7
Cells(2, 8) = 2 * 8
Cells(2, 9) = 2 * 9
Cells(1 * 3, 1) = 1 * 3
Cells(1 * 3, 2) = 2 * 3
Cells(1 * 3, 3) = 3 * 3
Cells(1 * 3, 4) = 4 * 3
Cells(1 * 3, 5) = 5 * 3
Cells(1 * 3, 6) = 6 * 3
Cells(1 * 3, 7) = 7 * 3
Cells(1 * 3, 8) = 8 * 3
Cells(1 * 3, 9) = 9 * 3
Cells(1 * 4, 1) = 1 * 4
Cells(1 * 4, 2) = 2 * 4
Cells(1 * 4, 3) = 3 * 4
Cells(1 * 4, 4) = 4 * 4
Cells(1 * 4, 5) = 5 * 4
Cells(1 * 4, 6) = 6 * 4
Cells(1 * 4, 7) = 7 * 4
Cells(1 * 4, 8) = 8 * 4
Cells(1 * 4, 9) = 9 * 4
Cells(1 * 5, 1) = 1 * 5
Cells(1 * 5, 2) = 2 * 5
Cells(1 * 5, 3) = 3 * 5
Cells(1 * 5, 4) = 4 * 5
Cells(1 * 5, 5) = 5 * 5
Cells(1 * 5, 6) = 6 * 5
Cells(1 * 5, 7) = 7 * 5
Cells(1 * 5, 8) = 8 * 5
Cells(1 * 5, 9) = 9 * 5
Cells(1 * 6, 1) = 1 * 6
Cells(1 * 6, 2) = 2 * 6
Cells(1 * 6, 3) = 3 * 6
Cells(1 * 6, 4) = 4 * 6
Cells(1 * 6, 5) = 5 * 6
Cells(1 * 6, 6) = 6 * 6
Cells(1 * 6, 7) = 7 * 6
Cells(1 * 6, 8) = 8 * 6
Cells(1 * 6, 9) = 9 * 6
Cells(1 * 7, 1) = 1 * 7
Cells(1 * 7, 2) = 2 * 7
Cells(1 * 7, 3) = 3 * 7
Cells(1 * 7, 4) = 4 * 7
Cells(1 * 7, 5) = 5 * 7
Cells(1 * 7, 6) = 6 * 7
Cells(1 * 7, 7) = 7 * 7
Cells(1 * 7, 8) = 8 * 7
Cells(1 * 7, 9) = 9 * 7
Cells(1 * 8, 1) = 1 * 8
Cells(1 * 8, 2) = 2 * 8
Cells(1 * 8, 3) = 3 * 8
Cells(1 * 8, 4) = 4 * 8
Cells(8 * 1, 5) = 5 * 8
Cells(1 * 8, 6) = 6 * 8
Cells(1 * 8, 7) = 7 * 8
Cells(1 * 8, 8) = 8 * 8
Cells(1 * 8, 9) = 9 * 8
Cells(1 * 9, 1) = 1 * 9
Cells(1 * 9, 2) = 2 * 9
Cells(1 * 9, 3) = 3 * 9
Cells(1 * 9, 4) = 4 * 9
Cells(1 * 9, 5) = 5 * 9
Cells(1 * 9, 6) = 6 * 9
Cells(1 * 9, 7) = 7 * 9
Cells(1 * 9, 8) = 8 * 9
Cells(1 * 9, 9) = 9 * 9
End Sub-----以上為硬幹
下圍攻勢
Private Sub CommandButton2_Click()
Application.ActiveSheet.Cells(1, 1).Value = "Excel VBA 99乘法表"
For C = 1 To 9
Application.Cells(1, C).ColumnWidth = 3
Next
For i = 1 To 9
For j = 1 To 9
Application.ActiveSheet.Cells(i + 1, j).Value = i * j
Next
Next
End Sub
這個太無恥了= =完全看不懂ㄏㄏ自己去找吧...想不出來建議硬幹想的出來恭喜你~~
沒有留言:
張貼留言