Excel lietotāja veidlapas - Excel padomi

Satura rādītājs

Excel 97 ieviesa jaunas lietotāju veidlapas. Angļu valodā iemāciet man izveidot un izmantot saraksta lodziņu.

MrExcel nesen pabeidza pielāgotu lietojumprogrammu vienam no mūsu lasītājiem. Šajā Excel lietotnē lietotājs lapā ievadīs 150 datu punktus konkrētam detaļas numuram.

1. Noklikšķinot uz pogas, šis daļas numurs un saistītās datu vērtības tiek piesaistītas 2. lapas datu bāzei. Tas bija labi, bet pēc tam mums bija nepieciešams veids, kā lietotājs izsauc ierakstu no 2. lapas, lai viņi varētu pārskatīt ierakstus. Es gribēju ļaut lietotājam atvērt veidlapu ar nolaižamo lodziņu, kurā redzami visi lapas vienumi

2. Lietotājs varēja ritināt, izvēlēties vienumu, un tad es šīs vērtības novilku no 2. lapas līdz 1. lapai.

Tāpat kā daudzi no jums, es sāku rakstīt Excel makro programmā Excel 5.0. Šis viss makro redaktors programmā Excel 97 ir mazliet biedējošs. Šīs nedēļas padomam es soli pa solim parādīšu, kā izveidot saraksta lodziņu šim projektam. Šonedēļ uzmanība tiek koncentrēta tikai uz kombinēto lodziņu. Mērķauditorija ir kāds, kurš zina Excel makro pamatus, bet nekad nav izmantojis veidlapu, lai mijiedarbotos ar makro.

Pirmais solis: Es nomainīju esošos makro tā, lai, pievienojot ierakstu 2. lapai, makro nosauktu diapazonu, kurā ir daļu numuri, kurus nosaukt par “PartList”. Šūnā A1 ir virsraksts ar pirmo elementu šūnā A2. Es izmantoju komandu Beigt, lai atrastu pēdējo rindu:

LastRow = Range("A6000").End(xlUp).Row ActiveWorkbook.Names.Add Name:="PartList", RefersTo:="=Sheet2!$A$2:$A$" & LastRow

Otrais solis: izkārtojiet saraksta lodziņa veidlapu. Veiciet šīs darbības:

Sāciet Visual Basic redaktoru, nospiežot Alt-F11
Izvēlnē atlasiet Ievietot> Lietotāja forma. Redaktoram jānorāda tukša UserForm1.
Ja apakšējā kreisajā stūrī neredzat lodziņu Properties-UserForm1, nospiediet ikonu "Properties Window" - tas izskatās kā roka ar pirkstu, kas norāda uz baltu lapu.
4. ieraksts rekvizītu logā ir Paraksts. Pašlaik paraksts būs UserForm1. Logā Rekvizīti noklikšķiniet uz rūtiņas pa labi no Paraksts un ierakstiet jaunu veidlapas nosaukumu. Es saucu savu "Atlasīt daļas numuru pārskatīšanai". Es atstāju visus citus veidlapas rekvizītus noklusējuma stāvoklī.
Saraksta lodziņa izveide, izmantojot Userform
Atkal noklikšķiniet uz jebkuras vietas lietotāja veidlapas iekšpusē, un parādīsies vadības rīku lodziņš.
Vadības rīkjoslā atlasiet burtu A. Noklikšķiniet un velciet, lai veidotu etiķetes lodziņu formas augšdaļā. Pēc noklusējuma ir paraksts Label1. Vēlreiz noklikšķiniet tekstlodziņa iekšpusē, un jūs varat rediģēt parakstu. Ievietojiet instrukcijas lietotājam šeit: "Izvēlieties vienumu no zemāk esošā saraksta un noklikšķiniet uz Labi, lai pārskatītu vērtības".
Noklikšķiniet uz veidlapas, bet ārpus etiķetes lodziņa, un jūs atkal redzēsit vadības rīkjoslu. Augšējās rindas 4. vienums ir kombinētās lodziņa rīks. Noklikšķiniet uz šī un velciet userform, lai izveidotu kombinēto lodziņu. Šeit parādīsies detaļu numuru saraksts. Noklusējuma nosaukums ir ComboBox1.
Combobox rekvizīti
Rekvizītu logā tagad tiks parādītas ComboBox1 īpašības. Ritiniet uz leju pa rekvizītiem, līdz redzat īpašumu RowSource. Rekvizītam RowSource ierakstiet = Sheet2! PartList
Tagad varat veikt ātru pārbaudi, lai pārliecinātos, ka lietas darbojas pareizi. Noklikšķiniet uz lietotāja veidlapas virsraksta joslas, lai atlasītu visu veidlapu. Tagad noklikšķiniet uz ikonas "atskaņot" (izskatās, ka atskaņošanas poga ir jūsu videomagnetofonā). Jūs tiksiet atgriezts savā Excel darbgrāmatā, un jums būs mūsu vienkāršā lietotāja veidlapa. Noklikšķinot uz nolaižamās izvēlnes daļas numura, jums vajadzētu redzēt derīgu detaļu numuru sarakstu. Izvēlieties vienu, un tas paliks kombinētajā lodziņā. Pagaidām ne pārāk aizraujoši. Noklikšķiniet uz mazā X augšējā labajā stūrī, lai noraidītu lodziņu.
Atgriezieties Visual Basic redaktorā. Noklikšķiniet uz lietotāja veidlapas, lai parādītu vadības rīkjoslu. Noklikšķiniet uz CommandButton rīka un uzzīmējiet pogu. Mainiet parakstu uz Labi, izmantojot logu Properties - CommandButton1.
Uzzīmējiet otro pogu un iezīmējiet to ar Atcelt.
Mēs gandrīz esam pabeiguši. Piesaistīsim nedaudz koda pogai Atcelt. Ar peles labo pogu noklikšķiniet uz pogas Atcelt un atlasiet "Skatīt kodu". Redaktors iestatīs jūsu sub un end sub paziņojumus. Starp tiem ierakstiet vienu koda rindu:
```
UserForm1.Hide
```
Jā, tas ir viss, kas jāpiešķir kodam pogai. Lai atgrieztos pie lietotāja formas, projekta logā veiciet dubultklikšķi uz vārdiem UserForm1. (Vai neredzat projekta logu? Noklikšķiniet uz Project Explorer ikonas, kas atrodas pa kreisi no rekvizītu ikonas.)
Lai pabeigtu lietotāja veidlapu1, darīsim kaut ko ar pogu Labi. Kad lietotājs noklikšķina uz Labi, es vēlos, lai vērtība no saraksta lodziņa tiktu parādīta 1. lapas 1. šūnā A2, un pēc tam es vēlos sākt makro, kuru jau biju uzrakstījis ar nosaukumu ReviewItem. Ar peles labo pogu noklikšķiniet uz pogas Labi un atlasiet Skatīt kodu. Ievadiet šo kodu Private Sub CommandButton1_Click ():
```
Worksheets("Sheet1").Range("A2") = UserForm1.ComboBox1.Value UserForm1.Hide ReviewItem
```