< návrat zpět

MS Excel


Téma: součet buněk rss

Zaslal/a 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.

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#031156
Opičák
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
#031157
avatar
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 5 5citovat
#031158
Opičák
Použití makra ale nevidím jako nějaký přínos. Lze to řešit jen funkcí.citovat
#031159
avatar
Díky moc za pomoc. Musím se ještě mnoho učit .... :-)citovat
#031163
avatar
Ještě jedna otázka ohledně Msgbox: Dá se typ písma v msgboxu měnit ?citovat
#031166
Jeza.m
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
#031167
avatar
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
#031182
Jeza.m
Ukázka v příloze.
M@
Příloha: zip31182_suma.zip (14kB, staženo 42x)
citovat
#031201
avatar
Díky moc:-)citovat

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