글 수 65
-------------------------------------------------------------------------------------------------------------------------------------
For 변수의 시작조건 To 변수의 끝나는 조건 Step 매단계의 격차
실행문
Next 변수
-------------------------------------------------------------------------------------------------------------------------------------
이하 예제.. ^__^*
출처 : http://www.excellove.com/board/bbs/view.php?id=qa&no=30183&keyword=순환문&sn=on&ss=on&sc=on
Dim MyCol As New Collection
Dim rngDb As Range
Dim rngC As Range
Dim i As Integer
'특정 영역 안에서 셀들을 순환할 때..
For Each rngC In rngDb
MyCol.Add Item:=rngC.Value, key:=CStr(rngC.Value)
Next rngC
'배열 변수를 순차적으로 호출할 때..
For i = 1 To MyCol.Count
With Range("A65536").End(xlUp)
.Offset(1, 0) = MyCol(i)
.Offset(1, 1) = Application.CountIf(rngDb, .Offset(1, 0).Value)
End With
Next i
-------------------------------------------------------------------------------------------------------------------------------------
Do While 조건
실행문
Loop
-------------------------------------------------------------------------------------------------------------------------------------
예제 없음.. ㅋㅋ
For 변수의 시작조건 To 변수의 끝나는 조건 Step 매단계의 격차
실행문
Next 변수
-------------------------------------------------------------------------------------------------------------------------------------
이하 예제.. ^__^*
출처 : http://www.excellove.com/board/bbs/view.php?id=qa&no=30183&keyword=순환문&sn=on&ss=on&sc=on
Dim MyCol As New Collection
Dim rngDb As Range
Dim rngC As Range
Dim i As Integer
'특정 영역 안에서 셀들을 순환할 때..
For Each rngC In rngDb
MyCol.Add Item:=rngC.Value, key:=CStr(rngC.Value)
Next rngC
'배열 변수를 순차적으로 호출할 때..
For i = 1 To MyCol.Count
With Range("A65536").End(xlUp)
.Offset(1, 0) = MyCol(i)
.Offset(1, 1) = Application.CountIf(rngDb, .Offset(1, 0).Value)
End With
Next i
-------------------------------------------------------------------------------------------------------------------------------------
Do While 조건
실행문
Loop
-------------------------------------------------------------------------------------------------------------------------------------
예제 없음.. ㅋㅋ