Wie in der Runde, der mit excel-VBA round()?

Habe ich folgende Daten:

cell(1,1) = 2878.75
cell(1,2) = $31.10
cell(2,1) = $89,529.13

Jedoch, als ich versuchte zu verwenden round(cells(1,1).value*cells(1,2).value),2), das Ergebnis entspricht nicht cell(2,1). Ich dachte, es hat zu tun mit der Rundung Problem, aber ich Frage mich nur, ob es möglich ist, zu bekommen round() zu handeln in der Regel. Das heißt, für value > 0.5 Runden. Und für value < 0.5, abrunden?

"Das ist für Wert > 0,5 wird aufgerundet. Und für Wert < 0.5, Runde, nach unten?" Eigentlich Round verhält sich so. Das problem ist, was es tut, für value = 0.5.

InformationsquelleAutor Ting Ping | 2013-04-15

15

VBA verwendet Banker Rundung in einem Versuch, einen Ausgleich für die Neigung in immer auf-oder abrunden auf x, 5; Sie können statt;
```
WorksheetFunction.Round(cells(1,1).value * cells(1,2).value, 2)
```
- + 1 Wie üblich eine andere gute Antwort 🙂
- +1 für eine schöne und richtige Antwort
- "worksheetfunction." werden in der Regel langsam in vba
- was ist, wenn ich wollen, wählen Sie diesen Wert nach der Razzia? @Alex K
InformationsquelleAutor Alex K.

Versuchen Sie diese Funktion, es ist ok, um Runden einen Doppel -

'---------------Start -------------
Function Round_Up(ByVal d As Double) As Integer
    Dim result As Integer
    result = Math.Round(d)
    If result >= d Then
        Round_Up = result
    Else
        Round_Up = result + 1
    End If
End Function
'-----------------End----------------

InformationsquelleAutor ana

8

Wenn Sie abrunden möchten, verwenden Sie die Hälfte einstellen. Fügen Sie 0,5 bis Zahl aufgerundet und verwenden Sie die Funktion INT ().

Antwort = INT(x + 0.5)
- Funktioniert nicht für bereits Runde zahlen. E. g. Round(41.0 + 0.5) führt 42.
- In diesem Fall: answer = Iif(Int(x) = x, x, Round(x + 0.5)) verwendet Int zu prüfen, ob es Runde
- Nicht 42 die richtige Antwort? Was ist das problem?
- Nein, da 41 ist bereits Runde sollte die Antwort sein 41. Die 0,5 wird nur Hinzugefügt, in einem Versuch, immer eine Runde Zahl.
- Weiß nicht, was ich dachte. Wollte sagen, mit INT () - Funktion, nicht Funktion Round ().
- ...vielleicht "round up" eine andere Bedeutung hat, wo ich bin. Zu mir, "round up" bedeutet any value >x and <=y becomes y 1.01 wird 2. Ich denke, ich werde stick mit application.worksheetfunction.RoundUp(x,0) oder application.worksheetfunction.Ceiling(x,1).
- whhaaat? SO analysiert < + = als ein symbol, <=? well ain ' T that cute! ich bin überrascht, dass ich nie bemerkt, dass vor.
- humor war völlig verschwendet auf MLC-lmao
InformationsquelleAutor Steven Alpha
3

Bin ich die Einführung von Zwei custom-library-Funktionen verwendet werden, die in vba, die dem Zweck dienen, der Rundung der double-Wert anstelle der Verwendung von WorkSheetFunction.RoundDown und WorkSheetFunction.RoundUp
```
Function RDown(Amount As Double, digits As Integer) As Double
    RDown = Int((Amount + (1 / (10 ^ (digits + 1)))) * (10 ^ digits)) / (10 ^ digits)
End Function

Function RUp(Amount As Double, digits As Integer) As Double
    RUp = RDown(Amount + (5 / (10 ^ (digits + 1))), digits)
End Function
```
Somit die Funktion Rdown(2878.75 * 31.1,2) wird wieder 899529.12
und Funktion RUp(2878.75 * 31.1,2) wird wieder 899529.13
In der Erwägung, dass
Die Funktion Rdown(2878.75 * 31.1,-3) zurückkehren wird, 89000
und Funktion RUp(2878.75 * 31.1,-3) zurück 90000
- Diese tollen Funktionen!
InformationsquelleAutor ShamBhagwat
2

