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

344

    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. 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.
      Kotimaiset julkkisjuorut
      208
      1668
    2. Sofia 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 pai
      Kotimaiset julkkisjuorut
      96
      1590
    3. Stepuli 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ä
      Kotimaiset julkkisjuorut
      96
      1496
    4. Sofia 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.
      Kotimaiset julkkisjuorut
      254
      1394
    5. Voi 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.
      Kotimaiset julkkisjuorut
      134
      1362
    6. Minä menetän sinut kokonaan

      Siksi olen paniikissa, sekaisin ja surullinen. Taitaa olla jonkinasteinen stressitila päällä. Toivottavasti sinulla on kaikki hyvin.
      Ikävä
      48
      893
    7. Onpas 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 kanssa
      Kotimaiset julkkisjuorut
      115
      882
    8. Suomi 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" luotii
      Maailman menoa
      420
      857
    9. Veikkauksia 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 kai
      Maailman menoa
      290
      826
    10. Uskomatonta 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, Brysse
      Maailman menoa
      347
      812
    Aihe