카운터 로직

아래와 같이 짜 봤으나 이상하게 실행속도가 느림. 향후 점검용...(2008.02.07)

 

Sub 합계검색()
'
' 합계검색 Macro
'
' Keyboard Shortcut: Ctrl+Shift+T

Dim i, j, k, l, cr, nrow, ncol, myAns, srow, scol, strt As Byte
nrow = 16: ncol = 3
srow = 2: scol = 1
ReDim A(nrow, ncol) As Long
ReDim B(ncol) As Long
ReDim c(ncol) As Byte

'Reading
For i = 0 To ncol
For j = 0 To nrow
A(j, i) = Cells(j + srow, i + scol)
Next j
Next i
Cells(3, 6) = Time() '시작 시간 기록

For k = 0 To 100000
cr = 1

'Counter
For i = 0 To ncol
Cells(2, 6 + i) = c(i)
Next i
l = ncol
Cup:
If c(l) < nrow Then
c(l) = c(l) + 1: GoTo Cnext
ElseIf l = 0 Then GoTo EOP 'end로 감
Else: For i = l To ncol: c(i) = 0: Next i: l = l - 1: GoTo Cup
End If
Cnext:
Next k

EOP:
Cells(4, 6) = Time() '끝 시간 기록
End Sub