Risultati da 1 a 11 di 11

Discussione: Impostazioni del commento alla cella



  1. #1
    L'avatar di dpg70
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Trebaseleghe (PD)
    Età
    47
    Messaggi
    60
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    13

    Impostazioni del commento alla cella

    Buona domenica a tutti,
    apro questa mia discussione perchè vorrei impostare la posizione di visualizzazione a schermo, di un commento alla cella di Excel.
    Descrivo: applico un commento alla cella es. A9 al suo fianco passando col mouse si visualizza il commento, ma avendo bloccato la riga 10 con blocca riquadri, scrollando in basso sino es. A100 per cercare altri dati, tronco la visualizzazione del commento.
    Chiedo appunto come ovviare a questo taglio, sull'oggetto di commento.:270:
    Grazie, Dario.

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7115
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2060
    Likes dati
    1296

    Re: Impostazioni del commento alla cella

    Ciao,
    se ho ben capito ti si taglia il contenuto del commento.
    Potresti risolvere cliccando col tasto destro del mouse e scegliendo la voce "Modifica commento" a questo punto ti escono dei punti ancora e se provi a muoverti sopra ti spunta una manina quando vedi la manina tieni premuto il mouse e sposti più in alto il commento cosi che non venga tagliato quando scorri le celle in basso.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  3. #3
    L'avatar di dpg70
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Trebaseleghe (PD)
    Età
    47
    Messaggi
    60
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    13

    Re: Impostazioni del commento alla cella

    Ho provato più volte, sono molti anni che mi scontro col problema ma non era essenziale.
    Nel modifica commento, passando sull'oggetto, visualizzo solamente le frecce; la crocetta; la crocetta con le punte e non la manina.
    Utilizzando la crocetta con le punte, sposto il commento ma poi lo stesso mi riappare nella posizione iniziale.

  4. #4
    L'avatar di Allocco
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Napoli
    Messaggi
    292
    Versione Office
    2010
    Likes ricevuti
    48
    Likes dati
    6

    Re: Impostazioni del commento alla cella

    Ciao, si può fare ci sono codici che spostano o modificano il commento, devo trovare il file nell'archivio.

    ma esistono anche altri sistemi con selection_change del foglio.

    inserisci un esempio di prova tanto per vedere la struttura con alcuni commenti.

    Ciao Allocco(8-D)

  5. #5
    L'avatar di Allocco
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Napoli
    Messaggi
    292
    Versione Office
    2010
    Likes ricevuti
    48
    Likes dati
    6

    Re: Impostazioni del commento alla cella

    Ciao Sono riuscito a trovarlo, si tratta di anni fa, logico che il codice non è mio, ma recepito nel forum.

    ecco il codice da inserire nel modulo del foglio

    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Dim rng As Range
     Dim cTop As Long
     Dim lGap As Long
     Dim cmt As Comment
     Dim sh As Shape
     
     Application.DisplayCommentIndicator = xlCommentIndicatorOnly
     
     Set rng = ActiveWindow.VisibleRange
     cTop = rng.Top + rng.Height / 2
     lGap = 100 'distanza dai bordi
    If ActiveCell.Comment Is Nothing Then
    Else
      Set cmt = ActiveCell.Comment
      Set sh = cmt.Shape
      sh.Top = cTop - sh.Height / 2
      sh.Left = rng.Width - sh.Width - lGap
      cmt.Visible = True
    End If
    
    
    End Sub
    in effetti se la cella con il commento si trova vicino al lato dx e si seleziona la cella il commento diventa visibile spostandosi verso il centro della pagina "lGap" determina la distanza dal bordo dx.

    Ciao Allocco (8-D)

  6. #6
    L'avatar di dpg70
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Trebaseleghe (PD)
    Età
    47
    Messaggi
    60
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    13

    Re: Impostazioni del commento alla cella

    Ti ringrazio Allocco per il tuo interessamento, cercavo una soluzione più semplice esempio senza codice.
    Mi spiego: Il codice postato adattando le distanze funziona anche se devo capire le varie per me nuove istruzioni, ma crea nel mio file rallentamenti, oltre che ho dovuto inibire il mio codice Worksheet_SelectionChange
    che ho già presente nel foglio.

  7. #7
    L'avatar di Allocco
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Napoli
    Messaggi
    292
    Versione Office
    2010
    Likes ricevuti
    48
    Likes dati
    6

    Re: Impostazioni del commento alla cella

    Ciao Perchè, quel codice funziona su tutto il foglio non devi toccare il tuo selection_change, il codice funziona solo se la cella ha un Commento, va aggiunto al tuo codice sempre in selection_change.

    se mi dai il tuo selection_change vedo di integrarlo

    però non so se sconfiniamo nel VBA con il post.

    Ciao Allocco (8-D)

  8. #8
    L'avatar di dpg70
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Trebaseleghe (PD)
    Età
    47
    Messaggi
    60
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    13

    Re: Impostazioni del commento alla cella

    Questo in rosso è il mio codice Worksheet_SelectionChange

    *******
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'aggiorna in D1 il nr. della riga selezionata dalla cella

    If Not Intersect(Target, Cells) Is Nothing Then
    Range("D1").Value = Target.Row
    End If
    End Sub

    *******
    In questo modo se corretto, ho inserito al suo interno il tuo per la modifica del commento:

    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     
    Dim rng As Range
     Dim cTop As Long
     Dim lGap As Long
     Dim cmt As Comment
     Dim sh As Shape
    
    'dpg70: mi potresti descrivere a fianco i vari passaggi ?
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
     
     Set rng = ActiveWindow.VisibleRange
     cTop = rng.Top + rng.Height / 2
     lGap = 100 'distanza dai bordi
    If ActiveCell.Comment Is Nothing Then
    Else
      Set cmt = ActiveCell.Comment
      Set sh = cmt.Shape
      sh.Top = cTop - sh.Height / 2
      sh.Left = rng.Width - sh.Width - lGap
      cmt.Visible = True
    End If
    
    'segue la mia scrittura 
    If Not Intersect(Target, Cells) Is Nothing Then
        Range("D1").Value = Target.Row
    End If
    End Sub
    Però l'esecuzione richiede del tempo, rallentando il mio lavoro sul file.
    Cercherei ovviamente, se mi puoi indicare una soluzione più agile.

    Nel frattempo per aggirare l'ostacolo, ho inserito alla cella un'impostazione al messaggio di input dal Convalida dati di excel.

    Allocco, nel frattempo vorrei ringraziarti in qualche modo per il tuo interessante aiuto ed è vero che nel forum si ricevono questi aiuti, come da un legame tra veri amici. Trovo e rabadisco che il tuo aiuto, mi stimola all'impegno sul Vba e prima possibile spero di contraccambiare, anche se sarà difficile dato il mio livello. Ma penso di avere dell'attitudine all'ingegno e alla formattazione visiva dei file.

  9. #9
    L'avatar di Allocco
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Napoli
    Messaggi
    292
    Versione Office
    2010
    Likes ricevuti
    48
    Likes dati
    6

    Re: Impostazioni del commento alla cella

    Ciao dpg, facendo dei test, mi sono accorto che non funziona bene, dopo anni che sta in archivio, non ho avuto modo di controllarlo per bene, nel tuo codice è inutile racchiudere l'indicazione della riga nel costrutto "IF Not intersect(etc..." li puoi tranquillamente eliminare basta questo

    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'aggiorna in D1 il nr. della riga selezionata dalla cella
    
    Range("D1").Value = Target.Row
    
    End Sub
    in quanto non ha un range di riferimento.

    stavo vedendo di modificarlo rendendolo più versatile e mi sono accorto del problema.

    per vedere l'errore che determina il codice da me postato, fai una prova, metti il commento in una pagina, poi spostati di tante colonne da passare ad una nuova schermata senza vedere il commento precedente metti un commento e seleziona la cella del commento.

    Vedrai che il nuovo commento che hai inserito si andrà a visualizzare nella prima pagina, cioè spostandosi di molto a sx non risultando visibile.

    sto vedendo se riesco a superare l'ostacolo.

    Però il codice non dovrebbe crearti rallentamenti, in quanto non esegue nessun calcolo se non lo spostamento del commento.

    per il momento un Saluto sperando che riesca a superare il problema.

    Ciao Allocco (8-D)

  10. #10
    L'avatar di Allocco
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Napoli
    Messaggi
    292
    Versione Office
    2010
    Likes ricevuti
    48
    Likes dati
    6

    Re: Impostazioni del commento alla cella

    Ciao era proprio la distanza dal bordo "lGap" che creava il problema, ecco il codice non dovrebbe dare problemi.

    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range, cTop As Long, cWidth As Long, cmt As Comment, sh As Shape
     
    'imposta la visualizzazione dei commenti
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
     
    'determina il range dello schermo
    Set rng = ActiveWindow.VisibleRange
    'imposta il centro dello schermo
    cTop = rng.Top + rng.Height / 2
    cWidth = rng.Left + rng.Width / 2
    se la cella contiene un commento
    If Not ActiveCell.Comment Is Nothing Then
        'inizilizza l'oggetto commento
        Set cmt = ActiveCell.Comment
        Set sh = cmt.Shape
        'lo posiziona al centro dello schermo
        sh.Top = cTop - sh.Height / 2
        sh.Left = cWidth - sh.Width / 2
        'lo visualizza
        cmt.Visible = True
    End If
    'riporta la riga in D1
    Range("D1").Value = Target.Row
    End Sub
    ti ho commentato il codice per la funzione che svolge, l'ultima riga è il tuo codice.

    Ciao Allocco (8-D)

  11. #11
    L'avatar di dpg70
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Trebaseleghe (PD)
    Età
    47
    Messaggi
    60
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    13

    Re: Impostazioni del commento alla cella

    Citazione Originariamente Scritto da Allocco Visualizza Messaggio
    Ciao era proprio la distanza dal bordo "lGap" che creava il problema, ecco il codice non dovrebbe dare problemi.

    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range, cTop As Long, cWidth As Long, cmt As Comment, sh As Shape
     
    'imposta la visualizzazione dei commenti
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
     
    'determina il range dello schermo
    Set rng = ActiveWindow.VisibleRange
    'imposta il centro dello schermo
    cTop = rng.Top + rng.Height / 2
    cWidth = rng.Left + rng.Width / 2
    se la cella contiene un commento
    If Not ActiveCell.Comment Is Nothing Then
        'inizilizza l'oggetto commento
        Set cmt = ActiveCell.Comment
        Set sh = cmt.Shape
        'lo posiziona al centro dello schermo
        sh.Top = cTop - sh.Height / 2
        sh.Left = cWidth - sh.Width / 2
        'lo visualizza
        cmt.Visible = True
    End If
    'riporta la riga in D1
    Range("D1").Value = Target.Row
    End Sub
    ti ho commentato il codice per la funzione che svolge, l'ultima riga è il tuo codice.

    Ciao Allocco (8-D)
    Provato il codice nel mio file del tuo aggiornamento al Worksheet_SelectionChange confermo che funziona!
    Ti ringrazio della spiegazione che analizzero, confermo però che trovo più pratico nel mio caso l'utilizzo del messaggio di input dal Convalida dati.

    Allocco, l'inserimento di questa scrittura come a volte altre che inserisco nel mio file, rallenta l'esecuzione. Per dirti, utilizzando il cambio di selezione attivando così il SelectionChange, mi occorrono circa 6 secondi al completamento dell'istruzione.

    Ovviamente, il mio file ha qualche problema e ho già anticipato ad un moderatore del forum, la mia intenzione di inserirlo per una analisi di aiuto.
    Ancora grazie, Dario (dpg)

Discussioni Simili

  1. [Risolto] Inserimento commento in cella con userform
    Di G.Bove nel forum Domande su Excel VBA e MACRO
    Risposte: 27
    Ultimo Messaggio: 26/10/16, 18:36
  2. [Risolto] Copiare contenuto cella in un altro foglio e sotto forma di commento
    Di Guido nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 02/10/16, 22:47
  3. Nuove Icone nelle impostazioni
    Di Max nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 2
    Ultimo Messaggio: 08/06/16, 13:29
  4. Risposte: 3
    Ultimo Messaggio: 08/04/16, 12:34
  5. Cella con commento
    Di roky48 nel forum Domande su Excel VBA e MACRO
    Risposte: 15
    Ultimo Messaggio: 04/11/15, 13:08

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •