033. Gestione Commenti tramite VBA

Download PDF

Domanda:

sto cercando cortesemente un codice VBA per inserire un commento in una cella, ma fino quì nessun problema, il codice consiste nel fatto che se trovo la cella già occupata da un precedente commento lo possa modificare con quello che inserisco in una textbox.

Risposta:

Per verificare la presenza di un commento in una cella si può utilizzare il seguente codice:

Dim mycomment As Comment
Set mycomment = ActiveCell.Comment

If mycomment Is Nothing Then
           'MsgBox "non è presente nessun commento"
Else

<<<< Codice in caso sia presente un commenti >>>>

End if

Nel file d’esempio, una volta rilevata la presenza di un commento faccio apparire un msgbox per mettere di decidere se modificarlo oppure no.

In caso si volesse modificarlo, faccio apparire un Inputbox che riporta il commento attuale e permette di scrivere il nuovo testo:

NuovoCommento = Application.InputBox(prompt:="Inserisci in nuovo commento", Title:="Commento attuale: '" & mycomment.Text & "'", Type:=2)

E’ necessario a questo punto prevedere il caso l’utente cambi idea, decida di non fare modifiche e prema “Annulla”

If NuovoCommento = False Then      ' se = FALSE si è premuto 'ANNULLA'
   Exit Sub
Else

Per inserire il nuovo commento utilizzo l’istruzione:

 ActiveCell.Comment.Text Text:=NuovoCommento

Nel caso del nostro lettore, mi pare di capire che la gestione della base dati avvenga in una Userform

contenente diversi TextBox. Il codice dovrà quindi essere modificato eliminando l’apparizione dell’Inputbox

> NuovoCommento = Application.InputBox(prompt:=”Inserisci in nuovo commento”, Title:=”Commento attuale: ‘” & mycomment.Text & “‘”, Type:=2)

da sostituire con:

NuovoCommento = NomeMiaUserform.NomeMiaTextBox

A voi il file:
APRI

Riccardo Vincenti

The following two tabs change content below.