Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Podświerlenie komórki po wpisaniu zdefiniowanego znaku.

szunaj85 · forumowicz Posty: 20

Kod:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
ost_col = Range("IV1").End(xlToLeft).Column

For Each c In Intersect(Target, Columns(1))
If LCase(c.Value) = "x" Then
Range(Cells(c.Row, 1), Cells(c.Row, ost_col)).Interior.ColorIndex = 8
Else
If c.Interior.ColorIndex = 8 Then
Range(Cells(c.Row, 1), Cells(c.Row, ost_col)).Interior.Pattern = xlNone
End If
End If
Next c
End If
End Sub

Mam kod, ale chciałbym aby po wpisaniu znaku "x" podświetlało się się tylko to pole gdzie został wpisany, a nie cały wiersz.
Dodatkowo jak zrobić żeby ta akcja dotyczyła kolumn z zakresu np. 1-10, a nie tylko kolumny 1?
W załączniku ten plik.

Zeszyt1.rar

Pobierz Plik ściągnięto 8 raz(y) 11.5 KB

negatyv · Wysłany: 2012-02-07, 22:50

No makro pierwsza klasa, a nie wystarczy Ci formatowanie warunkowe? :)
Pierwsze pytanie.

Kod:

If LCase(Target.Value) = "x" Then
Target.Interior.ColorIndex = 8
Else
If Target.Interior.ColorIndex = 8 Then
Target.Interior.Pattern = xlNone
End If
End If.

Drugie pytanie: spójrz na pierwszą linię pod nagłówkiem funkcji.