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

523

    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?


      • 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ä.

    Luetuimmat keskustelut

    1. Muistakaa persut, että TE petitte, ei kokoomus

      Miksikö kukaan ei arvostele kokoomusta? No sen vuoksi, että kokoomus noudattaa vaalilupauksiaan. Sen sijaan TE persut,
      Maailman menoa
      108
      2921
    2. Seuraava hallituspohja - Kokoomus, kepu, persut + KD

      Kokoomus saa ainakin 20% kannatuksen ensi vaaleissa, keskusta sanoisin noin 15%, persut todennäköisesti enemmän, ehkä 17
      Maailman menoa
      183
      2623
    3. Outo ilmiö - vasemmistolaiset eivät kirjoita mitään kokoomuksesta

      joka sentään johtaa hallitusta, ja jonka talouspolitiikkaa noudatetaan. Nämä muutamat vasemmistolaiset jotka täällä aina
      Maailman menoa
      61
      2099
    4. Väestöstä vain vassarit vaihtuvat nopeammin kuin persut

      Kevääseen 2023 verrattuna vassareita 50 prosenttia enemmän, ja persuja 25 prosenttia vähemmän.
      Maailman menoa
      1
      1371
    5. Vihervassarit

      Vihervassarit sitä, vihervassarit tätä. Minulla on paha mt-ongelma. Se tuli lobotomian jälkioireina. Vihervassarit tät
      Maailman menoa
      22
      1263
    6. Maria Veitola kommentoi soutelija Saarion huomionhakuisuutta

      "Minusta on jotenkin kuvottavaa, kuinka kovalla intensiteetillä Suomi-media seuraa miessankari Jari Saarion merihätää. S
      Kotimaiset julkkisjuorut
      164
      1194
    7. Lopetan ikävöinnin

      Ei meistä enää koskaan tule mitään. Olen ikävöinyt ja kaivannut enkä saa mitään vastakaikua ja lämpöä. Parempi erillään
      Ikävä
      3
      911
    8. Ei osattu ratkaista etääntymistä

      Mä jäädyin eikä sulla ole taitoa sulattaa. Parempi antaa olla, vaikka toivoin jotain muuta. Miehelle.
      Ikävä
      115
      860
    9. Esprit hoitokdit Varkaudessa?

      Asun keskisuomessa ja käyn satunnaisesti äitini luona Varkaudessa. Äitin tarvitsee kohta hoitajan kotiin tai hoitokodin
      Varkaus
      103
      833
    10. Ei ole liian myöhäistä..

      Tule mun luo ja katso silmiin, niin saadaan taas se sanaton yhteys ja sano sitten vain anteeksi rakas ja suutele ja hala
      Ikävä
      3
      732
    Aihe