Excel VBA，如何將值作為複雜公式分配給單元格

sub 在單元格中輸入公式 （）

with sheets("st1")

r_zj = "總*", .b:b], 0) '找到“總計”的行號。

cells(r_zj, 13).formula = "=sumif($c$7:$c$" & r_zj - 1 & ",""*總*"",$m$7:

m$" & r_zj - 1 & ")" '填寫總計公式。

for i = 7 to r_zj - 1

cells(i, 13).formula = "=rc[-1]*rc[-4]" '填寫非總計公式。

if .cells(i, 5) like "小計*" then '填寫小計公式。

r_xj = .cells(i, 4).

cells(i, 13).formula = "=sum(r[" & 1 - r_xj & "]c:r[-1]c)"

end if

if .cells(i, 3) like "*總*" then '填寫總公式。

r_hj = .cells(i, 2).

if .cells(i - 1, 5) like "小計*" then xj = 2 else xj = 1 '確定是否存在小計。

cells(i, 13).formula = "=sum(r[" & 1 - r_hj & "]c:r[-1]c)/" & xj

end if

next i

end with

end sub

您可以直接輸入公式。

例如，將 A1 新增到公式中。

range("a1")="countif(a:a,a1)"

例如，輸入公式 A1 以求和 g1：g3：

cells(1, 1).formula = "=sum(g1:g3)"

材質工具：Excel2010

1. 開啟Excel檔案，左鍵點選[開發工具]選單選項卡。

2.接下來，在**中輸入乙個簡單的**，如水果**。

3.然後在 VBA控制項 下拉選單中，選擇 按鈕控制.

4.然後畫出**中的按鈕控制項並修改控制項名稱。

5. 然後，左鍵點選 [檢視**] 按鈕。

6. 接下來，在 ** 視窗中輸入單元格的賦值語句。

7.最後，在設計視窗中，用滑鼠左鍵單擊按鈕，您可以看到資料自動顯示在**中的單元格中。

<>包含雙引號時實際上是乙個書寫問題，例如在單元格中寫入公式 =if（a1>0，）"陽性","陰性")

相反，VBA 語句為：range（"a1").formula = if(a1>0,""陽性""陰性""其中""其中第乙個"是乙個轉義字元。

告訴 excel 第二個引號作為文字。

那麼問題中的公式可以寫成：

if(a5=""if(mid(a5,2,1)="1"",fa-""if(mid(a5,2,1)="2"",wx-""if(mid(a5,2,1)="3"",tz-""a5&""rept(0,6-len(countifs($a$5:a5,a5)))countifs($a$5:a5,a5)"

呼叫函式。

任何帶引號的內容都應新增一層雙引號。

比如。 if(a5=""

到。 if(a5=""

b5] =if(a5=""if(mid(a5,2,1)="1"",fa-""if(mid(a5,2,1)="2"",wx-""if(mid(a5,2,1)="3"",tz-""a5&""rept(0,6-len(countifs($a$5:a5,a5)))countifs($a$5:a5,a5)""

在頭部末端新增乙個小支架，您就可以開始了。