| | Post: 1 | Registrato il: 06/01/2019
| Città: TORCHIAROLO | Età: 65 | Utente Junior | 2013 | | OFFLINE | |
|
  13/02/2023 15:03 | |
Come sappiamo, nelle celle si possono inserire "Commenti" e, per leggeri, basta passarci sopra col mouse.
Ho un Foglio di lavoro con circa 400 righe nelle quali ci sono i Dati anagrafici di Donatori di sangue. In molte celle ci sono dei Commenti. Ogni mese, devo aggiornarli con altri nuovi nominativi inserendoli poi in ordine alfabetico.
Mi succede che, quando passo col mouse sulle celle dove sono presenti i Commenti (inseriti precedentemente), le finestrelle degli stessi, non riesco a leggerli perchè si spostano o sotto o sopra facendo fatica a leggerli.
C'è un modo per renderli fissi? |
|
| | Post: 7.115 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | ONLINE |
|
| 13/02/2023 17:06 | |
Ciao credo che si possa fare, ma vi è un contro, si spostano sopra o sotto perche si è raggiunto il limite della finestra, mettendoli fissi si rischia di non leggerli perche fuori finestra
se è un problema di lettura puoi ingrandire il testo del commento.
Ciao By Sal (8-D se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 1 | Registrato il: 06/01/2019
| Città: TORCHIAROLO | Età: 65 | Utente Junior | 2013 | | OFFLINE | |
|
| 13/02/2023 21:43 | |
Ho trovato un'escamotage...:
Tolgo i commenti e inserisco un "messaggio di input" in "Convalida Dati" 😉 |
| | Post: 7.118 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | ONLINE |
|
| 14/02/2023 07:11 | |
Si però per vederlo devi selezionare la cella e non passarci sopra con il mouse.
Ciao By sal (8-D
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 2 | Registrato il: 06/01/2019
| Città: TORCHIAROLO | Età: 65 | Utente Junior | 2013 | | OFFLINE | |
|
| 14/02/2023 08:24 | |
Ciao By Sal. Si, mi sono colorate le celle che hanno la Nota. |
| | Post: 1.543 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
| 14/02/2023 09:38 | |
ciao a tutti,
premesso che normalmente non adopero commenti nelle celle,
e che i commenti al posto che nelle celle, li ho inseriti nell'ultima colonna con intestazione "NOTE"
ho elaborato del codice da inserire nel modulo di tutti i fogli interessati.
Allego il file per i tuoi test e di seguito posto il codice.
Ciao
Frank
EDIT: Ho modificato il post per caricare il file corretto😀
vb Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Long, c As Long, avviso As Integer
Dim area As Range
r = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
c = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count
Set area = ActiveSheet.Range(Cells(2, 1), Cells(r, c))
With area
If Not Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then
If Cells(ActiveCell.Row, c).Value <> "" Then
avviso = MsgBox("Vuoi leggerele note?", vbYesNo, "Note")
If avviso = 6 Then
MsgBox (ActiveSheet.Cells(ActiveCell.Row, c).Text)
Else
Exit Sub
End If
End If
End If
End With
Set area = Nothing
End Sub
[Modificato da tanimon 14/02/2023 09:46]
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 1.544 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
| 14/02/2023 09:59 | |
meglio ancora con queste modifiche.
ciao
Frank
da
a
e
da
vb Set area = Nothing
End Sub a
vb esci:
Set area = Nothing
End Sub
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
|
|
|
|