Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Excel modyfikacja - Makra, kolorowanie danej komórki

Rhingsm 15 Sty 2013 14:52 4374 7
  • #1 15 Sty 2013 14:52
    Rhingsm

    Poziom 29  

    Witam, mam następujący problem. Z VBA jestem że tak powiem początkującym.

    Mam w arkuszu w którym zależałoby mi żeby zrobić formatowanie warunkowe. Jak już wiadomo excel 2003 ogranicza to do 3 warunków. A potrzeba ich zrobić dużo więcej. Mianowicie chciałbym żeby po sprawdzeniu komórki i sprawdzeniu jej wartości i powiedzmy jeżeli w danej komórce będzie wartość D49 komórka zmieni kolor na niebieski.

    Napiszę do jakich wartośći jaki kolor powinna zmienić komórka kolor:
    D49, D48, D30, D31, D32, D33, D20, D21, D22, D26, D27, D28, D29
    dla tych kolor niebieski
    Dla wartości:
    PL
    komórki kolor żółty

    Dla reszty wartości w komórkach ma pozostać białe.

    Myślałem o przerobienie tego makra:

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
    
    For i = 1 To Rows.Count
    If Target.Address = "$C$" & i Then
      Select Case Target.Value
       Case "D49"
       Cells(1, 1).Interior.ColorIndex = 3
       Case "D48"
       Cells(1, 1).Interior.ColorIndex = 6
       Case Else
       Rows(i).Interior.ColorIndex = 0
       End Select
    End If
    Next
    End Sub


    Dobrze by było jakby makro sprawdzało cały arkusz, po znalezieniu w danej komórce wartośći zakolrowanie jej na dany kolor.

    0 7
  • #2 15 Sty 2013 16:14
    Loker
    Poziom 38  

    Można na przykład tak:

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #3 15 Sty 2013 16:19
    Rhingsm

    Poziom 29  

    Loker napisał:
    Można na przykład tak:

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    Niestety makro się nie wykonuje

    0
  • Pomocny post
    #4 15 Sty 2013 16:21
    Loker
    Poziom 38  

    Jaki błąd wyskakuje?

    0
  • #5 15 Sty 2013 16:23
    Rhingsm

    Poziom 29  

    Żaden błąd. Włączam arkusz w którym mam wpisane makro, wpisuje wartość i komórka jak była biała tak zostaje dalej biała

    0
  • Pomocny post
    #6 15 Sty 2013 16:25
    Loker
    Poziom 38  

    Musisz się zdecydować - czy ma kolorować po uruchomieniu makra, czy po zmianie zawartości komórki.

    0
  • #7 15 Sty 2013 16:26
    Rhingsm

    Poziom 29  

    Sorki, ma być po zmianie zawartości komórki...

    0
  • Pomocny post
    #8 15 Sty 2013 16:33
    Loker
    Poziom 38  

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    Trzeba "podpiąć" do wybranego arkusza Excela i zapisać plik jako "Macro-Enabled Workbook".

    EDIT: Dodałem jeszcze jeden warunek (Case Else) - blokuje kopiowanie stylu komórki. Jeśli nie potrzebujesz, to skasuj ;)

    0