[µo°Ý] ©_©Çªº¥¨¶°??

t8899

°²¦p BOOK1.xls ¤£¬O§@¥Îµøµ¡ «h....................
IF Windows("BOOK1.xls")<>Activate THEN
¨S¦³¦¹»yªk??

t8899

«¬ºA¤£²Å¦X  ªþÀÉ Book3.rar (7.9 KB)

¤U¸ü¦¸¼Æ: 4

2013-11-1 15:08

¦b¶}¥t¤@Àɮ׫á°õ¦æ·|¿ù»~ ¡A¤£¶}«h¤£·|???
Public Runtime
Sub a123()
If Range("i1").Value <> 1 Then
On Error Resume Next
Application.OnTime EarliestTime:=TimeValue(Runtime), _
    Procedure:="a123", Schedule:=False
  Exit Sub
On Error GoTo 0
End If
Macro1
If Range("k14") = 4 Then mytime = "00:00:15"
Runtime = Now + TimeValue(mytime)
Application.OnTime Runtime, "Sheet1.a123"
End Sub

t8899

1.15¬í¦Û°Ê°õ¦æ¤@¦¸,¨S°ÝÃD
¦ý·í¥´¶}AÀÉ®×,µøµ¡°±¯d¦bAÀÉ®×,«h©Ò±oªº¼Æ¦r¬O¤£¹ïªº???
2.³æ¥ÎSheets("Sheet1").Select ©Î  With Sheets("Sheet1")
°õ¦æ·|¼g¶iAÀɮתº¤u§@ªí¸Ì???
Sub Macro1()
Dim ah As Workbook
Set ah = ActiveWorkbook
'   Sheets("Sheet1").Select
'   With Sheets("Sheet1")
Workbooks("book2.xls").Sheets("Sheet1").Range("a1").Value = Now
t = [TEXT(A1,"hh:mm")+LOOKUP(--TEXT(A1,"s"),{0,15,30,45})/86400]
Workbooks("book2.xls").Sheets("Sheet1").Range("a65536").End(xlUp).Offset(1).Value = Format(t, "hh:mm:ss")
' End With
ah.Activate
End Sub
Book2.rar (9.06 KB)

¤U¸ü¦¸¼Æ: 6

2013-11-1 20:08

t8899

¦^´_ 8# GBKEE

     

    't = [TEXT(A1,"hh:mm")+LOOKUP(--TEXT(A1,"s"),{0,15,30,45})/86400]
        ' ³o¸ÌªºA1¬O§@¥Î¤¤¬¡­¶Ã¯ActiveWorkbook(·í¥´¶}AÀÉ®×)ªºActiveSheetªº A1     

³æ¯Â¯à§_¥u§ï³o¥y¨Ó¸Ñ¨M©O??
³o¥y¸ÌªºA1 µLªk«ü©w¨ì  Workbooks("book2.xls").Sheets("Sheet1")  ¸Ì??
t = [TEXT(NOW,"hh:mm")+LOOKUP(--TEXT(NOW,"s"),{0,15,30,45})/86400]

t8899

¦^´_ 10# GBKEE
ÁÂÁÂ
¬Q±ß·Q¤F¥t¤@­Ó¤èªk¦p¤U:
Àx¦s®æB1=TEXT(FLOOR(A1,"0:00:15"),"hh:mm:SS")
Sub Macro1()
Dim ah As Workbook
Set ah = ActiveWorkbook
Workbooks("book2.xls").Sheets("Sheet1").Range("a1").Value = Now  
Workbooks("book2.xls").Sheets("Sheet1").Range("a65536").End(xlUp).Offset(1).Value =Workbooks("book2.xls").Sheets("Sheet1").Range("B1").Value
ah.Activate
END SUB