Excel - VBA 특정 배경색 바꾸기

Programming 2016.01.29 14:44 Posted by 파란크리스마스

출처 : 엑셀(Excel) 개발도구 탭 추가하기 (리본메뉴에 개발도구 탭 표시)

Sub Hello()

    Dim Sht As Worksheet
    Dim iRow As Integer
    
    For Each Sht In Worksheets
        'Sht.Cells.WrapText = True
        If Sht.Index >= 3 Then
            'MsgBox (Sht.Name)
            Sht.Select
            MsgBox (ActiveSheet.Name)
            For iRow = 7 To ActiveSheet.UsedRange.Rows.Count
            
                If Sht.Cells(iRow, 1) = "마지막행" Then
                    Exit For
                End If
                
                ' 가운데 정렬
                With Sht.Cells(iRow, 6)
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlCenter
                End With
                With Sht.Cells(iRow, 7)
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlCenter
                End With
                
                Sht.Cells(iRow, 2).Select
                
                
                ' 노락색 인경우 = 6
                If ActiveCell.Interior.ColorIndex = 6 Then
                    ' 회색으로 변경 = 15
                    Sht.Cells(iRow, 1).Interior.ColorIndex = 15
                    Sht.Cells(iRow, 2).Interior.ColorIndex = 15
                    Sht.Cells(iRow, 3).Interior.ColorIndex = 15
                    Sht.Cells(iRow, 4).Interior.ColorIndex = 15
                    Sht.Cells(iRow, 5).Interior.ColorIndex = 15
                    Sht.Cells(iRow, 6).Interior.ColorIndex = 15
                    Sht.Cells(iRow, 7).Interior.ColorIndex = 15
                    Sht.Cells(iRow, 8).Interior.ColorIndex = 15
                End If
                'MsgBox (Sht.Cells(iRow, 1))
            Next iRow
        End If
    Next Sht
End Sub



저작자 표시
신고
TAG


 

티스토리 툴바