c_c_lai

¦^´_ 1# cfuxiong
¨º§A¬°¦ó¤£³o»ò°µ¡G °²³]¦b§Aªº "¶×¤J" ¤u§@ªí³æ¤ºªº P1 Äæ¦ì¿é¤J -> "®É¬q³]©w"¡A  P2 Äæ¦ì¿é¤J -> "00:05:00"¡A¦Ó±N
Application.OnTime Now + TimeValue("00:00:10"), "MyDee" ­×§ï¦¨
Application.OnTime (Now + Sheets("¶×¤J").Range("P2").Value), "ThisWorkBook.MyDee"¡A¦p¦¹¡A¥H«á¥u­n§A¤£°ª¿³´N¨ì
P2 Äæ¦ì¨Ó­×§ï§A°ª¿³ªº³]©w®É¬q¡A¨º¤£´Nµ²¤F¡I

c_c_lai

¦^´_ 3# cfuxiong
½Ð§A¥ýÀˬd¤@¤U
¥N¸¹ = Sheets("¬ö¿ý").[C1]

µ¥½L«á§Ú¦A¬Ý¬Ý¡A­è¤~¤@°õ¦æ§Aªºµ{¦¡¡A´N¥X²{ 400 ªº¿ù»~°T®§¡A
µ²ªG³s±aªº§Úªº§@·~µ{¦¡³ºµM¦Û°Ê°±¤î¤F§ÚªºDDE¸ê®Æ¶×¤J¡I

c_c_lai

¦^´_ 3# cfuxiong
' Sh.Activate                       ' *************
' Rng.Select                        ' *************
³o¨â³B§Ú±N¥¦§ï¦¨µùÄÀ¡A¦]¬°¥¦·|±Nµe­±¤£Â_¤Á¨ì "¬ö¿ý" ¤u§@ªí³æ¡A
¦pªG§A¬O¥¿¦bÀˬd "¶×¤J"¤u§@ªí³æ®É¡A³]©w®É¬q¤@¨ìµe­±
«K·|³Q±j¨î¤Á¨ì "¬ö¿ý" ¤u§@ªí³æ¤W¡A«D±`§xÂZ¡I

' Application.OnTime Now + TimeValue("00:00:10"), "MyDee"  ­×§ï¦¨
Application.OnTime (Now + Sheets("¶×¤J").Range("P2").Value), "MyDee"
¦]¬°§Aªºµ{¦¡½X¨Ã¤£¬O©ñ¸m¦b ThisWorkBook °Ï¶ô¤º¡A©Ò¥H "ThisWorkBook.MyDee"
§ï¦¨ "MyDee"¡C

¤U¸ü (56.38 KB)

2012-4-27 15:02

ªÑ²¼¬ö¿ý.rar (12.55 KB)

¤U¸ü¦¸¼Æ: 7

2012-4-27 15:02

c_c_lai

¦^´_ 12# cfuxiong
¦^´_ 11# GBKEE
§Ú±N GBKEE ¤j¤jªºµ{¦¡ (µy¥[­×¹¢) ©ñ¤J ªÑ²¼¬ö¿ý2¡A cfuxiong ¦Ñ§Ìªº©ñ¤J¨ì ªÑ²¼¬ö¿ý1 ¤¤¡A³Ì¥ýªºÀÉ®×·íµM¬O ªÑ²¼¬ö¿ý ¤F¡C
«e¨âªÌ³£¬O±Nµ{¦¡½X©ñ¸m¦b ThisWorkbook µ{¦¡°Ï¤º°õ¦æªº¡A ¦P®É C1 Äæ¦ì²§°ÊªºÀˬdµ{¦¡½X¤]¸òµÛ­×¥¿ (­ì¥»¬O "Module1.MyDee")¡A

1. '   Sheet2 (¬ö¿ý)  ªºµ{¦¡°Ï°ì
   
2. Option Explicit
   
3. 
   
4. Private Sub Worksheet_Change(ByVal Target As Range)
   
5.     If Target(1).Cells = [C1] Then Run "ThisWorkbook.MyDee"
   
6. End Sub

½Æ»s¥N½X

Ä@¨â¦ì¦³­Ó´r§Öªº©P¦ì©]±ß¡I
ªÑ²¼¬ö¿ý.rar (12.55 KB)

¤U¸ü¦¸¼Æ: 5

2012-4-27 22:59

ªÑ²¼¬ö¿ý1.rar (13.13 KB)

¤U¸ü¦¸¼Æ: 7

2012-4-27 22:58

ªÑ²¼¬ö¿ý2.rar (11.43 KB)

¤U¸ü¦¸¼Æ: 7

2012-4-27 22:59

c_c_lai

¦^´_ 14# GBKEE
½Ð±Ð±z¡A¥N¸¹ = .[C1] ªº [C1] ¨ä¥»¨­¦b©w¸q¤W«üªº¬O Range ÁÙ¬O Cells¡A ¥¦­ÌÂà¥X­È·|¬O Value ÁÙ¬O Text¡H
·íµM¦b³]©w®É¡A´N¤w«D±`²M·¡¸ÓÄ檺ÄÝ©Ê¡A §Ú­n¤F¸Ñªº¬O¥¦¦bÀ³¥Î­±¤W¥¿½Tªº¨Ï¥Î¡C
Ä´¦p»¡¤§«e´£¹Lªº¡G¦pªG¸ÓÄæ¦ì¬O®É¶¡Äæ¡A¦ý¸ÓÄæ "A3" Àx¦sªº¬O "=TIME(LEFT(A2,LEN(A2)-4),MID(A2,LEN(A2)-3,2),RIGHT(A2,2))"
©Î¬O A3 ¬O Web ª½±µ¶×¤Jªº®É¶¡¡A¦ý¸ÓÄæ¦ì®æ¦¡¨Ã«D "®É¶¡"¡A¤]³\¬O "¦Û­q" ¤]»¡¤£©w¡A¨º»ò¦¹®É   ®É¶¡ = .[A3]¡A
©Ò±o¨ìªº­È·|¬O 0.604166667 ÁÙ¬O 14:30 (°²³]·í®É®É¶¡¬° 02:30:00 PM)¡H À³¸Ó¦p¦ó¥h°µ¥¿½Tªº«Å§i¡H

