VBA commentare cella con macro

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
FedericoDrudi
00mercoledì 10 febbraio 2016 09:09
Qual è il codice per inserire un commento in una cella tramite macro? La variabile A mi assume un valore che ho bisogno di inserire come commento.
In giro ho trovato qualche discussione dove dichiaravano A as comment ma non sono riuscito a capire bene.
Grazie!
dodo47
00mercoledì 10 febbraio 2016 09:52
Ciao
prova:
...
    A = "TuoCommento"
    With Range("A1")
    .AddComment
    .Comment.Visible = False '(oppure True)
    .Comment.Text Text:=A
    End With
...


saluti
FedericoDrudi
00mercoledì 10 febbraio 2016 10:22
Funziona, la ringrazio.
Già che ci sono le faccio un paio di domande riguardo al codice, se ha tempo e voglia mi risponde, se no non fa niente.
Se è un ciclo, che ciclo è il WITH?
Perchè mette il punto (".") all'inizio della riga?
Se la casella bersaglio non fosse più A1 ma una cella variabile come cambia il codice? Ho provato così ma mi da errore global:

With Range(Foglio1.Cells(a, 1))
....
dodo47
00mercoledì 10 febbraio 2016 11:39
Re:
FedericoDrudi, 10/02/2016 10:22:

Funziona, la ringrazio.
Già che ci sono le faccio un paio di domande riguardo al codice, se ha tempo e voglia mi risponde, se no non fa niente.
Se è un ciclo, che ciclo è il WITH?
with non è un ciclo ma esegue alcune istruzioni contenute in esso: (With ...istruzioni...End With).

Perchè mette il punto (".") all'inizio della riga?
il PUNTO sottintende (in questo caso) Range("A1") e pertanto evita di doverlo ripetere ogni volta

Se la casella bersaglio non fosse più A1 ma una cella variabile come cambia il codice? Ho provato così ma mi da errore global:

With Range(Foglio1.Cells(a, 1))
....
per quanto riguarda una cella variabile, questo è un esempio:
a = 2
MioCommento = "TuoCommento"
With Worksheets("Foglio1").Cells(a, 1)
.AddComment
.Comment.Visible = False '(oppure True)
.Comment.Text Text:=MioCommento
End With

che inserisce nella riga 2 della colonna 1 il commento




saluti


FedericoDrudi
00mercoledì 10 febbraio 2016 13:40
Perfetto. Grazie mille per il suo tempo.
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 15:27.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com