7 ensimmäistä vaikuttaa?`

wanabee excelguru

Hei!

Olen tekemässä ehdollista muotoilua, solusta jossa on 10 merkkiä. Haluaisin että solusta 7 ensimmäistä merkkiä ratkaisee arvon (tosi tai epätosi), jolloin ehdollinen muotoilu värjää solun esim. punaiseksi.
Ongelma on siinä että soluja on noin 500 ja ne pitäisi saada ryhmittäin värjätyksi. Solun 7 ensimmäistä merkkiä ratkaisee mihin tuoteperheeseen se kuuluu ja haluaisin että värjäys tapahtuu sen mukaan.
Mahtaisiko jollakin olla jotain apuja tähän?

Olisiko toinen vaihtoehto tehdä makro joka tekee alkuperäisestä solusta kopion ja poistaisi samalla ylimääräiset merkit ja muodostaisin ehdollisen muotoilun tämän kopioidun solun avulla.

Kiitoksia etukäteen!
Mahtavaa kun on henkilöitä jotka jaksavat auttaa muita hädässä :)

Terveisin

Wanabee Excelguru

4

506

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Ekseli

      Syötä ehdollisen muotoilun kaavan arvoksi esim.
      =POIMI.TEKSTI(A1;1;7)="tähän halutut 7 merkkiä" ja valitse sitten sopiva väri.

      • muotoilu

        Kiitoksia oivasta vinkistä. Ongelmaksi muodostu se että ehdolliseen muotoiluun voi laittaa ainoastaan 3 tekijää. Joten en saa kaikkia tarvittavia tuoteperheen tuotteita värjättyä.
        Olisiko vielä jotain ideaa?

      • kunde
        muotoilu kirjoitti:

        Kiitoksia oivasta vinkistä. Ongelmaksi muodostu se että ehdolliseen muotoiluun voi laittaa ainoastaan 3 tekijää. Joten en saa kaikkia tarvittavia tuoteperheen tuotteita värjättyä.
        Olisiko vielä jotain ideaa?

        solumuotoilulla saat pari lisää, mutta koodilla sitten reippaasti lisää...

        taulukon moduuliin...
        ja nyt sarake C, muuta sopivaksi ja 7 ekaa kanssa

        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim vika As Integer
        vika = Range("C65536").End(xlUp).Row
        For Each solu In Range("C1:C" & vika)
        Select Case Left(solu, 7)
        Case 1111111
        solu.Interior.ColorIndex = 3
        Case 1111112
        solu.Interior.ColorIndex = 4
        Case 1111113
        solu.Interior.ColorIndex = 5
        Case 1111114
        solu.Interior.ColorIndex = 7
        Case Else
        solu.Interior.ColorIndex = xlNone
        End Select
        Next

        End Sub

        tavalliseen moduuliin...

        tolla saat selville colorindexin numeroita vastaavat värit...

        Sub Värit()
        On Error Resume Next
        Application.ScreenUpdating = False
        Application.Calculation = xlCalculationManual
        Dim i As Long
        For i = 0 To 56
        Cells(i 1, 1).Interior.ColorIndex = i
        Cells(i 1, 1).Value = "[Väri " & i & "]"
        Cells(i 1, 2).Font.ColorIndex = i
        Cells(i 1, 2).Value = "Väri " & i
        Next i
        Application.Calculation = xlCalculationAutomatic
        Application.ScreenUpdating = True
        End Sub

        Keep Excelling
        @Kunde

      • wanabee excelguru
        kunde kirjoitti:

        solumuotoilulla saat pari lisää, mutta koodilla sitten reippaasti lisää...

        taulukon moduuliin...
        ja nyt sarake C, muuta sopivaksi ja 7 ekaa kanssa

        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim vika As Integer
        vika = Range("C65536").End(xlUp).Row
        For Each solu In Range("C1:C" & vika)
        Select Case Left(solu, 7)
        Case 1111111
        solu.Interior.ColorIndex = 3
        Case 1111112
        solu.Interior.ColorIndex = 4
        Case 1111113
        solu.Interior.ColorIndex = 5
        Case 1111114
        solu.Interior.ColorIndex = 7
        Case Else
        solu.Interior.ColorIndex = xlNone
        End Select
        Next

        End Sub

        tavalliseen moduuliin...

        tolla saat selville colorindexin numeroita vastaavat värit...

        Sub Värit()
        On Error Resume Next
        Application.ScreenUpdating = False
        Application.Calculation = xlCalculationManual
        Dim i As Long
        For i = 0 To 56
        Cells(i 1, 1).Interior.ColorIndex = i
        Cells(i 1, 1).Value = "[Väri " & i & "]"
        Cells(i 1, 2).Font.ColorIndex = i
        Cells(i 1, 2).Value = "Väri " & i
        Next i
        Application.Calculation = xlCalculationAutomatic
        Application.ScreenUpdating = True
        End Sub

        Keep Excelling
        @Kunde

        Kiitoksia oivasta koodin pätkästä!

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      234
      4492

    2. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      75
      2914

    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      47
      2433

    4. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      45
      1737

    5. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      78
      1409

    6. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      83
      1212

    7. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      19
      1128

    8. PS uusimman gallupin rakettimainen nousija

      https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden
      Maailman menoa
      137
      939

    9. Tekiskö nainen mieli tavata...

      Viikonloppuna ja...?
      Ikävä
      69
      908

    10. Sellainen tunne sydämessä

      Että nainen olet kaivannut minua. Tai sanonko että oikeastaan koet sitä samaa nostalgiaa, kaipuuta ja mukavia muistoja,
      Ikävä
      86
      874
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt