Formattazione cifre con 2 decimali ed il punto alle cifre che indicano le migliaia.

Question

Buongiorno, come potete notare dai frammenti di codice remmati, sottoriportati, sto provando in vari modi a formattare l'importo derivato dalla somma di un range nel formato  con 2 decimali e punto per le cifre delle migliaia.

Come posso visualizzare il numero in questo modo per esempio, € 1.235,46.

Ora invece il codice me lo visualizza in questo modo € 1235,46

Public Sub m1()

     Dim SH As Worksheet

     Dim s As String

          Set SH = ThisWorkbook.Worksheets("Foglio1")

     With SH

         s = "=SUM(C2:C80000)"

         's = Format(s, "0.00")

         's = Format(s, "#,##0.00")

         MsgBox ("La somma complessiva di tutti gli importi finora inseriti ammonta a :" & "€ " & Evaluate(s))

     End With

     Set SH = Nothing

 End Sub

Ciao Nicola

P.S. il codice è dell'amico Mauro Gamberini

Answer 1

Ma non devi mettere il risultato in una cella?

Mi sa che ho capito male io....

Se lo vuoi in una MsgBox:

Public Sub m()

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        MsgBox Format(Evaluate("=SUM(A1:A10)"), "€ #,###.00")

    End With

    Set sh = Nothing

 End Sub

Answer 2

Ok.

Ciao e alla prossima.

Answer 3

Ciao Mauro, grazie, si avevo necessità di visualizzare l'importo in una  MsgBox.

Alla prossima richiesta di aiuto.

Ciao Nicola.

Answer 4

Ciao Mauro, grazie innanzitutto per il cortese riscontro.

Non ti seguo, sono confuso quando dici:

Utilizzo ActiveCell (cosa che *aborro*) solo perché è un esempio.

Tu la sostituirai con i tuoi riferimenti, eh!

Per adattare i miei riferimenti ai tuoi dovrei solo cambiare il range ( C2:C80000) e lasciare in variato

ActiveCell.Value = Evaluate("=SUM(C2:C80000)")

ActiveCell.NumberFormat = "$ #,##0.00" .

Quindi ActiveCell con quale mio riferimento lo sostituisco**?**

Ciao Nicola.

Answer 5

Utilizzo ActiveCell (cosa che *aborro*) solo perché è un esempio.

Tu la sostituirai con i tuoi riferimenti, eh!

;-)

Public Sub m()

    Dim sh As Worksheet

    Dim d As Double

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        d = Evaluate("=SUM(A1:A10)")

        ActiveCell.Value = d

        ActiveCell.NumberFormat = "$ #,##0.00"

    End With

    Set sh = Nothing

End Sub

Oppure:

Public Sub m()

      Dim sh As Worksheet

      Set sh = ThisWorkbook.Worksheets("Foglio1")

      With sh

            ActiveCell.Value = Evaluate("=SUM(A1:A10)")

            ActiveCell.NumberFormat = "$ #,##0.00"

      End With

      Set sh = Nothing

 End Sub