Monisarakkeinen yhdistelmälaatikko

Alla tarkastelemme ohjelmaa Excel VBA joka luo Userformin, joka sisältää monisarakkeinen yhdistelmälaatikko .

Luomamme Userform näyttää seuraavalta:

Voit luoda tämän käyttäjämuodon suorittamalla seuraavat vaiheet.

Kuinka voin lisätä avattavan valintaruudun Exceliin

1. Avaa Visual Basic Editor . Jos Project Explorer ei ole näkyvissä, valitse Näytä, Project Explorer.

2. Napsauta Insert, Userform. Jos Työkaluryhmä ei näy automaattisesti, napsauta Näytä, Työkaluryhmä. Näytön asetukset on määritettävä alla kuvatulla tavalla.

3. Lisää tarra, yhdistelmäruutu ja komentopainikkeet. Kun tämä on suoritettu, tuloksen tulee olla yhdenmukainen aiemmin näytetyn Userform -kuvan kanssa. Luo esimerkiksi yhdistelmäruudun ohjausobjekti napsauttamalla Työkalupakissa olevaa Yhdistelmäruutua. Seuraavaksi voit vetää yhdistelmäruudun Userformissa.

4. Voit muuttaa säätimien nimiä ja kuvatekstejä. Nimiä käytetään Excel VBA -koodissa. Tekstitykset ovat niitä, jotka näkyvät näytölläsi. On hyvä käytäntö muuttaa säätimien nimiä, mutta se ei ole välttämätöntä, koska tässä esimerkissä on vain muutamia säätimiä. Jos haluat muuttaa Userform-, tarra- ja komentopainikkeiden kuvatekstejä, napsauta Näytä, Ominaisuudet -ikkuna ja napsauta jokaista ohjainta.

5. Tuo Userform näkyviin asettamalla a komentopainiketta laskentataulukkoon ja lisää seuraava koodirivi:

kuinka muuntaa aika Excelissä

Aiomme nyt luoda Sub UserForm_Initialize. Kun käytät Näytä -menetelmää Userformissa, tämä osa suoritetaan automaattisesti.

6. Avaa Visual Basic Editor .

7. Napsauta Project Explorerissa hiiren kakkospainikkeella UserForm1 ja valitse sitten Näytä koodi.

8. Valitse Userform vasemmasta avattavasta luettelosta. Valitse Alusta oikeasta avattavasta luettelosta.

9. Lisää seuraavat koodirivit:

Selitys: Ensimmäinen koodirivi asettaa yhdistelmäruudun sarakkeiden lukumääräksi 2. Sen sijaan, että määrittäisit sarakkeiden määrän ajon aikana, voit määrittää tämän asetuksen myös suunnitteluaikana. Tämän saavuttamiseksi napsauta hiiren kakkospainikkeella yhdistelmäruudun ohjausobjektia, valitse Ominaisuudet ja aseta ColumnCount -ominaisuudeksi 2. Seuraavaksi ilmoitamme ja alustamme kaksiulotteinen matriisi . Viimeinen koodirivi määrittää taulukon yhdistelmäruudulle.

Olemme nyt luoneet Userformin ensimmäisen osan. Vaikka se näyttää jo siistiltä, ​​mitään ei vielä tapahdu, kun napsautamme Userformin komentopainikkeita.

10. Kaksoisnapsauta Project Explorerissa UserForm1.

11. Kaksoisnapsauta OK -painiketta.

12. Lisää seuraavat koodirivit:

Huomautus: nämä koodirivit sulkevat Excel VBA -käyttölomakkeen ja näyttävät valitun kohteen ja tyylilajin. On Error Resume Next -lauseke jättää huomiotta virheen, kun käyttäjä täyttää oman elokuvansa (tässä tapauksessa lajityyppiä ei ole saatavilla).

13. Kaksoisnapsauta Peruuta -painiketta.

14. Lisää seuraava koodirivi:

Tulos, kun valitset Nopeus ja napsautat OK.

kuinka luoda pivot-taulukko Excel 2013: ssa