Excel-Zahlen mit zwei Dezimalstellen

Schrieb ich folgenden einfachen code, der die Eingabe von Benutzer, die für N1 und N2 und fügt Sie auf und gibt Sie als Ausgang (N3).Es gibt ein Problem mit diesem, dass, es rundet jedes der Eingang, anstatt einfach nur die zahlen.

Einfaches Beispiel: N1 = 25.5, N2 = 25.5 Richtige Antwort = 51 aber die Antwort, die es gibt, ist die 52. Ich bin neu in der Programmierung, so würde jede Hilfe dankbar die ich bekommen kann.

Möchte ich es zur Anzeige N3 bis zu 6 Dezimalstellen ohne Rundung einzelnen Eingänge von der N1 und N2 in der Zeit der Einnahme Eingänge. 

Sub InputVariable()

    Dim N1 As Integer
    Dim N2 As Integer
    Dim N3 As Integer
    N1 = InputBox("Enter 1st number")
    N2 = InputBox("Enter 2nd number")
    N3 = N1 + N2
    MsgBox ("Your total is " & N3)
End Sub
InformationsquelleAutor InWoods | 2016-07-11
  1. 5

    Müssen Sie die Double Daten geben. Wenn Sie ein integer-Typ (Integer oder Long) es werden Runde die zahlen auf N1 = InputBox(...) weil es nicht speichern kann nicht-ganzzahlige Werte in den Variablen.

    edit: Double steht für double precision (8 byte) im Vergleich zu einfacher Genauigkeit (4 byte). Es ist interessant zu beachten, dass da Double verwendet das binäre Zahlenformat kann es nicht speichern die genauen Werte wie 0.1 (genau wie die dezimal-system kann nicht Ausdrücken, 1/3, egal wie viele Ziffern, die Sie haben).

    Wenn Sie tun müssen, um wirklich präzise Berechnungen mit dezimal-zahlen, es gibt die Decimal - format, die Sie verwenden können. Man kann nicht wirklich erklären, aber Sie können konvertieren einer Zahl in dezimal und speichern Sie es in einem Variant. Siehe dieses Beispiel:

    Sub precisionTest()
    Dim i As Long
    Dim dbl As Double
    Dim dblResult As Double
    Dim dec As Variant
    Dim decResult As Variant

    dblResult = 0
    decResult = 0
    dbl = 0.00001
    dec = CDec(0.00001)
    For i = 1 To 100000
    dblResult = dblResult + dbl
    decResult = decResult + dec
    Next i
    MsgBox "Double result: " & dblResult & vbCr & "Decimal result: " & decResult
End Sub

    edit2: Runden und formatieren von zahlen: können Sie die Format Funktion zu erstellen, die Saiten Ihrer Anzahl, ohne den Wert ändern (nur zur Darstellung). Gültige Formate Aussehen, "0.##" wo 0 bedeutet, dass die Dezimalstelle wird immer angezeigt und # bedeutet, ist es angezeigt, falls nicht null:

    Sub formatTest()
    Dim dbl As Double
    Dim dbl2 As Double
    Dim dbl3 As Double
    dbl = 1.234
    dbl2 = 1.2
    dbl3 = 0.1
    MsgBox "Format(1.234,""0.##"") = " & Format(dbl, "0.##") & vbCr _
    & "Format(1.234,""0.00"") = " & Format(dbl, "0.00") & vbCr _
    & "Format(1.2,""0.##"") = " & Format(dbl2, "0.##") & vbCr _
    & "Format(1.2,""0.00"") = " & Format(dbl2, "0.00") & vbCr _
    & "Format(0.1,""#.##"") = " & Format(dbl3, "#.##") & vbCr _
    & "Format(0.1,""0.00"") = " & Format(dbl3, "0.00") & vbCr
End Sub

    Wenn Sie wollen, um tatsächlich zu Runden Ihre Zahl, verwenden Sie Round(number,decimalplaces)

    • Ich bearbeitet habe, in ein paar mehr Infos über die format-Funktion
    • Vielen Dank für deine Hilfe @arcadeprecinct es funktioniert perfekt und danke für die Erklärung so ausführlich. Ich wirklich viel gelernt 🙂
    • Ich denke, es lohnt sich zu erwähnen, dass die Muster mit # immer verlassen dezimal-Trennzeichen (in meinem Fall ,) im Ergebnis, wie Format(0,"0.##") zeigt 0, und Format(0,"#.##") zeigt ,
    InformationsquelleAutor arcadeprecinct
  2. 1

    Als InWoods erwähnt, müssen Sie N1, N2 und N3 werden double-Typen, dann können Sie werfen Sie die Ausgabe in der print-Anweisung wie folgt:

    MsgBox ("Your total is " & Format(N3, "Standard"))

    Die standard-Formatierung enthält zwei Nachkommastellen.

    • Danke für die Hilfe Leute 🙂 Problem gelöst!
    • Dies funktioniert perfekt für ein weiteres Problem, mit dem ich konfrontiert war. Danke:) Könnten Sie mir sagen, wenn es ein Wörterbuch, dass die, die wir beziehen können, finden Sie die verschiedenen Werte formatieren, oder ist es durch die Erfahrung, dass Sie sagte, dass es standard sein sollte. Ty für die Hilfe mal wieder.
    • Nicht dass ich wüsste, obwohl Sie Durcheinander herum mit dem format, in Excel, um zu sehen, was der ouput wird. Schreiben Sie ein paar zahlen in eine Zelle, dann gehen Sie auf die Home-ribbon -> Number Format (dropdown-Liste) -> "Mehr Formate" (ganz unten) -> "Custom" (In der Kategorie-Liste) -> wählen oder Bearbeiten Sie Dann die geben Sie, bis Sie zufrieden sind.
    • Ich werde es mal ausprobieren 🙂 Es gibt so viel zu lernen für mich 😀
    InformationsquelleAutor Carmelid
Schreibe einen Kommentar