이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 113
With 로긴
Do While .col.Width < 300 .col.Width = .col.Width + 0.1
.Label2.Caption = .col.Width & "%"
If Int(.col.Width) = Int(Rnd() * 300) Then
Application.OnTime Now + TimeValue("00:00:01"), "ex"
Exit Sub
End If
DoEvents
Loop
End With 여기서 col 이라는 label 이 있습니다.. 여기서 call width 값이 300 입니다 여기서 label의 크기는 300 같이 나오고 label 이 300이 되는순간 label2 의 값은 100 프로로 나오고싶은데.. 그게 잘안되요.. col.width 를 100 으로 지정해주면 너무 크기가 조그만해져서요 .ㅠㅠ
Do While .col.Width < 300 .col.Width = .col.Width + 0.1
.Label2.Caption = .col.Width & "%"
If Int(.col.Width) = Int(Rnd() * 300) Then
Application.OnTime Now + TimeValue("00:00:01"), "ex"
Exit Sub
End If
DoEvents
Loop
End With 여기서 col 이라는 label 이 있습니다.. 여기서 call width 값이 300 입니다 여기서 label의 크기는 300 같이 나오고 label 이 300이 되는순간 label2 의 값은 100 프로로 나오고싶은데.. 그게 잘안되요.. col.width 를 100 으로 지정해주면 너무 크기가 조그만해져서요 .ㅠㅠ
신강현님..
질문이 전혀 이해가 되지 않습니다.
엑셀 파일을 첨부해주시는게 제가 질문을 이해하고 답변 드리는데 도움이 될 것 같습니다.
그리고 질문의 내용과 코드의 내용이 서로 매칭이 안됩니다.
타이머로 실행하는 "ex" 프로시저는 무엇이며.. 왜 타이머를 사용했는지도 이해가 안가구요..
width가 300이하일때까지 루프를 돌리는데.. 조건이 따로 달지 않아도 300이 되면 루프를 끝낼텐데.. 이해가 안되구요..
아니 일단.. 바로 width를 300으로 지정하시면 되지 왜 0.1씩 증가시키는지도 이해가 안됩니다.
질문을 하실때는..
답변을 하는 제 입장도 생각해주시면서 질문해주시면 감사하겠습니다.
반대로 제가 신강현님에게 앞뒤 다 자르고 이렇게 질문을 하면
신강현님은 어떤 기분이 드실지 한번만 생각해봐주시길 바랍니다. ^^