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

550

Äänestä

    Vastaukset 4

    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. Kuollut teini Kajaanissa

      Kuulemma sellaista huhua liikkeessä?
      Kajaani
      6
      1201

    2. Perhoseni (miehelle)

      Miksi et usko, että mun rakkaus sinuun on aitoa ja vilpitöntä? Tai että se oli jo silloin? Miksi ajattelet, ettet ole r
      Ikävä
      164
      1019

    3. Totta on asia. Jeffrey Cohen on jättänyt Sofian.

      Vaimon viesti on paljastanut totuuden.
      Kotimaiset julkkisjuorut
      216
      803

    4. Halaus juuri sinulle

      Kaikki järjestyy kyllä. Luota vain. ❤️🫶
      Ikävä
      63
      748

    5. Uskallatko paljastaa

      Millä nimellä löydyn puhelimestasi?
      Ikävä
      66
      744

    6. Uskaltaisitko

      Tavata kaivattusi tässä tilanteessa?
      Ikävä
      67
      666

    7. Mies, näetkö minut myös

      Seksuaalisena ihmisenä ja naisena? Haluatko minua seksuaalisesti? Vai olenko mielestäsi tyttönen?
      Ikävä
      22
      636

    8. Nainen, mitä mieltä olet kodittomista?

      Ja heistä jotka eivät kykene huolehtimaan asioistaan, itsestään eikä terveydestään? Miten heidän kanssaan tulisi toimia?
      Ikävä
      135
      626

    9. Kuinkahan monen

      Naisen puolisoa olet nainen vikitellyt ja eron aiheuttanut? Toivottavasti karma on ku*sut muroihisi useamman kuin kerran
      Ikävä
      66
      599

    10. Voiko se ikinä toimia

      Voiko meistä ikinä tulla mitään? Näin kauan aikaa on kulunut ja mitään ei tapahdu... En usko, että sinä mietit minua het
      Ikävä
      32
      568

    11. Meneekö unohtamis

      Projektisi hyvin??
      Ikävä
      34
      537

    12. Voin tulla

      Sisustamaan sulle 🤭
      Ikävä
      55
      528

    13. Millaista aikuisviihdettä yleensä katsot?

      🤣
      Ikävä
      51
      512

    14. Mitä sä haluat vanhus?

      🤣🤣🤣🤣🤣
      Ikävä
      47
      495

    15. Anteeksi mies

      En jaksa tätä…, en halua, että sinulla on paha mieli tämän takia. Viestiä Sinulle.
      Ikävä
      40
      483

    16. Eikö olisi mukavaa

      Jakaa arki yhdessä mies. Tämmöisin aatoksin.
      Ikävä
      37
      468

    17. Mies, kumman ottaisit mieluummin

      176 cm vai 154 cm naisen, jos molemmat muuten yhtä viehättäviä? Mikä on oma pituutesi?
      Sinkut
      98
      466

    18. Tekisi mieli vetäistä kunnon jurrit sinun kanssasi

      Ja keskustella asiat, ei tästä tule hevonvttua.
      Ikävä
      40
      463

    19. Laittaisit viestin suoraan!!

      Haluaisin...
      Ikävä
      30
      463

    20. Kerro mies tarinasi

      Miksi kaikki meni niinkuin meni? Haluaisin vieläkin ymmärtää. Tuskin saan vastausta häneltä, koska etsin aavikolta juuri
      Ikävä
      18
      440
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt