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

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

반갑습니다,아별님

 

진행바 응용을 하려고 하니 잘 안되어 질문 드립니다

 

아별님께서 답변주신 진행바 파일로 응용

 

1.진행바가 진행되는 동안 다른 명령을 실행 하려고 합니다

2.다른 메뉴가 실행되는 동안에 진행바가 표시 되게

 

유첨파일 참조해 주십시요


댓글 '3'

profile

[레벨:30]아별

2013.02.04 01:00:32
*.130.73.75

맑은이슬님.. 반갑습니다.

다른분에게 했던 답변을 참고하셨군요..

훈늉한 자세입니다. ^^)b

 

답변 하나 하나에 정성한 다한 보람이 있네요.. ^_^;;

 

첨부파일을 참고하시기 바랍니다.

다운받기 : abyul.com_progressBar_20130130-3.xlsm

 

대부분 작업이 오래 걸리는 작업은 순환문이기때문에..

For문이나 While문의 변수를 사용해서 진행바를 표시하면 될 것 같습니다.

그 외의 작업에는 가중치를 줘서 중간 중간에 한번씩 점프를 시켜야할 것 같네요..

이 프로세스 끝났으면 10%쯤 되겠다해서.. 10%로 점프를.. @_@;;

근데.. 순환문이 아닌데 시간이 오래 걸린다는 것은.. 뭔가 코딩에 문제가 있어보이네요.. @_@;;

그리고.. 대분분의 작업에는 작업진행바가 필요없습니다. 순식간에 끝나버려서요.. @_@;;

 

Application.OnTime 등을 이용해서 예측된 시간에서 동작시키는 것은 오히려 더 신뢰도가 떨어질 것 같습니다.

컴퓨터 사양에 따라 처리 속도는 천차만별이기때문이죠..

 

 

'### 이하 코드~~~


'### 여러 프로세스로 구성된 작업 진행바 만들기
'### Created by http://abyul.com/
'### initial date : 2013.02.04 am 00:28
Dim frm As ufrmProgressBar
Dim maxCount As Long
Dim fullWidth As Long
Dim lngProgress As Long

Sub abProgressBarShow()
    Set frm = New ufrmProgressBar
    frm.Label1.BackColor = 125
    frm.Label1.Caption = ""
    maxCount = 3000 + ActiveWorkbook.Styles.Count + 200 + 2000
    lngProgress = 0
    fullWidth = frm.TextBox1.Width
    frm.Show
End Sub

Sub abProgressBarMain()
    Call dummy1
    Call dummy2
    Call Macro1
    Call dummy3
    frm.Label1.Width = fullWidth
    frm.Label2.Caption = "작업 진행율 : " & Format(1, "0.0%")
    Set frm = Nothing
End Sub


Sub dummy1()
    Dim sht As Worksheet: Set sht = Sheets.Add
    Dim rng As Range: Set rng = sht.Range("A1")
    For i = 1 To 3000
        DoEvents
        rng.Offset(i).Value2 = i
        lngProgress = lngProgress + 1
        frm.Label1.Width = fullWidth * (lngProgress / maxCount)
        frm.Label2.Caption = "작업 진행율 : " & Format(lngProgress / maxCount, "0.0%")
        If i = 1000 Then
            Debug.Print i
        End If
    Next i
End Sub

Sub dummy2()
    Dim sht As Worksheet: Set sht = Sheets.Add
    Dim rng As Range: Set rng = sht.Range("A1")
    For i = 1 To sht.Parent.Styles.Count
        DoEvents
        rng.Offset(i).Value2 = sht.Parent.Styles(i).Name
        lngProgress = lngProgress + 1
        frm.Label1.Width = fullWidth * (lngProgress / maxCount)
        frm.Label2.Caption = "작업 진행율 : " & Format(lngProgress / maxCount, "0.0%")
    Next i
End Sub

