原 編寫Excel巨集

朋友使用excel製作**時向我提出這樣乙個需求：有一列寫出計算公式，另一列將該公式的計算結果自動算出，具體如下圖：

我告訴他，這個寫乙個巨集就可以實現了。具體步驟如下：

1. 找到「工具」選單欄下的巨集（m）選單下的巨集（m），如下圖所示：

2. 在彈出的對話方塊上輸入名稱:calc，然後單擊建立按鈕，如下圖：

3. 在彈出的介面下先刪除所有**，輸入如下**：

sub calc()

a = [a1].value
[b1] = evaluate(a)
a = [a2].value
[b2] = evaluate(a)
a = [a3].value
[b3] = evaluate(a)
a = [a4].value
[b4] = evaluate(a)
end sub

這裡簡單解釋下**：

sub calc() 是定義乙個函式，end sub是結束乙個函式，這兩句基本不用理會。

a = [a1].value 的意思是把a1**的表示式賦給變數a，[b1] = evaluate(a)的意思是計算a表示式的值，把這個表示式的值賦給b1**。上面那段**只是計算a1,a2,a3,a4四個格仔的值，假如你想計算其它格仔的值，如a5、a6、a7等，可以再修改這段**。

4.單擊儲存按鈕儲存這段巨集，如下：

6. 在a1、a2、a3、a4四個格仔輸入四個公式，如下圖：

7. 找到「工具」選單欄下的巨集（m）選單下的巨集（m），如下圖所示：

8. 選擇calc巨集，再單擊執行按鈕，如下圖所示：

9. 最後就是執行結果，如下圖所示：

現在發現office的巨集和visual studio的巨集的編寫辦法基本是一樣的，由此我不得不佩服微軟的架構，你只需懂了乙個，其它的就基本懂了。

1. excel中用evaluate()函式求文字型數學表示式的計算結果

Excel巨集教程

excel巨集教程 巨集的介紹與基本使用 1 1 a 6 5 避免迴圈引用 在上述公式賦值過程中，應避免在公式中引用被賦值的單元格，防止迴圈引用錯誤。6 新增批註 可按如下方法格給單元格新增批註 dim 批註文字 as string 批註文字 批註示例 準備批註文字 activecell.addco...

編寫freemarker的巨集

例子如下 function displaysize size assign sizeview if size?string assign sizeview 1m if size 1024 1024 1024 assign sizeview size 1024 1024 1024 string 0 g...

編寫freemarker的巨集

例子如下 function displaysize size assign sizeview if size?string assign sizeview 1m if size 1024 1024 1024 assign sizeview size 1024 1024 1024 string 0 g...