< návrat zpět

MS Excel


Téma: Vzorec do VBA rss

Zaslal/a 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ěď >

#016713
avatar
textbox1.value = Application.WorksheetFunction.Sum(......)

nejak takto sa to myslim robicitovat
#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...citovat
#016715
avatar
tak to som prvykrat neprecital poriadne zadanie, s tymto Ti bohuzial nepomozem 7citovat
#016716
avatar
To neva, zkouším googlit, tak snad na to někde narazím...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 35x)
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íkycitovat
#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...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.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...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

Vynásobit hodnoty kurzem - Power Query

Alfan • 26.4. 7:56

Relativní cesta - zdroje Power Query

Alfan • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

elninoslov • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21