Príklad, bez overenia validity vstupných dát v bunkách.
Příloha: 
36347_hodnoty-do-combobox-u.zip (19kB, staženo 30x)
citovat36347_hodnoty-do-combobox-u.zip (19kB, staženo 30x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: ComboBox
MS Excel
Téma: ComboBox 
Zaslal/a 16.5.2017 9:37
Ahoj,
mám na listě UserForm, který vyvolávám přes tlačítko CommandButton umístěné na listě.
V UserFormu mám 5x ComboBox s DropButtonClick.
Vyberu si data z ComboBoxu a dále stisknu na UserFormu Ok, a tam mám naprogramováno, že se mi data z ComboBoxů přepíší do jednotlivých buněk.
Jde udělat to, že při otevření ComboBoxu se mi načtou data, která už jsem zapsaná v buňkách, do kterých se má zapsat data z ComboBoxu?
Děkuji
(16.5.2017 12:47)#036357
Děkuji moc. To jsem přesně hledatl
Můžu se zeptat, jaký je rozdíl mezi tvým zápisem a tímto?
Private Sub CommandButton1_Click()
Range("E6").Value2 = ComboBox1.text
Range("F6").Value2 = ComboBox2.text
Range("G6").Value2 = ComboBox3.text
Range("H6").Value2 = ComboBox4.text
Range("I6").Value2 = ComboBox5.text
Range("J6").Value2 = ComboBox6.text
Range("K6").Value2 = ComboBox7.text
Unload UserForm2
End Sub
Private Sub UserForm_Initialize()
ComboBox1.text = Range("E6").Value2
ComboBox2.text = Range("F6").Value2
ComboBox3.text = Range("G6").Value2
ComboBox4.text = Range("H6").Value2
ComboBox5.text = Range("I6").Value2
ComboBox6.text = Range("J6").Value2
ComboBox7.text = Range("K6").Value2
End Subcitovat
Můžu se zeptat, jaký je rozdíl mezi tvým zápisem a tímto?
Private Sub CommandButton1_Click()
Range("E6").Value2 = ComboBox1.text
Range("F6").Value2 = ComboBox2.text
Range("G6").Value2 = ComboBox3.text
Range("H6").Value2 = ComboBox4.text
Range("I6").Value2 = ComboBox5.text
Range("J6").Value2 = ComboBox6.text
Range("K6").Value2 = ComboBox7.text
Unload UserForm2
End Sub
Private Sub UserForm_Initialize()
ComboBox1.text = Range("E6").Value2
ComboBox2.text = Range("F6").Value2
ComboBox3.text = Range("G6").Value2
ComboBox4.text = Range("H6").Value2
ComboBox5.text = Range("I6").Value2
ComboBox6.text = Range("J6").Value2
ComboBox7.text = Range("K6").Value2
End Subcitovat
Rozdiely sú 2:
1. Range() pracuje s textovou adresou bunky "E6", a Cells() pracuje so súradnicami Cells(6, 5) - šiesty riadok a piaty stĺpec.
2. Druhý rozdiel je to With Data. Vlastnosť Name listu "Data" je zmenená na Data. Teda CodeName listu je Data. Tá bodka pred ".Cells()" znamená, že sa jedná o objekt podriadený objektu vo With, teda je jasne dané, že sa pracuje s hodnotami v liste Data. Ak by tam tá bodka pred "Cells()" nebola, znamená to, že sa pracuje s práve aktívnym listom. Použitie zaleží na konkrétnej situácii, či sú dáta v liste Data, ktorý je zároveň aktívny alebo nie.
To isté s bodkou a With platí aj pre textovú adresáciu Range.citovat
1. Range() pracuje s textovou adresou bunky "E6", a Cells() pracuje so súradnicami Cells(6, 5) - šiesty riadok a piaty stĺpec.
2. Druhý rozdiel je to With Data. Vlastnosť Name listu "Data" je zmenená na Data. Teda CodeName listu je Data. Tá bodka pred ".Cells()" znamená, že sa jedná o objekt podriadený objektu vo With, teda je jasne dané, že sa pracuje s hodnotami v liste Data. Ak by tam tá bodka pred "Cells()" nebola, znamená to, že sa pracuje s práve aktívnym listom. Použitie zaleží na konkrétnej situácii, či sú dáta v liste Data, ktorý je zároveň aktívny alebo nie.
To isté s bodkou a With platí aj pre textovú adresáciu Range.citovat
Děkuji za vysvětlení. Spíše mi šlo o hlubší smysl.
Jestli to vyjadřuje to samé a není rozdíl například ve využití výpočtové kapacity PC.citovat
Jestli to vyjadřuje to samé a není rozdíl například ve využití výpočtové kapacity PC.citovat
Metóda Cells je trošku rýchlejšia, odhadom 10 % ...citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články