Modifica note in cella excell

Question

Non mi fa modificare le note immesse nelle celle di excel, clicco sulla cella esce il menu a tendina scelgo modifica e tutto sparisce, help

Answer 1

Ciao Cristiano,

Non mi fa modificare le note immesse nelle celle di excel, clicco sulla cella esce il menu a tendina scelgo modifica e tutto sparisce, help

Di solito questo problema è causata dal fatto che il commento è stato spostato al di fuori del campo visualizzato sullo schermo, oppure che il commento è stato ridotto ad un'altezza o una larghezza invisibile. Tali problemi possono manifestarsi durante la normale manipolazione di dati di un foglio,

Per ripristinare la visibilità dei commenti provare qualcosa del genere:

• Alt+F11 per aprire l'editor di VBA
• Alt+IMper inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Dim Rng As Range, rCell As Range

    Dim sText As String, sMsg As String

    Dim i As Long, iButtons As Long

    Const sTitle As String = "REPORT"

    On Error Resume Next

    Set Rng = ActiveSheet.Cells.SpecialCells(xlCellTypeComments)

    On Error GoTo XIT

    If Rng Is Nothing Then

        sMsg = "Nessun commento è stato trovato"

        iButtons = vbCritical

        GoTo XIT

    End If

    For Each rCell In Rng.Cells

        With rCell

            With .Comment

                sText = .Text

                .Delete

            End With

            .AddComment

            .Comment.Text Text:=sText

        End With

    Next rCell

    sMsg = "Finito"

XIT:

    Call MsgBox( _

         Prompt:=sMsg, _

         Buttons:=vbInformation, _

         Title:="REPORT")

End Sub

'<<========= 

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l’estensione xlsm
• Alt+F8 per aprire  la finestra di gestione delle macro
• Seleziona Tester | Esegui

===

Regards,

Norman