Versuchen, die RoundUp-Funktion:
```
Dim i As Double

i = Application.WorksheetFunction.RoundUp(Cells(1, 1).Value * Cells(1, 2).Value, 2)
```
- -1, der OP fragte nach einer Funktion, die Runden down für Wert <0.5. RoundUp verhält sich nicht so.
InformationsquelleAutor sous2817
2

Hatte ich ein problem wo ich hatte, um Runde bis nur und diese Antworten, die nicht arbeiten, wie ich hatte, um meinen code laufen, so habe ich eine andere Methode.
Die INT-Funktion rundet in Richtung negativ (4.2 geht auf 4, -4.2 geht bis -5)
Daher änderte ich meine Funktion zum negativen, Anwendung der INT-Funktion, dann kehrte Sie zu positiven einfach durch Multiplikation mit -1 vor und nach
```
Count = -1 * (int(-1 * x))
```
- x die variable, die Sie wollen, nur in der Runde, zählen die durch Sie noch weiter verwenden in Ihrem code
- Die Art und Weise war ich mit dem code war, um zu bestimmen, wie viele Seiten in einem Kalender wurden benötigt, um eine Seite pro Woche für einen bestimmten Monat. Die Gleichung basiert auf Tagen in einem Monat und wenn der erste Tag des Monats war.
- Für die Klarheit, ich den Namen das Jahr und der Monat Variablen, die Jahre und Monate, da das Jahr und den Monat sind bereits Funktionen in VBA. daysinmonth ist natürlich, wie viele Tage in einem Monat bestimmt, die mit einer vorherigen Gleichung. Wenn jemand interessiert ist, hier ist der code, den ich verwendet (vielleicht auch mehr Klammern als nötig, aber ich didnt Pflege zu Versuch und Irrtum zu verwenden, weniger): count = -1 * (Int((-1 * (daysinmonth + (DateSerial(Jahr, Monate, 1) - 1))) / 7))
InformationsquelleAutor Granticus
0

Math.Runde wird Banker Rundung und Runde auf die nächste gerade Zahl, wenn die Zahl, die gerundet werden fällt genau in der Mitte.

Einfache Lösung, die Verwendung Worksheetfunction.Runde(). Das wird die Runde, wenn Ihr auf der Kante.

InformationsquelleAutor Greg

Verwendet die Funktion "RDown" und "RUp" aus ShamBhagwat und erstellt eine andere Funktion, die zurückkehren wird der Runde Teil (ohne die Notwendigkeit zu geben, "Ziffern" für Eingang)

Function RoundDown(a As Double, digits As Integer) As Double
    RoundDown = Int((a + (1 / (10 ^ (digits + 1)))) * (10 ^ digits)) / (10 ^ digits)
End Function

Function RoundUp(a As Double, digits As Integer) As Double
    RoundUp = RoundDown(a + (5 / (10 ^ (digits + 1))), digits)
End Function

Function RDownAuto(a As Double) As Double
    Dim i As Integer
    For i = 0 To 17
        If Abs(a * 10) > WorksheetFunction.Power(10, -(i - 1)) Then
            If a > 0 Then
                RDownAuto = RoundDown(a, i)
            Else
                RDownAuto = RoundUp(a, i)
            End If
        Exit Function
        End If
    Next
End Function

ist die Ausgabe:

RDownAuto(458.067)=458
RDownAuto(10.11)=10
RDownAuto(0.85)=0.8
RDownAuto(0.0052)=0.005
RDownAuto(-458.067)=-458
RDownAuto(-10.11)=-10
RDownAuto(-0.85)=-0.8
RDownAuto(-0.0052)=-0.005

InformationsquelleAutor baziili

0

Dies ist ein Beispiel, j ist der Wert, den Sie möchten, um up-Runde.
```
Dim i As Integer
Dim ii, j As Double

j = 27.11
i = (j) ' i is an integer and truncates the decimal

ii = (j) ' ii retains the decimal

If ii - i > 0 Then i = i + 1 
```
Wenn der Rest größer als 0, dann rundet es sich, einfach. Bei 1.5 ist es auto-Runden zu 2, es wird also weniger als 0.

InformationsquelleAutor tango_golfaus

Hier ist eine die ich gemacht habe. Es funktioniert nicht verwenden Sie eine zweite variable, die ich mag.

        Points = Len(Cells(1, i)) * 1.2
        If Round(Points) >= Points Then
            Points = Round(Points)
        Else: Points = Round(Points) + 1
        End If

InformationsquelleAutor girhen

Dieser arbeitete für mich

