Excelin solukommentti tekstinä soluun

peruskäyttäjä

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..

7

349

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Mieleni harhailee sinussa

      Uskon että tykkäät minusta. On vain yksi elämä. Silti jään paikoilleni ja odotan että jokin muuttuu. Menin palasiksi, ei
      Tunteet
      11
      2139
    2. Jännitän sinua J mies

      Ei tästä tulee mitään. Tuskin kaikki olis mennyt näin moneen solmuun, jos olis tarkoitettu meidät yhteen.
      Ikävä
      118
      1206
    3. Toivotko, että

      hän tulisi juttelemaan sinulle, vai lähestytkö mieluummin itse?
      Ikävä
      89
      1185
    4. Kuinka kauan kesti että ihastuit

      Kaivattuusi? Jos lasketaan siitä hetkestä alkaen kun näit hänet ensi kerran. Oliko jokin tilanne tai tapahtuma, joka voi
      Ikävä
      51
      993
    5. Orpo suunnittelee palestiinalaislasten Suomeen siirtoa

      "Sairaalahoitoa tarvitsevien lasten ottaminen Suomeen on lisäksi selvityksessä, Orpo sanoo. – Jos meillä on mahdolli
      Maailman menoa
      239
      985
    6. Olen käyttäytynyt sinua kohtaan väärin toistuvasti

      Puolustuksekseni täytyy sanoa, että ei ole ollut tahallista vaan seurausta harhaisista luuloista ja ajatuksista. Esimerk
      Ikävä
      63
      904
    7. Vaikutat tosi mielenkiintoiselta ja

      paksulta. 😂 m - n
      Ikävä
      84
      786
    8. Tunneälyä testaamaan!

      Testi pitää sisällään viisi osa-aluetta. Itse sain täydet tuosta ensimmäisestä eli 25/25. Kokonaispistemäärä oli 100/125
      Lesbot
      3
      786
    9. solmussa solmussa

      Tilanne solmussa. Umpisommussa🫢
      Ikävä
      35
      709
    10. Saanko mies tulla sun kainaloon nukkumaan?

      En saa unta kun mietin sua❤️ Saako tulla sun viereen ja käpertyä sun kainaloon?
      Ikävä
      43
      681
    Aihe