Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 9 su 9

Incollare in cella contetuto textbox come valuta (euro)

  1. #1
    genespos non è in linea Scribacchino
    Ciao a tutti,
    in una textbox va inserito un importo (un numero) che converto (apparentemente) in euro con questo codice:
    TextBox1.Text = "€ " & Format(TextBox1, "#,###.00")
    
    Poi, però, devo davvero convertirlo in euro ed inserirlo in una cella di un foglio (evitando che mi venga inserito come testo) e sono riuscito a farlo solo così:
            Cells(1, 1) = CDbl(Right(Me.TextBox1.Text, Len(Me.TextBox1.Text) - 1))
            Cells(1, 1).NumberFormat = "$ #,##0.00"
    
    E' l'unico modo o c'è n'è uno migliore?

    Ciao e grazie

  2. #2
    ricky53 non è in linea Scribacchino
    Ciao,
    è preferibile prima impostare la tua cella con il contenuto numerico e con la valuta e poi formattare la TextBox1 in questo modo
        Cells(1, 1) = CDbl(Me.TextBox1)
        Cells(1, 1).NumberFormat = "€ #,##0.00"
    
    ℹ️ Leggi di più su ricky53 ...

  3. #3
    genespos non è in linea Scribacchino
    Grazie Ricky,
    quindi è inutile che mi sforzo di eliminare il segno "€" aggiunto alla textbox?

    Poi ho una curiosità: perché quando formatto in euro da VBA il simbolo "€" si trova vicino al numero mentre quando si usa il tasto sulla barra degli strumenti il simbolo "€" viene posizionato a sinistra della casella?

    E' possibile ottenere questo tipo di formattazione da VBA?
    Lo chiedo perché se si incolonnano più valori in un caso il simbolo "€" è allineato e nell'altro no.

    Ciao e grazie.

    P.S. è possibile fare in modo che la textbox accetti il "." del tastierino come una ","?
    Ultima modifica di genespos; 28-02-2014 23:43  Motivo: P.S.

  4. #4
    ricky53 non è in linea Scribacchino
    Ciao,
    risposta alla prima domanda: SI!

    risposta alla seconda domanda: a me piace la formattazione
    Cells(1, 1).NumberFormat = "€ #,##0.00"
    
    (che hai scelto tu)
    oppure quest'altra
    Cells(1, 1).NumberFormat = "#,##0.00 € "
    
    Non mi piace quella cui tu ti riferisci adesso ossia
    Cells(1, 1).NumberFormat = "€ * #.##0,00"
    
    Per il tuo P.S.:
    prova in questo modo
    Private Sub TextBox1_AfterUpdate()
        TextBox1 = Replace(TextBox1, ".", ",")
    End Sub
    
    Ultima modifica di ricky53; 01-03-2014 00:29 
    ℹ️ Leggi di più su ricky53 ...

  5. #5
    genespos non è in linea Scribacchino
    Grazie Ricky,
    sei stato esaurientissimo, sinceramente non sapevo dell'esistenza della formattazione "#,##0.00 € " (fa sempre bene imparare qualcosa di nuovo).

    Per quanto riguarda la formattazione "€ * #.##0,00" anch'io penso che sia bruttina ma è il formato più utilizzato e se devi portare dei calcoli a qualcuno è preferibile farlo nel modo in cui lui è abituato a vederli .

    Ciao e grazie ancora

  6. #6
    ricky53 non è in linea Scribacchino
    Ciao,
    i formati sono personalizzabili in tantissimi modi. Anche quelli proposti da excel possono essere modificati a piacimento.

    Come si dice: contento "lui" contenti tutti !!!
    ℹ️ Leggi di più su ricky53 ...

  7. #7
    genespos non è in linea Scribacchino
    Ciao Ricky,
    la mia gratitudine resta invariata (quello che segue è solo una battuta) ma mi hai fatto perdere una notte di sonno perché con "€ * #.##0,00" mi veniva fuori (ad esmpio) "€ 1.000,000" ovvero con 3 decimali.
    Ho letto e riletto tutto il codice per cercare l'istruzione che creava il problema fino a quando ho provato un registra macro e mi sono accorto che non dovevo scrivere:
    "€ * #.##0,00" ma
    "€ * #,##0.00".
    Almeno però stanotte dormirò meglio
    Ciao.

  8. #8
    ricky53 non è in linea Scribacchino
    Ciao,
    si avevo invertito il punto con la virgola ... avevo scritto come se fosse in un cella e non nel VBA solo in questo formato negli altri avevo scritto correttamente. Mi spiace averti fatto perdere tempo.

    Però hai fatto esperienza e ti ricorderai SEMPRE che il VBA è americano e vuole il punto dove c'è la virgola e viceversa per il punto per il quale vuole la virgola.
    ℹ️ Leggi di più su ricky53 ...

  9. #9
    genespos non è in linea Scribacchino
    Quote Originariamente inviato da ricky53 Visualizza il messaggio
    ... ti ricorderai SEMPRE che il VBA è americano e vuole il punto dove c'è la virgola e viceversa per il punto per il quale vuole la virgola.
    Su questo non c'è dubbio: sono sicuro che ricorderò benissimo la formattazione in euro.

    Ricordo anche che il mio professore di italiano diceva che sbagliare la punteggiatura rovinava tutto quello che si era scritto ... accidenti, aveva più ragione di quanto lui stesso avrebbe potuto immaginare!!!

    Ciao

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. MySQL Workbench e valuta in Euro da file csv
    Da vbrookie nel forum MySQL
    Risposte: 1
    Ultimo Post: 10-02-2018, 17:43
  2. Risposte: 1
    Ultimo Post: 15-05-2008, 22:43
  3. simbolo euro textbox
    Da oilcrovara nel forum Microsoft Word
    Risposte: 3
    Ultimo Post: 07-02-2006, 20:07
  4. Valuta in euro
    Da stefano_ nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 18-02-2004, 09:11
  5. textbox valuta
    Da NOSIRF nel forum Visual Basic 6
    Risposte: 1
    Ultimo Post: 23-09-2003, 19:07