ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó°Oºñ°ÊºA¸ê®ÆªºÀx¦s®æ

[µo°Ý] ¦p¦ó°Oºñ°ÊºA¸ê®ÆªºÀx¦s®æ

¥i¥H½Ð±Ð¤@¤U¦pªG ±q¦­¤QÂI¬°¨Ò ¨C¹j¤Q¤ÀÄÁ°O¿ý(±q¤QÂI°O¿ý¨ì¤QÂI¤G¤Q¤À) ¶µ¥Ø¤@ ¶µ¥Ø¤G ªº¸ê®Æ
·PÁÂ
ªþµù¡G¶µ¥Ø¸ê®Æ·|ÀH®É¶¡¸g¹L¦ÓÅÜ°Ê
sheet1                                                
®É¶¡        10:00:00           10:00:00       10:00:00      10:00:00               
¦WºÙ           ¥Ò                 ¤A             ¤þ           ¤B               
¶µ¥Ø¤@         10                       20                    30               40        
¶µ¥Ø¤G          3                         4                     5                 6        
                                                
                                                
sheet2                                       (°²³]¤QÂI¤Q¤Àªº­È¦p¤U)          (°²³]¤QÂI¤G¤Q¤Àªº­È¦p¤U)
             10:00:00                            10:10:00                            10:20:00   
        ¶µ¥Ø¤@        ¶µ¥Ø¤G        ¶µ¥Ø¤@        ¶µ¥Ø¤G        ¶µ¥Ø¤@        ¶µ¥Ø¤G
¥Ò        10             3                    20                 5                 40                  2
¤A        20             4                    30                 6                 50                  3
¤þ        30             5                    40                 7                 60                  4

¦^´_ 1# kimo5566
½Ðªþ¤W§AªºÀÉ®×

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-5-5 08:27 ½s¿è

¦^´_ 2# GBKEE

ªO¤j¤w¸g
ªþ¤WÀÉ®×
·PÁÂ

