Errore 1004

Hai un problema con Excel?

Nuova discussione

Errore 1004
di Cyber One data: 08/10/2013 13:35:29
Buongiorno a tutti sono nuovo di qui,

sto creando un piccolo programmino per un amico con Excel 2003, ma ho incontrato un piccolo problemino .
Quando tento di aggiungere un commento ad una cella mi esce quel "simpaticissimo" error 1004.

Questo è il codice dove Riga, Colonna sono le variabili Integer contenenti le coordinate della cella e ImpaginamentoCommento è la variabile String dove ho costruito il testo del commento l'errore me lo segna sulla prima riga riportata qui di seguito:

Grazie in anticipo per l'aiuto spero di essere stato chiaro

Foglio1.Cells(riga, Colonna + 1).AddComment (ImpaginamentoCommento)
Foglio1.Cells(riga, Colonna + 1).Comment.Shape.Fill.ForeColor.SchemeColor = 1
Foglio1.Cells(riga, Colonna + 1).Comment.Shape.Height = 170
Foglio1.Cells(riga, Colonna + 1).Comment.Shape.Width = 250
        With Foglio1.Cells(riga, Colonna + 1).Comment.Shape.TextFrame.Characters.Font
            .Name = "Arial"
            .Size = 9
            .Bold = False
            .Italic = False
            .Color = RGB(0, 0, 0)
        End With

di Vecchio Frac data: 08/10/2013 16:14:24
Il problema dei commenti è che sono delle bestiacce ^_^
Non funzionerà se nella cella è già presente un commento.
Prova la sub che ti allego, è vecchia ma serve ancora a qualcosa ^_^
Nel tuo codice la useresti così, al posto della prima riga:
set_comment Foglio1.Cells(riga, Colonna + 1), ImpaginamentoCommento

'la sub serve per impostare un commento (o cancellarlo, se si imposta il secondo parametro su una stringa nulla).

Sub set_comment(r As Range, s As String)
    If Not (r.Comment Is Nothing) Then r.Comment.Delete
    s = Trim(s)
    If s = "" Then Exit Sub
    With [r].AddComment
        .Visible = False
        .Text s
    End With
End Sub

di Cyber One data: 08/10/2013 19:17:00
Grazie mille funziona tutto

Vuoi Approfondire?