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
365
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
Erään T miehen viimeinen aloitus tänne
Moi Olen kirjoittanut täällä säännöllisesti yli 5 vuotta. Kaivannut kuten kuuluukiin, mutta myös unohdellut ja selvitel405350Sanna vaihteeksi Australian "60 minuuttia" ohjelmassa
Kansanvälinen superstaramme esiintyi tällä kertaa toisella puolen maapalloa esitettävässä ohjelmassa. Kiinnostus on kova1602763Yritykset verolle ja yritystuet 10 mrd. eur/v pois
Kiristämistapauksissa yrityksille sanotaan hei hei. Suomi ei tarvitse yhteiskunnan rahoilla "yrittämistä". Yhteiskunta v1062272Yritän saada sinut pois mielestäni ja ajatuksistani nainen
Turhaan. Mitä enemmän yritän, sitä enemmän haluan sinut ja sinua. Miten voitkaan olla niin ihana ja tuntua niin hyvältä.801824Sanna Antikainen (ps) : Vornasen pyssy suututti demarit
https://www.suomenuutiset.fi/sanna-antikaisen-kolumni-vornasen-pyssy-suututti-demarit-mutta-kuka-puhuu-totta/ Vornasen251794Riikka se runnoo työttömyyttä lisää
Menkää töihin! "15–74-vuotiaiden työttömyysasteen trendiluku oli lokakuussa 10,3 prosenttia. Työttömiä oli yhteensä 276381777Sannalta jälleen fiksu lausunto johtamisesta
"I used to think the best argument would win – but real leadership means listening, understanding where people come from81762- 951649
Nyt meni maku vas.liittoon, kun vaativat minimituntipalkkaa lakiin
Sehän tarkoittaa samalla myös maksimituntipalkkaa, koska kun laki on kerran laadittu, niin sitä on vaikea muuttaa. Työma671505- 751489