|
아래 ★부분이 컴파일 오류가 뜹니다.
당연한 결과겠지요. ㅠㅡ
변수 j에 입력한 숫자만큼 input박스를 돌려서
k1, k2,k3 변수에 input박스의 값을 저장하여
코드를 추가하여 k1,k2,k3등등의 변수를 써먹을려고 합니다.
어떻게 해야 할까요?
여기서 사용자가 입력하는 불량업체수는 10개이하입니다.
그래서 k변수를 배열로 하면 될것같은데, 도무지 모르겠습니다.
도움 부탁드립니다.
Sub test()
Dim k1 As Integer
Dim k2 As Integer
Dim j As Integer
Dim i As Integer
j = InputBox("불량업체 갯수를 입력하세요")
For i = 1 To j
k & i = InputBox("불량업체명을 입력하세요")★
Next i
End Sub
==============[바다님 글에 대한 답변입니다]==============
안녕하세요?
k & i = InputBox("불량업체명을 입력하세요")★
이 식은 있을 수 없는 것입니다.
Sub test()
Dim k() As Integer
Dim j As Integer
Dim i As Integer
j = InputBox("불량업체 갯수를 입력하세요")
Redim k(1 to j) As Integer
For i = 1 To j
k(i) = InputBox("불량업체명을 입력하세요")
Next i
End Sub
이렇게 고치셔야 합니다.
==============[박현준님 글에 대한 답변입니다]==============
님들의 답글을 보고 제가 질문한것 까지는 해결을 했는데
역쉬........ 응용이 안되네요.
아래 ★표부분을 어떻게 해야 될지 모르겠습니다.
도움 부탁드립니다.
Sub Test()
Dim k() As String
Dim j As Integer
Dim i As Integer
j = Val(InputBox("불량업체 수를 입력하세요"))
ReDim k(1 To j) As String
For i = 1 To j
k(i) = InputBox("불량업체명을 입력하세요")
Next i
For i = 1 To 28
With Cells(i, 1)
If .Value = ★ Then'현재셀의 값이 k변수에 담았던 불량업체명과 같으면
.Interior.ColorIndex = 4
End If
End With
Next i
End Sub
|
|