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

¥¨¶°¼gªk?

¥¨¶°¼gªk?

·s¤â¼gVB¦³¿³½ì¬O§_¯à§i¦Ü¤U¦C°ÝÃDÁÂÁÂ!
   Rows("1:7").Select

    ("1:7") ¦pªG¥ÎVB©w¸qÅܼƦp i , j ¨Óªí¥ÜÀ³¦p¦ó¥¨¶°µ{¦¡¦p¦óªí¥Ü?

   Range("A9").Select

    ("A9") ¦pªG¥ÎVBÅܼƦp r  ¨Óªí¥ÜÀ³¦p¦ó¥¨¶°µ{¦¡¦p¦óªí¥Ü?

·PÁ¦p¦¹¸Ô²Ó¸Ñµª§Ú§â¥¦¥Î©ó¤U¤è²×©ó¥i°õ¦æ,¤À¨Éµ¹¨ä¥L¦³»Ý­n·s¤â.ÁÂÁ±z!
Dim C As Integer

       C = 2
      
   For C = 2 To 96 Step 4         
      
     Rows(C + 4 & ":" & C + 6).Select
     Selection.EntireRow.Hidden = True

   Next

====================
Dim H As Integer
       H = 5
   For H = 5 To 100 Step 4         
        
     Range("AV" & H & ":" & "BZ" & H).Select     
     Selection.ClearContents
   Next

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD