Excel: Pomoc s vytvořením formuláře

[mates1000]

Ahojky lidičky prosím mám prozbu potřebuju pomoc.

Dělám si datábazi zákazníků a potřeboval bych udělat nějaké vyskakovací okno do kterého bych mnou zvolené hodnoty zapsal a ony by se automaticky přiřadili do svých pozic psílám v tabulce. Vůbec si stím nevím rady s exelem moc neumím píchněte mi díky.

Kdyby to šlo udělat jako je to v souboru formulář akorát hodnoty jinačí i s tlačítkem formulář díky ještě jednou

Formular.xls

(48.5 KiB) Staženo 1171 x

Seznam sepsaných idí.xls

(69 KiB) Staženo 484 x

// Změna názvu tématu. Původní název "vyskakovací tabulka" svou nulovou informační hodnotou porušoval pravidla tohoto fóra
// mike007

[Reklama]

[navstevnik]

Pokud, jak pises, s excelem moc neumis, tak pichnout stim je udelat to.
Mozna ze pro tvou potrebu vystaci po mirne uprave tabulky (slucovaci pole) zabudovana funkcionalita Formular (Data>Formular), vice najdes v napovede k Excelu (podle verze Excelu - tema): Přidání záznamu do seznamu pomocí datového formuláře

[mates1000]

Tak to je ono co potřebuje jen aby mi vyskočila sama při otevření dokumentu

[navstevnik]

1. Datovy formular je vazan na konkretni list, takze nutno resit udalostni procedurou pri aktivaci listu, nelze pri otevreni dokumentu (byl by navazan na posledni aktivni list pred uzavrenim nebo by bylo nutno pri otevreni dokumentu stanovit, ktery list bude altivni)
2. Pro datovy formular seznam nemuze obsahovat ruzna sloucena pole, ktera jsou pouzita v priloze, ale musi obsahovat pouze hlavickovy radek bez sloucenych bunek.

[mates1000]

No už jsem se dopídíl vak ve visual basic si navrhnout ten konkrétní formulář jen ještě udělat aby se ostatní věci zařadili tak jak mají s tím taky asi nepomůžeš stačí jen navíst jak to udělat nebo kde najdu odkaz jak přiřadit konkrítní funkce. jinak dík

[navstevnik]

Tak se podivej treba na http://www.officir.ic.cz/excelentne.html - II.

[mates1000]

ahojky mám prozbu potřebuju dosadit hodnoty z texboxu přes tlačítka do buně tak aby po každé při vložení se odřádkovalo dík

[navstevnik]

Predpokladejme, ze ukladani je spusteno tlacitkem CommandButton1 na uzivatelskem formulari.
V modulu UserForm vloz proceduru CommandButton1_Click.
A nyni v procedure je potreba nalezt prvni volnou bunku v bloku ukladanych dat na listuxx, sloupec A:A, hlavicka je v A2, napr.:

Kód: Vybrat vše

' prvni volna bunka ve sloupci pocinaje A1, v A2 je hlavicka sloupce
  Dim LCll As Range
  Set LCll = Worksheets("listxx").Cells(1, "A").End(xlDown).Offset(1, 0)
  MsgBox LCll.Address


a ulozit obsah z textboxu, obsah textboxu je retezec, pokud je potreba pro dalsi vypocty cislo, nutno konvertovat (fce CInt,CLng,...) :

Kód: Vybrat vše

LCll.Value=TextBox1.Value
LCll.Offset(0,1).Value=CLng(TextBox2.Value)
...

Vynulovat TextBoxy:

Kód: Vybrat vše

TextBox1.Value=vbNullString
...

[mates1000]

Takže jestli to chápu dpbře mělo by to vypadat asi takhle:
potřebuju dosadit do buňky a1 na listu 1

Private Sub CommandButton1_Click()
' prvni volna bunka ve sloupci pocinaje A1, v A2 je hlavicka sloupce
Dim LCll As Range
Set LCll = Worksheets("listxx").Cells(1, "A").End(xlDown).Offset(1, 0)
MsgBox LCll.Address

End Sub

Private Sub TextBox1_Change()

End Sub

[navstevnik]

Nejdrive uvadis: "dosadit hodnoty z texboxu přes tlačítka do buně tak aby po každé při vložení se odřádkovalo", nyni uvazujes o pouziti udalostni procedury Sub TextBox1_Change(). Bylo by vhodne ujasnit si, co, kdy a jak ma byt vykonano.
Je nutni si uvedomit, ze udalostni procedura Sub TextBox1_Change() reaguje na kazdou zmenu byt jedineho znaku vcetne resetu obsahu v textboxu, takze neni vhodna pro zamysleny ucel zapisovat obsah textboxu do bloku bunek.

To co jsem uvedl v predchozi odpovedi, patri do jedne jedine procedury vykonane po stisku prislusneho tlacitka - Sub CommandButton1_Click() na uzivatelskem formulari: nalezt prvni volnou bunku v bloku cilovych dat, prenest obsah textboxu do bunky/ek (vcetne pripadne konverze retezce na pozadovany typ) a vyprazdneni obsahu textboxu a pripadne dalsi potrebne operace.

[mates1000]

Nene špatně jsem to napsal potřebuji z formuláře disadit údaje z texboxu přes CommandButton1do mnou zadávaných buněk
takže mám 5 texboxu s určitým názvem např. Jméno příjmení, telefon a tak. Stejné náyvy jsou v tabulce pod buňkou B6,C6,D6 a tak dále potřebuji když stisknu CommandButton1aby se to projevilo v konkrétní řádce a posléze se hned odřádkovalo připojuji soubor pro test

[navstevnik]

Z toho, cos napsal, nejsem dvakrat chytry.
Obsah textboxu je potreba po stisku tlacitka "Vlozit" na formulari ukladat postupne pocinaje radkem 6 (B6,C6,...) nebo do radku 4 a pak dal co?
Co znamena odradkovat - co se ma vykonat?
Zkus prosim jasne a jednoduse popsat, co pozadujes, protoze zatim mam dojem, ze ja o voze a ty o koze.
PS.: k cemu ma slouzit tlacitko1 na listu?
Jaky ma mit smysl procedura Workbook_Open vlozena do standardniho modulu2?
Sloucene bunky v radku 5 budou prinaset problemy pri identifikaci prvniho volneho radku pro ulozeni dat (pokud je toto cilem), bude zadouci zrusit sloucene radky nebo hlavickovy radek vlozit do radku 6.
Tabulka bude mit rozsah pouze do radku 21? v bunce C26 je funkce.
Pro vytvoreni databaze zakazniku je vhodne nevytvaret mesicni seznamy, ale jedinou dtatbazi a mesicni prehledy vytvaret treba aut. fitrem .