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

157

    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. Mieleni harhailee sinussa

      Uskon että tykkäät minusta. On vain yksi elämä. Silti jään paikoilleni ja odotan että jokin muuttuu. Menin palasiksi, ei
      Tunteet
      11
      2139
    2. Jännitän sinua J mies

      Ei tästä tulee mitään. Tuskin kaikki olis mennyt näin moneen solmuun, jos olis tarkoitettu meidät yhteen.
      Ikävä
      118
      1206
    3. Toivotko, että

      hän tulisi juttelemaan sinulle, vai lähestytkö mieluummin itse?
      Ikävä
      89
      1185
    4. Kuinka kauan kesti että ihastuit

      Kaivattuusi? Jos lasketaan siitä hetkestä alkaen kun näit hänet ensi kerran. Oliko jokin tilanne tai tapahtuma, joka voi
      Ikävä
      51
      993
    5. Orpo suunnittelee palestiinalaislasten Suomeen siirtoa

      "Sairaalahoitoa tarvitsevien lasten ottaminen Suomeen on lisäksi selvityksessä, Orpo sanoo. – Jos meillä on mahdolli
      Maailman menoa
      239
      985
    6. Olen käyttäytynyt sinua kohtaan väärin toistuvasti

      Puolustuksekseni täytyy sanoa, että ei ole ollut tahallista vaan seurausta harhaisista luuloista ja ajatuksista. Esimerk
      Ikävä
      63
      904
    7. Vaikutat tosi mielenkiintoiselta ja

      paksulta. 😂 m - n
      Ikävä
      84
      786
    8. Tunneälyä testaamaan!

      Testi pitää sisällään viisi osa-aluetta. Itse sain täydet tuosta ensimmäisestä eli 25/25. Kokonaispistemäärä oli 100/125
      Lesbot
      3
      786
    9. solmussa solmussa

      Tilanne solmussa. Umpisommussa🫢
      Ikävä
      35
      709
    10. Saanko mies tulla sun kainaloon nukkumaan?

      En saa unta kun mietin sua❤️ Saako tulla sun viereen ja käpertyä sun kainaloon?
      Ikävä
      43
      681
    Aihe