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
7
344
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
Martina oli sarjassaan tänään 32.
Mutta eikö pyöräily ja uinti ole vahvempia hänellä kuin juoksu? Aikaa on vielä harjoitella ennen Frankfurtin kisoja.2081668Sofia miksi soitit torstaina Stefanil ja pyysit käymään kun muka olet ahdistunut.?
Oliko asia suunniteltu, kun pyysi käymään ja varmasti tiesi et miten Stefan asiaan suhtautuu.Oliko myös Seiskan toimittaja pyydetty tarkoituksella pai961590Stepuli itkee facessa
Haluaisin pyytää julkisesti karseaa käytöstäni anteeksi lähimmiltä, naapureilta ja etenkin Sofialta! Ei ole missään olosuhteissa hyväksyttävää käyttä961496Sofia oli ainoastaan rahan takia suhteessa Stefanin ja Nikon kanssa.
Järkyttävää miten Sofia on käyttänyt hyväksi näitä molempia miehiä ja rahat loppu niin vain haukkumiset tullut kiitokseksi heille.2541394Voi kun menisi nyt Stefan katsoo tyttären uutta ponia, viettäisi aikaa hänen kanssa.
Aika parantaa kaiken ja meillä kaikilla on elämässä vastoinkäymisiä ja yli kyllä pääsee ainakin ajan kanssa.1341362Minä menetän sinut kokonaan
Siksi olen paniikissa, sekaisin ja surullinen. Taitaa olla jonkinasteinen stressitila päällä. Toivottavasti sinulla on kaikki hyvin.48893Onpas Martina valinnut sopivan laulun
Storyssa kun Isben poni tulee, " älä vie lapsuuttani pois." Äiti se lähtee mieluummin panopuuksi hotelliin, kuin viettäisi senkin ajan lastensa kanssa115882Suomi teki typeryyttään Venäjästä nyt konkreettisesti vihollisen, jota se ei aiemmin ollut.
Venäjä ei ole uhannut Suomen turvallisuutta, eikä Venäjän ja Ukrainan välinen konflikti ole signaloinut minkäänlaista uhkaa Suomelle. Se "uhka" luotii420857Veikkauksia milloin Venäjä hyökkää Suomeen?
Veikkaan että se tapahtuu nopeasti, ehkäpä jo kesäkuussa. Suomi 5,5 miljoonan harvaan asuttu maa. Venäjä ei tarvitse suurta joukkoa Suomeen, joten kai290826Uskomatonta miten "kassatyttö Sannasta" tuli hetkessä kuoleman kauppias.
Demarit on kautta historian olleet "takinkääntäjien"mestariluokkaa kokoomuksen hihassa kiinni. Sannan arviointikyky petti täysin Naton suhteen, Brysse347812