GoldenLine
Zaloguj się
Kary Kary

Kary Kary

Temat: komórka z kolorami

Witam , w jaki sposób stworzyć komórkę aby można wybrać z niej przez listę żeby wypełnienie było koloru czerwonego lub żółtego. Komórka nie może zawierać wartości tylko kolor wypełnienia jeden lub drugi.
Link do wypowiedziLink
Andrzej Kowalski

Andrzej Kowalski Specjalista ds.
pomiarów / metrolog,
Hutchinson Poland
Sp...

Temat: komórka z kolorami

Nie wiem czy Cię to zadowoli, traktuj jako punkt wyjścia.
Zmiana koloru (żółty/czerwony) jednej konkretnej komórki przez podwójne kliknięcie tej komórki. 

Dim bTrapped As Boolean

Dim cel As Range, rgWatch As Range, x As String



Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

x = ActiveCell.Address



Range("D5").Select

If x = "$D$5" Then

    If Selection.Interior.Color <> 65535 Then

        Selection.Interior.Color = 65535

    Else

        Selection.Interior.Color = 255

    End If

End If

Range(x).Select

End Sub
Link do wypowiedziLink
Kary Kary

Kary Kary

Temat: komórka z kolorami

Chodzi mi bardziej aby z komórki można było wybrać kolor taki lub taki, przez rozwinięcie listy , tak jak to się robi przez sprawdzenie poprawności danych np YES ,NO. w komórce nie może być wartość tylko kolor.
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: komórka z kolorami

Lista wyboru może dotyczyć tylko testu. Zatem możesz na liście mieć słowo "Czerwony" i "Żółty"
Ale przy pomocy VBA możesz zmienić tekst na kolor i tekstu nie wpisywać.
Niestety nie da się tego wykonać z wbudowanego interfejsu.
Link do wypowiedziLink
Andrzej Kowalski

Andrzej Kowalski Specjalista ds.
pomiarów / metrolog,
Hutchinson Poland
Sp...

Temat: komórka z kolorami

Taki pomysł z wywoływanym userformem na 2-klik.
Powiem jak informatyk "u mnie działa" :)

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

UserForm1.Show

End Sub


Private Sub UserForm_Initialize()

With ComboBox1

    .AddItem " wyczyść"

    .AddItem "czerwony"

    .AddItem "żółty"

End With

End Sub



Private Sub ComboBox1_Change()

    Select Case ComboBox1

        Case " wyczyść"

            Selection.Interior.Color = xlNone

        Case "czerwony"

            Selection.Interior.Color = 255

        Case "żółty"

            Selection.Interior.Color = 65535

    End Select

End Sub
Ten post został edytowany przez Autora dnia 14.03.21 o godzinie 16:21
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: komórka z kolorami

No i super.
Możesz też w 2gą stronę - czyli dodać sobie jeszcze aby pobierało kolor z komórki do formy i wskazywało na liście, która jest zaznaczona przed zmianą.

p.s.
Jeśli kiedyś chciałbyś liczyć kolory to polecam taki dodatek: http://vbatools.pl/licz-kolory/
Pozdrawiam
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj