請問SUMIF程式

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

論壇貢獻勳章

2^#

發表於 2011-8-3 14:01 | 只看該作者

回復 1# lone_tiger0303

Sub yy()
[d1].Consolidate [a1].CurrentRegion.Address(, , xlR1C1), xlSum, 1, 1
End Sub

複製代碼

帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

3^#

發表於 2011-8-3 14:43 | 只看該作者

我是新手~~所以看不太懂意思
這有一個檔案~~麻煩您協助

Book1.zip (374.74 KB)

oobird

　頭銜: 街友一族

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

論壇貢獻勳章

4^#

發表於 2011-8-3 17:40 | 只看該作者

新手就更該認真點
別隨便發個與你的檔案完全兩回事的問題。

帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

5^#

發表於 2011-8-3 17:43 | 只看該作者

oobird 老師~~抱歉~~學生知錯了
還請您不計前嫌

oobird

　頭銜: 街友一族

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

論壇貢獻勳章

6^#

發表於 2011-8-3 23:45 | 只看該作者

回復 5# lone_tiger0303

跑一下這個程式

Sub yy()
Dim d As Object, arr, a, i%, m%
Set d = CreateObject("Scripting.Dictionary")
a = Range("ac16:ah" & [ah65536].End(3).Row)
ReDim arr(1 To UBound(a), 1 To 3)
For i = 1 To UBound(a)
If d(a(i, 6)) = "" Then
m = m + 1
d(a(i, 6)) = m
arr(m, 1) = a(i, 6)
arr(m, 2) = a(i, 1)
arr(m, 3) = a(i, 2)
Else
arr(d(a(i, 6)), 2) = arr(d(a(i, 6)), 2) + a(i, 1)
arr(d(a(i, 6)), 3) = arr(d(a(i, 6)), 3) + a(i, 2)
End If
Next
Range("aj16").Resize(m, 3) = arr
End Sub

複製代碼

帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

7^#

發表於 2011-8-4 13:25 | 只看該作者

謝謝您的幫忙

帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

8^#

發表於 2011-8-4 15:40 | 只看該作者

oobird 老師
學生有一個巨集執行到一半會出現"型態錯誤"
不知錯在何處~~請老師不吝給予指導

Book1.zip (163.61 KB)

Hsieh

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2011-8-4 16:14 | 只看該作者

回復 8# lone_tiger0303

錯誤是因為
k = Application.VLookup(m, Ay, 2)
當m在不存在於Ay時就會產生錯誤值
所以，無法在下一句中的寫入動作使用
B.Offset(, 1) = B.Offset(, -6) & "-" & k
改成
If Not IsError(k) Then B.Offset(, 1) = B.Offset(, -6) & "-" & k

學海無涯_不恥下問

帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

10^#

發表於 2011-8-4 16:53 | 只看該作者

謝謝！程式套用後以可以使用
但101201030D22 為何無法比對套資料
請再費心給予指導

Book1.zip (173.56 KB)