Sub dummy3()
    Dim sht As Worksheet: Set sht = Sheets.Add
    Dim rng As Range: Set rng = sht.Range("A1")
    For i = 1 To 2000
        DoEvents
        rng.Offset(i).Value2 = i
        lngProgress = lngProgress + 1
        frm.Label1.Width = fullWidth * (lngProgress / maxCount)
        frm.Label2.Caption = "작업 진행율 : " & Format(lngProgress / maxCount, "0.0%")
    Next i
End Sub


Sub Macro1()
    Sheets.Add
    Range("B4:J33").Select
    Selection.FormulaR1C1 = "=RAND()*100"
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
   
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

'### 코드 생략 ~~~


        lngProgress = lngProgress + 100
        frm.Label1.Width = fullWidth * (lngProgress / maxCount)
        frm.Label2.Caption = "작업 진행율 : " & Format(lngProgress / maxCount, "0.0%")
   

'### 코드 생략 ~~~

 

 

첨부

[레벨:5]맑은이슬

2013.02.04 10:36:09
*.247.145.54

감사 합니다,덕분에 많은 공부 하고 갑니다

profile

[레벨:30]아별

2013.02.04 12:09:07
*.104.126.21

도움이 되셨다니 다행입니다.

MaxCount를 설정하는게 관건이겠네요..

적절한 값으로 설정하는게 중요합니다.

즐거운 하루 되세요.. ^^

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40254
582 엑셀일반 도대체 외부연결 값은 통합문서 어디에 저장이 될까요? imagefile [2] [레벨:2]song786 2013-02-22 4624
581 엑셀일반 하위레벨 분류 표시 file [4] [레벨:3]읍내꽃미남 2013-02-20 3758
580 VBA 하나씩 검색하는 질문입니다. file [3] [레벨:4]신강현 2013-02-20 2722
579 엑셀일반 조건에 따라 데이터를 검색하거나 입력하시오..에 대한 질문드립니다 file [3] [레벨:1]화령월향 2013-02-20 2852
578 VBA 사진 매크로 질문입니다 ^^ [5] [레벨:2]광택입니다 2013-02-19 3711
577 날짜/시간 수식 날짜 함수 관련 문의합니다. file [3] [레벨:3]fmbass98 2013-02-19 2855
576 기타 안녕하세요 아별님^^ [1] [레벨:2]쿠라 2013-02-15 2672
575 엑셀일반 질문이 있습니다 셀수정시간을 표시 해주는..방법??? [4] [레벨:2]큰아빠에요 2013-02-09 3962
574 엑셀일반 그래프작성 file [1] [레벨:0]핑크푸우 2013-02-08 2915
573 날짜/시간 수식 엑셀 시간관련문의 file [1] [레벨:1]박주연 2013-02-08 3317
572 엑셀수식 월마다 불규칙한 자재사용량의 월사용량 file [1] [레벨:4]성투은자 2013-02-06 2877
571 엑셀일반 부분합 질문입니다. file [7] [레벨:5]정화 2013-02-06 3394
570 엑셀수식 이름 범위를 여러열에 걸쳐 지정 후 조건문 수식 만들기 file [1] [레벨:4]성투은자 2013-02-06 2933
569 엑셀수식 사용자목록 필요여부 file [2] [레벨:4]성투은자 2013-02-04 2931
568 엑셀일반 엑셀 질문 몇가지 드립니다. file [1] [레벨:1]나도그래짱 2013-02-03 4031
567 VBA vba 등록질문하겟습니다. file [6] [레벨:4]신강현 2013-02-02 3875
» VBA 진행바 응용(다른 메뉴 실행중) _ 작업 진행바 Progress bar file [3] [레벨:5]맑은이슬 2013-02-02 4214
565 엑셀수식 여러가지 조건을 고려한 수식을 한 셀 안에 표시하기 file [3] [레벨:4]성투은자 2013-02-01 3692
564 VBA 시트... [2] [레벨:1]마루 2013-02-01 3333
563 VBA 프로그램바 질문 _ 작업 진행바 Progress bar file [2] [레벨:4]신강현 2013-01-30 5998