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

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

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

글 수 822

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

VBA 조회 수 5234 추천 수 0 2012.12.07 20:43:41
[레벨:4]신강현 *.218.33.33
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 를 쓰긴햇지만요..ㅠㅠ
해결좀 해주세요.ㅠㅠ 기능대회 문제인데..해결이 안되네요.ㅠㅠ 부탁드립니다!~ㅎㅎ

이 게시물을...
첨부
엮인글 :
http://www.abyul.com/zbxe/112902/176/trackback
목록

댓글 '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 44424
542 아별툴관련질문 설치시 오류 질문드립니다. [4] [레벨:1]pritsno2 2013-06-28 3096
541 엑셀에서 이메일 입력 시 @이메일 주소 자동 입력하는 방법이 없을까요? [2] [레벨:3]읍내꽃미남 2011-01-14 3101
540 엑셀수식 사용자목록 필요여부 file [2] [레벨:4]성투은자 2013-02-04 3106
539 엑셀일반 칸에 맞게 붙여넣기 하는법이 궁금해요! imagefile [1] [레벨:1]냠냠이 2015-01-04 3106
538 엑셀수식 엑셀 함수관련해서 질문드려요 file [레벨:4]요셉 2014-11-04 3109
537 VBA vba 행 삽입 file [2] [레벨:4]고수가되고파 2012-10-10 3112
536 엑셀수식 자동계산 질문입니다._세금계산서 자리수 & 숫자 한글 표시 file [4] [레벨:5]정화 2011-09-14 3116
535 추가기능(AddIns) 사용자지정 메뉴 아이콘 크기 크게 가능 한가요? [4] [레벨:5]맑은이슬 2013-03-15 3123
534 엑셀일반 부분합 질문이요 file [1] [레벨:4]요셉 2013-08-01 3124
533 SUMPRODUCT 이런 다중조건도 가능할까요? file [4] [레벨:2]진주22 2013-04-04 3126
532 VBA 사진 삽입 file [3] [레벨:1]비베초보 2013-12-16 3131
531 VBA 오늘은 간단한 것 질문할께요 _ VBE 모듈, 유저폼 내보내기(Export) 방법 [4] [레벨:3]엑셀대단해 2012-03-05 3156
530 피벗테이블 피벗에서 중복값을 하나의 숫자로 판단하여 표기하는 방법 file [3] [레벨:1]삽질대마왕 2014-07-25 3160
529 엑셀수식 엑셀 수식 질문드려요~ _ 여러 행 단위로 정렬하기, 사용자 지정 목록으로 정렬하기.. file [2] [레벨:4]요셉 2014-02-13 3162
528 드롭다운 메뉴를 만들고 싶습니다 file [4] [레벨:2]파란달 2011-07-21 3176
527 엑셀수식 이름 범위를 여러열에 걸쳐 지정 후 조건문 수식 만들기 file [1] [레벨:4]성투은자 2013-02-06 3177
526 엑셀일반 기초질문 3개 드립니다. 감사합니다. file [3] [레벨:1]Patric Jane 2013-03-13 3178
525 엑셀수식 분포도 그래프 [1] [레벨:5]눈물바다 2012-09-05 3183
524 엑셀일반 정렬해서 평균을구하고 차이 여쭤봅니다. file [5] [레벨:4]우보천리 2011-09-30 3186
523 엑셀일반 3가지 이상의 조건을 만족하는 값을 구할려고 하는데요 함수가 막힙니다. imagefile [4] [레벨:1]늘보 2013-06-04 3187
목록
쓰기