Excel VBA ComboBox
ComboBox on VBA: n käyttäjälomakeominaisuus , ne eroavat tekstiruuduista, koska tekstiruutuja käytetään sisältämään vain tekstiä ja sallimme käyttäjän syöttää minkä tahansa tyyppisiä tietoja, mutta yhdistelmäruuduilla rajoitamme käyttäjää haluamallemme vastaustyypille Siksi data on kunnossa, se on samanlainen kuin luettelotietojen validointi Excelissä.
ComboBoxia voidaan verrata avattavaan luetteloon Excelissä, laskentataulukoissa. Käytimme tietojen validointia avattavan valikon tarjoamiseen, mutta VBA: ssa on käyttäjälomakkeen ominaisuus, jossa sitä käytetään avattavan valikon tarjoamiseen missä tahansa käyttäjälomakkeessa, mutta jos haluamme käyttää yhdistelmäruutua excelissä, voimme Pääset siihen myös kehittäjäosastolta, josta voimme luoda yhdistelmäruutuja yksittäisille tai useille soluille.
Combo Box on hyvin samanlainen kuin avattava luettelo, joka meillä on Excel-laskentataulukossa; yhdistelmäruudun avulla voimme tallentaa ennalta määritetyt arvot, jotta käyttäjät tekevät valinnan luettelosta, joka on käytettävissä yhdistelmäruudussa. Combo Boxia käytetään yleensä käyttäjälomakkeiden kanssa osana käyttäjien saaman syötteen saamista.
Käyttäjälomakkeet ovat hyödyllisiä, mutta muiden lomakkeiden käyttäminen käyttäjälomakkeessa tekee käyttäjälomakkeesta niin erikoisen. Yksi työkaluista, joita käytämme usein käyttäjän lomakkeen työkaluna, on "ComboBox".
Top 2 tapaa luoda VBA ComboBox
# 1 - Suoran koodauksen käyttö
Ensin näemme, kuinka Combo Boxia käytetään laskentataulukon kanssa. Avaa mikä tahansa Excel-työkirjan laskentataulukko, siirry Kehittäjä-välilehdelle, ja tämän välilehden alla on työkalu nimeltä Lisää. Napsauta tätä, ja tämän alapuolella meillä on kaksi vaihtoehtoa: Active X Controls & Form Controls in Excel.
Valitse Active X Controls -kohdasta Combo Box.
Nyt voit piirtää tämän objektin mille tahansa laskentataulukolle.
Napsauta hiiren kakkospainikkeella yhdistelmäruutua ja valitse Ominaisuudet-vaihtoehto.
Kun valitset ominaisuuksia, se avaa valtavan luettelon yhdistelmäruudun ominaisuuksista.
Tässä yhdistelmäruudussa annamme luettelon osastojen nimistä, joten vaihda yhdistelmäruudun nimiominaisuudeksi DeptComboBox.
Nyt tähän yhdistelmäruutuun viitataan nimellä "DeptComboBox". Meidän on annettava ennalta määritetyt osastojen nimet, joten tässä minulla on luettelo osastojen nimistä.
Nyt meidän on lisättävä nämä arvot yhdistelmäruudun luetteloon. Voimme tehdä tämän kahdella tavalla, koodaamalla tai nimihallinnan kautta.
Kaksoisnapsauta Comboboxia, ja se vie sinut VBA-makromenettelyyn.
Mutta meidän on nähtävä nämä osastojen nimet, kun työkirja avautuu, joten kaksoisnapsauta "ThisWorkbook".
Valitse avattavasta luettelosta Työkirja.
Valitse vaihtoehdoista Avaa.
Nyt se luo alla olevan kaltaisen aihion.
Kirjoita tämän makron sisään alla oleva koodi.
Koodi:
Yksityinen alityökirja_Avaa () laskentataulukoilla ("Sheet1"). DeptComboBox .AddItem "Finance" .AddItem "Marketing" .AddItem "Merchandising" .AddItem "Operations" .AddItem "Audit" .AddItem "Client Service" loppuu loppuun Sub Sub
Ok, nyt tallenna ja sulje työkirja. Kun avaat työkirjan uudelleen, voimme nähdä siinä osastojen nimet.
# 2 - Käyttämällä UserFormia
Toinen tapa lisätä arvoja ComboBoxiin on käyttää käyttäjän muotoa. Anna ensin soluille nimi "osasto".
Siirry Visual Basic Editoriin ja lisää käyttäjän lomake INSERT-asetuksesta.
Nyt uusi käyttäjälomake on luotu.
Käyttäjälomakkeen vieressä näemme tästä työkalupakista "Toolbox", voimme lisätä "Combo Box".
Now the combo box is embedded in the user form. In this method, to open the properties option, select the combo box and press the F4 key to open the properties window.
Scroll down the properties tab and choose “Row Source.”
For this “Row Source,” enter the name that we had given to department name cells.
Now this combo box holds the reference of the name “Department.”
Now run the user form by using the run button.
Now we can see a list of department names in the combo box on the user form.
Practically user form is associated with a combo box, text box, and many other tools. We will create a simple data entry user form with a text box & combo box.
Create a user form like the below.
Create two Command Buttons.
Double click on the “SUBMIT” button it will open up below macro.
Inside this macro, add the below code.
Code:
Private Sub CommandButton1_Click () Dim LR As Long LR = Solut (Rivit.Määrä, 1) .End (xlUp) .Rivi + 1 solua (LR, 1) .Arvo = TextBox1.Arvo-solut (LR, 2) .Arvo = ComboBox1 Arvo End Sub
Kaksoisnapsauta nyt "PERUUTA" -painiketta ja lisää alla oleva koodi.
Luo nyt laskentataulukossa alla olevan kaltainen malli.
Suorita nyt käyttäjälomake, ja se avautuu näin.
Kirjoita työntekijän nimi ja valitse osaston nimi yhdistelmäluettelosta.
Napsauta Lähetä-painiketta ja näe taika.
Saimme arvot syötettyyn taulukkomuotoon.
Muistettavaa
- COMBO BOXilla on myös omat ominaisuutensa.
- Arvojen lisääminen luetteloon tapahtuu kahdella tavalla. Yksi on koodaustapa ja toinen on alueen nimiviite.
- COMBO BOX on yleensä osa käyttäjälomaketta.
