Некорректное округление остатков товара

[andreysuperman42]

Добрый день.
Не могу разобраться с десятичными остатками при списании товара со склада. Когда остатки без десятичных дробей, тогда все работает нормально.
Расскажу алгоритм работы:
Запускаем форму, при двойном нажатии мышью товар последовательно вставляется в ListBox2. При нажатии кнопки Списать, товар из ListBox2 списывается на листе EXCEL, но не округляет до сотых.

[gling]

Здравствуйте. Я бы изменил строку

 Sheets(1).Cells((Arr(i, 0)) + 1, 3) = Format(Sheets(1).Cells((Arr(i, 0)) + 1, 3) - Sheets(1).Cells((Arr(i, 0)) + 1, 4), "0.00") * 1 ' Высчитываем остаток товара

Попробуйте.

[andreysuperman42]

Да, все получилось.
Функцию Format я пробовал подставлять, но так чтобы в конце умножить на 1 не догадался.
Спасибо, gling.

[andreysuperman42]

Сделал немного проще, без копирования значений в ячейки на листе.

Private Sub CommandButton2_Click()
    Dim Arr    ' массив в ListBox2

    Arr = Me.ListBox2.List    ' назначаем массив из ListBox2
    On Error Resume Next    ' При ошибке в строке переходим на следующую строку
    For i = 0 To UBound(Arr)    ' Цикл для отобранного товара в ListBox2,,,
        If Err.Number <> 0 Then Exit Sub    ' Если ListBox2 не заполнен, ничего не происходит (вызывается ошибка 13)
        Sheets(1).Cells((Arr(i, 0)) + 1, 3) = Format(Sheets(1).Cells((Arr(i, 0)) + 1, 3) - Val(Arr(i, 3)), "0.00") * 1 ' Высчитываем остаток товара
    Next i
    Unload Me    ' Закрываем форму
End Sub

Но за подсказку все равно спасибо