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

334

    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. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      215
      4118
    2. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      65
      2624
    3. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      393
      2381
    4. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      47
      2313
    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      32
      1541
    6. Muutama kysymys ja huomio hindulaisesta kulttuurista.

      Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul
      Hindulaisuus
      516
      1323
    7. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      95
      1306
    8. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      56
      1287
    9. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      75
      1253
    10. Jumala puhui minulle

      Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles
      Ikävä
      125
      1176
    Aihe