標題: 如何使用VBA撰寫函數公式(將符合的儲存格位址加入函數公式中)-已自行解決 [打印本頁]

---

作者: MRSA    時間: 2010-11-21 17:19     標題: 如何使用VBA撰寫函數公式(將符合的儲存格位址加入函數公式中)-已自行解決

本帖最後由 MRSA 於 2010-11-21 19:23 編輯

假定 A1 ~ A30 欄位中, A3,A11,A28 三個欄位的數值為 m, 我要在D2欄位裡,以VBA產生一個 "=A3+A11+A28" 的公式
由於 m 數值會在A1~A30內變動(不見得每次都會在相同欄位裡). 我要如何撰寫VBA語法讓它自動判斷符合的欄位,並在D2欄位裡產生對應的加總公式.

---

作者: MRSA    時間: 2010-11-21 19:22     標題: 如何使用VBA撰寫函數公式(將符合的儲存格位址加入函數公式中)-已自行解決

Range("G1").Value = "="
Range("A1").Select
If ActiveCell.Value = "m" Then
o2 = ActiveCell.Address
o3 = Range("G1").value
Range("G1").value = o3 + o2
Selection.Offset(1).Select
Else: Selection.Offset(1).Select
End If
For i2 = 1 to 29
If ActiveCell.Value = "m" Then
o5 = ActiveCell.Address
o6 = Range("G1").Formula
Range("G1").value = o6 + "+" + o5
Selection.Offset(1).Select
End If
Next i2

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)