< návrat zpět

MS Excel


Téma: VBA zápis dat rss

Zaslal/a 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. 4

Zaslat odpověď >

#001992
Jeza.m
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@citovat
#002003
avatar
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: zip2003_zapis-dat.zip (13kB, staženo 21x)
citovat
#002005
Jeza.m
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: zip2005_zapis-dat.zip (13kB, staženo 26x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Relativní cesta - zdroje Power Query

Alfan • 25.4. 10:49

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 10:47

Relativní cesta - zdroje Power Query

Alfan • 25.4. 10:40

Relativní cesta - zdroje Power Query

Alfan • 25.4. 9:44

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 9:02

Vynásobit hodnoty kurzem - Power Query

elninoslov • 25.4. 8:40

Relativní cesta - zdroje Power Query

Alfan • 25.4. 8:04