ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤é´Á°Ï¶¡¬d¸ß(¸ó¦~¤ë)

¦^´_ 10# Hsieh

CreateObject("Scripting.Dictionary") '¤£À´¨ä·N«ä ¥i¥H¤j·§»¡©ú¸Ñ´b¶Ü??·P®¦¤£ºÉ
yvonne

TOP

¦^´_ 11# afu9240
³o¬O³Ð«Ø¦r¨åª«¥óªº·N«ä
´N¬O±N¸ê®Æ¥HÃöÁä¦r¦s©ñ¤º®e
°ò¥»»yªk
object.add key,item
object¬°¦r¨åª«¥ó
add¤èªk¼W¥[¶µ¥Ø
key¬°ÃöÁä¯Á¤Þ¡A¥Hadd¤èªk¥[¤J¶µ¥Ø®É¡A­Y¯Á¤Þ­È­«½Æ«h·|²£¥Í¿ù»~
item¬°¹ïÀ³key¯Á¤Þ­È¤§¤º®e
©Ò¥H¥Î¨Æ¥Ñ°µ¬°¯Á¤Þ­È¡A¹ïÀ³­È¬°¥[Á`ª÷ÃB¥ý¦s¦b¦r¨åª«¥ó¤¤
¦A¥ÑÁ`ªí¨Æ¥ÑÄæ¦ì¹ïÀ³¨ú¥X¦r¨å¤º®e¶ñ¤J
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 12# Hsieh


    H¤j ±z¦n
   
      ªþ¥ó¬°¦ó±a¤J±zµ¹ªºcode µLªk°õ¦æ???¦A½Ð±ÐH¤j  ÁÂÁ 20180302.zip (37.86 KB)
yvonne

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2018-3-2 14:49 ½s¿è

¦^´_ 13# afu9240
§A¤u§@ªí1ªºÄæ¦ì§ïÅÜ
Private Sub CommandButton4_Click() '¶×¤J­pºâ«ö¶s
Set d = CreateObject("Scripting.Dictionary")
s = DateValue(ComboBox2 & "/" & ComboBox3 & "/1")
x = DateAdd("m", 1, DateValue(ComboBox5 & "/" & ComboBox4 & "/1")) - 1
With ¤u§@ªí1
For Each a In .Range(.[A2], .[A2].End(xlDown))
   If a >= s And a <= x Then
      d(a.Offset(, 1).Value) = d(a.Offset(, 2).Value) + a.Offset(, 2)
   End If
Next
End With
With Sheets("Á`ªí")
  For Each a In .[C3:C13]
     a.Offset(, 1) = d(a.Value)
  Next
End With
End Sub
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 14# Hsieh

H¤j,½Ð±Ð¤@¤U
     ¬°¦ó§Ú¸ê®ÆÂsÄý_listbox¿ï¾Ü³æ¸¹ÂsÄý®ÉµLªkÅã¥Ü¤º®e......¥i¥H¨ó§U¶Ü???~ÁÂÁ ¦U¶µ¥I´Ú.zip (44.26 KB)
yvonne

TOP

¦^´_ 15# afu9240

§Ú·s¼W¤@­Óªí³æ¸Õ§@¬yµ{¡A§A°Ñ¦Ò¬Ý¬Ý

    ¦U¶µ¥I´Ú.zip (47.28 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD