[nieraz-nie-dwa]

I need help.
W liceum miałem podstawy c++ ale vba nie znam praktycznie wcale.

Chciałem zrobić tak aby kolor arkusza zależał od treści komórki A1. Problem w tym, że komórka A1 jest warunkowana przez inne komórki (IF). Mam kod który działa, ale tylko jeśli kliknę w A1 i dam enter.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target.Value
Case "czerwony"
Me.Tab.Color = vbRed
Case "zielony"
Me.Tab.Color = vbGreen
Case Else
Me.Tab.Color = vbBlue
End Select
End If
End Sub

Czy da się zrobić żebym nie musiał za każdym razem wymuszać kalkulacji?
btw. polecacie jakieś ebooki, kursy, kanały na youtube do nauki vba?

Z góry dziękuję.
#excel #vba #programowanie

[mikasz]

@nieraz-nie-dwa: ctrl+a, a następnie wypełnij kolorem ( ͡° ͜ʖ ͡°)

[Gity]

@nieraz-nie-dwa: W opcjach Excela wlacz automatyczne obliczanie skoroszytu

[nieraz-nie-dwa]

@Gity: jeśli o tym mówisz to już mam

Może jakiś #programista15k pomoże ( ͡° ͜ʖ ͡°)?

[niepoprawny30]

Conditional formatting ?
@nieraz-nie-dwa

[nieraz-nie-dwa]

@niepoprawny30: Chętnie, ale jak ustawiasz conditional formatting na kolor arkusza?

[DwaNiedzwiedzie]

@nieraz-nie-dwa: Warunek If Target.Address = "$A$1" Then będzie spełniony tylko wtedy, gdy faktycznie edytowaną komórką będzie A1, stąd konieczność jej ręcznej zmiany. Usuń tę linijkę wraz z End If (lub dodaj apostrof na początku obu tych wierszy), wtedy makro będzie działać niezależnie od adresu edytowanej komórki.

[kovalski]

btw. polecacie jakieś ebooki, kursy, kanały na youtube do nauki vba?

@nieraz-nie-dwa: https://goalkicker.com/ExcelVBABook/ && https://goalkicker.com/VBABook/ && http://excelszkolenie.pl/

[nieraz-nie-dwa]

@DwaNiedzwiedzie: Ok, teraz rozumiem skąd to.
Tylko jak usunę albo zamienię na komentarz warunek "if", to na jakiej podstawie vba będzie wybierał kolor?

Może jest jakiś inny sposób aby zmieniać kolor arkusza?

@kovalski: txh

[DwaNiedzwiedzie]

@nieraz-nie-dwa: Na podstawie Select Case :)

[nieraz-nie-dwa]

Gdybym miał stosować polecenia dosłownie to byłoby:
(wywalone if i end if)

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "czerwony"

[DwaNiedzwiedzie]

@nieraz-nie-dwa: Fakt, Select Case dotyczył wartości "targetu", czyli zmienianej komórki.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim kolor As Long

Select

[nieraz-nie-dwa]

@DwaNiedzwiedzie: dziękuję :* teraz działa
A już myślałem że chcesz mnie zmotywować do samotnego szukania rozwiązania :D

To teraz się mogę pochwalić co zrobiłem ( ͡° ͜ʖ ͡°) - szablon nie mój, ja tylko makro "zrobiłem".