Moi, osaisko joku antaa ohjetta/kaavaa/makroa millä saisi esim A5 soluun kirjoitetun kommentin tekstin siirrettyä tekstinä soluun A6? Tämänhän voisi tehdä käsin kopioimalla kommentin tekstin ja liittämällä sen soluun, mutta näitä kommentteja olisi siirrettävänä tällä kertaa suhteellisen paljon..
Excelin solukommentti tekstinä soluun
peruskäyttäjä
7
380
Vastaukset
- alkusiinä
Alla olevasta voi lähteä muokkaamaan mieleistänsä makroa. Tuo siis siirtää valituissa soluissa olevat tekstit niiden samojen solujen kommenteiksi. Jos vaikka haluaa sitten esimerkiksi vieressä oikealla olevaan soluun, niin muuttaa Selection.Cells(i, j).AddCom.... kohdan muotoon Selection.Cells(i,j 1).AddCom.....
Sub kommentiksi()
For i = 1 To Selection.Rows.Count
For j = 1 To Selection.Columns.Count
If Len(Selection.Cells(i, j).Text) > 0 Then
Selection.Cells(i, j).AddComment (Selection.Cells(i, j).Text)
End If
Next
Next
End Sub- alkusiinä
Heh, kysymys olikin toisin päin. Unohda tuo.
- alkusiinä
alkusiinä kirjoitti:
Heh, kysymys olikin toisin päin. Unohda tuo.
Tämä makro laittaa kommenttisolun sisällön sen oikealla puolella olevan solun arvoksi.
Sub kommentista()
For i = 1 To Selection.Rows.Count
For j = 1 To Selection.Columns.Count
If Not Selection.Cells(i, j).Comment Is Nothing Then
Selection.Cells(i, j 1).Value = Selection.Cells(i, j).Comment.Text
End If
Next
Next
End Sub
- dfdsfdfsfdsfsfss
no voi jumal... eikö se vaan olekin helpompi kirjoittaa se kommentti SIIHEN SOLUUN?????????
- Tämmöinen
Function Kommentti(r As Range) As String
Dim k As String
On Error Resume Next
k = ""
k = r.Comment.Text
Kommentti = k
End Function - ORCL
moduuliin:
Sub KommentitSolunArvoksi()
' aktiivisen välilehden kommentit viereisen solun arvoksi
Dim Kommentti As Comment
For Each Kommentti In ActiveSheet.Comments
Range(Kommentti.Parent.Address).Offset(, 1).Value = Kommentti.Text
Next
End Sub - kyselijä22332
Kiitos, tämä auttoi!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Lataus pakkaskelissä
En olisi koskaan ostanut sähköautoa jos olisin tajunnut että ne eivät lataa pakkasissa suurteholatauksella vaan istut tu1104334Kun väestö ikääntyy ja veronmaksajat vähenee, mitä sitten vasemmistolaiset?
Maahanmuutto ei vaan ole ratkaisu väestön ikääntymiseen. Maahanmuutto lykkää ja hidastaa väestön ikääntymistä ja työv572478Miksei Trump ole kiinnostunut Suomen valloittamisesta?
Täällähän on enemmän turvetta kuin Norjalla öljyä. Eikö Ttump ole turvenuija?781650Kyllä mä suren
Sitä että mikään ei ole kuten ennen. Ei niitä hetkiä ja katseita. Toisaalta keho lepää eikä enää tarvitse sitä tuskaa ko61113- 66854
- 21833
Olet mies aika ailahteleva luonteeltasi
Olen nähnyt kuinka olet iloinen, sosiaalinen ja osallistuva. Autat ja kannustat muita. Ja sitten olen nähnyt kuinka istu118823- 39792
Olisin valmis tutustumaan uudelleen
En menneisyyden kautta vaan haluaisin tutustua ihmiseen, jollaiseksi olet kasvanut.50779- 62768