|
||||
做九九乘法表,多種思路造就多種方法生成,
2、在a13到a21輸入1-9
b13輸入
=IF(B$12<=$A13,B$12*$A13,"")
然後拖拉即可
3、在b2單元格輸入如下公式:
=IF(AND($A2<>"",B$1<>"",B$1<=$A2),B$1&"×"&$A2&"="&B$1*$A2,"")
A1單元格的公式如下:
=IF(AND(ROW()<10,COLUMN()<10,COLUMN()<=ROW()),ROW()&"×"&COLUMN()&"="&ROW()*COLUMN(),"")
4、Sub 九九表()
Dim i As Byte, j As Byte, msg As String
For i = 1 To 9 「定義相乘的一個數字變量
msg = msg & Chr(10)
For j = 1 To I 「定義另一個數字變量
msg = msg & WorksheetFunction.Text(j, "[DBNum1][$-804]0") & WorksheetFunction.Text(i, "[DBNum1][$-804]0") & VBA.IIf(i * j > 9, "", "得") _
& WorksheetFunction.Text(i * j, "[DBNum1][$-804]0") &
「完成兩個數字相乘運行,如相乘的結果小於10的話則在中間加『地』字
Space(3)
Next
Next
MsgBox msg, 64, "九九表" 「顯示在窗口右上角的標題
End Sub