Moi. Mitenköhän solun värin saisi muuttumaan mikäli solussa oleva luku pienenee tai suurenee? Eli samalla tavalla kuin esim kauppalehden sivuilla jos kurssi laskee niin väri olisi punainen. Koitin ehdollista muotoilua mutta siinä pitää kai olla tietty luku mihin se vertaa kun taas haussa olis että väri muuttuu jos luku kasvaa tai pienenee. Eli siis kurssin mukaan.
Solu muotoilu jos luku muuttuu + tai -
Pötkötin
13
1772
Vastaukset
- makron-avulla
Käyttäisin itse luultavasti VBA-makrossa Worksheet.Change-tapahtumaa, jonka käsittelyrutiinissa kopioisin muuttuvan solun aputaulukkoon, johon ehdollinen muotoilu tekisi sitten vertailun.
https://msdn.microsoft.com/en-us/vba/excel-vba/articles/worksheet-change-event-excel - yksinkertaista
Tuohon ei tarvitse muuta kuin solun muotoilussa, kohdassa "Luku" valitsee kohdan "negatiiviset punaisella", etumerkillä tai ilman.
No tässä taas GIF animaatio, joka asettaa taulukon luvun esitystavan niin että negatiiviset luvut näytetään punaisella värillä. https://imgur.com/v0gX3wZ
Kaiketi tämä on tehtävissä Excelilläkin samaan tapaan.- Kundepuu
kannattaisi lukea kysymys uudestaan, ennenkuin postaa ihan huuhaata...
kysyjähän haluaa luvun värin muuttuvan sen mukaan pieneneekö se vaiko kasvaa...
ei onnaa ilman makroa
- Kundepuu
taulukon moduuliin
muuta solu ja värit sopiviksi
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Static Vanha As Double
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value > Vanha Then
Target.Interior.Color = vbGreen
Else
If Target.Value < Vanha Then
Target.Interior.Color = vbRed
Else
Target.Interior.Color = xlNone
End If
End If
Vanha = Target.Value
End If
End Sub- värinvaihdos
Samoilla linjoilla, laitoin vielä mahdollisuuden eräänlaiselle hystereesille, eli muuttujan "muutosraja" arvolla voi vaikuttaa kuinka pieneen muutokseen reagoidaan.
Värejä voi muutella noiden RGB-funktioiden arvoilla.
Dim temppi As Double
Private Sub Worksheet_Change(ByVal target As Range)
Dim muutosraja As Double: muutosraja = 0.05
If IsNumeric(target) Then
' positiiviset arvot
If target.Value - temppi > muutosraja Then
target.Font.Color = RGB(0, 0, 0)
target.Interior.Color = RGB(0, 255, 0)
' negatiiviset arvot
ElseIf target.Value - temppi < -muutosraja Then
target.Font.Color = RGB(255, 255, 255)
target.Interior.Color = RGB(255, 0, 0)
' muutoin
Else
target.Font.Color = RGB(0, 0, 0)
target.Interior.ColorIndex = xlNone
End If
temppi = target.Value
Else
' jos solussa ei lukuarvo
target.Font.Color = RGB(0, 0, 0)
target.Interior.ColorIndex = xlNone
End If
End Sub - Kundepuu
ei toimi noin oikein, koska ei huomoi solun vanhaa arvoa vaan viimeisen muutoksen arvon missä tahansa solussa ja vertaa siihen eikä solun oikeaan vanhaan arvoon...
el - bugiraportti
Kundepuu kirjoitti:
ei toimi noin oikein, koska ei huomoi solun vanhaa arvoa vaan viimeisen muutoksen arvon missä tahansa solussa ja vertaa siihen eikä solun oikeaan vanhaan arvoon...
elHeh, olet oikeassa. Olisi kannattanut testata useammalla solulla. Pitää viilata Intersect mukaan. Katson samalla saisiko siihen ympättyä muutaman sekunnin vilkkumisen, jolloin olisi hieman visuaalisempi.
- Tämmöinen
Tämä muuttaa alueella alue olevan solun väriä, kun sen arvoa muutetaan.
Väri ei muutu, jos arvo muuttuu jonkin muun solun arvon muuttuessa (solussa on kaava).
Private Sub Worksheet_Change(ByVal Target As Range)
Dim uusi
Dim kaava As String
Dim alue As Range
On Error GoTo err:
Set alue = Range("A1:B5")
If Not Intersect(alue, Target) Is Nothing Then
uusi = Target.Value
kaava = Target.Formula
Application.EnableEvents = False
Application.Undo ' katsotaan vanha arvo
If Target.Value > uusi Then
Target.Interior.Color = vbRed
ElseIf Target.Value < uusi Then
Target.Interior.Color = vbGreen
Else
Target.Interior.Color = xlNone
End If
Target.Formula = kaava
End If
err:
Application.EnableEvents = True
End Sub - Pötkötin
Mihin tollaset systeemit laitetaan, johonkin macroon vai? Ei oo tullu koskaan käytettyä..
- sivullinen3
Kopioi toi kaava, Excelissä sitten klikkaa alhaalta taulukonvalitsinta (esim. Taul1) hiiren oikealla ja valitse "Näytä koodi". VBA editor avautuu. Liitä kopioimasi makro siihen avautuvaan ikkunaan ja sulje Editori.
Huomaa makrosta että toiminto "pelaa" vain alueella A1:B5. Muuta aluetta jos tarvis. - Sivullinen3
Siis jos tarkkoja ollaan, niin toi alku piti olla "Kopioi toi makro".
Sivullinen3 kiittää "Tämmöistä" . Makro pelaa hyvin. Sille löytyy varmasti käyttöä. - Pötkötin
Kiitoksia kaikille, nyt toimii :)
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Suureksi onneksesi on myönnettävä
Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️881894Perusmuotoiset TV-lähetykset loppu
Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia1661375YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua
Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä711172- 661027
Hyvin. Ikävää nainen,
Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan83965Martina lähdössä Ibizalle
Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.132879Uskomaton tekninen vaaliliitto poimii rusinoita pullasta
Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli87862Linnasuolla poliisi operaatio
Kamalaa menoa taas meidän ihanassa kaupungissa. https://www.uutisvuoksi.fi/paikalliset/864606029846Katsoin mies itseäni rehellisesti peiliin
Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.47837- 57820