返回列表 上一主題 發帖

[發問] sumif公式在VBA中無法執行

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
1# 跳轉到 »
發表於 2013-5-23 08:52 | 顯示全部帖子
本帖最後由 oobird 於 2013-5-23 09:00 編輯

用vba寫入公式要這樣：
Sub sumif()
    Dim abc1$, abc2$
    abc1 = Cells.Find("代號").Offset(1, 0).Address & ":" & Cells.Find("代號").Offset(1, 0).End(xlDown).Address
    abc2 = Cells.Find("值").Offset(1, 0).Address & ":" & Cells.Find("值").Offset(1, 0).End(xlDown).Address
    Range("D1") = "=sumif(" & abc1 & ",""BI""," & abc2 & ")"
End Sub

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題