vložení vzorců pomocí VBA Vyřešeno

[crgo77]

Zdravím všechny,mám na všechny přítomné prosbu-nevěděl by někdo,jak vkládat pomocí VBA vkládat vzorce do buněk?
Přikádám soubor ve kterém to řeším-není to můj sešit,požádal mne o to můj známý.
Abych popsal problém:
Při otevření okna se do polí zapíšou hodnoty-do úplně levého se tuším vkládá datum,do dalších tří hodnoty. Jde o to,že by známý chtěl,aby se po zapsání tlačítkem zapsaly do vedlejších buněk i funkce odečtu - předposlední se odečte od poslední a rozdíl se zapsal. Vím jak funkci zapsat přímo do buňky ale absolutně netuším,jak to zadávat pomocí formuláře,proto tydy žádám o pomoc.

Děkuji všem za rady.

[Reklama]

[cmuch]

A co jen takto jednoduše.

Cells(DalsiRadek, 7) = TextBox3.Text - TextBox4.Text

[crgo77]

Zdravím,jde o to,že každé textové pole se zapisuje do jiného sloupce.Tahle metoda by možná šla,kdybych vložil další pole a načítal je při otevření okna.
Šlo mi o to,že neumím zadávat proměný vzorec do sloupce.
Matematické vzorce přímo do buňky umím zadat,ale problém je v tom,že jak se pomocí formuláře se budou přidávat další hodnoty,tak by se k tomu měly přidávat i ty vzorce,a to právě neumím vložit.Jsem ve VBA prakticky nováček a vytvořil jsem "pouhé" dva sešity kde se využívá VBA kódu,navíc to lze téměř vše najít na tomto fóru-všechno co jsem řešil,řešil jsem zde.
Přesto děkuji za pomoc a rady.

[Azuzula]

Ahoj, zapisování jednoduchých vzorců je hračka a v tvém případě třeba:

Kód: Vybrat vše

cells(dalsiradek,7).formulalocal = "=B" & dalsiradek & "-D" & dalsiradek

Zjišťování pozice nového řádku můžeš mít jen jednou hned na začátku makra, zjišťovat to 4x je docela zbytečnost, navíc když to zjišťuješ furt na stejným sloupci...
osobně bych spíš použila:

Kód: Vybrat vše

dalsiradek = Cells(Rows.Count, 1).End(xlUp).Row+1

Vždy najde první volný řádek nehledě na to, kolik prázdných buněk je na začátku. (Pokud jsem ale nepochopila skutečný účel tvého zápisu, omlouvám se.)

Jinak by bylo lepší si pořídit novější excel minimálně 2007. Tam už se dají naformátovat tabulky a po přidání řádku se automaticky vkládají i vzorce z buňky nahoře.

[crgo77]

Zdravím,děkuju za rady,vyzkouším a dám vědět.

Jak jsem psal,tenhle sešit mi dal známý abych mu to předělal.
Když si to vymýšlel,tak se mě ptal jak na to a já mu řekl o těchto stránkách,takže to našel někde tady.Programovat ve VBA taky neumí.

Každopádně děkuju za rady

[lubo.]

Vzorečky se vkládají jednodušeji v RC:

Kód: Vybrat vše

Cells(DalsiRadek, 6).FormulaR1C1Local = "=RC2-RC4"

[pavel.lasak]

Jak na vkládání vzorců do buněk pomocí VBA v Excel:
http://office.lasakovi.com/excel/vba-li ... excel-vba/

[crgo77]

Zdravím,nakonec jsem to vyřešil jak mi radil cmuch.
Přidal jsem do tabulky další textové pole a při otevření je načítám.Tím,že zapíšu mové hodnoty pak mohu provést potřebné počty.Děkuji všem za rady které jste mi zde dali.
Kamarád je s tím spokojený.
Ještě jednou děkuji