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

529

Ää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. Eutanasia?

      Kertokaas omia mielipiteitä eutanasiaan liittyen. Onko mielestäsi oikein vai väärin ja miksi?
      Arvot ja etiikka
      11
      12436

    2. Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?

      Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä
      Arvot ja etiikka
      5
      11203

    3. Riikka Purran kaudella nousi bensan hinta yli 2 euron

      Muistatteko kuinka edellisen vasemmistohallituksen aikana, ns. Marinin aikakaudella, bensiiniä sai 1,3 euron litrahinnal
      Maailman menoa
      177
      5122

    4. Veli Sofia teki urosmehiläisen työn

      Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa
      Maailman menoa
      33
      3740

    5. Mitäs nyt sijoittajat?

      Pörssit laskevat maailmalla Iranin sodan takia ja muutenkin ovat olleet Trumpin vallan alla epävarmat. Ainoa, mikä on no
      Maailman menoa
      196
      3564

    6. Hjallis Harkimon, 72, Jasmine-rakas, 37, paljastaa suhteen alusta: "Vähän..."

      Liikemies, kansanedustaja Hjallis Harkimo ja tuottaja-juontaja Jasmine Pajari ovat pariskunta. He asuvat yhdessä Sipooss
      Suomalaiset julkkikset
      50
      3159

    7. Unisex-vessat

      Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu
      Tunteet
      109
      2894

    8. Jäit kiinni siitä

      että katselet minua. Käänsin pääni, minäkin etsin sinua, ja meidän katseemme kohtasivat. Eikä se haittaa - molemmat ky
      Ikävä
      13
      2488

    9. Sosiaalidemokratia romahtanut kautta maailman

      nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie
      Maailman menoa
      53
      2185

    10. Jutta Larm, 52, haluaa kumota tämän piintyneen ikämyytin

      Oletko samaa mieltä? Jutta Larm on 52-vuotias ja tehnyt pitkän uran yrittäjänä. Hän haluaa kumota tämän piintyneen ikämy
      50 plus
      19
      1985
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt