makro-C/B*100 kazdu bunku

[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

[Reklama]

[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 Sub

Můž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.

[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 Sub

Příště prosím vlož příspěvek do správného tématu - Kancelářské balíky...

//přesunuto

//mmm

[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

[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) * 100

2. Vložení vzorce do buňky

Kód: Vybrat vše

ActiveCell.Formula = "=C" & ActiveCell.Row & "/B" & ActiveCell.Row & "*100"

[marek26]

nevypocita to kazdu bunku v stlpci D

[mike007]

Co si dát do buněk sloupce D vzorec?
např :

Kód: Vybrat vše

=KDYŽ(B1=0;"";C1/B1*100)

[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

[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