½Ð¦U¦ì¥ý¶iÀ°¦£ §ï§ÚªºVBA

junsean

¤§«eªB¤ÍÀ°§Ú¼gªºVBA
¦]¬°¼Æ¾Ú¤@¦³ÅܤƴN·|°O¿ý
©Ò¥H¼Æ¾Ú¦³®É¦h¦³®É¤Ö
§Ú·Q¨C¹j10¬í°O¿ý1¦¸
¦ý¬O§Ú¤S¬Oªù¥~º~
©Ò¥H·Q½Ð¦U¦ì¥ý¶iÀ°À°¦£   ÁÂÁÂ
Private Sub CommandButton1_Click()

End Sub

Private Sub Worksheet_Calculate()

If TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("08:44:00") Then
  
    Range("A2:J50000") = ""
   
Else

            
If TimeValue(Format(Now, "hh:mm:ss")) >= TimeValue("08:45:00") And TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("13:45:00") Then
   ar = Array([A1], [B1], [C1], [D1], [E1], [F1], [G1], [H1], [I1], [J1])
   [A65536].End(xlUp).Offset(1, 0).Resize(, 10) = ar
   
End If
End If
End Sub

oobird

Sub yy()
ar = Array([A1], [B1], [C1], [D1], [E1], [F1], [G1], [H1], [I1], [J1])
   [A65536].End(xlUp).Offset(1, 0).Resize(, 10) = ar
Application.OnTime Now + TimeSerial(0, 0, 10), "yy"
End Sub
©ñ¦bmodule¤¤¡C

junsean

ÁÂÁÂoobird
§Ú¤µ¤Ñ¨Ó¸Õ¸Õ

¥t¥~½Ð°Ý   ¦pªG
sheet1   ·Q¨C¹j10¬í°O¿ý1¦¸
sheet2   ·Q¨C¹j1¤ÀÄÁ°O¿ý1¦¸

¨º­n«ç»ò¿ïmodule1    module2

oobird

§A¥²¶·¦b¥N½X¤¤«ü©w¤u§@ªí¡C
Sub yy()
with sheet1
ar = Array(.[A1], .[B1], .[C1], .[D1], .[E1], .[F1], .[G1], .[H1], .[I1], .[J1])
   .[A65536].End(xlUp).Offset(1, 0).Resize(, 10) = ar
Application.OnTime Now + TimeSerial(0, 0, 10), "yy"
end with
End Sub
---------------------------
Sub xx()
with sheet2
ar = Array(.[A1], .[B1], .[C1], .[D1], .[E1], .[F1], .[G1], .[H1], .[I1], .[J1])
   .[A65536].End(xlUp).Offset(1, 0).Resize(, 10) = ar
Application.OnTime Now + TimeSerial(0, 1, 0), "xx"
end with
End Sub

junsean

§Ú¸Õ¤F
ÁÙ¬O¤@¼Ë  ¼Æ¾Ú¤@¦³ÅÜ°Ê  ´N¦Û°Ê°O¿ý
¨S¦³¶¡¹j1¤ÀÄÁ1¦¸

¬O§Ú­þ¸Ì·d¿ù¤F¶Ü

§Ú¬O³o¼Ë°µ
­ì¥»VBAªº¤£°Ê   ¦A±Noobird±z±Ðªº
©ñ¦bmodule1
³o¼Ë¹ï¶Ü?

oobird

§A­ì¨Óªº¤£§R±¼¤@¤Á¥Õ·f¡C

junsean

¦]¬°­ì¨Óªº·|¦b
08:44:00¥H«e§R°£¬Q¤éªº°O¿ý
¨Ã¥B¦b
08:45:00¨ì13:45:00¦Û°Ê°O¿ý

¦pªG§R±¼­ì¨Óªº  ¤£´N¨S¦³³o¨Ç¥\¯à¤F
·Q¤W¶ÇÀÉ®×
«oµLªk¤W¶Ç

oobird

§A¶·­nªº¥N½X¥i¥[¦b·sªº¥N½X¸Ì§r¡I

junsean

Sub yy()

With Sheet1

If TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("08:59:00") Then
    Range("A3:I50000") = ""
   
Else
            
If TimeValue(Format(Now, "hh:mm:ss")) >= TimeValue("09:00:00") And TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("13:32:30") Then
   ar = Array([A2], [B2], [C2], [D2], [E2], [F2], [G2], [H2], [I2])
   [A65536].End(xlUp).Offset(1, 0).Resize(, 10) = ar
Application.OnTime Now + TimeSerial(0, 0, 10), "yy"

End If
End If
End With
End Sub

Sub xx()

With Sheet2

If TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("08:44:00") Then
    Range("A3:J50000") = ""
   
Else
            
If TimeValue(Format(Now, "hh:mm:ss")) >= TimeValue("08:45:00") And TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("13:45:00") Then
   ar = Array([A2], [B2], [C2], [D2], [E2], [F2], [G2])
   [A65536].End(xlUp).Offset(1, 0).Resize(, 7) = ar
Application.OnTime Now + TimeSerial(0, 0, 10), "xx"

End If
End If
End With
End Sub

junsean

¹³³o¼Ë¤l¶Ü

¹ï¤£°_   °ÝÃD³o»ò¦h
¦]¬°§Ú¬O¯uªºªù¥~º~
½Ð¦h¥]²[