Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Inserire commento di celle variabili

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Inserire commento di celle variabili

Postdi enrico43 » 13/04/17 13:17

Buongiorno, nel file allegato c’è una formattazione condizionale basata sulle date delle celle della riga1 che colora le celle delle colonne relative alla “Domenica” e ad “Oggi”. Poi con una macro vengono aggiunti commenti nelle celle della colonna relativa ad “Oggi”. Il contenuto del commento è appunto la data, presa dalla colonna A. Contorto neh!!
Orbene, se la colonna “Oggi” fosse statica, con la macro avrei risolto il problema del commento aggiornato (ed anche il mio che mi fermerei all’età che ho oggi…boh…per me non ne vale la pena), ma siccome avanza in funzione della data, non riesco a sviluppare un istruzione che per ogni aggiornamento della colonna (blu) aggiorni anche il commento con la data della colonna A. Se poi l’obbiettivo potesse essere raggiunto senza l’appoggio della colonna A sarebbe il massimo.
Infine come autosizare il commento col vba.
Ringrazio, Vi saluto e ci sentiamo per gli auguri. Debbo però ancora chiedere la collaborazione di mia moglie.
Enrico
https://www.sendspace.com/file/fb410x
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Sponsor
 

Re: Inserire commento di celle variabili

Postdi Marius44 » 13/04/17 16:24

Ciao Enrico
Prova con questa macro (che è la tua, con qualche variazione, ma inserita nell'evento Workbook_Open)
Codice: Seleziona tutto
Option Explicit
Dim x As Byte
Dim n As Integer

Private Sub Workbook_Open()
Dim cln As Long
Dim mydate As Double
n = 13
mydate = Int(Now())
cln = Application.WorksheetFunction.Match(mydate, Sheets(1).Range("B1:IV1"), 0) + 1
Columns(cln).ClearComments
For x = 3 To n
    Cells(x, cln).AddComment
    Cells(x, cln).Comment.Visible = False
    Cells(x, cln).Comment.Text Text:=Range("A" & x) & Chr(10)
Next x
End Sub

Dovrebbe essere dinamica.
In poche parole, quando apri il file la macro cerca la data odierna e nella colonna relativa inserisce i commenti.

Fai sapere. Ciao,
Mario
Marius44
Utente Senior
 
Post: 537
Iscritto il: 07/09/15 22:00

Re: Inserire commento di celle variabili

Postdi enrico43 » 13/04/17 18:03

Funziona, ma non con il Workbook_Open, lancio il W_O come fosse una macro. Forse perchè lavoro con il 2003.
Mancava la dichiarazione di cln, risolto ed ho provato queste istruzioni per l'autosize del commento,
Cells(x, cln).ShapeRange.ScaleWidth 0.51, msoFalse, msoScaleFromTopLeft
Cells(x, cln).ShapeRange.ScaleHeight 0.27, msoFalse, msoScaleFromTopLeft
ma "Errore di run-time 438, Proprietà non supportata dall'oggetto". Neppure col
With cells(x,cln)
.autosize=True
End With
Qual'è l'istruzione giusta in vba per l'autosize?
E per eliminare l'A Capo nel messaggio?
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Re: Inserire commento di celle variabili

Postdi enrico43 » 13/04/17 19:34

Risolto con
Codice: Seleziona tutto
Option Explicit
Dim x As Byte
Dim n As Integer
Dim cln, comment
Dim xComment As comment
Private Sub Workbook_Open()
Dim mydate As Double
n = 13
mydate = Int(Now())
cln = Application.WorksheetFunction.Match(mydate, Sheets(1).Range("D1:IV1"), 0) + 3
Columns(cln).ClearComments
For x = 2 To n
    Cells(x, cln).AddComment
    Cells(x, cln).comment.Visible = False
    Cells(x, cln).comment.Text Text:=Range("A" & x) & Chr(10)
    Next x
For Each xComment In Application.ActiveSheet.Comments
 xComment.Shape.Width = 48
 xComment.Shape.Height = 12
 Next
    Range("W18").Select
End Sub

solo perchè tu mi hai risolto il problema della data nelle celle della colonna "Oggi" variabile in funzione della data del giorno.
Mi resta solo inspiegabile perchè il Workbook_Open non funziona.
Ciao e grazie
Enrico
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Re: Inserire commento di celle variabili

Postdi enrico43 » 13/04/17 19:44

Mi resta solo inspiegabile perchè il Workbook_Open non funziona.

Te lo dico io, pisquano. Hai messo la macro in un Modulo, ripisquano, il Workbook_Open va messo nel ThisWorkbook.
enrico43
Utente Senior
 
Post: 208
Iscritto il: 13/09/14 15:33
Località: Fiumicino

Re: Inserire commento di celle variabili

Postdi Marius44 » 13/04/17 21:37

Salve

Enrico mi sorprendi!
L'avevo anche detto :aaah dove andava inserito il codice (ed anche la variabile cln era dichiarata).

Forse a casa è incrementato l'andirivieni di elettricisti, idraulici, falegnami, ecc, e sei preoccupato? Fai una cosa: cambia casa, anzi cambia quartiere se non addirittura città. Se poi t'accorgi che il lattaio è sempre lo stesso ... allora preoccupati. :lol: :lol: :lol:

Ciao e migliori auguri,
Mario
Marius44
Utente Senior
 
Post: 537
Iscritto il: 07/09/15 22:00


Torna a Applicazioni Office Windows


Topic correlati a "Inserire commento di celle variabili":


Chi c’è in linea

Visitano il forum: Nessuno e 17 ospiti