如何使用VBA撰寫函數公式(將符合的儲存格位址加入函數公式中)-已自行解決
- 帖子
- 13
- 主題
- 6
- 精華
- 0
- 積分
- 25
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-8-8
- 最後登錄
- 2011-10-14
|
如何使用VBA撰寫函數公式(將符合的儲存格位址加入函數公式中)-已自行解決
本帖最後由 MRSA 於 2010-11-21 19:23 編輯
假定 A1 ~ A30 欄位中, A3,A11,A28 三個欄位的數值為 m, 我要在D2欄位裡,以VBA產生一個 "=A3+A11+A28" 的公式
由於 m 數值會在A1~A30內變動(不見得每次都會在相同欄位裡). 我要如何撰寫VBA語法讓它自動判斷符合的欄位,並在D2欄位裡產生對應的加總公式. |
|
|
|
|
|
|
|
- 帖子
- 13
- 主題
- 6
- 精華
- 0
- 積分
- 25
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-8-8
- 最後登錄
- 2011-10-14
|
2#
發表於 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 |
|
|
|
|
|
|
|
