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

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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.


      • 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ä.

    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
      102
      7767
    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
      417
      6917
    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
      162
      5182
    4. 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
      99
      4107
    5. 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
      95
      4026
    6. 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
      72
      3987
    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
      3752
    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
      3450
    9. 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
      9
      2296
    10. Ostaisitko sinä rempattavan asunnon Italiasta tai jostain muualta ulkomailta, mistä?

      Ella Kanninen on tehnyt Italiassa asuntokaupat. Hän kertoo Instagramissa kierrelleensä viime kesänä Toscanassa katselema
      Asunnot ja asuminen
      16
      1879
    Aihe