返回列表 上一主題 發帖

如何使用VBA撰寫函數公式(將符合的儲存格位址加入函數公式中)-已自行解決

MRSA

帖子
13 
主題
6 
精華
0 
積分
25 
點名
0  
作業系統
Windows 7 
軟體版本
OFFICE 2010 
閱讀權限
10 
性別
男 
註冊時間
2010-8-8 
最後登錄
2011-10-14 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
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

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題