Formato numérico en un MsgBox
Hola!
Tengo una pequeña macro que simplemente informa al usuario del total de una columna. Esta cifra no está escrita en ninguna celda. El problema es que no sé como darle un formato numérico con dos decimales a esa cifra que aparece en el MsgBox
Esta es la macro:
Sub Totales()
Dim total as long
total = Application.Sum(ActiveWorkbook.Worksheets("Hoja1").Range("A:A"))
MsgBox "Suma Total: " & total
End Sub
Muchas gracias de antemano,
Tengo una pequeña macro que simplemente informa al usuario del total de una columna. Esta cifra no está escrita en ninguna celda. El problema es que no sé como darle un formato numérico con dos decimales a esa cifra que aparece en el MsgBox
Esta es la macro:
Sub Totales()
Dim total as long
total = Application.Sum(ActiveWorkbook.Worksheets("Hoja1").Range("A:A"))
MsgBox "Suma Total: " & total
End Sub
Muchas gracias de antemano,
1 Respuesta
Respuesta de calvuch
1
Acá esta:
Sub Totales()
Dim total As Long
total = Application.Sum(ActiveWorkbook.Worksheets("Hoja1").Range("A:A"))
MsgBox "Suma Total: " & FormatNumber(total, 2)
End Sub
No olvides cerrar la pregunta
Sub Totales()
Dim total As Long
total = Application.Sum(ActiveWorkbook.Worksheets("Hoja1").Range("A:A"))
MsgBox "Suma Total: " & FormatNumber(total, 2)
End Sub
No olvides cerrar la pregunta
