Solun kommenttiin linkki

Anonyymi

Voiko solun kommentin (muistiinpano) tekstiin sisällyttää mitenkään jonkin toisen solun arvon?
Jos vaikka lasketaan jostain arvosta vaikka kymmenen eri tulosta, voisi vain pari oleellisinta olla näkyvissä omissa soluissaan, ja loput kahdeksan näkisi solusta avautuvan keltaisen lapun tekstistä.
Myös voisi ehkä olla [Lisää] -nappi josta avautuisi pikku ikkuna jossa olisi loput arvot, tai jotain vastaavaa?

10

246

Äänestä

    Vastaukset 10

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      nyt lisää kaavasolun 10 viimeisintä arvoa kommenttiin ja poistaa aina vanhimman sen jälkeen
      jos tarttee fiksata niin kerro

      ko taulukon moduuliin...

      Public Vanha As String
      Dim b

      Private Sub Worksheet_Change(ByVal Target As Range)

      'solu minkä arvoa muutetaan
      If Target.Address = Range("B1").Address Then
      'kaavan tulos solu
      With Range("C1")
      If .Comment Is Nothing And .Value <> "" Then
      .AddComment.Text ""
      .Comment.Text "Kaavan tulokset:" & vbNewLine & .Value
      Vanha = .Value
      Else
      b = Split(.Comment.Text, vbNewLine)
      If UBound(b) < 10 Then
      .Comment.Text "Kaavan tulokset:" & vbNewLine & .Value & vbNewLine & Vanha
      Vanha = .Value & vbNewLine & Vanha
      Else
      Vanha = .Value & vbNewLine & _
      b(1) & vbNewLine & _
      b(2) & vbNewLine & _
      b(3) & vbNewLine & _
      b(4) & vbNewLine & _
      b(5) & vbNewLine & _
      b(6) & vbNewLine & _
      b(7) & vbNewLine & _
      b(8) & vbNewLine & _
      b(9) & vbNewLine
      .Comment.Text "Kaavan tulokset:" & vbNewLine & Vanha
      End If
      .Comment.Shape.TextFrame.AutoSize = True
      End If
      End With
      End If
      End Sub

      Keep EXCELing
      @Kunde

      • Anonyymi

        Nyt kai sattui väärinymmärrys, en tarkoittanut saman kaavan edellisiä laskentatuloksia (mikä sinällään on myös hyvä idea), vaan samasta "prosessista", eri kaavoilla jossain näkymättömissä taulukon perillä laskettuja muita vähemmän oleellisia lukuarvoja, joita ei haluta sekavoittamaan varsinaista näkymää. Kuitenkin nämäkin tiedot saisi halutessaan tarkasteltavaksi.
        Näitä "piilotulossoluja" voisi olla esim. viisi kappaletta, ja kommenttiin pitäisi lisätä myös selitetekstiä ennen ja jälkeen solun arvon.

      • kunde
        Anonyymi kirjoitti:

        Nyt kai sattui väärinymmärrys, en tarkoittanut saman kaavan edellisiä laskentatuloksia (mikä sinällään on myös hyvä idea), vaan samasta "prosessista", eri kaavoilla jossain näkymättömissä taulukon perillä laskettuja muita vähemmän oleellisia lukuarvoja, joita ei haluta sekavoittamaan varsinaista näkymää. Kuitenkin nämäkin tiedot saisi halutessaan tarkasteltavaksi.
        Näitä "piilotulossoluja" voisi olla esim. viisi kappaletta, ja kommenttiin pitäisi lisätä myös selitetekstiä ennen ja jälkeen solun arvon.

        Tuostahan on helppo fiksata mitä tahansa... ;-)

      • Anonyymi
        kunde kirjoitti:

        Tuostahan on helppo fiksata mitä tahansa... ;-)

        No niin onkin, kun kommentin voi kirjoittaa ohjelmallakin...

      • Anonyymi

        Voi voi. Bugit itse windowsessa kaataa sitä helposti, vaida se Mintiin.

      • Anonyymi
        kunde kirjoitti:

        Tuostahan on helppo fiksata mitä tahansa... ;-)

        Sub Kommentti()
        Dim a As Double, b As Double, c As Double
        With Range("C2")
        a = Range("C3")
        b = Range("D3")
        c = Range("E3")
        .Comment.Text "Lisää tietoja:" & vbNewLine & "Tekstiä " & a & " tietoa" & vbNewLine & "Tekstiä " & b & " tietoa" & vbNewLine _
        & "Tekstiä " & c & " tietoa" & vbNewLine & "Tekstiä..."
        .Comment.Shape.TextFrame.AutoSize = True
        End With
        End Sub

        Periaatteessa toimii, mutta miten saan desimaalien määrän rajattua vaikka kahteen? Nyt soluista muuttujiin haetut luvut ovat täydellä 12 desimaalin tarkkuudella. Ohittaa näköjään solun oman lukumuotoilun.

      • Anonyymi
        Anonyymi kirjoitti:

        Sub Kommentti()
        Dim a As Double, b As Double, c As Double
        With Range("C2")
        a = Range("C3")
        b = Range("D3")
        c = Range("E3")
        .Comment.Text "Lisää tietoja:" & vbNewLine & "Tekstiä " & a & " tietoa" & vbNewLine & "Tekstiä " & b & " tietoa" & vbNewLine _
        & "Tekstiä " & c & " tietoa" & vbNewLine & "Tekstiä..."
        .Comment.Shape.TextFrame.AutoSize = True
        End With
        End Sub

        Periaatteessa toimii, mutta miten saan desimaalien määrän rajattua vaikka kahteen? Nyt soluista muuttujiin haetut luvut ovat täydellä 12 desimaalin tarkkuudella. Ohittaa näköjään solun oman lukumuotoilun.

        Noh onnistuuhan se ainakin kun lisää muuttujan ympärille aina, Round(x, 2).

      • Anonyymi
        Anonyymi kirjoitti:

        Voi voi. Bugit itse windowsessa kaataa sitä helposti, vaida se Mintiin.

        Meinaatko saada Excelin toimimaan Winessä?

    • Anonyymi

      Eikös se onnistu niin että kirjoittaa kommenttitekstiin solun osoitteen?

      • Anonyymi

        Ei.

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Mikä on totta mikä ei?

      Onko juoru vai ei että nimeltä mainitsematon henkilö on tehnyt naiselle/naisille jotain joka on väärin?
      Kuhmo
      23
      1355

    2. Viesti sinulle

      Tiedät että tunteet ja ajatukset ja meillä on vahva yhteys mistä molemmat tiedetään. Odotan sinua ☀️
      Ikävä
      60
      1173

    3. Olen kironnut sinut alimpaan helvettiin

      Hyvää matkaa.
      Ikävä
      82
      931

    4. Mitä sinulle on tapahtunut lapsena

      Kun olet noin sairas päästäsi? Pikkupojalle ( Miehen kehossa)
      Ikävä
      105
      904

    5. Haluan purkaa vielä tuntemuksia

      Tykkään sinusta kovin paljon❤️ olen surullinen tilanteestasi ja siitä mitä me olemme yhdessä joutuneet kokemaan. Tämä ei
      Ikävä
      21
      777

    6. Persujen Puhoksen retki

      Perussuomalaiset olivat tehneet turistibussimatkan Puhokseen. Tosin raukat olivat niin peloissaan, etteivät uskaltaneet
      Perussuomalaiset
      270
      756

    7. Lopetetaanko tämä

      Juttu ja mennään eteenpäin? Pystytkö?
      Ikävä
      120
      705

    8. Tunteiden käsittely kertoo ihmisestä.

      Kun puhutaan "tavallisesta" ihmisestä, joka on suht tasapainoinen eläjä, niin puhutaan oikeastaan taitavasta tunteiden k
      Sinkut
      210
      689

    9. Kyllä tiedän sun

      Likaiset pelit selän takana
      Ikävä
      62
      668

    10. Onko tuo joku katkera nainen oikeasti

      Joka sinua syyttää?
      Ikävä
      100
      616

    11. Jopa poliisi nauraa paskaista pelkuripersuille

      Puhoksessa jäi "isänmaantoivot" bussiin vapisemaan :-D https://www.is.fi/politiikka/art-2000012319632.html
      Maailman menoa
      289
      569

    12. Just saying

      Mies joka antaa naiselle turvallisen olon, on seksikäs. Ei kieroja kikkoja ja haluaa olla vain sen yhden naisen mies.
      Ikävä
      104
      528

    13. Ketkä käy potkimassa ovia öisin?

      Enää ei naurata.
      Haapavesi
      11
      528

    14. Pilkettä sunnuntain silmässä

      😉 Jos tästä ketjusta löytyisi yksi ihminen, joka saisi sut hymyilemään tänään… Millainen hän olisi? Ei tarvitse kerto
      Sinkut
      73
      481

    15. Onko muka 21 vuoden ikäero paljon?

      🤔
      Rakkaus ja rakastaminen
      34
      465

    16. Tehdään yhdessä itsestämme

      Parhaat versiot❤️ Se vaatii molemmilta hyvää itsetuntoa!
      Ikävä
      39
      464

    17. Voisin antaa sulle nyt

      Halin❤️
      Ikävä
      47
      440

    18. Oliko Jani Halmeen aika jo tippua TTK:sta?

      Jani Halme ja Claudia Ketonen joutuivat jättämään TTK:n. Halme ja Ketonen saivat viimeiseksi jäänestä tanssista, sambas
      Tanssii tähtien kanssa
      23
      437

    19. Päivän aivopieru Trumpilta

      Trump julisti sodan hyttysiä vastaan. Myös punkit ovat Trumpin sodan kohteena. Eikö vieläkään USA:n kansa tajua tuon uko
      Maailman menoa
      45
      432

    20. Aika on tuonut järkeä

      Sä et tiedä musta kaikkea. Jos tietäisit, ymmärtäisit, miksi me ei sovita yhteen. Öljy ja vesi. En mä ole valehdellut,
      Järki ja tunteet
      42
      423
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt