Eine Variante abrunden

Question

Warum schreibt eine auf 1 Stelle gerundete Zahl immer noch mit vielen Ziffern nach Excel.

Zum Beispiel:

dim myvar as variant 
dim mysingle as single 
dim myrange as range 

mysingle = 4567.23494376 
myvar = round(mysingle,1) 

myrange = "A1" 
myrange.value = myvar 

Auch wenn ich myvar ich schreibe, die auf eine Stelle gerundet wurde Zelle A1, obwohl die Zelle 4567,2 zeigt, auf die Zelle klicken, zeigt den gesamten Wert mit allen Ziffern rechts von der Mantisse in der Formelleiste.

Sollte ich dieses Verhalten erwarten?

Answer 1

Versuchen myvar = WorksheetFunction.Round(mysingle, 1)

statt myvar = round(mysingle,1)

---

Bitte beachten Sie auch die folgenden Informationen zur Verfügung gestellt sehen von @YowE3K

WorksheetFunction.Round gibt immer einen Wert vom Typ Variant/Double, während Round einen Wert zurückgibt vom gleichen Typ wie die input parameter (Single in diesem Fall).

Answer 2

Mit Single ist fast immer eine schlechte Idee - Excel verwendet Doubles - Einzel-, Doppel- Umwandlung führt zu Schwierigkeiten - dieser Code funktioniert, wie Sie für das Doppel erwarten, sondern gibt Ihre unerwartete Antwort mit einem einzigen ohne Runde Beteiligung

Sub roundit() 
Dim myvar As Variant 
Dim myDouble As Double 
Dim mySingle As Single 
myDouble = 4567.23494376 
mySingle = 4567.2 
myvar = Round(myDouble, 1) 

Range("a1").Value = myvar 
Range("a2").Value = mySingle 
End Sub