返回列表 上一主題 發帖

sumifs 轉成 vba 語法

mdr0465

帖子
167 
主題
48 
精華
0 
積分
253 
點名
1  
作業系統
win7 
軟體版本
ie 
閱讀權限
20 
性別
男 
註冊時間
2015-7-8 
最後登錄
2026-7-31 
1# 跳轉到 »
發表於 2022-4-26 10:30 | 顯示全部帖子
本帖最後由 mdr0465 於 2022-4-26 10:31 編輯

回復 26# samwang


samwang你好
我借用你的完成品修改一下, 將sumif變成橫向的,第一次運算是成功的, 但不知為何當第二次運算時就會失敗, 請幫忙查看並指點我錯在那里,




謝謝

Sumif VBA.rar (24.19 KB)

TOP

mdr0465

帖子
167 
主題
48 
精華
0 
積分
253 
點名
1  
作業系統
win7 
軟體版本
ie 
閱讀權限
20 
性別
男 
註冊時間
2015-7-8 
最後登錄
2026-7-31 
2#
發表於 2022-4-26 12:13 | 顯示全部帖子
回復 28# samwang

SAMWANG師兄,你好

謝謝你的指導, 我想想怎樣在回填資料時先舊的答案先清除,

謝謝你耐心教導, 謝謝

TOP

mdr0465

帖子
167 
主題
48 
精華
0 
積分
253 
點名
1  
作業系統
win7 
軟體版本
ie 
閱讀權限
20 
性別
男 
註冊時間
2015-7-8 
最後登錄
2026-7-31 
3#
發表於 2022-4-26 13:05 | 顯示全部帖子
本帖最後由 mdr0465 於 2022-4-26 13:07 編輯

回復 30# samwang


SAMWANG 師兄,你好

我都看到資料回填時也有錯位問題, 但我用愚蠢的方法我修正了(請看以下紅字的地方), 這一點我始終不明白當中是為何這樣設定就可以解決, 請SAMWANG 指教

.[A20:A21].EntireRow.Clear
    .[B20].Resize(1, xD2.Count) = xD2.Keys
    Crr = .[B20].CurrentRegion
    For x = 1 To UBound(Crr, 2)
        Crr(1, x) = xD(Crr(1, x) & "")
    Next

    .[B21].Resize(UBound(Crr), xD.Count - 4) = Crr
    .[A20] = "XX"
    .[A21] = "YY"

Sumif VBA.rar (24.6 KB)

SUMIF

TOP

mdr0465

帖子
167 
主題
48 
精華
0 
積分
253 
點名
1  
作業系統
win7 
軟體版本
ie 
閱讀權限
20 
性別
男 
註冊時間
2015-7-8 
最後登錄
2026-7-31 
4#
發表於 2022-4-26 14:27 | 顯示全部帖子
本帖最後由 mdr0465 於 2022-4-26 14:33 編輯

回復 32# samwang

samwang師兄,你好

受教了, 原來是我在運算上做了多餘的事情,

萬分感激指導我的錯處, 日後如果不懂的地方,再看samwang 師兄請教

謝謝

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題