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

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

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

½Ð°Ý¦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)

¦^´_ 15# afu9240

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

    ¦U¶µ¥I´Ú.zip (47.28 KB)
¾Ç®üµ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

¥»©«³Ì«á¥Ñ 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

¦^´_ 12# Hsieh


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

¦^´_ 10# Hsieh

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

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2018-2-27 17:08 ½s¿è

¦^´_ 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)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# GBKEE

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD