[엑셀 VBA] 엑사남4강 #분기문/반복문

[엑셀 VBA] 엑사남4강 #분기문/반복문

늦은 퇴근시간을 앞당기기 위해

공부합니다^^

몇번을 도전하다 실패한 엑셀VBA를

이번에는 초급을 넘어서보려고 합니다.

 

#학습내용 (1)

Sub Test_1()

    Dim i As Long

    For i = 3 To 11

        If Range("C" & i) < 500 Then

            Range("C" & i).Font.Color = 255

            Range("D" & i) = "저조"

        End If

    Next

End Sub

 

 

 

#학습내용 (2)

Sub TEST_2()

    Dim i As Long
    
    For i = 2 To 11
    
        If Cells(3, i) < 500 Then
        
            Cells(3, i).Font.Color = 255
            Cells(4, i) = "저조"
        
        End If
    
    Next

End Sub

#학습내용 (3)

Sub TEST_3()

    Dim i As Long
    Dim j As Long
     
    For i = 3 To 11
    
        For j = 3 To 11
           
        If Cells(i, j) < 500 Then
        
            Cells(i, j).Font.Color = 255
         
        End If
        
        Next
    
    Next

End Sub

#학습내용 (4)

Sub TEST_4()

    Dim sh As Object
    
    For Each sh In ActiveSheet.Shapes
    
        If sh.Name = Range("H3") Then
            sh.Fill.ForeColor.RGB = Range("I3").Interior.Color
        
        ElseIf sh.Name = Range("H4") Then
            sh.Fill.ForeColor.RGB = Range("I4").Interior.Color
            
        ElseIf sh.Name = Range("H5") Then
            sh.Fill.ForeColor.RGB = Range("I5").Interior.Color

        End If
        
    Next

End Sub

이번강의는 실습이 많았습니다. 

조금씩 어려워지는듯한데...

포기란 없다!!!!

 

출처 : https://youtu.be/l08dQIprW9I