Ako zobraziť Spinner Keď je VBA makrá Beh

Najlepší spôsob , ako umožniť zvýšenie užívateľského alebo zníženie hodnoty v aplikácii Microsoft Excel pri spustení makra je pomocou číselníka . Makro sa bežne používa pre záznam postupnosť akcií , ktoré možno neskôr vykonaný spustením makra ručne alebo kliknutím na tlačidlo . Makro je vytvorený pomocou jazyka Visual Basic for Applications ( VBA ) , počítačové programovací jazyk používaný v aplikáciách Microsoft Office automatizovať rutinné úlohy, ako je napríklad zobrazenie kužeľ . Pokyny dovolená 1

Spustite program Microsoft Excel , kliknite na kartu " Vývojár " a kliknite na ikonu " Vložiť " na " Controls " panelu . Kliknite na tlačidlo " " a kliknite na tabuľku pridať nové príkazové tlačidlo . Kliknite na tlačidlo " Spin " tlačidlo pod " Ovládacie prvky ActiveX " a pridajte ju do tabuľky .
2

Pravým tlačidlom myši na číselník a kliknite na tlačidlo " Vlastnosti " sa zobrazí okno vlastností . Zvoľte " False " vedľa " Visible " majetku . Kliknite na ikonu " makrá " a typu " IncrementValues ​​" nižšie " názov makra . " Kliknite na tlačidlo " Vytvoriť " vytvoriť nové makro .
3

Skopírujte a vložte nasledujúci kód na vytvorenie " Aj keď ... Loop " a aktualizovať tabuľku s hodnotami zakaždým , keď sa používateľ klikne na tlačidlo číselník : .

Sheet1.SpinButton1.Visible = TRUE

robiť , keď ( počítadlo < > 10 )

Range ( " A1 " ) Zvoľte

Range ( " A1 " ) . Value = čítač

Range ( " A2 " ) . Vyberte klipart

Range ( " A2 " ) = " Spustenie makra hodnota .... "

Application.Wait Now + TIMEVALUE ( " 00:00:02 " )

DoEvents

Loop

Range ( " A1 " ) . Vyberte

Range ( " A1 " ) . Value = " "

Range ( " A2 " ) . Vyberte klipart

Range ( " A2 " ) . Value = " Makro skončila . "

Sheet1.SpinButton1.Visible = false

counter = 0
4

Pridajte nasledujúci riadok kódu na samom vrchole svojho modulu vytvoriť globálnu premenná:

Globálne počítadlo As Integer
5

Prepnite späť do programu Microsoft Excel a kliknite pravým tlačidlom myši " tlačidlo 1 " . Kliknite na tlačidlo " Priradiť makro " a kliknite na " IncrementValues ​​. " Kliknite na tlačidlo " OK " .
6

Pravým tlačidlom myši na tlačidlo číselník a kliknite na tlačidlo " Zobraziť kód " pre otvorenie modulu kódu VBA . Skopírujte a vložte nasledujúci kód do zvýšenie alebo zníženie globálnej hodnotu premennej :

Private Sub SpinButton1_SpinDown ( )

counter = counter - 1

End Sub

Private Sub SpinButton1_SpinUp ( )

counter = counter + 1

End Sub
7

Prepnite späť do programu Microsoft Excel a kliknite na tlačidlo " 1 " pre spustenie chodu makro a zobrazenie ovládacieho prvku číselník . Kliknite na šípku nahor tlačidla číselník pre zvýšenie alebo šípku nadol decrement . Makro bude skrývať kužeľ a ukončiť spustené , keď globálna premenná sa rovná 10.

• Predchádzajúca strana: Aký je rozdiel medzi jednotlivými čiastkovými Zákroky funkčných postupov 
• Ďalšia strana: Ako vypĺňanie Cell Po výbere Drop - Down