Onko mahdollista saada tehtyä JOS lauseke solun kommenttiin ?
Tehtävän anto on siis seuraavanlainen;
Laske p/e -luvun ja osinkotuottoprosentin välinen
korrelaatio ja kommentoi sen arvoa muutamalla sanalla.
Käytä Excelin solukommentti -ominaisuutta.
Eli siis jos korrelaatio on välillä 0,1-1, tulisi näkyviin eri kommentti kun taas jos se on nolla tai sen alle?
Vs.
Ellei sitä voi tehdä kommenttikenttään (hiiren oikealta napsauttaessa kun löytyy se "lisää kommentti", jota oletan tässä tehtävän annossa tarkoitettavan vai mitä tuo solukommentti-ominaisuus voisi muuta tarkoittaa?), niin miten tuo kannattaisi tehdä?
;)
Kiitos jo etukäteen!
Tehtävän anto on siis seuraavanlainen;
Laske p/e -luvun ja osinkotuottoprosentin välinen
korrelaatio ja kommentoi sen arvoa muutamalla sanalla.
Käytä Excelin solukommentti -ominaisuutta.
Eli siis jos korrelaatio on välillä 0,1-1, tulisi näkyviin eri kommentti kun taas jos se on nolla tai sen alle?
Vs.
Ellei sitä voi tehdä kommenttikenttään (hiiren oikealta napsauttaessa kun löytyy se "lisää kommentti", jota oletan tässä tehtävän annossa tarkoitettavan vai mitä tuo solukommentti-ominaisuus voisi muuta tarkoittaa?), niin miten tuo kannattaisi tehdä?
;)
Kiitos jo etukäteen!
Vastaukset 1
Vanhimmat
Tehtävässäsi pitää vain kommentoida vastaussolun tulosta kommentissa, eikä jossitella(tuskin opettajasi osaa VBA:ta...). Toki VBA:n avulla voi koodata monia ja monia variaatioita asiasta muotoilut, kaaviot yms.).
Mutta jos nyt aloitetaan siitä yksinkertaisimmasta mitä kysyit eli jossittelu solun tuloksen perusteella... ;-)
ko. taulukon moduuliin
muuta kommenttisolu(=kaavan tulos solu) oikeaksi nyt A1
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Kommentti As Comment
Set Kommentti = Range("A1").Comment
If Kommentti Is Nothing Then
Range("A1").AddComment
If Range("A1") < 0 Then
Range("A1").Comment.Text "pakkasella ollaan"
Else
Range("A1").Comment.Text "jotakin muuta kommenttiin"
End If
Else
If Range("A1") < 0 Then
Range("A1").Comment.Text "pakkasella ollaan"
Else
Range("A1").Comment.Text "jotakin muuta kommenttiin"
End If
End If
End Sub
Keep EXCELing
@Kunde