GBKEE

¦^´_ 1# t8899

1. If ActiveWindow.Caption <> "BOOK1.xls" Then MsgBox ActiveWindow.Caption
   
2. ©Î¬O
   
3. If ActiveWorkbook.Name <> "BOOK1.xls" Then MsgBox ActiveWorkbook.Name

½Æ»s¥N½X

GBKEE

¦^´_ 4# sunnyso

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

¤U¸ü (33.74 KB)

2013-11-1 16:17

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

¦^´_ 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

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

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

½Æ»s¥N½X

GBKEE

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