Azioni automatiche con Excel o Calc

[mazekika]

Buon sabato a tutti.
Mi sto cimentando in modo goffo, nella creazione di una tabella , sia con Excel ma anche con Calc di Openoffice, dove in una cella ho un segno di spunta e nel momento in cui inserisco il segno di spunta mi possa comparire nella cella a fianco la data esatta.
Sono una vera schiappa con le formule e con le macro di visual basic quindi sono qui a chiedere il vostro aiuto, inserirò un piccolo esempio di quello che intendo fare.

Immagine.JPG (13.71 KiB) Visto 3673 volte

In pratica si tratta di un foglio che mi permetta di tenere conto della regolarizzazioni di alcune attività con la data di spunta del completamento.

Grazie a tuti per il prezioso tempo dedicatomi.

[g.schgor]

Ma il tuo problema è creare il segno di spunta?
In questo caso puoi ricorrere all'alfabeto "Marlett" ("a" o "b")
E' poi ovvio che nella casella in cui deve apparire la data
ci deve essere una condizione SE...

[mazekika]

No g.schgor , il mio problema è oltre.
Il simbolo di spunta che io inserisco, nella realtà è un oggetto e non un carattere o simbolo grafico.
Questo oggetto della classe "tabelle" dei fogli elettronici, nelle proprietà ha la possibilità di essere associato ad una azione automatica in risposta ad una azione svolta, ovvero uno "script".
Qui vado in panico, nel senso che la mia intenzione era di fare sì che uno script o qualcosa di simile, al momento in cui metto il segno di spunta nella casella, mi scriva in quella a fianco, la data in cui viene messa la spunta.

Greazie per l'interessamento.

[EdmondDantes]

Una soluzione pratica se devi inserire poche CheckBox.

Inserisci una CheckBox (controllo ActiveX) nel foglio di Excel. Ti metti in modalità progettazione e clicchi due volte sul controllo appena inserito.
All'apertura dell'editor, inserisci il seguente codice:

Codice: Seleziona tutto

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("A1").Value = Date
ElseIf CheckBox1.Value = False Then
Range("A1").Value = ""
End If
End Sub

Se devi inserire più CheckBox questa soluzione risulta poco praticabile.
Inoltre, dato che non c'è nessun controllo, se clicchi accidentalmente su una CheckBox, perdi la data precedentemente inserita.

Codice: Seleziona tutto

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("A2").Value = Date
CheckBox1.Enabled = False
End If
End Sub

Inserendo questo codice, invece, disabiliti il controllo dopo il primo click e non potrai più riaccenderlo.

[mazekika]

Ti ringrazio Edmond Dantes, anche questo tuo esempio non calza propriamente " a pennello" con le mie aspettative.
Ho scovato, girovagando per la rete diversi esempi , che con un "merge" sto adattando alle mie esigenze.
Appena risolvo la cosa non mancherò di inserire la soluzione al mio problema.

Grazie ancora a tutti.

[PietroBaima]

Ciao,

guarda se una soluzione del genere può andarti bene.

Nella cella A2 ho inserito una checkbox, poi nelle sue proprietà (in modalità progettazione, tasto destro, sotto Control->Data ho specificato che la linked cell è A2 e il reference value on sia 1 e il reference value off sia 0).
In General->Label ho dato una label alla checkbox per indicare cosa sia.

Nella cella a fianco, la cella B2, ho scritto il seguente codice:

Codice: Seleziona tutto

=IF (A2="0";"";IF(B2="";TEXT(TODAY();"DD MMMM YYYY");B2))

Se ti viene fuori un Err:522 (perché non hai abilitato il calcolo iterativo del foglio) vai sulla voce del menu Tools->Options e poi su OpenOffice.org Calc->Calculate e abilita Iterations (i valori di default vanno bene).

Ti allego un file ods nel quale ho riportato quanto scritto qui.

Ciao,
Pietro.

date.zip

(9.03 KiB) Scaricato 124 volte

[mazekika]

Perfetto Pietro, sei stato prorpio gentile.
Ti sono veramente grato.

Ciao.

[PietroBaima]

Figurati, dovere di sito...

Quindi era questo ciò che ti serviva?

[mazekika]

E' proprio quello che mi serviva
Ora sto preparando una ceck list per i miei tecnici che compileranno, prima di partire per gli interventi.

Grazie mille.

[PietroBaima]