MS Excel

Téma: součet buněk

Zaslal/a mikar 19.4.2016 13:10

Ahoj všem. Řeším jeden pro mě problém.
Potřebuji vytvořit makro, které by sečetlo hodnoty (čísla) ve sloupci A a následně tento součet (výsledné číslo) zobrazit v Msgboxu jako informaci. Pomůže mi prosím někdo s řešením ?
Děkuji všem.

Zaslat odpověď >

Opičák(19.4.2016 13:40)#031156

Sub součetA()
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
MsgBox "Součet sloupce A:A je " & Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(LastRow, 1)))
End Subcitovat

veny(19.4.2016 13:45)#031157

jelikož VBA vůbec neovládám tak jsem si zkusil jenom pro sebe, použil C1 buňku jako výsledek součtu sloupce a nechal si zobrazit výslednou hodnotu

MsgBox "Součet ve sloupci A je: " & Range("C1").Value

vím že jsou tu odborníci, ale já to zkusil tak jak bych to dělal s neznalostí VBA

citovat

Opičák(19.4.2016 13:56)#031158

Použití makra ale nevidím jako nějaký přínos. Lze to řešit jen funkcí.citovat

mikar(19.4.2016 16:06)#031159

Díky moc za pomoc. Musím se ještě mnoho učit .... :-)citovat

mikar(20.4.2016 9:27)#031163

Ještě jedna otázka ohledně Msgbox: Dá se typ písma v msgboxu měnit ?citovat

Jeza.m(20.4.2016 11:20)#031166

Pokud vím, tak ne, ale můžeš si udělat vlastní userform a místo msgboxu volat tento formulář, kdy součet budeš dávat do nějakého labelu na tomto formuláři.

M@citovat

mikar(20.4.2016 13:00)#031167

Ahoj a díky zaodpověď. Zkoušel jsem vytvořit formulář, ale nevím jakým způsobem do labelu dostat výsledek např. z buňky. Za "malou" nápovědu by jsem byl opravdu vděčný ... :-)citovat

Jeza.m(21.4.2016 10:48)#031182

Ukázka v příloze.
M@

Příloha: zip

31182_suma.zip (14kB, staženo 42x)

citovat

mikar(22.4.2016 10:46)#031201

Díky moc:-)citovat

Uživatelské menu

Nejste přihlášen(a)

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.