구구단(for~next)

구구단을 만든는vba만들기

 

for~next

 

Sub gugudan()
 Dim i As Long, j As Long
 
 For i = 1 To 9
    For j = 1 To 9
        Cells(i, j) = i * j
    Next j
 Next i


End Sub

 

 

도형 옮기기

Sub shape_color()
    Dim sh As Object
    Dim lngC As Long
    
    For Each sh In ActiveSheet.Shapes
        lngC = lngC + 1
        sh.Left = Range("b1").Left
        
        sh.Fill.ForeColor.SchemeColor = lngC
        
    Next
End Sub

for~next, for each ~next.xlsm

0.02MB

 

반복문과 분기문.xlsm

0.02MB

 

 

2022.02.17 - [VBA] - 반복문(for...next, do while ...loop)

반복문(for...next, do while ...loop)