Format Variabile del FORM

Hai un problema con Excel?

Nuova discussione

Format Variabile del FORM
di Saverio (utente non iscritto) data: 03/07/2017 10:39:20
Preciso che sono un neofita di VBA excel.
Ho definito un Form per inserire dei dati, un in particolare (Ovviamente text) rappresenta un importo, quando vada a salvare tale valore vorrei salvarlo nella cella in formato "Contabilità".
Le ho provate tutte ma il massimo che ho raggiunto è quanto segue :
- la cella che lo contiene viene effettivamente cambiata in "Contabilità", ma il valore che essa contiene rimane di tipo testo, infatti nell'angolino in alto a sinistra c'è il triangolino verde(Numero registrato testo). e per convertirlo definitivamente in Contabilità devo fare manualmente un doppio click sulla cella.
Come posso fare?
Vi Prego aiutatemi!!

Dim wsh As Worksheet
Dim uriga As Long
'Cerca l'ultima riga occupata e si posiziona sulla successiva
Set wsh = ThisWorkbook.Worksheets("Allenatori")
uriga = wsh.Range("A" & Rows.Count).End(xlUp).Row + 1
....
...
   wsh.Range("Q" & uriga).Value = CmbTipoPatentinoUEFA
    wsh.Range("R" & uriga).Value = UCase(CmbCategoria)
   'wsh.Range("S" & uriga).Value = TxtRimborsoMensile 'questa istruzione l'ho sostituia con il blocco che segue
    wsh.Range("S" & uriga & ":" & "S" & uriga).Select
     Selection.NumberFormat = _
    "_-[$€-2] * #,##0.00_ ;_-[$€-2] * -#,##0.00 ;_-[$€-2] * ""-""??_ ;_-@_ "
    Range("S" & uriga).Select
     ActiveCell.FormulaR1C1 = UTxtRimborsoMensile
     
wsh.Range("T" & uriga).Value = UCase(CmbTaglia)
'ultima texbox riempita

di Vecchio Frac data: 03/07/2017 11:01:20
Converti il risultato in un formato Currency oppure Double oppure Single prima di assegnarlo all'ActiveCell. Altrimenti assegnerai alla cella attiva sempre e soltanto un valore testo.

Vuoi Approfondire?