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

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

¦^´_ 30# stillfish00

¨SÃö«Y¡AÁÂÁ§A¦A¤TªºÀ°§U©M¦^À³¡CÁÂÁÂ{:3_52:}

TOP

¦^´_  ahsiek
³o¼Ë§Ú´NµL¯à¬°¤O¤F¡C¡C¡C
stillfish00 µoªí©ó 2013-10-24 10:04


¤£¦n·N«ä¡A§Ú¤µ¤Ñ¦b´ú¸Õ®É¡Aµo²{CC¤u§@ªí¡AÀx¦sªº§@·~°±¤£¤U¨Ó¡C
§Ú³]©w¦bCC¤u§@ªí²Ä40¦C®É­n°±¤î¡Aµ²ªG§¹¥þ¨S¦³°±¤î¥BÄ~ÄòÀx¦s¤U¥h¡C
³o­Ó±¡ªp¥X²{¦b¦pªG§Ú¦b¨ä¥L¤u§@ªí¤W®É¡A´N·|³o¼Ë¡Aª½¨ì§Ú´«¨ìCC¤u§@ªí«á¡A¤~·|°±¤U¨Ó¡C
½Ð°Ý¡A¬O­þ¸Ì¥X¤F°ÝÃD¡H§Ú§ä¤F¦n¤[¡A¤@ª½¨S¦³¿ìªk§ä¨ì¿ù»~ÂI¡C
¤§«e¬O³]1¤p®É¡Aµ²ªG¨S¦³°ÝÃD¡A«á¨Ó§ï¬°1¬í¡A´N°±¤£¤U¨Ó¤F¡C ¼Æ­È°O¿ý.rar (345.83 KB)

TOP

¦^´_ 32# ahsiek
­×§ï¤@¤U23¼Ó  ButtonStop1 ©M SetTimer1

Sub ButtonStop1(Optional sSheetName As String)   '¤u§@ªí°±¤î«ö¶s
  gbIsRunning1 = False
  
  On Error Resume Next
  '¨ú®ø¤U¦¸°õ¦æ®É¶¡
  Application.OnTime gNextRunTime1, "'SetTimer1 """ & IIf(sSheetName <> "", sSheetName, ActiveSheet.Name) & """'", , False
  On Error GoTo 0
End Sub


Sub SetTimer1(sSheetName As String)
  Const MAX_ROW = 270
  
  gNextRunTime1 = Now + TimeValue("00:00:10")
  Application.OnTime gNextRunTime1, "'SetTimer1 """ & sSheetName & """'"
  
  If mainFunc(sSheetName) >= MAX_ROW Then ButtonStop1 sSheetName '°õ¦æ¨Ã¦^¶Çrow
End Sub

TOP

¦^´_  ahsiek
­×§ï¤@¤U23¼Ó  ButtonStop1 ©M SetTimer1

Sub ButtonStop1(Optional sSheetName As Stri ...
stillfish00 µoªí©ó 2013-10-25 15:03



«D±`ÁÂÁ§A¡A¤w¸g¥i¥H¨Ï¥Î¤F¡A¤]¤£·|¤@ª½¶]¤U¥h¡C·|°±¨ì§Ú­nªº¦C¤W¡A¦A¦¸ÁÂÁ¡C
§Ú¥i¥H°Ý¤@¤U»¡¡A³o¬O¦]¬°¤°»ò©O¡HÁÂÁ¡C

TOP

¦^´_ 34# ahsiek
´N¹³¬õ¦r¼Ðªº¦a¤è¡A­×§ï¤§«e¨Ï¥ÎActiveSheet.Name
¬O·í«e¤u§@ªí¦WºÙ¡A¦]¬°ButtonStop1³Q©I¥s®É¥i¯à¦b§Oªºsheet
¡A§ï¦¨«ü©wªº¤u§@ªí¦Ó¤w

TOP

¦^´_  ahsiek
´N¹³¬õ¦r¼Ðªº¦a¤è¡A­×§ï¤§«e¨Ï¥ÎActiveSheet.Name
¬O·í«e¤u§@ªí¦WºÙ¡A¦]¬°ButtonStop1³Q©I ...
stillfish00 µoªí©ó 2013-10-25 16:05



    ­ì¨Ó¦p¦¹¡A§Ú¤F¸Ñ¤F¡C«D±`ÁÂÁ§AªºÀ°¦£¡C

TOP

¦^´_ 28# stillfish00

stillfish00¤j¤j¡A§Ú¥i¥H¦A½Ð±Ð§A¶Ü¡H
¦]¬°ª¾¹DApplication.OnTimeªº­­¨î¡A©µ¿ð1¡B2¬í¬O¨S¦³Ãö«Y¡A¦ý¬O³Ìªñµo²{¨ì¦b§Ú¨S¦³ª`·N®É©Î¬O¦b¨Ï¥Î¨ä¥L¤u§@ªí®É¡ACC¤u§@ªí·|¦Û¤v°±¤îÀx¦s°Ê§@¡C
¥X²{¹L³o¼Ëªº±¡ªp¦n´X¦¸¡Aµ¥§Úµo²{®É¡A¤w¸g¤ÖÀx¦s«Ü¦h¼Æ¾Ú¡C(¤£½T©w¬O«ö¤F¤°»ò¾É­PCC¤u§@ªí°±¤î°Ê§@)
¬O¤£¬O¦³¤èªk¥i¥H»¡¡AÅýCC¤u§@ªí°±¤î°Ê§@®É¡A·|¸õ¥X¹ï¸Ü®Ø´£¿ô§ÚCC¤u§@ªí°±¤î¤F¡C
¬O¦b Function mainFunc3(sSheetNmae As string ) As Long ¸Ì¥h¥[MsgBox¶Ü¡H
¥i¥H±Ð§Ú¦p¦ó°µ¶Ü¡HÁÂÁ¡C    ¼Æ­È°O¿ý.rar (337.91 KB)

TOP

·Q½Ð°Ý»¡ ¦]¬°§ÚªºÀx¦sªº¦C¼Æ·|«Ü¦h¡A¨C¤@¦¸³£­n¦Û¤v©Ô¨ì³Ì¤U¤è¡C
§ä¨ì¤@­Óµ{¦¡½X¬OÅý³Ì·s¸ê®ÆÅã¥Ü¦b¥i¨£µøµ¡¤¤¡C
¦bªþ¥[Àɮ׸̪ºCC¤u§@ªí¡AVBA module3¸Ì¡C

Function mainFunc3(sSheetName As String) As Long   'CC¤u§@ªí°O¿ý
Dim i As Long

  With Sheets(sSheetName)

    i = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    '...°O¿ýlog

    .Cells(i, "A") = Format(Time, "Hh:Mm:Ss")   'ROW A¡A°O¿ý®É¶¡

    .Cells(i, "E").Resize(, 3).Value = .Cells(3, "B").Resize(, 3).Value  'B3-D3½Æ»s¨ìE4-G4

  End With

  mainFunc3 = i  '¦^¶Ç·í«e¦C¼Æ
  
    If ActiveSheet.Name = sSheetName And iRow > 25 Then
      ActiveWindow.ScrollRow = iRow - 15     'Åý³Ì·s¸ê®Æ«O«ù¦b¥i¨£µøµ¡¤¤
   End If

End Function

½Ð°Ý§Ú¬O­þ¸Ì¼g¿ù¤F¡A¨S¦³¿ìªkÅý¦C¼Æ«O«ù¦b¥i¨£µøµ¡¤¤¡C
¥i¥H³Â·Ðµ¹§Ú¤@ÂI«ü±Ð¶Ü¡H«D±`ÁÂÁ¡C

TOP

¦^´_ 38# ahsiek


    ¼Æ­È°O¿ý.rar (388.59 KB) ªþ¤WÀÉ®×

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD