{"id":860,"date":"2014-01-17T12:32:05","date_gmt":"2014-01-17T11:32:05","guid":{"rendered":"http:\/\/www.office-guru.com\/wordpress\/?p=860"},"modified":"2014-04-12T17:18:19","modified_gmt":"2014-04-12T15:18:19","slug":"gestione-commenti-tramite-vba","status":"publish","type":"post","link":"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/gestione-commenti-tramite-vba\/","title":{"rendered":"033. Gestione Commenti tramite VBA"},"content":{"rendered":"
\"Download<\/a><\/div>

Domanda:<\/p>\n

sto cercando cortesemente un codice VBA per inserire un commento in una cella, ma fino qu\u00ec nessun problema, il codice consiste nel fatto che se trovo la cella gi\u00e0 occupata da un precedente commento lo possa modificare con quello che inserisco in una textbox.<\/p>\n

Risposta:<\/p>\n

Per verificare la presenza di un commento in una cella si pu\u00f2 utilizzare il seguente codice:
\n<\/p>\n

Dim mycomment As Comment\r\nSet mycomment = ActiveCell.Comment\r\n\r\nIf mycomment Is Nothing Then\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 'MsgBox \"non \u00e8 presente nessun commento\"\r\nElse\r\n\r\n<<<< Codice in caso sia presente un commenti >>>>\r\n\r\nEnd if<\/pre>\n
Nel file d’esempio, una volta rilevata la presenza di un commento faccio apparire un msgbox per mettere di decidere se modificarlo oppure no.<\/p>\n
In caso si volesse modificarlo, faccio apparire un Inputbox che riporta il commento attuale e permette di scrivere il nuovo testo:<\/p>\n
NuovoCommento = Application.InputBox(prompt:=\"Inserisci in nuovo commento\", Title:=\"Commento attuale: '\" & mycomment.Text & \"'\", Type:=2)<\/pre>\n
E’ necessario a questo punto prevedere il caso l’utente cambi idea, decida di non fare modifiche e prema “Annulla”<\/p>\n
If NuovoCommento = False Then\u00a0\u00a0\u00a0\u00a0\u00a0 ' se = FALSE si \u00e8 premuto 'ANNULLA'\r\n\u00a0\u00a0\u00a0Exit Sub\r\nElse<\/pre>\n
Per inserire il nuovo commento utilizzo l’istruzione:<\/p>\n
\u00a0ActiveCell.Comment.Text Text:=NuovoCommento<\/pre>\n
Nel caso del nostro lettore, mi pare di capire che la gestione della base dati avvenga in una Userform<\/p>\n
contenente diversi TextBox. Il codice dovr\u00e0 quindi essere modificato eliminando l’apparizione dell’Inputbox<\/p>\n
> NuovoCommento = Application.InputBox(prompt:=”Inserisci in nuovo commento”, Title:=”Commento attuale: ‘” & mycomment.Text & “‘”, Type:=2)<\/p>\n
da sostituire con:<\/p>\n
NuovoCommento = NomeMiaUserform.NomeMiaTextBox<\/p>\n
A voi il file:
\nAPRI<\/a><\/p>\n
Riccardo Vincenti<\/p>\n","protected":false},"excerpt":{"rendered":"
Domanda: sto cercando cortesemente un codice VBA per inserire un commento in una cella, ma fino qu\u00ec nessun problema, il codice consiste nel fatto che se trovo la cella gi\u00e0 occupata da un precedente commento lo possa modificare con quello … Continua a leggere→<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":"","jetpack_publicize_message":"","jetpack_is_tweetstorm":false,"jetpack_publicize_feature_enabled":true,"_links_to":"","_links_to_target":""},"categories":[13,6],"tags":[],"jetpack_featured_media_url":"","jetpack_publicize_connections":[],"jetpack_shortlink":"https:\/\/wp.me\/p39IU1-dS","jetpack_sharing_enabled":true,"jetpack_likes_enabled":true,"jetpack-related-posts":[{"id":1155,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/04\/calcolo-percentuale-con-vba\/","url_meta":{"origin":860,"position":0},"title":"049. Calcolo percentuale con VBA","date":"12 Aprile 2014","format":false,"excerpt":"Domanda: Buongiorno, chiedo il vostro aiuto in merito ad un problema con codice vba. Ho la colonna C con dei valori e nell'ultima cella, che pu\u00f2 variare di posizione, il totale. Ora vorrei creare un codice in vba che mi permetta di riportare in colonna D le diverse percentuali di\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":873,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/archivio-con-fotografie-degli-articoli\/","url_meta":{"origin":860,"position":1},"title":"035. Archivio con Fotografie degli articoli","date":"22 Gennaio 2014","format":false,"excerpt":"Damanda: devo associare la foto in formato jpg di una regione italiana quando nella descrizione di un vino compare il nome di quella regione. naturalmente ci sono 20 regioni + alcune nazioni x i vini esteri e le immagini devono comparire iu una cella con il risultato di un cerca\u2026","rel":"","context":"In "Excel"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":629,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/05\/individuare-duplicati\/","url_meta":{"origin":860,"position":2},"title":"021. Individuare duplicati","date":"24 Maggio 2013","format":false,"excerpt":"Domanda: Buongiorno a tutti, avrei bisogno del vostro aiuto se possibile. io ho una colonna excel piena di codici alfanumerici, questa colonna \u00e8 in costante aggiornamaento perch\u00e8 ogni giorno vengo inseriti alcuni codici. io avrei bisogno di un modo per sapere e evidenziare se il codice che sto inserendo \u00e8\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":569,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/04\/estrarre-un-valore-da-una-tabella-a-doppia-entrata\/","url_meta":{"origin":860,"position":3},"title":"Estrarre un valore da una tabella a doppia entrata","date":"22 Aprile 2013","format":false,"excerpt":"Come nei casi di tabelle km a doppia entrata spesso \u00e8 necessario estrarre alcuni dei dati presendti, ad esempio dando le coordinate (in questo caso la citt\u00e0 di partenza e quella di arrivo) e per recuperare il valore all'incrocio delle due e trasformare le informazioni in un formato come questo\u2026","rel":"","context":"In "Excel"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":829,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/selezione-file-tramite-finestra-di-dialogo\/","url_meta":{"origin":860,"position":4},"title":"029. Selezione File tramite finestra di dialogo","date":"16 Gennaio 2014","format":false,"excerpt":"Domanda: Ho una macro che per eseguire le varie operazioni previste necessita dell\u2019apertura di pi\u00f9 file ogni volta di nome diverso. Avrei pertanto bisogno di creare una MsgBox all\u2019interno della macro per selezionare i file che devono essere uitilizzati.\u00a0 Ringrazio in anticipo per la Vostra attenzione. Risposta: Per selezionare un\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":520,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/04\/creare-file-con-vba-ed-inviarli-via-mail-avanzato\/","url_meta":{"origin":860,"position":5},"title":"017. Creare file con VBA ed inviarli via mail (avanzato)","date":"20 Aprile 2013","format":false,"excerpt":"Ciao a tutti, in questo giorni ho modificato il Tool che invia allegati tramite email seguendo alcune necessit\u00e0 di Alessandra. Le modifiche sono le seguenti: 1) verifica della presenza dei nomi inseriti nella base dati con quelli presenti in elenco e segnalazione di eventuali assenze 2) selezione attraverso di un\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"_links":{"self":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/860"}],"collection":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/comments?post=860"}],"version-history":[{"count":3,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/860\/revisions"}],"predecessor-version":[{"id":1215,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/860\/revisions\/1215"}],"wp:attachment":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/media?parent=860"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/categories?post=860"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/tags?post=860"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}