나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 박현준 (gigapower)

추천:  2
파일:     조회:  3251
제목:   [RE]배열변수
　 　 　
　 아래 ★부분이 컴파일 오류가 뜹니다.
당연한 결과겠지요. ㅠㅡ

변수 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

이렇게 고치셔야 합니다. 		　
[불량 게시물 신고]  
황기성이렇게 고치셔야 합니다.
라고 하셨지만,

그렇게 고치면 아니 될 듯 싶습니다^^;; 다시금 곰곰히 생각해 보세요...아주 간단한 것이므로...직접^^*

그럼...행운이 있으시길...!		08-16 (23:33)
ⓧ삭제 ■신고
박현준아하.. 아주 사소한 실수도 찾아 내시다니!!

존경스럽습니다..^^;

수정 하였습니다.		08-16 (23:38)
ⓧ삭제 ■신고
정해원전 이렇게 생각하고 수정해 보았습니다만 질문자의 의도와 맞을련지는....
불량갯수를 입력하면 그 갯수만큼 불량업체명을 입력하는 방식입니다.
시트에 기록하는 것입니다만 이런 뜻은 아닐련지???
Sub test()
     Dim t As Integer
     Dim j As Integer
     Dim i As Integer
    
     j = InputBox("불량업체 갯수를 입력하세요")
     
     For i = 1 To j
     
    If t > i Then Exit Sub
     
     For t = 1 To j
       Range("k" & t) = InputBox("불량업체명을 입력하세요")
     Next t
     Next i
 
  End Sub


 
08-16 (23:42)
ⓧ삭제 ■신고
바다다들 너무 감사드립니다.
제가 잠만 디룩디룩 자고 있을때,,,,, 이렇게 명쾌한 답들을 주시다니
넘 감솨.. ^^		08-17 (08:21)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-08-16(23:24)
최종수정일 : 2003-08-16(23:38)
　


 ◎ 관련글
  제 목   작성자   날짜
배열변수 바다 2003-08-16
◎ [RE]배열변수 박현준 2003-08-16
배열변수 다시 질문 바다 2003-08-17
배열변수로 입력받은후 해당자료 찾아 색칠하기(VBA) 졸따구 2003-08-17