변수 이름을 사용하여 시트를 활성화하려고 하는데 아래 첨자가 범위를 벗어났습니다. 오류가 발생합니다.
변수는 이렇게 선언됩니다
Phonecall = Phones(i) & "-UnbilledData"
i가 1일 때 Phonecall의 값은 "999-9999-UnbilledData"입니다.
이 문은 아래 첨자 오류로 인해 실패합니다.
Sheets(Phonecall).Activate
이 문은 잘 작동합니다.
sheets("999-9999-UnbilledData").activate
해결책은 나를 똑바로 쳐다보고 있지만 나는 그것을 보지 못하고 있습니다. 어떤 도움이라도 주시면 감사하겠습니다.
답변1
게시한 내용이 없습니다.어둑한다음은 잘 작동합니다:
Sub dural()
Dim Phones(1 To 2) As String
Phones(1) = "999-9999"
Phones(2) = "whatever"
Dim Phonecall As String
i = 1
Phonecall = Phones(i) & "-UnbilledData"
Sheets(Phonecall).Activate
End Sub