1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

엑셀 랜덤돌리기 질문입니다

VBA 조회 수 5201 추천 수 0 2012.12.07 20:43:41
If Me.CommandButton1.Caption = "Start!" Then
    Me.CommandButton1.Caption = "Stop!"
Else
    Me.CommandButton1.Caption = "Start!"
    Me.CommandButton1.Enabled = False
End If

pizza = Sheet3.Range("b7:b" & Sheet3.Range("b1048576").End(xlUp).Row)

Do While Not Me.CommandButton1.Caption = "Start!"
    해보자 = Int(Rnd() * Sheet3.Range("b1048576").End(xlUp).Row)
    Me.TextBox1 = pizza(해보자)
    DoEvents
Loop

이렇게 하엿을때 Me.TextBox1 = pizza(해보자) 에서 아래첨자 사용이 잘못되엇다는데...

If Me.CommandButton1.Caption = "Start!" Then
    Me.CommandButton1.Caption = "Stop!"
Else
    Me.CommandButton1.Caption = "Start!"
    Me.CommandButton1.Enabled = False
End If

pizza = Sheet3.Range("b7:b" & Sheet3.Range("b1048576").End(xlUp).Row)

On Error Resume Next
Do While Not Me.CommandButton1.Caption = "Start!"
    해보자 = Int(Rnd() * Sheet3.Range("b1048576").End(xlUp).Row)
    Me.TextBox1 = pizza(해보자)
    DoEvents
Loop

이렇게 하였을때
Do While Not Me.CommandButton1.Caption = "Start!" 에 중단점을 해주고 
코드가 어떻게 돌아가나를 보앗는데
코드상에서 값들을 보았을때는 정상적으로 돌아갓습니다.. 물론 On Error Resume Next 를 쓰긴햇지만요..ㅠㅠ
해결좀 해주세요.ㅠㅠ 기능대회 문제인데..해결이 안되네요.ㅠㅠ 부탁드립니다!~ㅎㅎ


댓글 '2'

profile

[레벨:30]아별

2012.12.11 00:51:29
*.130.73.75

신강현님..

안녕하세요?

 

지방기능경기대회 2011년도 문제군요..

변수는 미리 Type을 정의하고 사용하는 것이 좋습니다.

 

아래처럼..

pizza를 Range로 설정하고 Set으로 셀 영역을 할당해주면.. pizza(해보자) 처럼 몇번째 셀로의 접근이 가능해집니다.

 

Dim pizza As Range
Set pizza = Sheet3.Range("b7:b" & Sheet3.Range("b1048576").End(xlUp).Row)

 

질문하신 문제의 원인에 대해서 설명드리겠습니다.

pizza를 별도의 선언문 없이 바로 사용하면,

VBA 내부에서 Variant형식으로 인식하는데..

Variant형식의 변수에 셀 영역을 지정하면 2차원 배열로 인식합니다.

그래서 pizza(해보자)라는 식으로는 하면 "아래 첨자 사용이 잘못되었습니다."라는 에러가 발생하게 됩니다.

이럴때는 아래처럼 하시면 에러가 해결됩니다.

Me.TextBox1 = pizza(해보자, 1)

 

그럼에도 불구하고.. 맨 위에 설명해드린 것처럼..

셀 영역으로 선언하고, 셀 영역의 몇번째 셀로 접근하는 것이 정석입니다.

 

변수를 선언하지 않고 사용하는 것은 올바른 프로그래밍이 아닙니다.

 

도움이 되셨기를.. ^^

[레벨:4]신강현

2012.12.13 21:27:27
*.69.219.176

감사합니다.ㅎㅎ

 

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 43346
542 엑셀 하이퍼링크 오류;; file [1] [레벨:2]테스티모 2011-03-07 4680
541 기타 미리보기도 1페이지인데, 똑같은 내용의 페이지가 2장씩 인쇄 file [6] [레벨:4]성투은자 2013-02-28 4680
540 서식 추가질문 imagefile [1] [레벨:1]상희 2009-10-10 4679
539 VBA 엑셀 내용에서 영어만 모두 제거할 수 있을까요?? [1] [레벨:1]초보배움 2015-02-20 4675
538 직장상사에게 갈굼을 당하는 저를 도와주세요ㅠ.ㅠ file [3] [레벨:1]요붸붸82 2009-07-06 4664
537 아별툴 설치 도와주세요 [1] [레벨:1]문교아빠 2009-11-23 4646
536 엑셀일반 안녕하세요 재고의 연령분석에 대해 질문드립니다. file [2] [레벨:1]최영석 2013-12-19 4643
535 pivot 기본 피벗 기능 중 설문데이터 취합 [1] [레벨:3]읍내꽃미남 2013-01-28 4639
534 그래프 그리기 요청드립니다 (간트 차트의 응용 방법) imagefile [2] [레벨:2]젤코 2011-04-28 4636
533 기타 해당 단어가 있을경우 추출해 내고 싶습니다. file [2] [레벨:3]블루짱이 2012-12-17 4626
532 미친 용량 해결 방법 없을까요? [1] 김정헌 2010-09-10 4616
531 시트1의 행과 열의 데이터가 시트2에서는 열과 행의 데이터가되게 하는 방법 [4] [레벨:2]동그니 2009-07-16 4616
530 아벨님 도와주세요. (파일손상~~!!!. 도와주세요 ㅜㅜ) file [3] 손님 2009-11-22 4610
529 SUBTOTAL 행 갯수 세기 [4] [레벨:1]랄랄라99 2013-08-07 4605
528 여러 행에 있는 데이터를 한개의 열에 정렬하는 방법.... file [1] [레벨:1]묵향 2009-07-09 4598
527 VBA 수식이 입력된 셀은 자동으로 색상이 들어가게 하는 방법 [5] [레벨:4]부루끄 2011-07-15 4588
526 VBA 파일&폴더 ExecuteExcel4Macro로 다른 파일 열지않고 셀 데이터 가져오기 시 실패 file [레벨:1]소주보이 2014-02-28 4576
525 루나입니당 ㅎㅅㅎ; [1] 루나 2010-01-01 4566
524 API 열려있는 ie창 닫기 _ Win32 API, SendMessage, FindWindows, WM_CLOSE [3] [레벨:5]맑은이슬 2013-04-06 4560
523 pivot 기본 피벗보고서에 있는 데이터 가져오기 file [3] [레벨:1]예진 2013-02-24 4557