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

206

Äänestä

    Vastaukset

    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. Säästäminen on typerää, muistakaa äänestää demareita

      Säästäminen on typerää, koska aiheuttaa vain talouden taantumista ja lopulta tappaa potilaan. Demareiden tapa on satsat
      Maailman menoa
      130
      8275

    2. Olli Rehn: Eläkkeistä pitää leikata. Nyt tuli Lindtmanille kauhun paikka

      jos johtaa seuraavaa hallitusta. Purra: eläkkeisiin ei kosketa. Eikä tällä hallituskaudella varmasti kosketa, mutta seur
      Maailman menoa
      456
      7453

    3. SDP:n budjetin peruskivi: "Rahaa nimittäin on!"

      Demarien talouspolitiikan ydin on usein tiivistetty klassiseen meemiin: rahaa on, kunhan se on jonkun muun rahaa. Vuoden
      Maailman menoa
      219
      5646

    4. Kun täällä kysytään aina vaan naisilta

      Niin nyt kysytään miehiltä. Mies, voisitko ottaa kumppaniksesi naisen joka nostaa enemmän penkistä kuin sinä? Tienaa en
      Sinkut
      91
      4607

    5. Poliisien suosikkipuolueet ylivoimaisesti: Kokoomus ja persut

      samoin on armeijan henkilöstön kanssa. Sen sijaan sekä vihreät, vasliitto ja SDP ovat hyljeksittyjä puolueita poliisien
      Maailman menoa
      137
      4580

    6. Sdp, Vihreät ja vasemmistoliitto muuttumassa naisten puolueiksi?

      Sdp 64 % naisia, vihreät 70 % naisia ja vasemmistoliitto 60 % naisia. Ilmankos ne puolueet ajaa autoilevien kantasuomal
      Maailman menoa
      104
      4432

    7. Hatunnosto! Mari Hynynen (os. Perankoski) ja Jouni Hynynen auttavat vähäosaisia upealla tavalla!

      Hatunnosto! Mari ja Jouni Hynynen ovat Vailla vakinaista asuntoa ry:n uudet kummit. Hynysiä motivoi halu lisätä ymmärr
      Maailman menoa
      10
      4142

    8. Tiesitkö? Tämä suomalainen keksi Elämäni biisi -sarjan - Viinin lipittely mainittu!

      Tiesitkö? Elämäni biisi on suomalainen formaatti ja sen takana on Petja Peltomaa. Hänen kynästä ovat lähtöisin myös mm.
      Tv-sarjat
      0
      3820

    9. Valtion alijäämä = yritystukien määrä = 10 mrd. euroa

      Mutta persut eivät vaan suostu tasapainottamaan valtion budjettia, vaikka yritystuet on tiedetty haitallisiksi. Miksi p
      Maailman menoa
      16
      2960

    10. Epäonnistunut "Tuppurais-operaatio" kaatoi Purran hallituksen

      Persut yrittivät viimemetreillä häivyttää omaa täydellistä epäonnistumistaan syyttämällä opposition edustajaa nimettömil
      Maailman menoa
      13
      2690
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt