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

Àx¦s¤£·|¦Û°Ê°±¤î¡A¸Ó«ç»ò§ï¡H

Àx¦s¤£·|¦Û°Ê°±¤î¡A¸Ó«ç»ò§ï¡H

¥i¥H³Â·Ð¹F¤H­ÌÀ°§Ú·Q·Q¿ìªk¶Ü¡H
1.        AA(¤u§@ªí)¶}©l«áµLªk¦Û°Ê°±¤î¡A§Ú³]©w¦bROW33«á´N°±¤îÀx¦s
µ²ªG¡A¦bROW33¬O°±¤F¡A¦ý¥¦´N¶]¨ìROW2¡B3¡A´N¦b¨º¸ÌÄ~Äò§@°Ê§@¡C
³o¬O§Ú­þ¸Ì¼g¿ù¤F¶Ü¡H
2.        BB(¤u§@ªí)¤]¬O¦p¦¹¡A³o¨â­Ó¤u§@ªíªº¿ý»s¬O¤@¼Ëªº¡C©Ò¥H¤]¬O¤£·|¦Û°Ê°±¤U¨Ó¡C
3.        AA(¤u§@ªí)¡A¤@¥¹«ö¤U¶}©l°Ê§@¡A­Y§Ú¦A¥hBB(¤u§@ªí)«ö¤U¥ô·NÁä¡A«ha.©ú²Ó(¤u§@ªí)©Mb.©ú²Ó(¤u§@ªí)³£¤£·|°Ê¤F¡C
4.        AA(¤u§@ªí)¡A­Y«ö¤U²×¤îÁä¡Aµ²ªG³sBB(¤u§@ªí)¤]¸òµÛ¤£·|°Ê¤F¡C

½Ð°Ý§Ú¬O­þ¸Ì¼g¿ù¤F¡A§Ú¤@ª½§ä¤£¥X­ì¦]¨Ó¡C
´Á±æ¦U¦ì¹F¤H¤j¤j­Ì¡A¯àÀ°§Ú¬Ý¤@¤U°ÝÃD¡AÁÂÁ¡C

¼Æ­ÈÀx¦s.rar (259.45 KB)

