Sub ¬Äê¹àÌÜ()
Sheets("ʪÀ¥Ç¡¼¥¿É½").Select
Range("C8").Select
Dim X As Variant
X = Range("C8").Value
Select Case X
Case TR1069
With Range("C29:H32").Interior
.Pattern = xlSolid
.PatternColorIndex = 16
End With
Case TR120A
With Range("C29:H32").Interior
.Pattern = xlSolid
.PatternColorIndex = 16
End With
End¡¡case
With Range("C29:H32").Interior
.Pattern = xlSolid
.PatternColorIndex = 16
End With
Case X = "PP26", "PP26FK", "KA304"
ActiveWindow.SmallScroll Down:=12
With Range("C29:H32").Interior
.Pattern = xlSolid
.PatternColorIndex = 16
End With
Range("C23:G23").Select
With Range("C23:G23").Interior
.Pattern = xlSolid
.PatternColorIndex = 16
End With
Range("C26:G26").Select
With Range("C26:G26").Interior
.Pattern = xlSolid
.PatternColorIndex = 16
End With
Case X = "TR420", "TR407", "TR408R", "TR580R", "TR581R", "TR585R", "TR590R", "TR685R", "PP9FM3KR"
Cells("A42").Text = "Ãæ´Ö¿ÅÙ"
Case X = "TA420FS01", "TA420FS01(KL)", "PPG930B11", "PPG930B1K", "PP934K", "PP936KR", "PP934K(Y)", "PP936K(Y)", " PPG501B", "TR803", "TR803K", "TRG941", "TRG941K", "TRG940B1K", "TRG940B2K"
Range("C25:G25").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = 16
End With