Automaatinen Calcin taustaväri ?

TedSpread

Hei !

Liian kauan yrittänyt tätä itse ratkoa, vaan ei onnistu.

Pitäis saada solun taustaväri muuttumaan automaattisesti niin, että jos vanha numero korvataan uudella joka on pienempi kuin edellinen, niin taustaväri muuttuu automaattisesti punaiseksi ja edelleen jos luku on suurempi niin sitten väri vaikka vihreäksi.

Selvennys vielä.

Luku on vaikka 4,5
Uusi on 4,7 ja taustaväri muuttuu vihreäksi
Uusi on 4,2 ja taustaväri muuttuu punaiseksi
Uusi on 4,3 ja taustaväri muuttuu vihreäksi

Eli aina edelliseen lukuun verrataan.

Läheltä piti vastauksia on netissä, mutta ei just tätä en ole löytänyt.

2

125

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Vaatinee makron. Yhdessä solussa ei ole arvojen aikasarjaa eikä sitä oikein saa totetuettua useamman solun ketjunakaan, paitsi käsin syöttämällä tai kopioimalla. Taulukkolaskennan idea on olla ajantasalla aina jokaisen muutoksen jälkeen.

      Se onkin sitten toinen juttu, mikä olisi kevein makroratkaisu. Taulukkolehden tapahtumiin "Kaavat laskettu" tai "Sisältö muuttunut" sidottu makro saattaisi toimia eikä olisi koko aikaa syömässä prosessoritehoa. Jos ominaisuus halutaan satoihin soluihin taulukossa, makrototeutus saattaa olla hiukka hidas.

    • ...

      REM ***** BASIC *****

      Private oListener as Object
      Private CellRng as Object
      Global prev as variant
      Global oSListener As Object
      Global oDocView As Object
      Global arow as integer
      Global acol as integer

      Sub AddListener 'Run this first

      Dim Doc, Sheet, Cell as Object

      Doc = ThisComponent
      Sheet = Doc.Sheets.getByIndex(0) 'get leftmost sheet

      CellRng = Sheet.getCellrangeByName("A1:A10")

      oListener = createUnoListener("Modify_","com.sun.star.util.XModifyListener") 'create a listener
      Cellrng.addModifyListener(oListener) 'register the listener

      oDocView = ThisComponent.getCurrentController

      'create a listener to intercept the selection change event
      oRListener = CreateUnoListener( "MyApp_", "com.sun.star.view.XSelectionChangeListener" )

      ' register the listener to the document controller
      oDocView.addSelectionChangeListener(oRListener)


      End Sub

      Sub Modify_modified(oEv) 'macro jumps here when oListener detects modification of Sheet
      CalledRoutine
      End Sub

      Sub Modify_disposing(oEv)
      End Sub

      Sub RmvListener
      CellRng.removeModifyListener(oListener)
      End Sub

      Sub CalledRoutine
      Sheet = ThisComponent.Sheets.getByIndex(0)
      cell = Sheet.getCellByPosition(acol,arow)
      if prev>cell.value then cell.CellBackColor=16724787 else cell.CellBackColor=44544
      End Sub


      REM Run this macro to stop event intercepting:
      Sub Remove_Listener
      ' removes the listener
      oDocView.removeSelectionChangeListener(oRListener)
      End Sub


      REM All listeners must support this event:
      Sub MyApp_disposing(oEvent)

      End Sub

      REM What to do when we get an event:
      Sub MyApp_selectionChanged(oEvent)
      dim oCurr as object
      oCurr = thiscomponent.getcurrentselection
      arow=oCurr.getRangeAddress.startrow
      acol=oCurr.getRangeAddress.startcolumn
      prev=ThisComponent.Sheets(0).getCellByPosition(acol,arow).value
      End Sub

      sub taustavari
      e= ThisComponent.Sheets(0).getCellByPosition(1,7).CellBackColor
      print e
      end sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Kuka maksaa Elokapinan töhrinnän?

      Vieläkö tukevat Elokapinan toimintaa mm. Aki Kaurismäki, Sofi Oksanen, Paleface, Koneen Säätiö ym. ? Kenen kukkarosta ot
      Maailman menoa
      573
      3806
    2. Muuttaisiko viesti mitään

      Haluaisin laittaa viestin, mutta muuttaisiko se mitään. Oletko yhä yhtä ehdoton vai valmis kyseenalaistamaan asenteesi j
      Ikävä
      48
      3288
    3. Jos sinulla kiinnostaisi

      Nyt, miten antaisit minun ymmärtää sen?
      Ikävä
      38
      2771
    4. Valpuri Nykänen elokapina

      Aikas kiihkomielinen nainen kun mtv:n uutiset haastatteli. Tuollaisiako ne kaikki on.
      Maailman menoa
      66
      2709
    5. Oon vähän ihastunut suhun nainen

      Vaikka toisin jokin aika sitten väitin mutta saat mut haluamaan olemaan parempi ihminen :)
      Ikävä
      19
      2104
    6. Jospa me nähtäisiin

      Sinne suuntaan menossa🤣
      Ikävä
      32
      2061
    7. Se että tavattiin

      Hyvin arkisissa olosuhteissa oli hyvä asia. Olimme molemmat lähestulkoon aina sitä mitä oikeasti olemme. Tietysti pieni
      Ikävä
      12
      1887
    8. Elämä jatkuu

      Onneksi ilman sinua
      Ikävä
      29
      1835
    9. Oot pala mun sielua

      Jos toivot, että lähden mä lähden. Jos toivot, että jään mä jään. Koen, että olet mun sielunkumppani, mutta lämmöllä my
      Ikävä
      17
      1760
    10. Hei T........

      Ajattelin kertoa että edelleen välillä käyt mielessä.... En ole unohtanut sinua, enkä varmasti ikinä... Vaikka on kulunu
      Suhteet
      47
      1719
    Aihe