Excel'de bir ilerleme çubuðu ile bir kullanýcý form görüntüleme

Bir Microsoft Visual Basic for Applications makrosu tamamlanmasý zaman alýyor varsa, makroyu doðru sürdüðünü göstergesi kullanýcýya vermek isteyebilirsiniz. Bu makalede, Microsoft Excel'de bir kullanýcý form ile bir ilerleme çubuðu oluþturma.

Microsoft, programlama örneklerini yalnýzca gösterim garanti olmadan saðlar. Bu içerir, ancak, satýlabilirlik veya belirli bir amaca uygunluk zýmni garantileri sýnýrlý deðildir. Bu makale, gösterilen programlama dilini ve oluþturmak ve yordamlar hata ayýklamak için kullanýlan araçlar ile bilgi sahibi olduðunuzu varsayar. Microsoft destek mühendisleri, belirli bir yordamýn iþlevselliðinin açýklanmasýna yardýmcý olabilir. Ancak, bunlar iþlevsellik saðlamak veya yordamlar, belirli gereksinimlerinizi karþýlayacak þekilde geliþtirmek amacýyla bu örnekleri deðiþtirmezler.

Kullanýcý formu oluþturma

Aþaðýdaki örnekte, Visual Basic yordam büyük bir alaný doldurur. rasgele bir sayý içeren hücreleri. Makro çalýþýyor gösterir göstergesi doðru.

1. Excel'de yeni bir çalýþma kitabý açýn.
2. Microsoft Office Excel 2003'te ve Excel'in önceki sürümlerinde týklatýn Araçlar, iþaret Makrove ardýndan Visual Basic Düzenleyicisi.
   
   Microsoft Office Excel 2007'yi týklatýn. Visual Basic içinde Kodu Grup hakkýnda Geliþtirici sekmesini týklatýn.
   
   Not Görüntülemek için Geliþtirici Þerit'te sekmesinde, aþaðýdaki adýmlarý izleyin:
   1. Týklatýn, Excel 2007'yi baþlatýn Microsoft Office düðmesive ardýndan Excel Seçenekleri.
   2. Ýçinde Excel Seçenekleri iletiþim kutusunda'ý týklatýn Popülerve seçmek için týklatýn Þeritte Geliþtirici sekmesini göster onay kutusunu seçin.
3. Üzerinde Ekle menüsünde,'ý týklatýn UserForm.
4. Çizme bir Etiket kullanýcý form üzerinde kontrol eder.
5. Aþaðýdaki özelliklerini deðiþtirme Etiket için kontrol Aþaðýdaki deðerler:

      Property        Value
      --------------------------------------------
      Caption         Now updating. Please wait...
   					

   Not Varsa Özellikler pencere görünür deðil,'ý týklatýn Özellikler penceresi üzerinde Görünüm menü.
6. Çizme bir Çerçeve kullanýcý form üzerinde kontrol eder.
7. Aþaðýdaki özelliklerini deðiþtirme Çerçeve için kontrol Aþaðýdaki deðerler:

       
      Property        Value
      -----------------------------
      Name            FrameProgress
   					

8. Çizme bir Etiket üzerinde kontrol Çerçeve Denetim.
9. Aþaðýdaki özelliklerini deðiþtirme Etiket için kontrol Aþaðýdaki deðerler:

       Property        Value
       -------------------------------------
       Name            LabelProgress
       BackColor       &H000000FF&
       SpecialEffect   fmSpecialEffectRaised
   					

Makro kodunu yazýn

1. Kullanýcý formunu açmak için çift týklatýn Kodu kullanýcý form penceresi.
2. Modüle aþaðýdaki kodu yazýn UserForm_Activate olay:

   Private Sub UserForm_Activate()
       ' Set the width of the progress bar to 0.
       UserForm1.LabelProgress.Width = 0
   
       ' Call the main subroutine.
       Call Main
   End Sub
   					

3. Üzerinde Ekle menüsünde,'ý týklatýn Modülü.
4. Ýçinde Kodu Modül penceresinde aþaðýdaki kodu yazýn:

   Sub ShowUserForm()
       UserForm1.Show
   End Sub
   
   Sub Main()
       Dim Counter As Integer
       Dim RowMax As Integer, ColMax As Integer
       Dim r As Integer, c As Integer
       Dim PctDone As Single
   
       Application.ScreenUpdating = False
       ' Initialize variables.
       Counter = 1
       RowMax = 100
       ColMax = 25
   
       ' Loop through cells.
       For r = 1 To RowMax
           For c = 1 To ColMax
               'Put a random number in a cell
               Cells(r, c) = Int(Rnd * 1000)
               Counter = Counter + 1
           Next c
   
           ' Update the percentage completed.
           PctDone = Counter / (RowMax * ColMax)
   
           ' Call subroutine that updates the progress bar.
           UpdateProgressBar PctDone
       Next r
       ' The task is finished, so unload the UserForm.
       Unload UserForm1
   End Sub
   
   Sub UpdateProgressBar(PctDone As Single)
       With UserForm1
   
           ' Update the Caption property of the Frame control.
           .FrameProgress.Caption = Format(PctDone, "0%")
   
           ' Widen the Label control.
           .LabelProgress.Width = PctDone * _
               (.FrameProgress.Width - 10)
       End With
   
       ' The DoEvents allows the UserForm to update.
       DoEvents
   End Sub
   					

5. Excel'e geri dönün.
6. Excel 2003'te ve Excel'in önceki sürümlerinde, iþaret Makro üzerinde Araçlar menüsünü ve sonra Makrolar.
   
   Excel 2007'de,'ý týklatýn. Makrolar içinde Kodu Grup hakkýnda Geliþtirici sekmesini týklatýn.
7. Ýçinde Makro iletiþim kutusunda, seçmek için týklatýn ShowUserFormve ardýndan Çalýþtýr.

Kýrmýzý ilerleme çubuðu içeren bir iletiþim kutusu görüntülenir. Ýlerleme çubuðu olarak artýrýr , Ana çalýþma sayfasýndaki hücreleri altyordamýný doldurur.

, ShowUserForm yordam kullanýcý formu gösterir. Baðlý olduðu yordamý Etkinleþtirme Olay, kullanýcý form çaðrýlarýn Ana alt yordam. , Ana alt yordam hücrelerin rasgele sayýlarla doldurur. Ayrýca, alt yordam çaðrýlarý UpdateProgressBar güncelleþtirmeleri altyordamýný Etiket kullanýcý form üzerinde kontrol eder.

Not Bu tekniði kullandýðýnýzda, makronuzun hedeflenen görevlerinin tamamlanmasý için sadece biraz uzun sürer.