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

123

    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. Minua odottaa

      Joku todella ihana nainen jossain tulevaisuudessa. Siihen uskon ja luotan. 🤗❤️✨
      Sinkut
      219
      4137
    2. Miten toivoisit

      Teidän välien olevan tällä hetkellä? Tässä tilanteessa?
      Ikävä
      121
      4006
    3. Keksitkö keinon

      Miten voin nähdä ihastusta joka ei myönnä tunteitaan.
      Ikävä
      48
      3622
    4. Haluaisitko nähdä

      Hänet alastomana?
      Ikävä
      61
      2942
    5. Hilirimpsistä

      Hyvää huomenta ja kivaa päivää. Ilmat viilenee. Niin myös tunteet. 🧊☕✨🍁❤️
      Ikävä
      200
      2731
    6. Älä elättele

      Toiveita enää. Ihan turhaa. Sotku mikä sotku.
      Ikävä
      49
      2508
    7. Nainen lopeta pakoon luikkiminen?

      Elämä ei oo peli 😔😟
      Ikävä
      22
      2498
    8. Olet täällä. Mutta ei minulle.

      Nyt olen tästä 100% varma. Satuttaa. T: V
      Ikävä
      20
      2396
    9. T- miehelle....

      Kuka sua rakastaa? Kertoi rakastavansa....
      Suhteet
      41
      2279
    10. Kuule rakas...

      Kerrohan minulle lempivärisi niin osaan jatkaa yhtä projektia? Arvaan jo melkein kyllä toki. Olethan sinä aina niin tyyl
      Ikävä
      41
      2235
    Aihe