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

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

랜덤 컨틀로바질문입니다..

VBA .Find 조회 수 4262 추천 수 0 2013.01.21 10:38:35
With 프로그램바

    Do While .Label1.Width < 300
        
        .Label1.Width = .Label1.Width + 0.1
        .Label2.Caption = .Label1.Width & "%"
            
            If .Label1.Width = 250 Or .Label1.Width = 50 Then
                
                Application.OnTime Now + TimeValue("00:00:02"), "ex"
                
                Exit Sub
            
            End If
        DoEvents

    Loop
End With

 If  .Label1.Width = 50 Then 이부분에서  랜덤으로 숫자가 같으면 멈추게하고싶은데..
어떻게해야하나요 ? rnd 을써서하려는데 잘안되서요 .ㅠㅠ

댓글 '3'

profile

[레벨:30]아별

2013.01.21 11:09:33
*.104.126.21

신강현님..

 

rnd로 숫자를 비교하면..

rnd는 실수이기 때문에 소수점 아래 자리수가 참 많죠.. 정수로는 조건을 맞추기가 힘들 것 같구요..

또한 Label.Width도 정수로 지정한다고 정수로 딱 값을 갖지 않는 경우가 많아서..

둘다 정수로 강제 변환하는 int함수를 사용하셔서 정수로 변환 후 비교하시면 될 것 같습니다.

 

rnd함수는 0부터 1까지의 실수를 리턴하는 함수니까요..

0부터 50까지 리턴하게 하려면 rnd*50 하시면 됩니다.

 

If int(.Label1.Width) = int(rnd*50) then

 

범위가 넓으면 넓을 수록 조건이 맞아서 Loop를 Exit하는 확율은 떨어집니다.. ^^

 

굳이 소숫점 1자리까지 맞추고 싶으면 아래처럼 변형하면 되겠지요..

If int(.Label1.Width*10) = int(rnd*50*10) then

 

도움이 되셨기를..

신강현

2013.01.21 12:08:02
*.218.33.33

그럼 확률이 좀 높게 할수잇는방법잇나요? 잇으면

갈켜주시면 감사하겟습니다


profile

[레벨:30]아별

2013.01.29 00:44:18
*.130.73.75

신강현님..

뭘 만들고 싶은지 잘 모르겠습니다.

 

제작 목적을 모르니 적당한 답변을 드리기 힘드네요..

확율을 높인다는 것은.. 선택지를 줄이는 것이지요..

 

5를 찾을 확율을 구한다고 해보지요..

(1, 3, 5, 8, 10)에서 5를 찾는 확율과 (1,2,3,4,5,6,7,8,9,10)에서 5를 찾는 확율은 5개의 항목 중에서 고르는게 높겠죠?

 

rnd함수가 변하는 범위를 좁히면 됩니다.

int(rnd*10) 이라고 하면 나올 수 있는 숫자는 (0,1,2,3,4,5,6,7,8,9,10)

int(rnd*3)이라고 하면 나올 수 있는 숫자는 (0,1,2,3)

 

두번째 방법으로 찾는게 찾을 확율이 높겠지요..

 

잘 설명을 한건지 잘 모르겠지만.. 최선을 다했습니다. 쿨럭.. OTL..

암튼.. 머.. 그렇습니다. @_@;;

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 60701
113 VBA 엑셀 일괄암호저장 imagefile [1] [레벨:1]천운 2017-03-13 11675
112 VBA 매크로를 이용한 exe 파일 자동 실행 방법 문의~ imagefile [레벨:1]hickel 2016-09-07 10298
111 VBA 매크로 질문 드립니다. [레벨:1]ORACLE 2016-08-16 10823
110 VBA 컴파일 에러가 나요? [레벨:1]구름바다 2015-09-14 10414
109 VBA 사용자 정의 함수에서 변수의 행번호 추출하기 file [레벨:1]백미90 2015-08-17 9198
108 VBA 셀 복사 후 아래셀에 수식 및 메모 붙여넣기 관련 [레벨:4]고수가되고파 2015-04-17 9509
107 VBA 추가기능 파일 수정 관련 file [1] [레벨:4]고수가되고파 2015-04-03 11429
106 VBA 특정개체 수정 관련 [5] [레벨:4]고수가되고파 2015-04-02 7424
105 VBA 하이퍼링크셀 선택시 셀값을 오토필터 값으로 연결 file [레벨:1]speena 2015-03-11 6639
104 VBA 엑셀 내용에서 영어만 모두 제거할 수 있을까요?? [1] [레벨:1]초보배움 2015-02-20 5420
103 VBA 오늘도 질문!^^있습니다. [레벨:2]정용규 2015-01-19 4698
102 VBA 몇가지 질문들 [8] [레벨:2]정용규 2015-01-13 4574
101 VBA 특정색 행 삭제 메크로 배워보고 싶습니다~ imagefile [2] [레벨:1]굿한넘 2015-01-12 6219
100 VBA 엑셀 메모의 배경으로 삽입한 이미지 추출하기 file [레벨:2]이런젬젬 2015-01-06 5137
99 VBA vba로 서식정렬 [4] [레벨:2]정용규 2015-01-03 4898
98 VBA 논리식 일거라 예상은 하는데.... 도저히 모르겠어서 여쭤봅니다^^ file [레벨:1]mr_han123 2014-10-28 3548
97 VBA 특정값이 변경될 경우 매크로실행 또는 0이 아닐경우 실행 [2] [레벨:3]jmsynn 2014-10-24 5692
96 VBA 도움을 요청드립니다~ secret [레벨:1]비베초보 2014-07-29 1
95 VBA 아별님 안녕하세요 file [레벨:2]북곰 2014-07-09 4651
94 VBA 파일&폴더 ExecuteExcel4Macro로 다른 파일 열지않고 셀 데이터 가져오기 시 실패 file [레벨:1]소주보이 2014-02-28 5521