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

ªÑ²¼¶W³sµ²

ªÑ²¼¶W³sµ²

¦U¦ì¤j¤j¦n:
·Q°µ¤@­ÓªÑ²¼¶W³sµ²µ{¦¡
¦ý¬OÁÙ¬O°µ¤£°_¨Ó
½Ð¤j¤j¦³ªÅÀ°§Ú­×§ï¤@¤U
ÁÂÁÂ

¶W³sµ².rar (6 KB)

michael

¹ê¦b¬Ý¤£À´­n°µ¦óºØ³sµ², ¤]³\³o­Ó¥i¥H°Ñ¦Ò,
EXCEL¡Dª÷¤d¨½¡D©_¼¯ªÑ²¼¦Û°Ê§ó·sºÊ¬Ý¨t²Î >>> (¥H«eªº¯ó°µÀÉ, ¦Û¤v¼gªº¦Û¤v¥Î¤£¨ì, ®¤µLªk­Ó§O­×§ïµ{¦¡)
http://blog.xuite.net/smile1000mile/blog/95104599

TOP

¦^´_ 2# ­ã´£³¡ªL

½Ð±Ð¤j¤j:
±zªººô¯¸¦p¦ó¥Ó½Ð¦¨¬°·|­û
§Ú¦³¤@¨Çª÷¤d¨½¡D©_¼¯ªÑ²¼¦Û°Ê§ó·sºÊ¬Ý¨t²Î °ÝÃD·Q½Ð±Ð±z
michael

TOP

¦^´_ 3# chairles59


§Ú¤£¦¬·|­û¡A¤]¤£¦¬¶O¬°¤H¼gµ{¦¡¡A
¦³°ÝÃD¥i¦b¦¹½×¾Âµo©«¡A¦ý»Ý¨D¥²¶·»¡¸Ô²Ó¡A
ªp¥B¹ïºô­¶ªº³B²z¡A³o¸Ì¦³§ó°ª¶Wªº¤H¡AÀ³¥i¥H±o¨ì§ó¦nªº¤è®×¡I¡I¡I

TOP

¦^´_ 4# ­ã´£³¡ªL


    ª÷¤d¨½¡D©_¼¯ªÑ²¼¦Û°Ê§ó·sºÊ¬Ý¨t²Î
¦Û°Ê§ó·s¤~¯à§âªÑ²¼¸ê®ÆÂà¨ì¥t¤@­Ó¤u§@ªí

¦p¦ó§ó§ï¤â°Ê§ó·s¥þ³¡¤]¯à§âªÑ²¼¸ê®ÆÂà¨ì¥t¤@­Ó¤u§@ªí
§Ú·Q§â¨C¤ÑºÊ¬ÝªºªÑ²¼¦¨¥æ¸ê®Æ¦Û°Ê°µ¨ì¥t¤@­Ó¤u§@ªí·í¦¨¬ö¿ý
¦pªG¦b¥æ©ö®É¶¡µ²§ô,¥Î¦Û°Ê§ó·s«áªº¦³®É·|¦³¬Û¦P¸ê®Æ¨â¤Tµ§
ÁÂÁ¤j¤jªº³o­Óµ{¦¡

King1000_ª÷¤d¨½ªÑ²¼ºÊ¬Ý¨t²Î.rar (27.52 KB)

michael

TOP

¦^´_ 5# chairles59


If uMode = 1 Then Call ³vµ§°O¿ý

§âÂŦⳡ¥÷¥h±¼§Y¥i

TOP

Sub ³vµ§°O¿ý()
Dim DSht As Worksheet, dEnd As Range
On Error GoTo 999
Set DSht = ThisWorkbook.Sheets(uRng.Text)
With DSht
¡@¡@.[B1] = uRng: .[D1] = uRng(1, 2): .[E1] = ""
¡@¡@Set dEnd = DSht.[A65536].End(xlUp)(2)
¡@¡@If dEnd.Row < 3 Then Set dEnd = DSht.[A3]
¡@¡@If dEnd(0, 5) = uRng(1, 7) Then Exit Sub¡@¡@'¥[¤J³o¤@¦æ¡A·í¦¨¥æ¶q¥¼ÅÜ°Ê¡A¤£°O¿ý¡I¡I¡I¡@
¡@¡@dEnd.Resize(1, 5) = uRng(1, 3).Resize(1, 5).Value
¡@¡@If dEnd.Row > 3 Then dEnd(1, 6) = dEnd(1, 5) - dEnd(0, 5)
¡@¡@dEnd(1, 7).Value = CDate(Date + uTime)
End With
999: End Sub

TOP

¦^´_ 7# ­ã´£³¡ªL

·Ç¤j¤j:
¤£¦n·N«ä
¥i¯à§Úvba¤£¬O«Ü±j
¦p¦ó§ó§ï¤â°Ê§ó·s¥þ³¡¤]¯à§âªÑ²¼¸ê®ÆÂà¨ì¥t¤@­Ó¤u§@ªí
If uMode = 1 Then Call ³vµ§°O¿ý

