Kaikki keskustelut

    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

    <50

    Äänestä

    Vastaukset

    • 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

      • 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... ;-)

      • kunde kirjoitti:

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

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

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

      • 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 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 kirjoitti:

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

        Meinaatko saada Excelin toimimaan Winessä?

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

      • Ei.

    suomi24-logo

    Osallistu keskusteluun

    SEISKA.FI

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. En ymmärrä holokaustin kieltäjiä?

      Aivan sama kuin kieltäisi ettei 2 maailmansotaa ole ollutkaan. Onko heillä pimeä alue tuolta osin vai onko se tahallista kieltämistä. Jos myöntäisi se
      Maailman menoa
      310
      2803

    Liity mukaan keskusteluihin

    Meidän mielestämme keskustelu kuuluu kaikille. Jos haluat apua ongelmaasi, jakaa ajatuksiasi tai kysyä mielipiteitä, aloita keskustelu! Anonyymisti tottakai.

    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt