OFF97: Jak zobrazit "Nyn� zpracov�n�" dialog p�i maker pou��v�

Tento �l�nek popisuje zobrazen� dialogov�ho okna Makro je spu�t�n na pozad�. ��elem zobrazen� dialogov�ho je upozornit u�ivatele, �e aplikace je zanepr�zdn�na p�i makra je spu�t�n.

P�i pou�it� metody zobrazen� pro zobrazen� UserForm, je zobrazen UserForm "mod�ln�"; to znamen�, u�ivatel mus� odpov�d�t UserForm p�ed pou�it�m sou��st aplikace. Po na�ten� UserForm ��dn� n�sledn� k�d se spust�, dokud je skryt� nebo vylo�en� UserForm.

Chcete-li zobrazit dialogov� okno a povolit makra, kter� m� b�t spu�t�no na pozad�, m��ete spustit makro v p��pad� aktivace UserForm. Kdy� je zobrazen UserForm, ud�losti Activate a bude makro spu�t�no, zat�mco UserForm je zobrazen na obrazovce. N�sleduj�c� kroky popisuj�, jak to lze prov�st:

Spole�nost Microsoft poskytuje uk�zky jazyka Visual Basic aplikace postupy pouze pro ilustraci bez ��dn� z�ruky nebo ml�ky, v�etn�, ale bez omezen� na ml�ky p�edpokl�dan�ch z�ruk obchodovatelnosti nebo vhodnosti pro ur�it� ��el. Procedury jazyka Visual Basic v tomto �l�nku jsou poskytov�ny "tak, jak je" a spole�nost Microsoft nezaru�uje, �e bylo mo�n� ve v�ech situac�ch. Zat�mco pracovn�ci technick� podpory spole�nosti Microsoft mohou vysv�tlit funkce ur�it� makro, nemohou tyto p��klady funkc� p�idan�ch ani jejich v�m umo�n� vytv��et makra tak, aby odpov�daly va�im pot�eb�m specifick�ch. Pokud zku�en�mi program�tory, m��ete cht�t konzultovat n�kter�ho poskytovatele �e�en� Microsoft. Poskytovatel� �e�en� nab�zej� �irokou �k�lu slu�eb zalo�en�ch na poplatek, v�etn� vytv��en� vlastn� makra. Dal�� informace o poskytovatele �e�en� Microsoft na ��sle informac� slu�by Microsoft na telefonn�m ��sle (800) 426 9400.

1. Spus�te nov� se�it v aplikaci Microsoft Excel 97 (nebo nov� dokument v aplikaci Microsoft Word 97).
2. Stisknut�m kombinace kl�ves ALT + F11 aktivovat editor jazyka Visual Basic.
3. V nab�dce Vlo�it klepn�te na p��kaz Module vlo�en� modulu do projektu.
4. Stisknut�m kl�vesy F4 zobrazte okno Vlastnosti.
5. Zm��te vlastnost n�zev modulu na Processing_Code.
6. V okn� modulu Processing_Code, zadejte n�sleduj�c�:

         Public Processing_Message As String
         Public Macro_to_Process As String
   
         Sub StartProcessing (msg As String, code As String)
   
            Processing_Message = msg    'Set the message that is displayed
                                        'in the dialog box
   
            Macro_to_Process = code     'Set the macro that is run after the
                                        'dialog box is active
   
            Processing_Dialog.Show      'Show the Dialog box
   
         End Sub
   						

7. V nab�dce Vlo�it klepn�te na p��kaz UserForm UserForm p�idat do projektu.
8. Stisknut�m kl�vesy F4 zobrazte okno vlastnost�. Zm�nit UserForm vlastnosti pro n�sleduj�c� nastaven�.

          Property           Setting
          -------------------------------------
   
          Name               Processing_Dialog
          Caption            (Leave Blank)
          StartUpPosition    2-CenterScreen

9. P�idejte jeden ovl�dac� prvek popisek UserForm. Zm��te vlastnost N�zev �t�tku na lblMessage.
10. Vyberte UserForm. V nab�dce Zobrazit klepn�te na k�d. V okn� k�du v seznamu procedur ud�losti Initialize vyberte a zadejte n�sleduj�c� v okn� k�d:

           Private Sub UserForm_Initialize()
    
              lblMessage.Caption = Processing_Message  'Change the Label
                                                       'Caption
    
           End Sub
    						

