Grazie mille dei consigli, si ""Usa impostazioni di sistema" è selezionato , ho provato a deselezionarlo per cambioare la virgola con l'apostrofo, ma cambia solo la visualizzazione, il resto continua a non fare quello che vorrei. Aggiungo che la formattazione in celle excel funziona alla perfezione, si vede il numero con la separazione di migliaio e lo posso leggere tranquillamente come numero. Purtroppo non riesco a fare lo stesso sui text box (o variabili string) nell'esempio sottostante ho usato una variabile stringa al posto del text box ... succede la stessa cosa ..ecco cosa:
Private Sub CbFormatta_Click()
Dim Valor As Double
Dim Monto As String
' Esempio 1
Monto = Format(70000, "#,##0"): MsgBox Monto ' Risultato = 70
Valor = Val(Monto): MsgBox Valor 'Risultato = 70
' Esempio 2
' Formattato con <'> (apostrofo) anzichè <,> (virgola) visualizza il valore
' correttamente formattato <70'000> pero al trasformarlo in numero ritorna il <70>
Monto = Format(70000, "#'##0"): MsgBox Monto 'Risultato = 70'000
Valor = Val(Monto): MsgBox Valor 'Risultato = 70
End Sub
- La formattazione classica (esempio 1) non riesco a farla funzionare, nemmeno in visualizzazione.
- Nel esempio 2 usando l'apostrofo riesco ad ottenere la visualizzazione corretta ma poi ho problemi a convertirlo in numero.
Per favore ...qualche altro consiglio?