c_c_lai

¦^´_ 16# GBKEE
¸g´ú¸Õ²×©óÅé·|¤F¡A¦­°_ªº³¾¨à¯uªº¦³ÂΦY¡I

  Sub Ex()
        ' [xxx]  'xxx ¬°¬¡­¶Ã¯ªºª«¥ó ©Î¨ç¼Æ  ¦ý¤£¥i¥H¬OÅܼÆ
        ' MsgBox [max({5,100,9})]
       [¤u§@ªí1!B3] = 0.666
        [¤u§@ªí1!B3].NumberFormatLocal = "h:mm;@"
       MsgBox [¤u§@ªí1!B3]                   '¶Ç¦^ªº¬O­È   .Value                 0.666
       MsgBox [¤u§@ªí1!B3].Text          '¶Ç¦^ªº¶Ç¦^Àx¦s®æªº®æ¦¡       15:59
       [¤u§@ªí1!B4] = [¤u§@ªí1!B3]       '±a¤Jªº¬O­È   .Value                 0.666
       [¤u§@ªí1!B5] = [¤u§@ªí1!B3].Text  '±a¤Jªº¬OÀx¦s®æªº®æ¦¡       15:59
          'Rng.Value = .ResultRange.Rows(3).Value
        'Rng ²Ä2­Ó¦ì¸m¬O ¼Æ­È ±N¥¦³]©w ¬°®É¶¡®æ¦¡
        'Rng.Cells(2).NumberFormatLocal = "h:mm;@"      
    End Sub

§Ú±N MsgBox [max({5,100,9})] Marked¡Aµo²{¦n¹³µL§@¥Î¡A
½Ð°Ý¥¦¦³¦ó§@¥Î¡H

c_c_lai

¦^´_ 18# GBKEE
­ì¨Ó¬O¨ú¥X¨ä³Ì¤j­È¡C