Andy2483

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß°}¦C»P¦r¨å,¾Ç²ß¤ß±o¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð
°õ¦æ«e:

¤U¸ü (102.77 KB)

2024-3-1 08:04

°õ¦æµ²ªG:

¤U¸ü (111.45 KB)

2024-3-1 08:04

Option Explicit
Sub TEST()
Dim Brr, Z, i&, T$
'¡ô«Å§iÅܼÆ:&¬Oªø¾ã¼Æ,$¬O¦r¦êÅܼÆ,¨S¦³«ü©wªº¬O³q¥Î«¬ÅܼÆ
Set Z = CreateObject("Scripting.Dictionary")
'¡ô¥OZÅܼƬO ¦r¨å
Brr = Range([KH!E3], [KH!A65536].End(xlUp))
'¡ô¥OBrrÅܼƬO¤Gºû°}¦C,¥HÀx¦s®æ­È±a¤J
For i = 1 To UBound(Brr)
'¡ô³]¶¶°j°é!¥Oi±q1 ¨ìBrr°}¦CÁa¦V³Ì¤j¯Á¤Þ¦C¸¹
   T = Trim(Brr(i, 2)) & "/" & Val(Brr(i, 3)) & "/" & Val(Brr(i, 4))
   '¡ô¥OTÅܼƬO3­ÓÄæ¦ìBrr°}¦C­È¥H"/"²Å¸¹¦ê±µ¦¨ªº·s¦r¦ê
   Z(T) = Z(T) + Val(Brr(i, 5))
   '¡ô¥OTÅܼƬ°key,item²Ö¥[²Ä5ÄæBrr°}¦C­È
Next
Brr = Range([Data!G1], [Data!A65536].End(xlUp))
'¡ô¥OBrrÅܼƬO¤Gºû°}¦C,¥H¥tªíÀx¦s®æ­È±a¤J
For i = 2 To UBound(Brr)
'¡ô³]¶¶°j°é!¥Oi±q1 ¨ìBrr°}¦CÁa¦V³Ì¤j¯Á¤Þ¦C¸¹
   T = Trim(Brr(i, 1)) & "/" & Val(Brr(i, 2)) & "/" & Val(Brr(i, 3))
   '¡ô¥OTÅܼƬO3­ÓÄæ¦ìBrr°}¦C­È¥H"/"²Å¸¹¦ê±µ¦¨ªº·s¦r¦ê
   Brr(i - 1, 1) = Z(T)
   '¡ô¥OBrr°}¦C²Ä1Äæ¼g¤J¬dZ¦r¨åªºitem­È
Next
With [Data!D2].Resize(UBound(Brr) - 1)
'¡ô¥H¤U¬OÃö©óµ²ªGÀx¦s®æªºµ{§Ç
   .Value = Brr
   '¡ô¥OÀx¦s®æ­È¥HBrr°}¦C­È¼g¤J
   .Offset(, 1) = "=D2-SUM(F2:" & [Data!IV1].End(xlToLeft)(2).Address(0, 0) & ")"
   '¡ô¥Oµ²¾lÄæ¼g¤J¤½¦¡ Åý¦Û°Ê¹Bºâ
End With
End Sub

Andy2483

¦^´_ 4# mdr0465


    ÁÂÁ«e½ú¤@°_¾Ç²ß,¥H¤U¥N½X½Ð°õ¦æ¬Ý¬Ý
Option Explicit
Sub TEST()
Application.DisplayAlerts = False
Dim Z, T$, V&
Set Z = CreateObject("Scripting.Dictionary")
MsgBox Z.Count
'¡ô¸õ¥X´£¥Üµ¡,Åã¥ÜZ¦r¨å¸Ìkey¼Æ¶q0
T = "ÃöÁä¦r"
V = Z(T)
'¡ôÁÙ¨S±µÄ²¦r¨å¤§«e«á¾Ç»{¬° Z(T)= ??? ³o¼Ëªº»yªk¤~¯à²K¥[key¨ì¦r¨å¸Ì,
'¦ý¬O¦¹¦æ¤w¸g±NT³okey©ñ¤JZ¦r¨å¤¤,item¬OªÅªº   ³o¬O¤ñ¸û¯S§Oªº¦a¤è
MsgBox Z.Count
'¡ô¸õ¥X´£¥Üµ¡,Åã¥ÜZ¦r¨å¸Ìkey¼Æ¶q1

MsgBox Z(T)
'¡ô¸õ¥X´£¥Üµ¡,Åã¥Ü¥HTÅܼƬ°key¬dZ¦r¨å±o¨ìªºitem­È ªÅ¦r¤¸
V = V + 10
Z(T) = Z(T) + V
'¡ô¥OZ¦r¨å¸Ì key¬O TÅܼƪºitem­È + VÅܼÆ
MsgBox Z("ÃöÁä¦r")
'¡ô¸õ¥X´£¥Üµ¡,Åã¥Ü¥H"ÃöÁä¦r"¦r¦ê¬°key¬dZ¦r¨å±o¨ìªºitem­È 10
End Sub

Andy2483

¦^´_ 7# shuo1125


ÁÂÁ«e½ú¤@°_¾Ç²ß
¬Oªº! ¦r¨å«Ü¯S§O
Option Explicit
Sub TEST()
Dim Z, V&
Set Z = CreateObject("Scripting.Dictionary")
V = Z("ÃöÁä¦r1") + Z("ÃöÁä¦r2") + Z("ÃöÁä¦r3") + Z("ÃöÁä¦r4") + 100
MsgBox Z.Count '¦¹®ÉZ¦r¨å¸Ì¤w¸g¦³4­Ókey
MsgBox Z("ÃöÁä¦r1") + Z("ÃöÁä¦r2") + Z("ÃöÁä¦r3") + Z("ÃöÁä¦r4")
End Sub
­n±`À³¥Î¦r¨å¤~¯à»P¦r¨å¦¨¬°¦n¤Í

Andy2483

¦^´_ 6# 198188

ÁÂÁ«e½ú¤@°_¾Ç²ß
¨ä¹ê¦pªG¦r¨åkey¤£·|­«½Æ¯S©Ê »P5# ªº¦r¨å¯S©ÊÀ´¤F,±`¹B¥Î´N·|¶i¨B