Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako vytvoriť pole formulára Výpočet pomocou VBA

Tvorba polia formulára automaticky vypočítajú v jazyku Visual Basic for Applications ( VBA ) program môže eliminovať ďalšie kroky pre užívateľa . VBA je možné použiť vo všetkých aplikáciách balíka Microsoft Office , ako je Excel . Môžete vytvoriť pole formulára pomocou ovládacie prvky textové pole na formulári užívateľ v programe Excel a aby boli automaticky vypočítajú pomocou " Zmeniť " udalosť pre každý z kontrol . " Zmena " udalosť spustí , ak je hodnota v poli sa zmení užívateľom . Veci , ktoré budete potrebovať v Microsoft Office Excel
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Office Excel , kliknite na kartu " Vývojár " a kliknite na " Visual Basic " pre spustenie okná VB Editor . Kliknite na " Vložiť " menu a kliknite na "User formulár " vložiť novú podobu . Kliknite na " textové pole " v okne " Toolbox " a kliknite na formulár pre pridanie nového ovládacieho prvku textové pole . Pridať ďalšie dve textové polia pomocou rovnakej techniky vytvoriť tri textové pole formulára pole .
2

Pravým tlačidlom myši na prvé textové pole a kliknite na tlačidlo " Zobraziť kód " otvorte editor jazyka Visual Basic . Stlačte tlačidlo " Ctrl " a " " zvoľte predvolený kód a stlačte tlačidlo " Delete " . Skopírujte a vložte nasledujúci kód vykonať výpočet zakaždým , nové číslo je zadané v prvej pole formulára a zobrazí výsledok v tretej pole formulára :

Dim výsledok ako DoublePrivate Sub TextBox1_Change ( ) Dim txtBoxTwo ako VariantMe.TextBox2.SetFocustxtBoxTwo = Me.TextBox2.Textresult = txtBoxTwo + Me.TextBox1.TextMe.TextBox3.SetFocusMe.TextBox3 = resultEnd Sub

Sims 3

skopírujte a vložte nasledujúci kód spustiť tento kód a vykonať výpočet a zobrazenie výsledku v treťom poli formulára zakaždým druhý pole formulára sa zmenili :

Private Sub TextBox2_Change ( ) Dim txtBoxOne Ako VariantMe.TextBox1.SetFocustxtBoxOne = Me.TextBox1.Textresult = txtBoxOne + Me.TextBox2.TextMe.TextBox3.SetFocusMe.TextBox3 = resultEnd Sub
4

Double - kliknite na " UserForm1 " od objektu okno Prieskumníka a stlačte " F5 " pre spustenie programu . Zadajte číslo v prvej a druhej polia formulára automaticky vypočítať a zobraziť výsledok v treťom poli formulára .

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené