< návrat zpět

MS Excel

Téma: Vzorec do VBA rss

Zaslal/a Martin12345678 8.12.2013 20:24

Zdravím...
Potřeboval bych do TextBoxu dostat výsledek součtu buněk, ale tak, aby byl vzorec přímo v textboxu a zároveň se průběžně zobrazoval výsledek při otevřeném UF.
Vyhledal jsem si tento kód TextBox1.Value = Sheets("List1").Range("P375").FormulaLocal = "= Suma(H3:H5)"
, ale nedaří se mi jej uplatnit. Kde dělám chybu?

Zaslat odpověď >
misocko(8.12.2013 21:08)citovat#016713
avatar
textbox1.value = Application.WorksheetFunction.Sum(......)

nejak takto sa to myslim robi
Martin12345678(8.12.2013 21:17)citovat#016714
avatar
Tak tudy cesta nevede. Zkoušel jsem se závorkama i bez, přidat uvozovky atd., ale výsledek to nedá.
Já bych vlastně ani nepotřeboval aby se to sčítalo ve VBA, může textbox odkazovat klidně na buňku s výsledkem, ale pokud to udělám přes ControlSource tak se vzorec vždy vymaže...
misocko(8.12.2013 21:32)citovat#016715
avatar
tak to som prvykrat neprecital poriadne zadanie, s tymto Ti bohuzial nepomozem 7
Martin12345678(8.12.2013 22:03)citovat#016716
avatar
To neva, zkouším googlit, tak snad na to někde narazím...
Pavlus(8.12.2013 23:04)citovat#016717
avatar
Sice už jsem ti odpověděl, ale odepíši ještě jednou ;-), viz:
http://wall.cz/index.php?m=topic&id=16596#post-16597
P.

Viz příloha:
Příloha: zip16717_aktualizace_textboxu.zip (18kB, staženo 39x)
Martin12345678(8.12.2013 23:08)citovat#016719
avatar
No mě se to prve nepodařilo uplatnit. Tak jsem s tím dál nechtěl otravovat a toto jsem v projektu vynechal, ale teď jsem narazil na to, že to tam fakt potřebuji. Tak jsem se to snažil vymyslet přes vzorec ve VBA. Mrknu na příklad...díky
Martin12345678(9.12.2013 5:42)citovat#016720
avatar
Funguje perfektně.
Jak je důležitá ta část kódu na listu?
Private Sub Worksheet_Change(ByVal Target As Range)
'Userform1.TextBox1.Value = Application.Sum(Sheets("List1").Range("L24:L93"))
End Sub

Funguje mě to totiž bez toho na Office 2007, ale teď nebudu mít možnost to vyzkoušet na 2003...
Pavlus(9.12.2013 11:45)citovat#016727
avatar
Ten kód ti změní hodnotu za situace, kdy je formulář otevřen a provede se změna v listu.
Dle předchozího tématu předpokládám, že chceš mít formulář zobrazen modálně, takže je to nezbytné...
Zkus ten kód smazat, pak otevřít formulář, nechat ho otevřený, a změnit nějakou hodnotu v té oblasti součtu. Uvidíš, že to nepojede.
P.
Martin12345678(12.12.2013 8:42)citovat#016761
avatar
Měl jsi pravdu, neotestoval jsem všechny možnosti, jen první načtení výsledku a následná změna výsledku se již neaktualizovala...

Uživatelské menu

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

Menu

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.

On-line nástroje