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

sammay

½Ð°Ý¦U¦ì«e½ú¡G
¤é´Á°Ï¶¡¬d¸ßÀ³¦p¦ó¹ê°µ©O¡H
¨Ò¦p¡G¦buserform1¤¤«ö¤U¬d¸ß«ö¶s¡A¦A(©óuserform3¤¤)¿ï¾Ü100¦~12¤ë¨ì101¦~1¤ë«ö¤U½T©w«ö¶s«á¡A±Nµ²ªG¿é¥X¨ì¬d¸ß©ú²Ó¡H
sh-test1-20120116.rar (36.42 KB)

sh-test1-20120116
¤U¸ü¦¸¼Æ: 32

2012-1-16 08:42

Hsieh

¦^´_ 15# afu9240

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

    ¦U¶µ¥I´Ú.zip (47.28 KB)

¤U¸ü¦¸¼Æ: 7

2018-3-9 15:28

afu9240

¦^´_ 14# Hsieh

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

¤U¸ü (63.18 KB)

2018-3-8 09:42

¦U¶µ¥I´Ú.zip (44.26 KB)

¤U¸ü¦¸¼Æ: 2

2018-3-8 09:42

Hsieh

¦^´_ 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

afu9240

¦^´_ 12# Hsieh


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

¤U¸ü¦¸¼Æ: 6

2018-3-2 14:19

Hsieh

¦^´_ 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

afu9240

¦^´_ 10# Hsieh

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

Hsieh

¦^´_ 9# afu9240

1. Private Sub CommandButton4_Click() '¬d¸ß«ö¶s
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. s = DateValue(ComboBox2 & "/" & ComboBox3 & "/1")
   
4. x = DateAdd("m", 1, DateValue(ComboBox5 & "/" & ComboBox4 & "/1")) - 1
   
5. With ¤u§@ªí1
   
6. For Each a In .Range(.[A2], .[A2].End(xlDown))
   
7.    If a >= s And a <= x Then
   
8.       d(a.Offset(, 2).Value) = d(a.Offset(, 2).Value) + a.Offset(, 1)
   
9.    End If
   
10. Next
    
11. End With
    
12. With Sheets("Á`ªí")
    
13.   For Each a In .[C3:C13]
    
14.      a.Offset(, 1) = d(a.Value)
    
15.   Next
    
16. End With
    
17. End Sub

½Æ»s¥N½X

½Æ¥» ¦p¦ó±N¸ê®Æ¶×¤JÁ`ªí.zip (33.03 KB)

¤U¸ü¦¸¼Æ: 10

2018-2-27 17:08

afu9240

¦^´_ 6# GBKEE

G¤j ±z¦n
  ¦pªG¤é´Á®æ¦¡¬°§Úªþ¥ó³oºØÃþ«¬­n¦p¦ó¨ú¤é´Á½d³ò¥X¨Ó,¦A¶K¦b·sªº¤u§@ªí©O!!! ¬d¸ß¤é´Á°Ï¶¡¸ê®Æ.zip (31.65 KB)

¤U¸ü¦¸¼Æ: 5

2018-2-27 16:20

JOYARK

ÁÂÁ´£¨Ñ¾Ç²ß«D±`¹ê¥Î