一, 在單元格中輸入公式的3種方法:

????1) 用VBA在單元格中輸入普通公式

Sub formula_1() Range("d2") = ("=B2 * C2") End Sub

運(yùn)行程序后,在D2的單元格內(nèi)顯示的是公式 =B2 * C2 ,并非程序返回值.下文(二)中會(huì)介紹另外一種直接返回值的方式

????想要通過程序一次計(jì)算完所有D列金額,只要運(yùn)行上一篇文章循環(huán)語句,即可一次性完成計(jì)算. 具體代碼如下:

Sub fomula_t2() Dim x As Integer For x = 2 To 4 Cells(x, 4) = "=b" & x & "*" & "c" & x Next x End Sub

? ? 2)用VBA在單元格中輸入帶引號(hào)的公,以Sumif公式舉例,函數(shù)Sumif參數(shù):(Range,Criteria,sum_rangge)即(判斷范圍,判斷條件,求和區(qū)域). 其中判斷條件可以為單元格也可以是文本,而文本在函數(shù)參數(shù)中是需要加上引號(hào)的.?

在單元格用公式的方式實(shí)現(xiàn)方式:

?? 如果需要用VBA代碼的方式實(shí)現(xiàn) , 需要特別主要的是:公式中用到引號(hào)的地方,VBA代碼中需要使用雙重引號(hào) ?: 見下放代碼中的""刀輪""

Sub fumula_t3() Range("B10") = "= sumif(A2:A5,""刀輪"",d2:d5)" End Sub

????3)在Excel中我們時(shí)常會(huì)使用到數(shù)組來幫助計(jì)算, 使用數(shù)組的方式計(jì)算上圖中的D列合計(jì)金額計(jì)算方法: = sum(B2:B5 * C2:C5).

???? ? *Excel小知識(shí): 特別注意在計(jì)算前需要首先選中D2:D5,然后輸入公式.最后同時(shí)按下Ctrl + Shift + Enter

???? ?如果使用VBA的方式,則需要調(diào)用一個(gè)Range新的屬性Formulaarray可實(shí)現(xiàn)相同的效果:

Sub formula_t4() Range("D2").FormulaArray = "=sum(B2:B6 * C2:C6)" End Sub

-----------------------------------

二,利用單元格公式返回值,不顯示公式

? ? 在公式之前加上Evaluate后, 單元格只顯示公式的返回值,而不會(huì)顯示公式.

Sub formula_1() Range("d2") = Evaluate("=B2 * C2") End Sub

------------------------------------

三,調(diào)用Excel公式

? ??調(diào)用方法:Application.worksheetfunction

? ? 注意事項(xiàng):單元格表示方式與公式不同, 上述方法的單元格表示方式均為單元格加引號(hào)("D2"),如果使用調(diào)用的方式,則需要表示為range("D2") ??

Sub fomula_t6() Range("b10") = Application.WorksheetFunction.Sum(Range("d2:d5")) End Sub

-------------------------------

四,調(diào)用VBA函數(shù)

????VBA函數(shù)與工作表函的數(shù)有一些重疊的部分,有些功能類似但是參數(shù)的順序不同.鑒于函數(shù)太多,大家在使用的時(shí)候可以通過F1查看幫助以便更好地使用.這里我們只說明一下調(diào)用地方法. 我們使用VBA.Instr 函數(shù)舉例,實(shí)現(xiàn)在C9單元格中顯示"金"字在B9單元格中首次出現(xiàn)地位置

Instr:指定一個(gè)字符串在另一個(gè)字符串中首次出現(xiàn)的位置 ,?

Sub fomula_t7() Range("C9") = VBA.InStr(Range("B9"), "金") End Sub

運(yùn)行后,得到地結(jié)果是 3.

除了以上4中方法,還有一個(gè)就是自定義函數(shù)了,這部分我們?cè)诤竺娴腇unction功能會(huì)再次重點(diǎn)講解,這里就不再贅述了~

關(guān)鍵字: 雙引號(hào) , Formulaarray , evaluate , worksheetfunction?, VBA函數(shù)

今天的內(nèi)容就是這些了,快動(dòng)手試一試吧~

總結(jié)

以上是生活随笔為你收集整理的excel vba 调用webbrowser_VBA 公式与函数的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。