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: zip

5109_sesit1.zip (4kB, staženo 19x)

Zaslat odpověď >

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

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.