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

[µo°Ý] ½Ð°Ý¥X¶Ô¨t²Î³]­p

¥»©«³Ì«á¥Ñ v03586 ©ó 2016-8-1 13:08 ½s¿è

¦^´_ 9# c_c_lai


    ·í®É³]­pUserformªº®É­Ô¤£ª¾¹D²M³æ¿ï¶µ¯à°µ¨ì¤°»ò®ÄªG, ¦]¬°§Ú¦bºô¸ô¤WYoutube ª¦¤å ³£­nÂI¿ï«ö¶s¤~¯à¥X²{¸ê®Æ
   ¦]¬°VPK²Õ¸ê®Æ¤Ó¦h, ´N·Q»¡¦U²Õ§O,¦U§OÅã¥Ü¤~¤£·|¶Ã±¼, ²M³æ¤è¶ô¬O±q§O±iSheetªº¸ê®Æ, ÂI¿ï«á±a¤J¤U­±¤è¶ô(¬õ®Ø),
  ¤§«á½s¿è¥[¯Zª¬ºA, ¦Ü©ó¡y¥X¶Ô¯¸§O¡z¥D­n±a¤J¡y¥D­n±Mªø¡zªº¸ê®Æ, ¦ý¹ê»Ú¥X¶Ô¥i¯à¦]¬°¤H¤O¦]¯À§ïÅÜ, ©Ò¥H®ÇÃä¤~³]«ö¶s
  Åý¨Ï¥ÎªÌ¦Û¦æ½s¿è
   
    ¦]¬°¬O¤u¼t, »Ý­n¿é¤J¦o¥i¥H¾Þ§@´X¥x¾÷¾¹, ¤~¯à­pºâ¥X¶Ô¤H¤O¥i¥H¶}±Ò¦h¤Ö¾÷¥x, ¥u¦³DA»Ý­n­pºâ¾÷¥x, ¨ä¥L¬O¤£¥Îªº

TOP

¦^´_ 11# v03586
¸Õ¸Õ¬Ý¡I
¤H­û¤H¤O¦^³øªí.rar (457.29 KB)

TOP

