Onko Excelissä olemassa värikoodia solun värille.
Punainen=värikoodi?
Tarve JOS lausekkeessa tunnistaa tietty pohjaväri numeeriseksi arvoksi.
Värikoodit
5
1750
Vastaukset
- paavali
Kyllä koodit on
punainen = 3- Ekenäs
mites se laitetaan kaavaan JOS alue on punainen, niin sen arvo on jotain. Kaava siis muuten hallinnassa mutta pelkkä "3" ei riitä...
- paavali
Ekenäs kirjoitti:
mites se laitetaan kaavaan JOS alue on punainen, niin sen arvo on jotain. Kaava siis muuten hallinnassa mutta pelkkä "3" ei riitä...
Eipä taida tuon värikoodin käyttäminen JOS-funktiossa onnistua, mutta makrossa onnistuu.
Sub Makro2()
If [G10].Interior.ColorIndex = 3 Then
[C7] = 22
End If
End Sub - Ekenäs
paavali kirjoitti:
Eipä taida tuon värikoodin käyttäminen JOS-funktiossa onnistua, mutta makrossa onnistuu.
Sub Makro2()
If [G10].Interior.ColorIndex = 3 Then
[C7] = 22
End If
End SubOn vähän tuo makroilu uutta, pitäisi siis saada seuraavanlainen kuvio: esim. kentissä B5;K5 oleva punainen tai joku muu väri pitäisi saada muuttumaan arvoksi 0,25 kenttien summa pitäisi myös saada laskettua. Eri värin tuottama luku eri paikkoihin summana...
Mistä noi värikoodit voi poimia? - paavali
Ekenäs kirjoitti:
On vähän tuo makroilu uutta, pitäisi siis saada seuraavanlainen kuvio: esim. kentissä B5;K5 oleva punainen tai joku muu väri pitäisi saada muuttumaan arvoksi 0,25 kenttien summa pitäisi myös saada laskettua. Eri värin tuottama luku eri paikkoihin summana...
Mistä noi värikoodit voi poimia?Avaa uusi exceltaulukko.
paina Alt ja ylärivin F11
sieltä Insert -> Module
ja kopioit tämän Kunden tekemä koodin sinne
Sub NäytäVärit()
Application.ScreenUpdating = False
Dim i As Long
Dim str0 As String, str As String
For i = 0 To 56
Cells(i 1, 1).Interior.ColorIndex = i
Cells(i 1, 2).Value = "Väri " & i
Next
Application.ScreenUpdating = True
End Sub
Kun suoritat tämän makron saat värikoodit.
Makroista saat lisätietoja excel ohjeesta.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Stefu LOISTAVAA!
Ilmeisesti joku vedonlyönti tms, selvinpäin-elämästä👍👍👍 ilmankos ei ole Sofiaa näkynyt. Miten tän parin nyt käy, kun viimi ei maksettuna enää virta1342024Msisa on eronnut
Mies ei kestänyt jatkuvia syrjähyppyjä eikä totuutta Turun yöstä.291082- 69883
Venäläisiä keksintöjä?
Kun tässä nyt yritän miettiä venäläisiä keksintöjä, niin ei äkkiseltään tule oikein yhtään mieleen. Onko niitä edes?262770Tiedän että on aika luovuttaa
En vaan osaa. Liian kauan toivonut jotain, mikä ei koskaan tule toteutumaan. Olo ei ole mitenkään hyvä, mutta itken vähemmän kuin silloin kun sinuun r65760- 14744
- 83693
Katumuksesta
Pitkäperjantaina eräässä seurueessa puhuttiin katumisesta ja mitä itse kukin katuu. Yleisintä tuntui olevan pahasti sanominen jollekin läheiselle ja t132687Sisällissota kiihtyy Ruotsissa
KaupunkiTaistelut koraanin puolesta kiihtyneet Linköpingissä ja Malmössä. Ruotsin poliisi joutunut vetäytymään suojiin. Päätän raporttini Ruotsista.213679- 26673