小編致力于為大家奉獻最有效的經驗,讓大家能夠解決掉問題,但是大家也都知道,每個人遇到的情況都是不一樣的,大家在看小編經驗的同時,除了跟隨操作,也需要自己的思考,舉一反三的解決問題,這樣才會變得更加有內涵,成為和小編一樣的經驗達人。在excel中使用vba制作九九乘法表,這里,讓小編給大家介紹一下。
首先我們打開一個excel工作樣表作為例子。
在開發工具標簽面板下打開vba編輯窗口,或者使用alt+f11快捷鍵打開vba編輯窗口。
點擊插入一個新的模塊,并定義模塊sub Jiujiu()。
接下來在jiujiu模塊中輸入以下
Sub nine9()
Dim i As Byte, j As Byte, s As Byte
For i = 1 To 9
For j = i To 9
s = j * i
Cells(j, i) = i & "*" & j & "=" & s
Next j
Next i
End Sub
代碼。
詳細解釋一下,dim是定義i、j、s三個變量的數據類型為字節。
然后for是循環語句,定義i的取值是從1到9。
同樣在順序執行下,j定義的取值是從i到9
用數學的方法表示則是當i=1時,j=1。
cells函數是excel函數,作用是返回指定的行列,括號內的取值為I,J。對應Excel表格中的行列。后面的=號為輸出在excel表格中的數據。
我們可以看修改一下變量與定量相加的結果。我們將i值加上10,其他保持不變,得出的結果是一個錯誤的公式。
next是順序執行,以本例中next j舉例,則是對j值i to 9進行重復取值,并輸出到excel表格中,如果將next i 與next j呼喚,我們可以得到一個錯誤引用的結果。
大家可以多試驗一下,這個例子中每個函數與參數的配合,以及運行的規律來加深印象,我們可以看到本例代碼所得到的結果是正確的。
先寫到這里了,謝謝大家的觀看。
祝大家生活愉快。
小編還有許多其他的經驗可以觀看,如果無法解決問題可以聯系小編進行咨詢。
看不清楚圖片的可以點擊放大再看哦。
0 篇文章
如果覺得我的文章對您有用,請隨意打賞。你的支持將鼓勵我繼續創作!