¦^´_ 1# ahsiek
µLªk¥¿±`¬Ý¨ìµ{¦¡...
1.JPG
2013-8-4 22:54


2.JPG
2013-8-4 22:54

TOP

RE: Àx¦s¤£·|¦Û°Ê°±¤î¡A¸Ó«ç»ò§ï¡H(Àɮפw§ó·s)

¥»©«³Ì«á¥Ñ ahsiek ©ó 2013-8-5 01:11 ½s¿è

¦^´_ 2# luhpro
­ì¨Ó¬O¤W¶ÇªºÀɮפ£¯à¶}±Ò¡A¦]¬°§ÚµLªk¥´¶}¤W¶Ç«áªºÀɮסA©Ò¥H¤£ª¾¹DÀɮרS¦³¤W¶Ç¦n¡C
ÁÂÁ§Aªº´£¿ô¡C§Ú­«·s¦A¶Ç¤@¦¸¡A§Æ±æ³o¦¸¯à°÷¶¶§Q¡A¥B½Ð¦U¦ì¹F¤H­Ì¥i¥HÀ°§Ú·Q·Q¿ìªk¡AÁÂÁ¡C ¼Æ­È°O¿ý.rar (243.58 KB)

¸ß°Ýªº°ÝÃD¦p¤U¡G
1.        AA(¤u§@ªí)¶}©l«áµLªk¦Û°Ê°±¤î¡A§Ú³]©w¦bROW33«á´N°±¤îÀx¦s
µ²ªG¡A¦bROW33¬O°±¤F¡A¦ý¥¦´N¶]¨ìROW2¡B3¡A´N¦b¨º¸ÌÄ~Äò§@°Ê§@¡C
³o¬O§Ú­þ¸Ì¼g¿ù¤F¶Ü¡H
2.        BB(¤u§@ªí)¤]¬O¦p¦¹¡A³o¨â­Ó¤u§@ªíªº¿ý»s¬O¤@¼Ëªº¡C©Ò¥H¤]¬O¤£·|¦Û°Ê°±¤U¨Ó¡C
3.        AA(¤u§@ªí)¡A¤@¥¹«ö¤U¶}©l°Ê§@¡A­Y§Ú¦A¥hBB(¤u§@ªí)«ö¤U¥ô·NÁä¡A«hAA(¤u§@ªí)©MBB(¤u§@ªí)³£¤£·|°Ê¤F¡C
4.        AA(¤u§@ªí)¡A­Y«ö¤U²×¤îÁä¡Aµ²ªG³sBB(¤u§@ªí)¤]¸òµÛ¤£·|°Ê¤F¡C

½Ð°Ý§Ú¬O­þ¸Ì¼g¿ù¤F¡A§Ú¤@ª½§ä¤£¥X­ì¦]¨Ó¡C
´Á±æ¦U¦ì¹F¤H¤j¤j­Ì¡A¯àÀ°§Ú¬Ý¤@¤U°ÝÃD¡AÁÂÁ¡C

TOP

¦^´_ 3# ahsiek
Àɮפ¤¨S¦³¬Ý¨ìµ{¦¡½X.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

b]¦^´_ 4# GBKEE
¼g¦b¼Ò²Õ¸Ì¡C ¼Æ­È°O¿ý.rar (247.16 KB) [

TOP

¦^´_ 5# ahsiek
¦³½Ð¦³2010ª©¥»À°¦£¬Ý¬Ý¤F.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE
§Ú±N¥¦Âন 2003 .xls
¼Æ­È°O¿ý.rar (158.64 KB)
¶¶«K³Â·Ð±zÀ°§Ú°Ý¤@¤U¡A³Ìªñºô­¶µ{¦¡½X¬O§_¦³²§°Ê¨ì¡A
©ÎªÌ¥[¤F¤@¨Çµ{¦¡½X¡A¨Ï±o¨Ï¥Î Firefox ªº User µLªk°õ¦æ
¹Ï¤ù¡B©Îªþ¥ó¤W¶Ç¡A¥H¤Î "¬¯¬¯"ªº¥\¯àÁä ([Color] ~ [/Color])¡C
¥Ø«e§Ú¬O¥Î IE ¦^´_ªº¡AÁÂÁ±z¡I

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2013-8-6 11:35 ½s¿è

¦^´_ 3# ahsiek
¸ß°Ýªº°ÝÃD¦p¤U¡G
1.        AA(¤u§@ªí)¶}©l«áµLªk¦Û°Ê°±¤î¡A§Ú³]©w¦bROW33«á´N°±¤îÀx¦s
µ²ªG¡A¦bROW33¬O°±¤F¡A¦ý¥¦´N¶]¨ìROW2¡B3¡A´N¦b¨º¸ÌÄ~Äò§@°Ê§@¡C
³o¬O§Ú­þ¸Ì¼g¿ù¤F¶Ü¡H
­º¥ý§A¥Î³o¨ú³Ì«á¤@¦æªº¦æ¸¹
endCol = ¤u§@ªí29.Cells(33, 1).End(xlUp).Row
End(xlUp)¬Û·í©ó«ö END+¦V¤WÁä¡A·íA1~A33³£¦³­È®É¡A³o¦æ¨ú¨ìªº¬O1

¦A¨Ó§A¥Î

   If ActiveCell.Row > 33 Then End       '­­¨îÁ`¦C¼Æ
    If ActiveCell.Column = 30 Then End       '¤¤³~¤¤¤î   

¦ý¬Oµ{¦¡¤¤¹ê»ÚActiveCell«o¤@ª½¬O©T©w¦P¤@®æ¡A·íµM¤£·|²×¤î
¦Ó¥B¤Á´«¤u§@ªíActiveCell¤]·|ÅÜ...........


2.        BB(¤u§@ªí)¤]¬O¦p¦¹¡A³o¨â­Ó¤u§@ªíªº¿ý»s¬O¤@¼Ëªº¡C©Ò¥H¤]¬O¤£·|¦Û°Ê°±¤U¨Ó¡C
3.        AA(¤u§@ªí)¡A¤@¥¹«ö¤U¶}©l°Ê§@¡A­Y§Ú¦A¥hBB(¤u§@ªí)«ö¤U¥ô·NÁä¡A«hAA(¤u§@ªí)©MBB(¤u§@ªí)³£¤£·|°Ê¤F¡C
4.        AA(¤u§@ªí)¡A­Y«ö¤U²×¤îÁä¡Aµ²ªG³sBB(¤u§@ªí)¤]¸òµÛ¤£·|°Ê¤F¡C