Function round_Up_To_Int(n As Double)
    If Math.Round(n) = n Or Math.Round(n) = 0 Then
        round_Up_To_Int = Math.Round(n)
    Else: round_Up_To_Int = Math.Round(n + 0.5)
    End If
End Function

Können Sie bitte einige Erklärungen für deine Antwort, so für die anderen Benutzer können auch verstehen es einfach.

InformationsquelleAutor Stephen Walsh

Finde ich folgende Funktion ausreichend:

'
' Round Up to the given number of digits
'
Function RoundUp(x As Double, digits As Integer) As Double

    If x = Round(x, digits) Then
        RoundUp = x
    Else
        RoundUp = Round(x + 0.5 / (10 ^ digits), digits)
    End If

End Function

InformationsquelleAutor DrMarbuse

-3

Bekam ich einen workaround mich:

    'G = Maximum amount of characters for width of comment cell
    G = 100
    'CommentX
    If THISWB.Sheets("Source").Cells(i, CommentColumn).Value = "" Then
        CommentX = ""
     Else
        CommentArray = Split(THISWB.Sheets("Source").Cells(i, CommentColumn).Value, Chr(10)) 'splits on alt + enter
        DeliverableComment = "Available"
    End If
                        If CommentX <> "" Then

                            'this loops for each newline in a cell (alt+enter in cell)
                            For CommentPart = 0 To UBound(CommentArray)
                            'format comment to max G characters long
                                LASTSPACE = 0
                                LASTSPACE2 = 0
                                    If Len(CommentArray(CommentPart)) > G Then

                                        'find last space in G length character string to make sure the line ends with a whole word and the new line starts with a whole word
                                        Do Until LASTSPACE2 >= Len(CommentArray(CommentPart))
                                            If CommentPart = 0 And LASTSPACE2 = 0 And LASTSPACE = 0 Then
                                                LASTSPACE = WorksheetFunction.Find("þ", WorksheetFunction.Substitute(Left(CommentArray(CommentPart), G), " ", "þ", (Len(Left(CommentArray(CommentPart), G)) - Len(WorksheetFunction.Substitute(Left(CommentArray(CommentPart), G), " ", "")))))
                                                ActiveCell.AddComment Left(CommentArray(CommentPart), LASTSPACE)
                                            Else
                                                If LASTSPACE2 = 0 Then
                                                   LASTSPACE = WorksheetFunction.Find("þ", WorksheetFunction.Substitute(Left(CommentArray(CommentPart), G), " ", "þ", (Len(Left(CommentArray(CommentPart), G)) - Len(WorksheetFunction.Substitute(Left(CommentArray(CommentPart), G), " ", "")))))
                                                   ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text & vbNewLine & Left(CommentArray(CommentPart), LASTSPACE)
                                                Else
                                                   If Len(Mid(CommentArray(CommentPart), LASTSPACE2)) < G Then
                                                       LASTSPACE = Len(Mid(CommentArray(CommentPart), LASTSPACE2))
                                                       ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text & vbNewLine & Mid(CommentArray(CommentPart), LASTSPACE2 - 1, LASTSPACE)
                                                   Else
                                                       LASTSPACE = WorksheetFunction.Find("þ", WorksheetFunction.Substitute(Mid(CommentArray(CommentPart), LASTSPACE2, G), " ", "þ", (Len(Mid(CommentArray(CommentPart), LASTSPACE2, G)) - Len(WorksheetFunction.Substitute(Mid(CommentArray(CommentPart), LASTSPACE2, G), " ", "")))))
                                                       ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text & vbNewLine & Mid(CommentArray(CommentPart), LASTSPACE2 - 1, LASTSPACE)
                                                   End If
                                                End If
                                            End If
                                            LASTSPACE2 = LASTSPACE + LASTSPACE2 + 1
                                        Loop
                                    Else
                                        If CommentPart = 0 And LASTSPACE2 = 0 And LASTSPACE = 0 Then
                                          ActiveCell.AddComment CommentArray(CommentPart)
                                        Else
                                          ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text & vbNewLine & CommentArray(CommentPart)
                                        End If
                                    End If

                            Next CommentPart
                            ActiveCell.Comment.Shape.TextFrame.AutoSize = True

                        End If

Fühlen Sie sich frei, um mir zu danken. Funktioniert wie ein Zauber für mich und die autosize-Funktion funktioniert auch!

Wie wirkt sich diese die Frage beantworten?

InformationsquelleAutor JvLieshout

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.