sumifs 轉成 vba 語法 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » sumifs 轉成 vba 語法

返回列表下一主題上一主題發帖

sumifs 轉成 vba 語法

中學生 Rank: 2

帖子: 163
主題: 45
精華: 0
積分: 246
點名: 27
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-9-14

31^# 跳轉到 »

發表於 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

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

32^#

發表於 2022-4-26 13:28 | 只看該作者

回復 31# mdr0465

請看附件，謝謝

Sumif VBA_0426.zip (23.3 KB)

中學生 Rank: 2

帖子: 163
主題: 45
精華: 0
積分: 246
點名: 27
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-9-14

33^#

發表於 2022-4-26 14:27 | 只看該作者

本帖最後由 mdr0465 於 2022-4-26 14:33 編輯

回復 32# samwang

samwang師兄,你好

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

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

謝謝

靜思自在 : 看別人不順眼，是自己修養不夠。

返回列表下一主題上一主題