Zavrieť
Upraviť
Hlavné
- Auto Moto [x]
- Cestovanie [x]
- Deti [x]
- Domácnosť [x]
- Elektronika [x]
- Foto [x]
- Hoby [x]
- Hudba [x]
- Iné [x]
- Kaviareň Porady [x]
- Kultúra [x]
- Mobily a Tablety [x]
- Móda [x]
- Mzdy a personalistika [x]
- Neziskové organizácie [x]
- Počítače [x]
- Podnikanie [x]
- Porada (o stránke Porada) [x]
- Právo [x]
- Recenzie [x]
- Recepty [x]
- Software [x]
- Stavba [x]
- Šport [x]
- Účtovníctvo a dane [x]
- Vzdelávanie [x]
- Záhrada [x]
- Zdravie [x]
- Zvieratá [x]
Otázku
Pravidlá
Položte novú otázku, ak:
- Potrebujete odpoveď (na diskusiu slúžia Debaty).
- Ste nenašli odpoveď cez vyhľadávanie
Tip
Pravidlá a tipy
Vaše rady, tipy a vedomosti!
Tip môžete napísať stručne ale môže ísť aj o dlhší článok.
Ak chcete zdieľať cudzí článok, zdieľajte link.
Tip môžete napísať stručne ale môže ísť aj o dlhší článok.
Ak chcete zdieľať cudzí článok, zdieľajte link.
Zdieľaj link
Pravidlá a tipy
Zdieľajte s nami link na články z iných webov.
Komentáre k linku budú zoradené podľa počtu hlasov,
môžete využiť aj filter komentárov a zobraziť
len komentáre od členov ktorých na Porade sledujete.
Komentáre k linku budú zoradené podľa počtu hlasov,
môžete využiť aj filter komentárov a zobraziť
len komentáre od členov ktorých na Porade sledujete.
Sledovať
Makro
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
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
- Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
- Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
- Odpoveď má byť viac o faktoch ako o názoroch.
Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
❤ Buďte priateľskí ❤
Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
Usporiadať podľa času 
Príloha 30561 Neviem, či som to dobre opravil. Skontroluj si to.
Alebo druhý spôsob už z predchádzajúceho príkladu.
spetko 
Alebo druhý spôsob už z predchádzajúceho príkladu.
Naposledy upravil marjankaj : 13.12.08 at 01:16 Dôvod: úprava sucty-ja2.xls - netreba stlačiť "CTRL+ALT+F9"
-
spetko.xls
(29.0 KB, 15 videní)
- sucty-ja2.xls
(39.0 KB, 6 videní)
Makro
Vieš, kto pozná odpoveď?
Porady, ktoré by vás mohli zaujímať
Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.32
Odpovedáte na otázku?
Zoznámte sa s novými pravidlami.Áno, poznám odpoveď.
Každý môže napísať 1 odpoveď, neskôr ju môže vylepšiť. Pokračovať v odpovedi
Nie, chcem sa ešte spýtať na upresnenie otázky.
Upresnenie si vyžiadajte v komentári otázky (nájdete pod otázkou). Vyžiadať upresnenie
Copyright © PORADA.sk, s.r.o. - žiadna časť stránky nemôže byť rozširovaná, alebo reprodukovaná bez predchádzajúceho súhlasu
