2021-05-12 14:32:11
怎麼用excel製作九九乘法表
九九乘法表相信大家都背過,那麼當你製作九九乘法表的時候還在一個格一個格的輸入麼?其實excel就可以快速高效的製作九九乘法表哦,這篇文章將為你介紹幾種超級實用的方法,感興趣的話我們一起看下去吧!
方法一
1.選中A1:J10區域,為其設定虛線邊框。選中B1:J1單元格區域,按住Ctrl鍵,再選中A1:A10單元格區域,然後為選中的單元格填充顏色。
2.在B1、C1單元格中分別輸入1和2,然後選中這兩個單元格,下拉填充至J1單元格,得到上表頭。接著在A2、A3單元格中分別輸入1和2,然後選中這兩個單元格,向右填充到A10單元格,得到左表頭。將上表頭和左表頭的數位設定為“加粗”“垂直居中”。
其實,也可以在A2單元格中輸入公式“=ROW()-1”,然後向下填充,通過當前行號得到左表頭,同理,也可以在B1單元格中輸入公式“=COLUMN()-1”,然後向下填充,通過當前列號得到上表頭。
3.在B2單元格中輸入公式“=IF(B$1>$A2,"",B$1&"×"&$A2&"="&B$1*$A2)”,並向下、向右填充公式到J10單元格。這裡用了一個簡單的IF公式進行判斷,當B1單元格值大於A2單元格值時,返回空值,否則返回用“&”連線符連線的資料。
方法二
1.與方法一中步驟1、2一致。
2.選中B2單元格,在“開始”索引標籤的“樣式”組中單擊“條件格式”按鈕,選擇“新建規則”項。在“新建格式規則”對話方塊中,選擇規則型別為“使用公式確定要設定格式的單元格”,設定“公式”為“=$A2<B$1< style="MARGIN-BOTTOM: 0px; MARGIN-TOP: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; user-select: text" span="">”,將字型格式設定為“白色”。
3.在B2單元格輸入公式“=B$1&"×"&$A2&"="&B$1*$A2”,然後用填充柄將B2單元格的公式和條件格式向下、向右填充到B2:J10區域,就會得到九九乘法表。這裡用到了絕對參照和相對參照的知識,不熟悉的小夥伴可以回顧下往期教學《絕對參照混合參照都不懂?難怪你總是公式填充錯誤!》。
因為在B2單元格的條件格式中使用了混合參照,所以當把條件格式填充到B2:J10區域後,如果第一列n行的值小於第1行n列的值,則將單元格中的內容設定為“白色”,使其與預設背景顏色相同,達到隱藏的效果,以保證B2:J10區域的上三角不被顯示出來。
方法三
無需輸入上表頭和左表頭,也可以製作九九乘法表,具體步驟如下:
1.在B7單元格中輸入公式:
“=IF(COLUMN(A1)>ROW(A1),"",COLUMN(A1)&"×"&ROW(A1)&"="&ROW(A1)*COLUMN(A1))”,向下、向右填充公式至J15單元格。
公式中使用了IF()、COLUMN()、ROW()函數。其中,ROW()用於提取所在單元格的行數,比如在A3單元格中輸入“=ROW(A3)”,就會返回A3單元格所在的行數,即3。COLUMN()用於提取所在單元格的列號,最後用IF()函數判斷A1單元格所在的列數是否大於其所在的行數,大於就返回空值,否則返回“列數×行數=行數*列數”。
方法四
其實九九乘法表,也可以用VBA程式來做,它可以使Excel更自動化,完成普通功能和函數無法完成的任務。
1.與方法一中步驟1一致。
2.在“開發工具”索引標籤的“控制元件”組中單擊“插入”按鈕,在當前工作表的適當位置處新增一個命令按鈕(ActiveX控制元件),在新新增的命令按鈕上,單擊滑鼠右鍵,在快捷選單中選擇“屬性”命令,設定其Caption屬性為“方法4”。
3.在“開發工具”索引標籤中點選“檢視程式碼”命令,對該按鈕的Click事件編寫如下程式碼:
Private Sub CommandButton1_Click()
Range("B1:J1").Value = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) '設定上表頭
Range("B1:J1").Copy
Range("A2:A10").PasteSpecial Transpose:=True '轉置貼上,設定左表頭
Application.CutCopyMode = False '取消複製狀態
k = "=R1C&" & Chr(34) & "×" & Chr(34) & "&RC1&" & Chr(34) & "=" & Chr(34) & "&R1C*RC1" '形成公式
For r = 2 To 10
For c = 2 To r
Cells(r, c).FormulaR1C1 = k '填寫公式
Next
Next
Cells(1, 1).Select '游標定位
End Sub
這段程式碼在單擊“方法4”按鈕時將被執行。
這段程式碼首先向B1:J1單元格依次填充數值1-9,將B1:J1區域的資料複製後轉置貼上到A2:A10單元格區域,然後取消複製狀態,得到表格上的上表頭和左表頭。接著生成一個計算公式送給變數k,並用雙重回圈結構將公式填充到2-10行的下三角區域,變數k的值為“=R1C & "×" & RC1 &"=" &R1C*RC1”,其中,RC1表示當前第1列單元格,R1C表示當前列第1行單元格。程式用函數“Chr(34) ”返回雙引號“"”,以實現雙引號的巢狀。
方法五
最後再介紹一種用VBA製作九九乘法表的方法。
1.與方法一中步驟1一致。
2.與方法四中步驟2一致,將控制元件的Caption屬性設定為“方法5”。
3.在“開發工具”索引標籤中點選“檢視程式碼”命令,對該按鈕的Click事件編寫如下程式碼:
Private Sub CommandButton1_Click()
For r = 1 To 9 '按行迴圈
Cells(r + 1, 1) = r '填寫左表頭
For c = 1 To r '按列迴圈
Cells(1, c + 1) = c '填寫上表頭
s = c & "×" & r & "=" & c * r '形成等式字串
Cells(r + 1, c + 1).FormulaR1C1 = s '填寫等式字串
Next
Next
End Sub
這段程式碼在單擊“方法5”按鈕時將被執行。
此程式採用的是雙重回圈結構。外層迴圈讓變數r從1到9進行變化,每次回圈先在r+1行、低1列單元格處填寫左表頭,再用內層迴圈讓變數c從1到r進行變化。每次內層迴圈先在第1行、c+1列單元格處填寫上表頭,再生成一個等式字串送給變數s,並將s的值填寫到r+1行、c+1列單元格。
相關文章