MS Excel

Téma: VBA zápis dat

Zaslal/a
Tguun - Čtenář
26.7.2010 15:24

Ahoj programátoři,

řeším problém s aplikací VBA. Vytvořil jsem si úhledný formulář, který obsahuje ComboBox, TextBox, zaškrtávací políčka. Ke každému takovému boxu je přiřazen název. Tyto názvy jsou pak seřazeny do sloupců v listě Excelu.
Rád bych se dozvěděl jak zajistit, aby se informace, které vyplním do formuláře přepsaly do onoho listu a konkrétního sloupce, který je mu přiřazen. Každé nové vyplnění by založilo nový řádek s těmito informacemi.

Děkuji za radu. Věc na první pohled jednuduchá, ale pro začátečníka neřku-li nemožná.

I hope in your success.

Zaslat odpověď >

odpověděl(a)
Jeza.m - Čtenář
(26.7.2010 15:42)

Nevím jak to dělají jiní, ale já mu musím říct co do kterého sloupce (číselně) zadat a jelikož nechci vše jako text, tak jdu ještě přes proměnné (P_... = pole formuláře, ..._X je proměnná:

Public Sub zapis()
Dim Jmeno_x As String
Dim Pocet_x As Single
Dim Jednotka_x As String
Dim Expedice_x As Date

Radek_a = List1.UsedRange.Rows.Count + 1

Jmeno_x = P_Jmeno
Pocet_x = P_Pocet
Jednotka_x = P_Jednotka
Expedice_x = P_Expedice

'Co do kterého sloupce (číselně sloupce 1,9,10,11)
Cells(Radek_a, 1) = Jmeno_x
Cells(Radek_a, 9) = Pocet_x
Cells(Radek_a, 10) = Jednotka_x
Cells(Radek_a, 11) = Expedice_x
End Sub

pokud by prvek na formuláři měl stejný název jako hlavička sloupce, tak by místo čísla sloupce šla použít funkce pozvyhledat, což by bylo univerzálnější v případě vložení nového sloupce, ale to moc neřeším :-).

M@

odpověděl(a)
Tguun - Čtenář
(27.7.2010 11:13)

Ježo.M děkuji za rychlou reakci a řešení. I přes to se mi nepodařilo dohodit kód tak, aby to fungovalo. Přikládám tedy soubor, kde mi to můžeš nastavit přímo. Formulář je vytvořen. Díky moc.
Příloha: file 2003_Zápis dat.zip

odpověděl(a)
Jeza.m - Čtenář
(27.7.2010 13:40)

Posílám v příloze příklad.

Jinak už jsem viděl úhlednější formulář :-)
Víš o tom že i prvky na formuláři si můžeš pojmenovat, třeba místo Combobox1 dát Prijmeni - ono pak se v tom lepe orientuje (ne uživateli, ale hlavne tvurci) ;-)

M@
Příloha: file 2005_Zápis dat.zip