book10.rar (8 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-5 08:59 ½s¿è

¦^´_ 3# kimo5566
½Ð±N µ{¦¡½X ¶K©ó ¤@¯ë¼Ò²Õ¤º ¦sÀÉÃö³¬«á ¦A¶}±ÒÀɮ׮ɦ۰ʰõ¦æAuto_Openªºµ{§Ç
  1. Option Explicit
  2. Sub Auto_Open()
  3.     Dim T As Date
  4.     T = Time                                       '²{¦b®É¶¡
  5.     Sheets("Sheet2").UsedRange.Offset(, 1).Select
  6.     If T < #1:30:00 PM# Then Sheets("Sheet2").UsedRange.Offset(, 1).Clear
  7.     '¦­©ó¶}½L®É¶¡®É²M°£Â¦³¸ê®Æ
  8.     If T < #9:00:00 AM# Then T = #9:00:00 AM# Else T = Now
  9.     '²{¦b®É¶¡ ¦­©ó¶}½L®É¶¡®É      [³]©wªº®É¶¡] ¬° 9ÂI
  10.     '²{¦b®É¶¡ ±ß©óµ¥©ó¶}½L®É¶¡®É  [³]©wªº®É¶¡]¬° ²{¦b®É¶¡    '
  11.     Application.OnTime T, "Ex"          '©ó[³]©wªº®É¶¡]°õ¦æ Ex µ{§Ç
  12. End Sub
  13. Sub Ex()
  14.     Dim Rng As Range, T As Date
  15.     T = Time
  16.     With Sheets("Sheet2")
  17.         Set Rng = .Cells(2, Columns.Count).End(xlToLeft).Offset(, 1)  '°O¿ý¤U¨Óªº¦ì¸m
  18.         Rng.Resize(, 2) = T
  19.         Rng.Offset(1).Resize(3, 2) = Sheets("Sheet1").Range("C1").Resize(3, 2).Value
  20.         Rng.Resize(, 2).EntireColumn.AutoFit
  21.     End With
  22.     If Minute(T) Mod 10 Then      '³]©w®É¶¡ªº¤ÀÄÁ ¤£¬O 10 ,20,30....
  23.        T = TimeSerial(Hour(T), Minute(T) + (10 - Minute(T) Mod 10), 0)
  24.            '½Õ¾ã³]©w®É¶¡ªº¤ÀÄÁ ¬O 10 ,20,30....
  25.         Rng.Resize(, 2).NumberFormatLocal = "h:mm:ss AM/PM"
  26.     Else
  27.         T = T + #12:10:00 AM#      '[³]©w®É¶¡]+10¤ÀÄÁ  10 ,20,30....
  28.     End If
  29.     If Time < #1:30:00 PM# Then    '©ó¶}½L®É¶¡®É¤º
  30.         Application.OnTime T, "Ex"  '©ó[³]©wªº®É¶¡]°õ¦æ Ex µ{§Ç
  31.     End If
  32. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE

·PÁªO¤j¤w¸g¥i¥Hrun¤F

          ½Ð°Ý¤@¤U  Cells(2====> ¬O«ü¨â­Ó¶µ¥ØÅܰʼg2  ­Y¤T¶µ´N¼g3  ½Ð°Ý³o¼Ë­×¥¿¶Ü ¥H¤U½X¤£ºû«ù¤£ÅÜ
           Set Rng = .Cells(2, Columns.Count).End(xlToLeft).Offset(, 1)  '°O¿ý¤U¨Óªº¦ì¸m
        Rng.Resize(, 2) = T
            Rng.Offset(1).Resize(3, 2) = Sheets("Sheet1").Range("C1").Resize(3, 2).Value
          Rng.Resize(, 2).EntireColumn.AutoFit

       ÁÙ¦³¤@­Ó·Q°Ý¬O¤@¤ÀÄÁªº¸Ü ¬O¤£¬O­×¦¨¥H¤U³o¼Ë´N¦n¤F
   If Minute(T) Mod 1Then      
       T = TimeSerial(Hour(T), Minute(T) + (1 - Minute(T) Mod 1), 0)

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2011-5-5 22:14 ½s¿è

¦^´_ 5# kimo5566

1.  Cells(2, ...  ªº 2 «üªº¬O²Ä 2 ¦C.
  »yªk : Cells(¦C¸¹, Ä渹)
  Cells( 3, 2) = Range("B3")   <²Ä 2 Äæ = B>
  Cells(10, 5) = Range("E10") <²Ä 5 Äæ = E>
¨Ã«D§A©Ò·Qªº±¡§Î.

2. §A¨º­Ó¤½¦¡ªºµ²ªG·|Åܦ¨¥Ã»·¤£·|IJµo.
­Y­n°w¹ï¨C¤@¤ÀÄÁªº±¡§ÎÀ³¸Ó¬O­n¹ï¬í¼Æ Mod 60 .

­ì¥ý xx:x9:59  <--- ¤ÀÄÁ¼Æ Mod 10 µ²ªG¬° 9
        xx:x0:00  <--- ¤ÀÄÁ¼Æ Mod 10 µ²ªG¬° 0
©Ò¥H¨C 10 ¤ÀÄÁ·|Åܰʤ@¦¸

¦Ü©ó¨C¤ÀÄÁ³£­n¸õ¹L¤@¦¸, ­Y¨Ì§Aªº¤è¦¡
  xx:00:01  <--- ¤ÀÄÁ¼Æ Mod 1 µ²ªG¬° 0
   xx:00:02  <--- ¤ÀÄÁ¼Æ Mod 1 µ²ªG¬° 0
   xx:01:xx  <--- ¤ÀÄÁ¼Æ Mod 1 µ²ªG¬° 0 (¾l¦P)
À³¸Ó§ï¦¨³o¼Ë
  xx:xx:59  <--- ¬íÄÁ¼Æ Mod 60 µ²ªG¬° 59
   xx:xx:00  <--- ¬íÄÁ¼Æ Mod 60 µ²ªG¬° 0
¤~¹ï³á.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-6 07:57 ½s¿è

¦^´_ 5# kimo5566
**¶µ¥ØÅÜ°Ê»Ý­×§ï §A­nÂX¥R¬°´X¦C´XÄ檺½d³ò**
With Sheets("Sheet2")
Set Rng = .Cells(2, Columns.Count).End(xlToLeft).Offset(, 1)  '¼g¤U°O¿ýªº¦ì¸m
          . => Sheets("Sheet2")
                .Cells(2, Columns.Count) => range("iv2")
                .End(xlToLeft)=>©Ò¦b½d³ò¦V¥ª²¾°Êª½¨ì¦³¸ê®Æªº¦ì¸m
                .Offset(, 1)=>©Ò¦b½d³ò¦V¥k²¾°Ê 1Äæ

Rng.Resize(, 2) = T    => ¼g¤U°O¿ýªº¦ì¸m.ÂX¥R¬°1¦C2Ä檺½d³ò=T
Rng.Offset(1).Resize(3, 2) = Sheets("Sheet1").Range("C1").Resize(3, 2).Value
=>¼g¤U°O¿ýªº¦ì¸m.©Ò¦b½d³ò¦V¤U²¾°Ê 1¦C,ÂX¥R¬°3¦C2Ä檺½d³ò=Sheets("Sheet1").Range("C1").Resize(3, 2).Value

If Minute(T) Mod 10 Then      '³]©w®É¶¡ªº¤ÀÄÁ ¤£¬O 10 ,20,30....
³o±ø¥ó¦¡¬° ¦p§A¬O¶}½L«á¤~¥´¶}ÀÉ®×®É ¨Ó½Õ¾ã®É¶¡ªº¬°¨C10 ,20,30....¬ö¿ý
­n½Õ¾ã¬°¨C¤ÀÄÁ¬ö¿ý¥i­×§ï¦p¤U
If Second(T) <> 0 Then
T = TimeSerial(Hour(T), Minute(T) + 1, 0)
Else      
  T = T + #12:01:00 AM#      '[³]©w®É¶¡]+1¤ÀÄÁ  
ENDIF

TOP

¦^´_ 7# GBKEE


    ·PÁªO¥D²Ó¤ß¸Ñ»¡
   Åý§Ú¾Ç¨ì«Ü¦hªF¦è·PÁÂ

TOP

¦^´_ 7# GBKEE

ªO¥D·Q¦A½Ð±Ð¸Ì­±¤G­Ó»yªk°ÝÃD
²Ä¤@¬O
            §Ú§â¶µ¥Ø§ï¦¨5¦C¥|Ä檺¸Ü         
Rng.Offset(1).Resize(5, 4) = Sheets("Sheet1").Range("C1").Resize(5, 4).Value

  Rng.Resize(, 2).EntireColumn.AutoFit   ³o¥y­n¥h§ïÅܸ̭±ªº Resize(, 2) ¼Æ¦r
ÁÙ¦³³o¥yªí¹F¤°»ò

  ²Ä¤G¬O
½Õ¾ã¬°¨C¤ÀÄÁ¬ö¿ý¥i­×§ï¦p¤U
If Second(T) <> 0 Then
T = TimeSerial(Hour(T), Minute(T) + 1, 0)
¤§«e¦³¤@¥y­n§R±¼¶Ü     Rng.Resize(, 2).NumberFormatLocal = "h:mm:ss AM/PM"
Else
  T = T + #12:01:00 AM#      '[³]©w®É¶¡]+1¤ÀÄÁ  
ENDIF

TOP

¦^´_ 9# kimo5566
¹ï©óvba ªº¤èªk,ÄݩʧA¥i¦h¬d¬Ý»¡©ú ,¦p¦bµ{¦¡½X¤¤ ¿ï¨ú EntireColumn  «ö¤UF1 ´N¥i¬d¬Ý¨ì»¡©ú.
EntireColumn.AutoFit  =>«ü©w½d³òªº¾ã­ÓÄæ .Äæ¼e©M¦C°ª½Õ¾ã¬°³Ì¾A·íªº­È
Rng.Resize(, 2).NumberFormatLocal = "h:mm:ss AM/PM"
¬O±N½d³ò®æ¦¡³]¬°"h:mm:ss AM/PM",§R¤£§R¬Ò¥i.

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD