Excel VBA : 범위의 셀 인덱스가 포함 된 변수 사용

Question

매크로에 새롭습니다. 따라서 이것은 아마도 바보 같은 질문 일 수 있습니다. 나는 수색하고, 찾았고, 아직 대답을 찾지 못했다. 그래서 나는 여기의 전문가가 나를 도울 것이기를 바란다.

나는 내 자신의 코드에서 내가 가진 특정 범위 (모든 세포는 "완료", "진행 중"또는 "대기 중"값). 내가 "진행"값을 찾을 때, 나는 내가있는 카운터를 사용하는 것, 더 작은 범위를 만들려면 해당 셀을 사용하고 싶습니다. 나는, 그러나, 여기 부분 범위 작업 :(

Dim range1 As Range 

For Each cell In Sheet2.Range("A5:Y5") 
    If cell.Value = "Ongoing" Then Set range1 = Cells(cell.Row, cell.Column) 
Next cell 

i = 0 

For Each cell In Sheet2.Range("A5:range1") 
    If cell.Value = "Done" Then 
     i = i + 1 
    End If 
Next cell 

Answer 1

을 할 수 없습니다 당신 간단한 코드가 일부 작업을 수행하는 당신이 원하는 :

Dim rangeToSearch As Range 
    Dim doneCount As Integer, onGoingCount As Integer, onGoingDones(50) As Integer 
    Set rangeToSearch = Sheet2.Range("A5:Y5") 

    doneCount = 0 
    onGoingCount = 0 
    For Each cell In rangeToSearch 
     If (Not IsEmpty(cell)) Then 
      If LCase(cell.Value) = "done" Then 
       doneCount = doneCount + 1 
      ElseIf LCase(cell.Value) = "ongoing" Then 
       onGoingCount = onGoingCount + 1 
       onGoingDones(onGoingCount) = doneCount 
       doneCount = 0 
      End If 
     End If 
    Next cell 

그것은 onGoingDones 배열 (에 "진행"세포 및 보관 사이에 "완료"(중요하지 않습니다 캡)의 수를 계산, 그것은 단지 수 50 개까지 요소를 다루지 만 충분하지는 않습니다.)