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

¦p¦ó²¤Æ³oµ{¦¡

¦p¦ó²¤Æ³oµ{¦¡

¤j¤j­Ì, ¦w¦n,
¤p§Ì¿ý¨î¤F¤@­Ó¥¨¶°, ¦ý¿ý¨î¥X¨Óªºµ{¦¡¤Óªø, ½Ð±Ð¤j¤j­Ì, ¦p¦ó§âµ{¦¡Â²¤Æ, ·P®¦, ÁÂÁÂ!!

Sub ²M°£¤u§@ªí¦â±m()
'
' ²M°£¤u§@ªí¦â±m Macro
'

'
    Sheets("1¤ë").Select
    Range("G4").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("2¤ë").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("3¤ë").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("4¤ë").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("5¤ë").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("6¤ë").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("7¤ë").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("8¤ë").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("9¤ë").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("10¤ë").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("11¤ë").Select
    ActiveWindow.SmallScroll
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("G4").Select
    Sheets("12¤ë").Select
    Range("G4:AK20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Sheets("¤½²³°²´Á").Select
    Range("A1").Select
hong912

¦^´_ 1# hong912

¸Õ¸Õ¬Ý
  1. Sub TEST()
  2.     For I = 1 To 12 '¤@¤ë¶]¨ì12¤ë
  3.         With Sheets(I & "¤ë").Range("G4:AK20").Interior '¥Îi·í§@¤ë¥÷¶]¦^°é,«á­±½d³ò©T©w
  4.             .Pattern = xlNone '²M°£¶ñº¡ªºÃC¦â
  5.             .TintAndShade = 0
  6.             .PatternTintAndShade = 0
  7.         End With
  8.     Next

  9. End Sub
½Æ»s¥N½X
PKKO

TOP

¦^´_ 2# PKKO

ÁÂÁ«ü¾É, ·P®¦..
hong912

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD