MS Excel

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.

Zaslat odpověď >

Poki(30.5.2011 15:55)citovat#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 Sub

bach1(10.6.2011 13:49)citovat#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.

Poki(10.6.2011 14:06)citovat#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.UserName

Téma: Výpočty makrem???

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje