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
7 ensimmäistä vaikuttaa?`
4
472
Vastaukset
- 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
@KundeKiitoksia oivasta koodin pätkästä!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1222251En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois1021340Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3141043Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1031021- 1081004
Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.85906On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s44690Palstan ylivoimaisesti suosituin keskustelunaihe
Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks251686- 50664
Ei koskaan saatu tuntea
Mitä olisi ollut painautua toisiimme vasten. Hengittää syvään, hyväillä ja rakastella vailla kiirettä. Tai repiä vaattee33660