11. V okn� k�du klepn�te v seznamu procedur k ud�losti Activate a zadejte n�sleduj�c�:

           Private Sub UserForm_Activate()
    
              Me.Repaint                         'Refresh the UserForm
              Application.Run Macro_to_Process   'Run the macro
              Unload Me                          'Unload the UserForm
    
           End Sub
    						

12. V nab�dce Vlo�it klepn�te na p��kaz Module. V okn� K�d zadejte n�sleduj�c� k�d:

           Sub MyMacro()
    
              For x = 1 to 5000
                 Application.StatusBar = x   '5000 Iterations Changing
                                             'StatusBar
              Next
    
              Application.StatusBar = False  'Reset the StatusBar
    
           End Sub
    
           Sub Main()
    
              'Call the StartProcessing procedure to show the Processing_Dialog
              'with the label "Processing, Please Wait..." and execute
              'MyMacro.
    
              StartProcessing "Processing, Please Wait...", "MyMacro"
    
           End Sub
    						

13. Stiskn�te kl�vesy ALT + Q editoru jazyka Visual Basic opustit a vr�tit se zp�t do aplikace Microsoft Excel (nebo Microsoft Word).
14. V nab�dce N�stroje p�ejd�te na p��kaz Makro a klepn�te na p��kaz makra. Hlavn� vyberte makro a klepn�te na tla��tko spustit. Zobraz� se dialogov� okno Processing_Dialog.

Dialogov�m okn� je zobrazen, text na stavov�m ��dku v p��r�stc�ch aplikac� od 1 do 5000 � je zm�na text stavov�ho ��dku n�znak, �e makra je spu�t�na, kdy� je dialogov� okno na obrazovce.

Jak pou��vat dialogov� zpracov�n� v jin�ch se�itech

Toto dialogov� okno "Zpracov�n�, po�kejte pros�m" lze pou��t s makry v jin� se�ity nebo dokumenty, postupujte takto:

1. Aktivovat editor jazyka Visual Basic. V nab�dce Zobrazit klepn�te na p��kaz Project Explorer.
2. Vyberte projekt, kter� jste vytvo�ili v p�edchoz�ch kroc�ch.
3. Klepn�te prav�m tla��tkem my�i na UserForm "Processing_Dialog" a klepn�te na p��kaz Exportovat soubor. Ulo�it UserForm jako "Processing_Dialog.frm".
4. Klepn�te prav�m tla��tkem my�i na modul "Processing_Code" a klepn�te na p��kaz Exportovat soubor. Ulo�te modul jako "Processing_Code.bas".
5. Vra�te se do aplikace Microsoft Excel a otev�ete se�it, ve kter�m chcete pomoc� dialogov�ho okna "Zpracov�n�, please wait".
6. Aktivovat editor jazyka Visual Basic.
7. V nab�dce Soubor klepn�te na tla��tko Importovat soubor, "Processing_Dialog.frm" vyberte soubor a klepn�te na Otev��t.
8. V nab�dce Soubor klepn�te na p��kaz Importovat soubor. "Processing_Dialog.bas" vyberte soubor a klepn�te na Otev��t.
9. V nab�dce Vlo�it klepn�te na modul a zadejte n�sleduj�c� k�d v okn� k�d:

         Sub Main()
            StartProcessing "<message text>", "<macro name>"
         End Sub
   						

   kde argument < text zpr�vy > je textov� �et�zec, kter� chcete zobrazit v dialogov�m okn� Processing_Dialog a < maker n�zev > je makro, kter� chcete spustit po zobrazen� dialogov�ho okna. Dialogov� okno zobrazit a spustit makro ozna�eny "< maker n�zev >", spustit makro hlavn�.

Chcete-li zobrazit informace o tom, jak zobrazit do�asn� zpr�vou b�hem spu�t�n� makra v aplikaci Microsoft Excel verze 5.x nebo 7.x naleznete v n�sleduj�c�m �l�nku znalostn� b�ze Microsoft Knowledge Base: