Makro v Exlelu
Ahoj, ako toto zopakujem 52 krát, s tým, že výsledky budú v "F3" a F4", "I3" a "I4"...:
Sub SumBlack()
c3 = 0
cerna = 0
For n = 7 To 1000
barva = Range("b" & n).Font.Color
hodnota = Range("b" & n)
If Not IsNumeric(hodnota) Then hodnota = 0
If barva = cerna Then c3 = c3 + hodnota
Next
Range("c4") = c4
c4 = 0
cerna = 0
For n = 7 To 1000
barva = Range("c" & n).Font.Color
hodnota = Range("c" & n)
If Not IsNumeric(hodnota) Then hodnota = 0
If barva = cerna Then c4 = c4 + hodnota
Next
Range("c4") = c4
End Sub
Změna předmětu, původně: Makro
Je to zde http://pc.poradna.net/question/view/297595-sucet-v- excel-i
(LaKr) (Kráťa)
medzi vlozit a odpovedet na dotaz je dost velka medzera, takze preklik to asi nebol:
http://pc.poradna.net/question/view/297595-sucet-v- excel-i
Nebol to preklik, len som nevedel, že po zadaní odpovede sa otázka presunie na začiatok, ale to mi problém nevyrieši...
odpovezeno v dotazu súčet v excel-i
Je to zde http://pc.poradna.net/question/view/297595-sucet-v- excel-i (LaKr) (Kráťa)