skus
Příloha: 
7770_aaa.rar (17kB, staženo 21x)
citovat7770_aaa.rar (17kB, staženo 21x)
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: neumím makra
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: neumím makra 
Zaslal/a lajos 24.3.2012 14:21
Dobrý den,mohl by někdo znalý udělat makro?Je tam UserForm na zadávání osobních dat.Je možné udělat,aby se na prvním listě data zapisovala do nového řádku?Stačilo by mi třeba je n dvě položky,abych věděl,jak na to a zbytek bych se pokusil sám.Třeba to pochopím.Dík za případnou pomoc.
Příloha: 7769_test.rar (23kB, staženo 19x)
7769_test.rar (23kB, staženo 19x) Uzamčeno - nelze přidávat nové příspěvky.Ahoj,tak jsem zkusil a dobrý...zatím OK...Můžem tímto stylem pokračovat?Teď bych potřeboval,aby ten UserForm zapsal některé položky(ne všechny)zároveň na list ŽÁDOST.Např.jméno a příjmení,RČ...zase by mi stačilo jen kousek,abych to mohl zkusit dodělat sám.Líp se to chápe.A děkuju za pomoc....kde se to učíte?:-)
Příloha: 7771_aaaa.rar (28kB, staženo 19x)
citovat7771_aaaa.rar (28kB, staženo 19x)ked uz toto zvladas tak by pre Teba nemal byt problem sa presmerovat na list ZADOST ( Sheets(2).Select ak je to druhy list pripadne mozes pouzit Sheets("ŽADOST").Select) dalej ides tak isto (Cells ......), potom sa vsak nezabudni vratit spet na list 1 (ak potrebujes, alebo by som vsetky veci zapisal na list 1 a nasledne sa prepol na list2 a zapisal veci ktore chces).
2. vecsinu som sa naucil tu na fore, nieco pomoze aj help ak si uz v niecom programoval aspon zaklady
v pripade otazok pis, radi pomozeme
Private Sub CommandButton1_Click()
Sheets(1).Select 'zvoli list 1
riadok = ActiveSheet.UsedRange.Rows.Count + 1 'najde prazdny riadok
'Cells (riadok, stlpec) - bunka kde prva premenna oznacoje riadok a druha stlpec kde sa dana bunka nachadza Cells(1,1) - bunka A1
Cells(riadok, 1).Value = TextBox16.Value ' UNI do bunky(riadok, 1) - druhy riadok je to A2 , zapise hodnotu Textboxu16
Cells(riadok, 2).Value = TextBox1.Value
Cells(riadok, 4).Value = TextBox3.Value
Cells(riadok, 5).Value = TextBox4.Value
Cells(riadok, 6).Value = TextBox25.Value
Cells(riadok, 7).Value = TextBox5.Value
Cells(riadok, 8).Value = TextBox6.Value
Cells(riadok, 9).Value = TextBox7.Value
Cells(riadok, 10).Value = TextBox8.Value
Cells(riadok, 11).Value = TextBox9.Value
Cells(riadok, 12).Value = TextBox10.Value
Cells(riadok, 13).Value = TextBox11.Value
Cells(riadok, 14).Value = TextBox12.Value
Cells(riadok, 15).Value = TextBox13.Value
Cells(riadok, 16).Value = TextBox15.Value
Cells(riadok, 17).Value = TextBox14.Value
Cells(riadok, 18).Value = TextBox17.Value
Cells(riadok, 19).Value = TextBox18.Value
Cells(riadok, 20).Value = TextBox24.Value
Cells(riadok, 21).Value = TextBox19.Value
Cells(riadok, 22).Value = TextBox21.Value
Cells(riadok, 23).Value = TextBox23.Value
Cells(riadok, 24).Value = TextBox20.Value
Sheets("Žadost").Select 'zvoli list Žadost
Cells(4, 3).Value = TextBox1.Value
'...............................................citovat
2. vecsinu som sa naucil tu na fore, nieco pomoze aj help ak si uz v niecom programoval aspon zaklady
v pripade otazok pis, radi pomozeme
Private Sub CommandButton1_Click()
Sheets(1).Select 'zvoli list 1
riadok = ActiveSheet.UsedRange.Rows.Count + 1 'najde prazdny riadok
'Cells (riadok, stlpec) - bunka kde prva premenna oznacoje riadok a druha stlpec kde sa dana bunka nachadza Cells(1,1) - bunka A1
Cells(riadok, 1).Value = TextBox16.Value ' UNI do bunky(riadok, 1) - druhy riadok je to A2 , zapise hodnotu Textboxu16
Cells(riadok, 2).Value = TextBox1.Value
Cells(riadok, 4).Value = TextBox3.Value
Cells(riadok, 5).Value = TextBox4.Value
Cells(riadok, 6).Value = TextBox25.Value
Cells(riadok, 7).Value = TextBox5.Value
Cells(riadok, 8).Value = TextBox6.Value
Cells(riadok, 9).Value = TextBox7.Value
Cells(riadok, 10).Value = TextBox8.Value
Cells(riadok, 11).Value = TextBox9.Value
Cells(riadok, 12).Value = TextBox10.Value
Cells(riadok, 13).Value = TextBox11.Value
Cells(riadok, 14).Value = TextBox12.Value
Cells(riadok, 15).Value = TextBox13.Value
Cells(riadok, 16).Value = TextBox15.Value
Cells(riadok, 17).Value = TextBox14.Value
Cells(riadok, 18).Value = TextBox17.Value
Cells(riadok, 19).Value = TextBox18.Value
Cells(riadok, 20).Value = TextBox24.Value
Cells(riadok, 21).Value = TextBox19.Value
Cells(riadok, 22).Value = TextBox21.Value
Cells(riadok, 23).Value = TextBox23.Value
Cells(riadok, 24).Value = TextBox20.Value
Sheets("Žadost").Select 'zvoli list Žadost
Cells(4, 3).Value = TextBox1.Value
'...............................................citovat
Misočko,ty odepisuješ moc rychle:-)Já jsem na to přišel,přesně jak jsi to napsal..Jde mi to pomalu,ale snad to půjde takhle dál..Pak už budu potřebovat jen dvě věci.A to,aby se dalo vyhledat určitého klienta a jeho všechny záznamy se nechaly prohlédnout v jednom komplexním formuláři.Něco jako UserForm,ale obráceně.No a pak ještě tisk vybraných listů..Je toho dost,viď?Zatím moc děkuju.citovat
nieco pre inspiraciu, mozo z toho aj nieco pouzijes
(funguje iba EDIT, ostatne som nestihol dorobit a uz to nieje priorita,tak uz asi ani nedokoncim, ale ten edit je premakany, myslim
)
(funguje iba EDIT, ostatne som nestihol dorobit a uz to nieje priorita,tak uz asi ani nedokoncim, ale ten edit je premakany, myslim
)Příloha: 7777_smed.rar (163kB, staženo 22x)
citovat7777_smed.rar (163kB, staženo 22x)Ahoj,
tak se mi zas nedaří.Na druhém listě Žádost se mi tedy povedlo naplnit ComboBox daty,ale nemůžu ho donutit aby je zapsal kam má.Pomůžete?
tak se mi zas nedaří.Na druhém listě Žádost se mi tedy povedlo naplnit ComboBox daty,ale nemůžu ho donutit aby je zapsal kam má.Pomůžete?
Příloha: 7813_test11.rar (41kB, staženo 18x)
citovat7813_test11.rar (41kB, staženo 18x)Private Sub CommandButton1_Click()
Cells(7, 6).Value = ComboBox1.Value
Cells(7, 8).Value = ComboBox2.Value
Cells(7, 10).Value = TextBox1.Value
End Subcitovat
Cells(7, 6).Value = ComboBox1.Value
Cells(7, 8).Value = ComboBox2.Value
Cells(7, 10).Value = TextBox1.Value
End Subcitovat
normálně by mělo fungovat něco jako
List2.Range("F7") = ComboBox1.Text
List2.Range("H7") = ComboBox2.Text
List2.Range("J7") = TextBox1.Text
M@citovat
List2.Range("F7") = ComboBox1.Text
List2.Range("H7") = ComboBox2.Text
List2.Range("J7") = TextBox1.Text
M@citovat
Chlapi,dík...dotaz:dva postupy a výsledek stejný,jak to?
Jestli je to blbá otázka,tak neodpovídejte
citovat
Jestli je to blbá otázka,tak neodpovídejte
citovat(29.3.2012 16:00)#007838
1. příklad je adresování pomocí souřadnic (řádek, sloupec).
2. příklad definování oblasti (obsahující jedinou buňku).
při použití ve smyčkách je lepší použít souřadnice, jednorázově pak oblast.
u prvku combobox vlastnost value a text = totéž.
M@citovat
2. příklad definování oblasti (obsahující jedinou buňku).
při použití ve smyčkách je lepší použít souřadnice, jednorázově pak oblast.
u prvku combobox vlastnost value a text = totéž.
M@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