ARROTONDA

Hai un problema con Excel?

Nuova discussione

arrotonda
di Mauro (utente non iscritto) data: 18/10/2013 15:06:58
Ciao a tutti, volevo arrotondare i numeri nella colonna B dalla riga 3 mantenendo (numero,00). I numeri li importo con il codice sotto.
Mauro

Sub Listinoprezzi()
Cancella2
p = 3
For a = 3 To 1000
If Foglio1.Cells(a, 1).Value = "Vendita" Then
Foglio2.Cells(p, 1).Value = Foglio1.Cells(a, 2).Value
Foglio2.Cells(p, 2).Value = Foglio1.Cells(a, 11).Value
p = p + 1
End If
Next a
Range("A3:B100").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlNo
End Sub

di Grograman (utente non iscritto) data: 18/10/2013 15:26:57
Senza entrare nel merito del codice (omessa dichiarazione variabili, variabile inutile, utilizzo incosciente della proprietà codename), ti serve la funzione "arrotonda", o "round" in vba.

Option Explicit

Sub Listinoprezzi()
Dim a As Long
  
  For a = 3 To 1000
    If Foglio1.Cells(a, 1).Value = "Vendita" Then
      Foglio2.Cells(a, 1).Value = Application.WorksheetFunction.Round(Foglio1.Cells(a, 2).Value, 0)
      Foglio2.Cells(a, 2).Value = Application.WorksheetFunction.Round(Foglio1.Cells(a, 11).Value, 0)
    End If
  Next a
  Range("A3:A100").NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"
  Range("A3:B100").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlNo
End Sub

arrotonda
di Mauro (utente non iscritto) data: 18/10/2013 16:27:14
Grograman, ti ringrazio per la risposta,
il codice è perfetto
Ho bisogno di un esempio pratico per il codename (non so cosa sia)
Mauro

Vuoi Approfondire?