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

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

GBKEE

¦^´_ 11# t8899
vbaªº¼gªk¤£¬O¦ºªº,¥u­n¹F¦¨·Qªkªº´N¥i¥H¤F

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

GBKEE

¦^´_ 9# t8899
VBA¨ç¼Æ   NOW
¤u§@ªí¨ç¼Æ NOW()

1. t = [TEXT(NOW(),"hh:mm")+LOOKUP(--TEXT(NOW(),"s"),{0,15,30,45})/86400]

½Æ»s¥N½X

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]

GBKEE

¦^´_ 7# t8899

1. Sub Macro1()
   
2.     Dim t, Ar()
   
3.     Ar = Array(60, 45, 30, 15)
   
4.     With Workbooks("book2.xls").Sheets("Sheet1")
   
5.         .Range("a1").Value = Now
   
6.         t = Val(Format(.Range("a1"), "s"))
   
7.         t = Application.Match(t, Ar, -1)
   
8.         t = Application.Text(.[A1], "hh:mm:") & Ar(t - 1)
   
9.         '*************************************************************
   
10.         't = [TEXT(A1,"hh:mm")+LOOKUP(--TEXT(A1,"s"),{0,15,30,45})/86400]
    
11.         ' ³o¸ÌªºA1¬O§@¥Î¤¤¬¡­¶Ã¯ActiveWorkbook(·í¥´¶}AÀÉ®×)ªºActiveSheetªº A1
    
12.        '************************************************************
    
13.         .Range("a65536").End(xlUp).Offset(1).Value = Format(t, "hh:mm:ss")
    
14.     End With
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# t8899

1. Sub Macro1()
   
2. If ActiveWindow.Caption <> "Book2.xls" Then
   
3. Dim ah As Workbook
   
4. Set ah = ActiveWorkbook         '³o¸Ì¬O Workbookª«¥ó
   
5. 'Dim ah As Window                'Åܼƪ«¥ó­n¤@­P
   
6. '******************³o¸Ì¿ù»~¶Ü????   **************
   
7. Set ah = ActiveWindow           '³o¸Ì¬O Windowª«¥ó
   
8. '*********************************************
   
9. End If
   
10. MsgBox "test"
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# sunnyso

½Ð¸Ô¬ÝVBAªº»¡©ú

¤U¸ü (33.74 KB)

2013-11-1 16:17

sunnyso

¦^´_ 2# GBKEE

½Ð°Ý¶Wª© .caption ©M .name ¦³¦ó°Ï§O?
ÁÂ

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