µ{¦¡½Xºë²

vic

1. If Second(Time) Mod 30 = 0 Then
   
2.    xRow = Sht1.Range("A65536").End(xlUp).Row + 1
   
3.    If xRow < 19 Then xRow = 19
   
4.    Sht1.Range("A" & xRow & ":C" & xRow).Value = Sht1.Range("A18:C18").Value
   
5.    Sht1.Range("E" & xRow & ":E" & xRow).Value = Sht1.Range("E18:E18").Value
   
6.    Sht1.Range("G" & xRow & ":K" & xRow).Value = Sht1.Range("G18:K18").Value
   
7.    Sht1.Range("M" & xRow & ":O" & xRow).Value = Sht1.Range("M18:O18").Value

½Æ»s¥N½X

½Ð±Ð ¹³³o¼Ë¿ï¾Ü©Ê¬ö¿ýªºµ{¦¡½X,
¦³¤ñ¸ûºë²ªº¼gªk¶Ü?

¥t¥~§Ú¨C¤Ñ5­Ó¤p®É,·|º|°O¿ý¤@¨âµ§,¸ò§Ú¼gªº¤º®e¦³Ãö«Y¶Ü?
ÁÙ¬O»¡¦h¦h¤Ö¤Ö,µLªkÁקK¡C

bobomi

§A±µ¦¬ªº°Ó«~¬°¦ó?

vic

¦^´_ 2# bobomi

¬ö¿ý¬Ý½L³nÅé¦^¶ÇªºDDE¸ê®Æ
¨C30¬í¬ö¿ý¤@¦¸
¤£º|ªº¸Ü,¤j¬ù600µ§

GBKEE

¦^´_ 3# vic

¬O³o¼Ë¶Ü?
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar(), S(1 To 2), xRow As Long, E As Variant
   
4.     Ar = Array("A:C", "E:E", "G:K", "M:O") '¤j¬ù600µ§ªºÄæ¦ì¦r¥À
   
5.     If Second(Time) Mod 30 = 0 Then
   
6.         With Sht1
   
7.             xRow = .Range("A65536").End(xlUp).Offset(1).Row
   
8.             For Each E In Ar
   
9.                 S(1) = Replace(E, ":", xRow & ":") & xRow
   
10.                 S(2) = Replace(E, ":", 18 & ":") & 18
    
11.                 .Range(S(1)).Value = .Range(S(2)).Value
    
12.             Next
    
13.         End With
    
14.     End If
    
15.   ' °}¦C¸m¤J¨ÇÄæ¦ì¦r¥À , ¥iºë²¤U­±ªºµ{¦¡½X
    
16.    'Sht1.Range("A" & xRow & ":C" & xRow).Value = Sht1.Range("A18:C18").Value
    
17.    'Sht1.Range("E" & xRow & ":E" & xRow).Value = Sht1.Range("E18:E18").Value
    
18.    'Sht1.Range("G" & xRow & ":K" & xRow).Value = Sht1.Range("G18:K18").Value
    
19.    'Sht1.Range("M" & xRow & ":O" & xRow).Value = Sht1.Range("M18:O18").Value
    
20.    '''¤j¬ù600µ§
    
21. End Sub

½Æ»s¥N½X