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

517

Ää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. Jalankulkija kuoli. Poliisi etsii mustaa BMW Coupe -autoa, jossa on punertavat vanteet.

      Jalankulkija kuoli jäätyään auton alle Joensuussa – kuljettaja pakeni, poliisi pyytää havaintoja https://www.mtvuutiset.
      Joensuu
      225
      4910

    2. Mikä vasemmistolaisista jankkaavaa vaivaa?

      Pahasti on ihon alle, siis korvien väliin sinne tyhjään tilaan, päässeet kummittelemaan. Ei ole terveen ihmisen merkki
      Maailman menoa
      49
      3311

    3. Ohjelma "Rikollisjengien Ruotsi" hyvin paljasti jakautuneen maan

      eli ns. ruotsalaiset yhdellä puolella, muslimit ja muut kehitysmaalaiset toisella puolella. Siinäkin hyvin näki mitä ma
      Maailman menoa
      36
      2975

    4. PÄIVÄN PARAS: Nigerialainen haki turvapaikkaa Suomesta, lähti takas huilaamaan

      kotimaahansa, koska turvapaikan saaminen kesti niin kauan. Ja tämän kertoo ihan Yle, eikä yhtään toimittaja kyseenalaist
      Maailman menoa
      84
      2953

    5. Vassarina hymyilyttää vaurastuminen persujen kustannuksella

      Olen sijottanut määrätietoisesti osan Kelan tuista pörssiosakkeisiin, ja salkku on paisunut jo toiselle sadalle tuhanne
      Maailman menoa
      61
      2842

    6. Riikka runnoo: Elisalta potkut 400:lle

      Erinomaisen hallitusohjelman tavoite 100 000 työllistä lisää yksityisellä sektorilla on kohta saavutettu. Toivotaan toiv
      Maailman menoa
      90
      2675

    7. Pidennetään viikko 8 päiväiseksi

      Ja jätetään työpäivien määrä nykyiseen 5:een. Tuo olisi kompromissiratkaisu vellovaan keskusteluun työajan lyhentämisest
      Maailman menoa
      14
      2391

    8. Pääseekö kuka tahansa hoitaja katselemaan kenen tahansa ihmisen terveystietoja?

      "Meeri selaili puhelinta uteliaisuuttaan ja katuu nyt – Moni hoitaja on tehnyt saman rikoksen Tuttujen ihmisten asiat k
      Maailman menoa
      103
      2207

    9. Miksi eristäydyt?

      Onko jokin syy kun vetäydyt omiin oloihin?
      Ikävä
      150
      1568

    10. Vapaa- ajan asunto palanut Haapavedellä

      Haapavesi päässyt Iltalehteen Vapaa- ajan asunto palanut 35 neliötä palanut. Missä päin tämä on ollut? Poliisin tutkinn
      Haapavesi
      9
      1250
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt