Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte aplikáciu Microsoft Excel a vytvoriť nový prázdny zošit kliknutím v ponuke Súbor a výberom " nový . " Uložte súbor programu Excel ako " update_worksheet.xls . "
2
Majte zošit otvoriť a otvorte Editor jazyka Visual Basic pomocou klávesov Alt - F11 . Vytvoriť nový UserForm kliknutím v ponuke Vložiť a výberom " UserForm . " Názov UserForm " transferForm " zmenou atribút Name v ponuke Vlastnosti . Zmeňte atribút titulok na " transferForm . "
3
Pridať textové pole do formulára výberom textové pole z panela nástrojov , a pretiahnutím na miesto na formulári . Názov textového poľa " transferInput " v okne vlastností . Keď je panel nástrojov nie je otvorený , vyberte v ponuke Zobraziť a Nástroje .
4
Pridať tlačidlo aktualizácie do formulára výberom CommandButton z panela nástrojov , a pretiahnutím na miesto na formulári . Pomenujte CommandButton " transferButton " v okne vlastností a zmeniť atribút titulok na " Update list . "
5
Pridať zatváracie tlačidlo na formulári výberom druhý CommandButton z panela nástrojov a pretiahnutím do miesto na formulári . Pomenujte CommandButton " Zatváracie " v okne vlastností a zmeniť titulok atribút " Zavrieť formulár . "
6
Otvorte Visual Basic kódu editor dvojklikom na transferButton ( tlačidlo Aktualizovať ) . Pridať kód funkcie transferButton _CLICK ( ) , ktorá prenáša všetky dáta zadané do textového poľa na update_worksheet.xls listu , keď používateľ klikne na tlačidlo . Zatvorte jazyka editore kódu .
Private Sub transferButton_Click ( )
Dim transferWorksheet ako list
Set transferWorksheet = listy ( " Hárok1 " )
transferWorksheet . Bunky ( 1,1 ) . Value = Me.transferInput.Value
End Sub
7
Znovu Visual Basic kódu editor dvojklikom na Zatváracie ( blízko tlačidla ) . Pridať kód funkcie closeButton_Click ( ) , ktorá uzatvára formu , keď používateľ klikne na tlačidlo . Zatvorte jazyka editore kódu .
Private Sub closeButton_Click ( )
Vyložte mi
End Sub
8
spustiť kód formulára kliknutím na tlačidlo v ponuke spustenia a voľbou " Spustiť Sub /UserForm . " Zadajte dáta do vstupného poľa a kliknite na " transferButton . " Uistite sa , že sú dáta úspešne prenesené do prvého hodnoty buniek v hárku programu Excel , prepínanie do Excelu v prípade potreby . Uložte a zatvorte spustené UserForm .
9
Použite procedúru udalosti Excel otvorte UserForm , keď používateľ otvorí zošit v programe Excel . Otvorte Prieskumníka projektu a dvakrát kliknite na okno ThisWorkbook kód . Zadajte makro , ktoré otvorí formulár pri otvorení listu a ušetrite makro . Uložte a zavrite Visual Basic a update_worksheet.xls .
Private Sub Workbook_Open ( )
transferForm.Show
End Sub
10
Znovu " update_worksheet.xls . " UserForm transferForm sa otvorí . Zadajte nejaký text do poľa " transferInput " a kliknite na " transferButton . " Text zadaný do transferForm UserForm bude prevedená na prvú bunku v hárku s názvom Hárok1 v update_worksheet.xls .
Copyright © počítačové znalosti Všetky práva vyhradené