返回列表 上一主題 發帖

[發問] VBA加總問題

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-12-14 20:34 | 顯示全部帖子
本帖最後由 GBKEE 於 2010-12-14 20:36 編輯

回復 1# sandra_wang
  1. Sub Ex()
  2.     Dim Rng As Range, s1, s2, i
  3.     With ActiveSheet
  4.         Set Rng = .Range("i1", .Range("iv1").End(xlToLeft))
  5.         s1 = Rng.Address(, , xlR1C1)
  6.         For i = 2 To .Range("i" & Rows.Count).End(xlUp).Row
  7.             s2 = Rng.Offset(i - 1).Address(, , xlR1C1)
  8.             .Cells(i, "b").FormulaArray = "=SUM((" & s1 & "<>"""")*(" & s2 & "))"
  9.         Next
  10.     End With
  11. End Sub
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-12-15 19:45 | 顯示全部帖子
回復 8# frankjenq
節錄 vba的說明   FormulaArray  該公式必須使用 R1C1 參照樣式，而無法使用 A1 參照樣式
所以
s1 = Rng.Address(, , xlR1C1)
s2 = Rng.Offset(i - 1).Address(, , xlR1C1)
傳回R1C1 參照樣式  帶入公式中 "=SUM((" & s1 & "<>"""")*(" & s2 & "))"

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題