¦^´_ 12# c_c_lai


    ¬Oªº!!! ¶W±j!!!·PÁ¤j¤j,  ½T»{Áä¿é¤J«á¦s¤J¡y¥X¶Ô¸ê®Æ®w¡z, ¸ò¡y¤H­û¦^³ø¡z
   ¥t¥~¥[¯Z­pºâ¤£ª¾¹D«ç»ò±a¤J, ¤×¨ä¬O¤H­û¦^³ø A2Äæ ¤£ª¾¹D¯à¤£¯à°µ¨ì¿ï¾Ü¤ë¥÷±±¨î¤é´Á

TOP

¦^´_ 13# v03586
§A­n¥ý¦Û¤v¸Õ¼g¤~¦æ°Ú¡I
³£¼g§¹¤F¹ï§A¬O¨SÀ°§Uªº¡C
­ì¥ý§A¼gªº»yªk§Ú³£¤@¤@­×¥¿¹L¡A
§A¥i±q¤¤¤F¸Ñ¤§«e¤§«áªº²§°Ê¦³¦ó¤£¦P¡H
¦p¦¹§A¤~·|¾Ç¨ìªF¦è¡C
§Ú¤w¸g§â¸û¤£©ö³B¸Ìªº³¡¤À¸Ñ¨M±¼¤F¡A
§A¥ý¸ÕµÛ¦Û¦æ¼¶¼g¡A§Ú¦³ªÅ¤]·|À°§A¯d¯«ªº¡C

TOP

¦^´_ 14# c_c_lai

¹ï©ó«e½úªº«ü±Ð...¯uªº«Ü·PÁ¤]¨ü´f...¦]¤u§@©Ê½è¸û¬°½ÆÂø, µLªk§â¤ß¤O¥þ¤ßÄé¤J, ¤~¨Ó¨D«ü±Ð, ³y¦¨¤£«K¯uªº²`·P©êºp
¼g¤F³o¬q«á...§â¿é¤Jªº¸ê®Æ­«½Æ¶]¤F10¦¸....
  1. Private Sub CommandButton10_Click()
  2.     Dim x&
  3.     With Worksheets("¥X¶Ô¸ê®Æ®w")
  4.         For x = 2 To 11

  5.                 .Cells(x, 1) = DA¥X¶Ô§ó·s.ComboBox2.Value '¯Z§O
  6.                 .Cells(x, 2) = DA¥X¶Ô§ó·s.ComboBox3.Value '»â¯Z
  7.                
  8.                 .Cells(x, 4) = DA¥X¶Ô§ó·s.TextBox2.Value  '¤u¸¹
  9.                 .Cells(x, 5) = DA¥X¶Ô§ó·s.Textbox3.Value  '©m¦W
  10.                 .Cells(x, 6) = DA¥X¶Ô§ó·s.Textbox4.Value '²Õ§O
  11.                 .Cells(x, 7) = DA¥X¶Ô§ó·s.TextBox5.Value   '¥X¶Ô¯¸§O
  12.                 .Cells(x, 8) = DA¥X¶Ô§ó·s.ComboBox8.Value '¥i¾Þ¾÷¼Æ
  13.                 .Cells(x, 9) = DA¥X¶Ô§ó·s.TextBox8.Value '¥X¶Ô®É¼Æ
  14.                 .Cells(x, 10) = DA¥X¶Ô§ó·s.ComboBox7.Value '©µªø¥[¯Z
  15.                 .Cells(x, 11) = DA¥X¶Ô§ó·s.TextBox7.Value '¥[¯Z®É¼Æ

  16.         Next x
  17.     End With
  18.     Call CommandButton11_Click
  19.     MsgBox "¸ê®Æ§ó·s§¹¦¨"
  20. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-8-2 08:30 ½s¿è

¦^´_ 15# v03586
°Ñ¦Ò¡I  (¦Ü 3.5 ªº«e¥b³¡)
¬Ý¬Ý Sub overTime() ¬O¤£¬O§Aªº·Qªk¡A
½T»{§ó·s·~¤w§¹¦¨ (§A¼gªº¤]¤£¿ù)¡A ¥[ªo¡I
PS §Ú§â©Ò¦³ª«¥ó¦WºÙ§ï¦¨¹ï·Óªº¤¤¤å¦WºÙ
      ¦p¦¹¤è«K¾ã­Óµ{¦¡ªºÂsÄý»PÁA¸Ñ¡C
¤H­û¤H¤O¦^³øªí.rar (459.97 KB)
A2.png
2016-8-2 08:30

TOP

¥»©«³Ì«á¥Ñ v03586 ©ó 2016-8-3 04:23 ½s¿è

¦^´_ 16# c_c_lai


    Overtime ¬O§Úªº·Qªk¨S¿ù!!·PÁ¨ó§U
   ¥t¥~¥i§_§ó·s¥X¶Ô¯à§_¼g­Ó¨¾§b¥\¯à, ¬Û¦P¤é´Áªº¬Û¦P¤u¸¹¤w¸g¦³¿é¤J¹Lªº, ¦A¦¸¿é¤J®É·|¸õ¥X°T®§¤£¯à³Q¿é¤J
   ´ú¸Õªº®É­Ôµo²{¥i¥H³sÄò¿é¤J¬Û¦P¤é´Áªº¦P¤@­Ó¤H¸ê®Æ
   ¥Ø«e¥u­n¿é¤J¤@µ§¸ê®Æ, ½T»{§ó·sÁä·|¦Û°ÊÃö³¬ , ­n¦A«ö¤@¦¸²MªÅ, ¦A­«·s¿ï¾Ü¤H­û, «ö¶s¤~¤S³Q¥´¶}
    ( §Ú§â ½T»{§ó·s.Enabled = True )

  ¥t½Ð°Ý¦p¦ó§Q¥ÎA2Äæ±±¨î¤ë¥÷?  ©T©wHÄæ«á­±·|¦]¬°¤ë¥÷§ïÅÜ, ¬P´Á¤]§óµÛ§ïÅÜ ( ¦p¬õ®Ø )
  
Q1.png
2016-8-3 04:16

   

A65~G65 ¬O¶×¤J §Q¥ÎINDEX»PMATCH ¨ç¼Æ¶×¤J«á±Æ§Ç¶Ü? ÁÙ¬O¥ÎVlookup ©O?
Q2.png
2016-8-3 04:17

§Ú¥uª¾¹D±Æ§Çªº¼gªk¦p¤U...¦ý¤£ª¾¹D¦p¦ó±q²Ä65Äæ¶}©l§Q¥Îµ{¦¡±Æ§Ç,  ¨ä¥LºûÅ@ªº¸ê°T¬O§_¥i§Q¥Îµ{¦¡¤è¦¡±a¤J©O?
  1. Dim xArea As Range
  2. xArea.Resize(, 7).Sort Key1:=xArea(1, 1), Order1:=xlAscending, _
  3.                        Key2:=xArea(1, 2), Order2:=xlAscending, _
  4.                        Key3:=xArea(1, 7), Order3:=xlAscending, Header:=xlNo
½Æ»s¥N½X
¤H­û¤H¤O¦^³øªí.rar (399.75 KB)

TOP

¦^´_ 16# c_c_lai


    Overtime ±o¥[Á`¬O­n­pºâ¦b¡y¤H­û¦^³ø¡z­¶­±ªºC65Äæ¦ì

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-8-4 07:12 ½s¿è

¦^´_ 18# v03586
¸Õ¸Õ¬Ý¡I
¤H­û¤H¤O¦^³øªí.rar (397.63 KB)
±µ¤U¨Ó§AÀ³¸Ó¥i¥H¤W¤â¤F¡A#18 ¤£©úÁA³B²z²Ó¸`¡H
(Overtime ±o¥[Á`¬O­n­pºâ¦b¡y¤H­û¦^³ø¡z­¶­±ªºC65Äæ¦ì)
©ú¤é§Ú­n¨ìªL¤fªø©°Àˬd²´·ú¡A
§A¦Û¤v¦A¦n¦n¸ÉÀð§a¡I

TOP

¦^´_ 17# v03586
°w¹ï "A2Äæ±±¨î¤ë¥÷?  ©T©wHÄæ«á­±·|¦]¬°¤ë¥÷§ïÅÜ, ¬P´Á¤]§óµÛ§ïÅÜ"
°µ¤F­×¥¿ (¼W¦C chgMonth())¡C¦b UserForm_Initialize() ¶¥¬q«K°µ¤F§PÂ_¡C
±µ¤U¨Ó´N¬Ý§A¤F¡I¥[ªo¡I
§Ú­n·Ç³Æ´NÂå¤F¡C
¤H­û¤H¤O¦^³øªí.rar (400.7 KB)
1

µû¤À¤H¼Æ

    • ML089: ¯u°©力¡A¯¬¦­¤é±d´_¡Cª÷¿ú + 2

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD