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

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

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

VBA .Find 조회 수 4329 추천 수 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
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 62598
422 엑셀일반 아별툴 적용 안됨 imagefile [레벨:2]queeny 2014-03-12 4267
421 엑셀수식 (1년 전 당월~올해 전월 사용량) 합계의 월평균 구하기 file [3] [레벨:4]성투은자 2013-03-04 4274
420 현원자동표시 [1] 이순간 2009-11-18 4283
419 VBA .Find find 문을 공부하던도중 문제하가잇어서 질문올립니다. file [2] [레벨:4]신강현 2013-03-22 4286
418 배열수식 데이타 정열관련 질문 드립니다. _ offset과 배열 수식을 이용하여 최근 값을 순차적으로 갖고 오는 방법.. file [3] [레벨:1]바람길 2011-11-28 4287
417 엑셀일반 글자수 세는 방법 질문입니다. imagefile [4] [레벨:6]파이스 2013-05-27 4291
416 엑셀일반 엑셀 2010 인쇄 질문 [3] [레벨:1]ㅂㅂㅂㅂㅂ 2013-06-16 4292
415 VBA REPORT 형식을 변형하고 싶은데 한번 봐주세요 file [7] [레벨:1]예진 2013-04-09 4296
414 엑셀수식 여러가지 조건을 고려한 수식을 한 셀 안에 표시하기 file [3] [레벨:4]성투은자 2013-02-01 4297
413 엑셀일반 한셀에 값 [9] [레벨:5]눈물바다 2012-06-13 4302
412 엑셀일반 경력 합산 file [4] [레벨:3]읍내꽃미남 2014-01-07 4305
411 엑셀일반 한가지 질문요 [레벨:1]싸이킥 2015-01-10 4305
410 기타 요청한 항목을 찾을 수 없습니다. (hhttp/1.0 404) _ 외부 연결 끊기, 업데이트하지 않도록 옵션 설정하기 imagefile [6] [레벨:3]월전천넘 2012-09-05 4307
409 엑셀일반 중복 IF문 개념잡는법에 대한 질문 imagefile [4] [레벨:6]파이스 2014-05-19 4321
408 숨겨진 부분 빼고 보이는데로 복사는 알겠는데, 숨겨진 부분이 다른곳에 보이는데로 붙여넣기는 어떻게 하나요 file [2] [레벨:2]찰스박 2011-03-24 4326
» VBA .Find 랜덤 컨틀로바질문입니다.. [3] [레벨:4]신강현 2013-01-21 4329
406 엑셀파일 새창에서 열기 [2] [레벨:1]Mr아프락사스 2011-06-14 4337
405 안녕하세요.질문이 있습니다. [3] 엑초보 2009-07-06 4339
404 VLookup 자동차세계산법 _ 등급이 있는 기준표를 VLOOKUP으로 참조하는 방법.. 00이상~00미만 : A [6] [레벨:4]현대자동차 2012-03-28 4348
403 엑셀일반 하이퍼 링크 추가 질문 file [1] [레벨:5]눈물바다 2014-09-27 4351