< návrat zpět
MS Excel
Téma: Výpočty makrem??? 
Zaslal/a bach1 30.5.2011 15:09
Potřeboval bych vložit výpočty makrem do sloupce D , bude se násobit B*C. Dále potřebuju pod tu tabulku vložit nějakou sumu za sloupec D a orámovat ji, ale pokaždé to mám jinak dlouhé, takže by to chtělo makro a to si nezaradím, viz. příloha.
Pomůže někdo?
Děkuji za pomoc.
Příloha:
5109_sesit1.zip (4kB, staženo 19x)
Poki(30.5.2011 15:55)#005111
mozna pomuze tento kod:
Sub SECTI()
Dim i As Long
'vlozeni hodnot souctu na radek
For i = 2 To Cells(1, 1).End(xlDown).Row
Cells(i, 4) = Cells(i, 2).Value * Cells(i, 3).Value
Next i
'vlozeni sumarniho radku
Cells(i, 1) = "Celkem"
Cells(i, 4).Formula = "=SUM(" & Cells(2, 4).Address & ":" & Cells(i - 1, 4).Address & ")"
'ohraniceni sumarniho radku
With Range(Cells(i, 1), Cells(i, 4))
.Font.Bold = True
.BorderAround Weight:=xlMedium
End With
End Subcitovat
bach1(10.6.2011 13:49)#005235 
Díky Poki funguje na 1....
Potřebuju ještě maličkost pod tím vším např. ob 2 řádky napsat text...
Takže jak skončí řádek se sumou , nechat 2 řádky volné a napsat např.
Vytisknul: Martin Suchý
Vedoucí obchodního odd.
citovat
Poki(10.6.2011 14:06)#005236
Před
End Sub vloz tyto radky:
'vlozeni informace 2 radky pod SUMU
Cells(i + 3, 1) = "Vytisknul: Martin Suchý"
Cells(i + 4, 1) = "vedoucí obchodního odd."
Pokud bys místo jména 'natvrdo' chtel vlozit treba jmeno uzivatele (napsane ve Wordu), neni to problem...
Stacilo by vyměnit první dodatecný řádek za tento:
Cells(i + 3, 1) = "Vytisknul: " & Application.UserNamecitovat