Stránka 1 z 1
makro-C/B*100 kazdu bunku
Napsal: 06 dub 2008 16:41
od marek26
dobry den. Pozrite si prosim tuto syntax.
Sub Makro1()
'
' Makro1 Makro
'
Range("C8").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)"
End Sub
Tu vidno ze sumu mi vypocita vzdy striktne do bunky C8, ako by znela presne do tohto zakomponovana syntax tak aby mi sumu vypocital prave pod poslednou bunkov v stlpci C. Vzdy mam variabilnu zostavu v pocte buniek a neni spravne ak mi striktne pocita sumu iba z 8 buniek. O tyzden moze byt pocet buniek napr. 22 a to znamena ze sumu by som potreboval hodit do bunky C23.
dakujem
Re: makro-excel suma pod posl.bunkov
Napsal: 06 dub 2008 18:27
od mikel
Pokud vyloženě netrváš na tom, aby jsi měl pod čísly vzorec, ale stačí ti suma (jenom číslo, ne vzorec), pak použij tohle makro:
Kód: Vybrat vše
Sub Soucet_sloupce()
Set Bunka = Range("C2")
Suma = 0
Do While Bunka <> ""
Suma = Suma + Bunka.Value
Set Bunka = Bunka.Offset(1, 0)
Loop
Bunka.Value = Suma
End SubMůžeš si pomocí panelu Formuláře vytvořit tlačítko a přižadit k němu to makro. Pak kliknutím na tlačítko se ti sečtou čísla ve sloupci C a je jedno kolik jich tam je.
Re: makro-excel suma pod posl.bunkov
Napsal: 06 dub 2008 19:22
od mike007
------------------------------------------------
Vítej na PC-Help !!!------------------------------------------------
Kód: Vybrat vše
Sub suma()
Dim hodnota As Long
hodnota = Cells(Rows.Count, "C").End(xlUp).Row + 1
Cells(hodnota, "C").Formula = "=SUM(C1:C" & hodnota - 1 & ")"
End SubPříště prosím vlož příspěvek do správného tématu - Kancelářské balíky...
//přesunuto
//mmm
Re: makro-excel suma pod posl.bunkov
Napsal: 06 dub 2008 21:43
od marek26
dakujem vam pomohlo mi to, ide to.
Viete mi poradit este ako by znela syntax na tento vzorec C/B*100 ak chcem hodnoty doplnat do stlpca D? Pocet buniek moze byt variabilny raz 20 zajtra 50.
dakujem
Re: makro-C/B*100 kazdu bunku
Napsal: 06 dub 2008 22:24
od mikel
Příklad syntaxe pro:
1. Přímý výpočet
Kód: Vybrat vše
ActiveCell = ActiveCell.Offset(0, -1) / ActiveCell.Offset(0, -2) * 1002. Vložení vzorce do buňky
Kód: Vybrat vše
ActiveCell.Formula = "=C" & ActiveCell.Row & "/B" & ActiveCell.Row & "*100"
Re: makro-C/B*100 kazdu bunku
Napsal: 06 dub 2008 22:49
od marek26
nevypocita to kazdu bunku v stlpci D
Re: makro-C/B*100 kazdu bunku
Napsal: 06 dub 2008 23:06
od mike007
Co si dát do buněk sloupce D vzorec?
např :
Re: makro-C/B*100 kazdu bunku
Napsal: 07 dub 2008 08:51
od marek26
2. Vložení vzorce do buňky
Kód: Vybrat vše
range D2.select[code]
[code]ActiveCell.Formula = "=C" & ActiveCell.Row & "/B" & ActiveCell.Row & "*100"[/quote]
tu sa prida vzorec aj vypocita bunku ale iba tu prvu, cely stlpik D by to malo vypocitat, prosim vas keby ste mi napisali syntax pre cely "D" pricom pocet buniek sa meni dnes 20 zajtra 50.
Dakujem
Re: makro-C/B*100 kazdu bunku
Napsal: 07 dub 2008 22:08
od mikel
Tak dobře, udělal jsem ti 1 makro pro sumu ve sloupci C a pro vzorce ve sloupci D.
Kód: Vybrat vše
Sub vzorce()
Set konec = Range("C2").End(xlDown)
konec.Offset(1, 0).Formula = "=SUM(C2:C" & konec.Row & ")"
Range("D2").Formula = "=C2/B2*100"
Range("D2:D" & konec.Row).FillDown
End Sub