返回列表 上一主題 發帖

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

voyageellen

帖子
8 
主題
3 
精華
0 
積分
53 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
20 
性別
女 
註冊時間
2013-4-1 
最後登錄
2022-4-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-5-23 00:34 | 只看該作者

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

請教各位高手
因為資料量不固定，想用變數代入sumif公式
在使用sumif公式時如出現"執行階段錯誤13"時要如何除錯?
初學VBA，請各位高手不吝賜教，謝謝！

sumif.rar (6.86 KB)

收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
250  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-18 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2013-5-23 08:47 | 只看該作者
回復 1# voyageellen
  1. Sub Mysumif()
  2. Dim abc1 As String, abc2 As String
  3.   Cells.Find(What:="代號").Offset(1, 0).Activate
  4.     a = ActiveCell.Row
  5.   
  6.   ActiveCell.End(xlDown).Select
  7.     c = ActiveCell.Row
  8.   
  9.   Cells.Find(What:="代號").Offset(1, 0).Activate
  10.     p = ActiveCell.Cells.Column
  11.   
  12.    abc1 = Range(Cells(a, p), Cells(c, p)).Address
  13.   
  14.    abc2 = Range(Cells(a, p + 1), Cells(c, p + 1)).Address
  15.   
  16.   Range("D1").Formula = "=sumif(" & abc1 & ",""BI""," & abc2 & ")"
  17. End Su
複製代碼
學海無涯_不恥下問

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
3#
發表於 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

voyageellen

帖子
8 
主題
3 
精華
0 
積分
53 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
20 
性別
女 
註冊時間
2013-4-1 
最後登錄
2022-4-7 
4#
發表於 2013-5-23 17:01 | 只看該作者
非常感謝Hsieh及oobird的指導
解決困擾我許久的問題也讓我學得正確的觀念

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題