§âÂŦⳡ¥÷¥h±¼§Y¥i


Sub §ó·s¥þ³¡()
Call ¦@¥Î°Ñ·Ó: If uRow <= 0 Then Exit Sub
uHead(0, 0) = "¡°§ó·s¤¤.............."
uHead(2, 12).Resize(uRow).ClearContents
For Each uRng In uClmnNo
    uRng(1, 3).Resize(1, 10).ClearContents
    If uRng = "" Then uRng(1, 2).ClearContents: GoTo 101
    Call Â^¨ú¸ê®Æ
   
    If GetStr = "" Then uRng(1, 2).ClearContents: GoTo 101
    'If uMode = 1 Then Call ³vµ§°O¿ý '¥u¦b¡e¦Û°Ê§ó·s¡f¼Ò¦¡¤U¤~°O¿ý
   Beep
101: Next
uHead(0, 0) = "¡°§ó·s®É¶¡¡G" & Format(Now, "yyyy/mm/dd hh:mm:ss")
ThisWorkbook.Save
End Sub
   
¬O¤£¬O³o¼Ë§ï¤â°Ê§ó·s¥þ³¡¤]¯à§âªÑ²¼¸ê®ÆÂà¨ì¥t¤@­Ó¤u§@ªí
§Ú¸Õ¤F«ö¤â°Ê§ó·s¥þ³¡«ö¶s¦n¹³¨S¦³¤ÏÀ³

½Ð¤j¤j¦b¬Ý­þ¸Ì¦³°ÝÃD
michael

TOP

  1. Sub §ó·s¥þ³¡()
  2. Call ¦@¥Î°Ñ·Ó: If uRow <= 0 Then Exit Sub
  3. uHead(0, 0) = "¡°§ó·s¤¤.............."
  4. uHead(2, 12).Resize(uRow).ClearContents
  5. For Each uRng In uClmnNo
  6.     uRng(1, 3).Resize(1, 10).ClearContents
  7.     If uRng = "" Then uRng(1, 2).ClearContents: GoTo 101
  8.     Call Â^¨ú¸ê®Æ
  9.     If GetStr = "" Then uRng(1, 2).ClearContents: GoTo 101
  10.     Call ³vµ§°O¿ý
  11.     Beep
  12. 101: Next
  13. uHead(0, 0) = "¡°§ó·s®É¶¡¡G" & Format(Now, "yyyy/mm/dd hh:mm:ss")
  14. ThisWorkbook.Save
  15. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# ­ã´£³¡ªL
­ã´£¤j¤j:
³o¨â¤Ñ´ú¸Õ¦n¹³ÁÙ¬O¤@¼Ë
¥i¯à§Úªº¥\¤OÁÙ¤£°÷
¤£¹LÁÙ¬OÁÂÁ¤j¤j­@¤ßªºÁ¿¸Ñ
µ¥§Úµ{«×°ª¨Ç¦A½Ð±Ð
michael

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD