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?
Solun kommenttiin linkki
Anonyymi
10
177
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- 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
SDP haluaa LISÄÄ veroja bensa-autoille!
Sdp:n vaihtoehtobudjetti esittää polttomoottoriautoille lisää veroja Sdp esittää tuoreessa vaihtoehtobudjetissaan verot27318334Riikka se jytkytti BKT:stä nyt 0,3 prosenttia pois
Ja vain kolmessa kuukaudessa! Vuositasollahan tuo tarkoittaa reilun prosentin pudotusta. Pärjäisi varmaan lasketteluss10110530Vasemmistoaate on aatteista jaloin
Kaikki saavat ja kukaan ei jää ilman. Kuka tuollaista voisi vastustaa?3897059Mihin kaikkeen sinä ihastuit hänessä
Mikä oli se asia mikä vei jalat altasi? ❤️ Oliko jotain erityistä tilannetta vai tunne? Kenties monen sattuman summa? Ai706175Persut: haluamme lisää veroja!
Lisää lisää veroja huutaa persukuoro. Veroila Suomi nousuun! "Uusi matkailuvero eli matkailijamaksu peritään esimerki414656Brittiläinen vasemmistolehti: Sanna Marin oli vihdoin rehellinen
Nyt tulee pahasti lunta tupaan Seiskan tähtitytölle. Ex-pääministerin kirjaa arvostellaan latteuksista ja itsekehusta.853434"Purra löylytti oppositiota", sanoi naistoimittaja Pöllöraadissa
Kyllä, Purra tekee juuri sitä työtä mitä hänen tuossa asemassa pitää tehdä, hän antaa oppositiolle takaisin samalla mita1243008Alexander C. G. riisti demari-Veijolta arvonimen
"Stubb myönsi 66 arvonimeä ja peruutti yhden arvonimen. Presidentti Tarja Halonen myönsi Baltzarille kulttuurineuvoksen972545Jos samassa autossa istuu romani, somali ja venäläinen, kuka ajaa?
Arvioiden mukaan romanit lähtivät noin 1000-luvulla liikkeelle pohjois-Intiasta. Nyt 1000 vuotta myöhemmin he ovat levit332250MTV: Timo Jutila lataa suoraa tekstiä Pippa Laukan tylystä kritiikistä tosi-tv-kuvausten jälkeen
Juti sai kuulla kyllä kunniansa Olet mitä syöt -ohjelmassa elintavoistaan! Toki olihan siinä aika paljon rasvaista syötä282128