°ò¥»¤W§Ú·|­«¼g¦p¤U¡A§A¥i¥H°Ñ¦Ò¬Ý¬Ý¡G
  1. Private gbStop1 As Boolean
  2. Private gbStop2 As Boolean

  3. Sub ButtonStart1()  'AA¤u§@ªí¶}©l«ö¶s
  4.   gbStop1 = False
  5.   With ActiveSheet
  6.     .UsedRange.Offset(3).ClearContents
  7.     SetTimer1 .Name
  8.   End With
  9. End Sub
  10. Sub ButtonStop1()   'AA¤u§@ªí°±¤î«ö¶s
  11.   gbStop1 = True
  12. End Sub
  13. Sub ButtonStart2()  'BB¤u§@ªí¶}©l«ö¶s
  14.   gbStop2 = False
  15.   With ActiveSheet
  16.     .UsedRange.Offset(3).ClearContents
  17.     SetTimer2 .Name
  18.   End With
  19. End Sub
  20. Sub ButtonStop2()   'BB¤u§@ªí°±¤î«ö¶s
  21.   gbStop2 = True
  22. End Sub

  23. '±N¤£¦Pªíªº±Æµ{³¡¤À/­­¨î¦æ¼Æ/¤ÀÂ÷¥X¨Ó
  24. Sub SetTimer1(sSheetName As String)
  25.   Const MAX_ROW = 34
  26.   '¥¼¹F­­¨î¦æ¼Æ¥B¨S«ö°±¤î¶s«h±Æµ{1¬í«á¦A«×°õ¦æ
  27.   If mainFunc(sSheetName) < MAX_ROW And Not gbStop1 Then Application.OnTime Now + TimeValue("00:00:01"), "'SetTimer1 """ & sSheetName & """'"
  28. End Sub

  29. Sub SetTimer2(sSheetName As String)
  30.   Const MAX_ROW = 270
  31.   If mainFunc(sSheetName) < MAX_ROW And Not gbStop2 Then Application.OnTime Now + TimeValue("00:00:01"), "'SetTimer2 """ & sSheetName & """'"
  32. End Sub

  33. Function mainFunc(sSheetName As String) As Long
  34.   Dim i As Long
  35.   
  36.   With Sheets(sSheetName)
  37.     i = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

  38.     '...°O¿ýlog
  39.     .Cells(i, "A") = Format(Time, "Hh:Mm:Ss")
  40.     .Cells(i, "J").Resize(, 8).Value = .Cells(3, "B").Resize(, 8).Value
  41.   End With
  42.   
  43.   mainFunc = i  '¦^¶Ç·í«e¦C¼Æ
  44. End Function
½Æ»s¥N½X

TOP

¦^´_ 8# stillfish00

­ì¨Ó¦p¦¹¡A¦]¬°§Ú¬O¬Ý¤@­Óª©¥»§ï¼gªº¡A¨S·Q¨ì¿ù»~¤@°ï¡C
ÁÂÁ¡C¯à¨Ï¥Î¤F¡A§Ú·|¦n¦n¬ã¨sªº¡C

¤£¹L§Ú¥i¥H¦A°Ý¤@­Ó°ÝÃD¶Ü¡H
SetTimer1©MSetTimer2³£¬O§äFunction mainFunc(sSheetName As String) As Long
¥i¬O¦]¬°BB¤u§@ªí­n½Æ»s©M¶K¤WªºÀx¦s®æ©MAA¤u§@ªí¤£¤@¼Ë¡A§ä¦P¤@­ÓFunction·|ÅýBB¤u§@ªíªº©ÒÀx¦sªº¤º®e·|·d¿ù¡C
¬O¤£¬O¯à°÷¦A¼g¤@­Ó  Function mainFunc(sSheetName As String) As Long ÅýSetTimer2¥h§ä©O¡H
BB¤u§@ªí­n½Æ»sªº¬O
.Cells(i, "A") = Format(Time, "Hh:Mm:Ss")
.Cells(i, "E").Resize(, 3).Value = .Cells(3, "B").Resize(, 3).Value

¥i¥H¦A³Â·Ð§A³o­Ó³¡¥÷¶Ü¡HÁÂÁ¡C

TOP

¦^´_ 9# ahsiek
¨ºSetTimer2¤¤§ï¬°  If mainFunc2(sSheetName)
¥t·s¼W:
  1. Function mainFunc2(sSheetName As String) As Long
  2.   Dim i As Long
  3.   
  4.   With Sheets(sSheetName)
  5.     i = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

  6.     '...°O¿ýlog
  7.     .Cells(i, "A") = Format(Time, "Hh:Mm:Ss")
  8.     .Cells(i, "E").Resize(, 3).Value = .Cells(3, "B").Resize(, 3).Value
  9.   End With
  10.   
  11.   mainFunc2 = i  '¦^¶Ç·í«e¦C¼Æ
  12. End Function
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD