MS Excel

Téma: vd code

Zaslal/a
lamaxx - Čtenář
8.7.2010 9:58

Ahoj,
potřeboval bych pomoci s kodem VB. Potřebuji ho vytvořit tak,aby mi projel celý sloupec D a v případě, že alespń v jednom řádku bude hodnota "ne", napsal např. do řádku f3 nějakou informaci a pokud by to šlo, podbarvil i pole na červenou.
Díky za každou radu,
t.

Zaslat odpověď >

odpověděl(a)
Jeza.m - Čtenář
(8.7.2010 13:03)

Ahoj,

třeba takto:
For rd = 1 To ActiveSheet.UsedRange.Rows.Count
If UCase(Cells(rd, 4)) = "NE" Then
Cells(rd, 4).Interior.Color = vbRed
If Cells(3, 6) <> "" Then Cells(3, 6) = Cells(3, 6) & ";D" & rd Else Cells(3, 6) = "D" & rd
End If
Next
M@

odpověděl(a)
lamaxx - Host
(8.7.2010 13:29)

Super, diky! Jen jeste maly dotazek-rd je zkratkou pro co? Potreboval bych tam par veci zmenit. Potrebuju aby se podbarvila pouze bunka F3 a byla tam veta např. \"test neuspesny\". A dale-dost zasadni-potrebuju aby se to vypsalo hned jak se hodnota \"ne\" objevi, nikoliv az po tom,co rucne spustim makro.a navazat to na tlačitko se mi moc nechce :(

odpověděl(a)
Jeza.m - Čtenář
(8.7.2010 13:53)

rd mi symbolizuje číslo řádku.
Kdy se tam ta hodnota objeví, někdo ji napíše, nebo je to výsledek vzorce?

Asi by se to mohlo spouštět při:
je-li hodnota zadávána ručně.
Private Sub Worksheet_Change(ByVal Target As Range)
v tomto případě není nutno prohledávat celý sloupec, ale jen nově zadanou hodnotu.

je-li hodnota výsledkem vzorce.
Private Sub Worksheet_Calculate()

Jinak pro zabarvení buňky F3 stačí změnit
Cells(rd, 4).Interior.Color = vbRed
na
Cells(3, 6).Interior.Color = vbRed

M@

odpověděl(a)
lamaxx - Host
(8.7.2010 14:53)

Tak všechno se mi zdarilo,akorat to porad musim spoustet pres makro/nazev makra/spustit. Ta automatika se mi nedari rozchodit. Btw-zapisuju to vpodstate rucne... Kam mam presne "Private Sub Worksheet_Change(ByVal Target As Range)" zapsat? Kdyz jsem to dal misto "sub ...()" tak to nejede.

odpověděl(a)
Poki - Čtenář
(8.7.2010 15:42)

'Worksheet_Change' je dostupny v modulu prislusneho listu, na kterem ke zmene dojde...

odpověděl(a)
Jeza.m - Čtenář
(8.7.2010 16:12)

Asi bude lepší příklad :-). V příloze jsou 2, jeden kontroluje právě zadanou hodnotu a druhý vždy celý sloupec.

M@
Příloha: file NE.zip

odpověděl(a)
lamaxx - Host
(12.7.2010 9:44)

parada,slape to pekne. Jen mam jeste jeden problem... Kam to mam vepsat,kdyz potrebuju,aby mi to jelo predevsim na nove založeném listu?Běží mi to jen na prvním.Když sem to zkousšl dát pod nový modul,nefungovalo! Pokud je to nějaký složitější,tak ten soubor sem raději přiložím... díky