Formattare le celle scritte attraverso la Userform

Question

Buonasera a tutta la community,

premetto che non sono bravo a programmare in vba ma dovendo

fare di necessità virtù in un mio progetto ho utilizzato una Userform,

trovata spulciando internet, all'interno della quale ho i seguenti controlli:

una combobox da cui è possibile selezionare il nr. della polizza assicurativa (formato testo);

un Data e Time Picker control da cui selezionare la data della polizza (formato valore);

tre Textbox, la prima in cui inserire l'importo del premio della polizza, la seconda per annotazioni varie (formato testo)

e la terza per inserire l'indirizzo di un collegamento ipertestuale selezionabile attraverso un CommandButton.

Il probblema è questo: i controlli che permettono l'inserimento di dati, copiano nelle celle di riferimento del foglio

excel solo il formato testo e nient'altro. come faccio a modificare il formato delle celle di destinazione??

Per essere chiaro; in una delle tre textbox devo inserire valori. Tali valori vengono scritti, sia nella textbox che nella cella di

destinazione, in formato testo e non riesco a modificarlo.

Potete aiutarmi??

Answer 1

Per essere chiaro; in una delle tre textbox devo inserire valori. Tali valori vengono scritti, sia nella textbox che nella cella di

destinazione, in formato testo e non riesco a modificarlo.

Capito poco. Devi fare la conversione. Vedi:

• http://msdn.microsoft.com/it-it/library/s2dy91zy.aspx

Qui due semplici esempi di conversione da testo a data/ora:

• http://www.maurogsc.eu/comefareperexcel/userformdata.aspx
• http://www.maurogsc.eu/comefareperexcel/userformoreminuti.aspx

Esiste anche la Funzione Format:

• http://msdn.microsoft.com/en-us/library/office/gg251755(v=office.15).aspx

Answer 2

...

Potete aiutarmi??

Le textbox, come dice il nome, utilizzano solamente il formato testo qualsiasi valore contengano: testi, numeri, date, ecc. Per convertire questi valori stringa nei corretti formati puoi utilizzare le varie funzione di conversione del formato: cdate(), clng(), cint() ...

consulta l'help per conoscerle tutte e per ottenere maggiori dettagli.

Poi per la conversione di un valore stringa in numerico puoi utilizzare anche VAL().

Attenzione, infine, al separatore decimale: il VBA utilizza solamente il punto.

Answer 3

Ciao Fausto,

Prova qualcosa del genere:

'=========>>

Private Sub CommandButton1_Click()

    ActiveSheet.Range("A1").Value = CDbl(Me.TextBox1.Value)

End Sub

'<<=========

===

Regards,

Norman