[엑셀 VBA] 엑사남 5강 #자동화경험

[엑셀 VBA] 엑사남 5강 #자동화경험

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

공부합니다^^

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

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

 

#학습내용(1)

Sub Test01()

    Dim i As Long
    Dim lngR As Long
    
    lngR = Range("B10000").End(xlUp).Row
  
    For i = 2 To lngR
    
        If Cells(i, 2) <= 70 Then
        
            Cells(i, 2).Font.ColorIndex = 3
        
        End If
    
    Next i

End Sub

#학습내용(2)

Sub test02()

    Dim i As Long
    Dim lngC As Long
    
    lngC = Range("iv2").End(xlToLeft).Column
    
    For i = 2 To lngC
    
        If Cells(2, i) <= 70 Then
        
            Cells(2, i).Font.ColorIndex = 3
        
        End If
    
    Next i
     
End Sub

오늘 강의는

굉장히 중요한 내용이라고 강조합니다.

 

#학습내용(3)

Sub test3()

    Dim i, j As Long
    
    Dim LngR As Long
    
    Dim LngC As Long
    
    LngR = Range("B10000").End(xlUp).Row
    LngC = Range("IV2").End(xlToLeft).Column
    
        For i = 2 To LngR
        
            For j = 2 To LngC
            
                If Cells(i, j) <= 70 Then
                
                    Cells(i, j).Font.ColorIndex = 3
                
                End If
            
            Next
        
        Next
    
End Sub

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