Другие языки программирования и технологии

Срочно помгите в exel сделать что бы результат умножения выводился не как ошибка!

ячейки от F1 до F500 заполнены числами делящимися на 4 с остатком 1 начиная с 5
Tender Rain
Tender Rain
340
вот макрос "длинного умножения"
Sub fmult()
Range("H:BB").ClearContents
Cells(1, 8) = 5
For ii = 2 To 500
perenos = 0
startk = 0
For kk = 20 To 8 Step -1
If Cells(ii - 1, kk) > 0 And startk = 0 Then
startk = kk
End If
If startk > 0 Then
mmm = Cells(ii, 6) * Cells(ii - 1, kk) + perenos
If mmm > 99999 Then
Cells(ii, kk) = mmm Mod 100000
perenos = Int(mmm / 100000)
Else
Cells(ii, kk) = mmm
perenos = 0
End If
If kk = 8 And perenos > 0 Then
For jj = 21 To 9 Step -1
Cells(ii, jj) = Cells(ii, jj - 1)
Next jj
Cells(ii, 8) = perenos
perenos = 0
End If
End If
Next kk
Next ii
End Sub

вот результат его работы, как раз показана область где обычные формулы уже сбойнули из-за переполнения, слева показаны формулы которые вы забыли упомянуть)) )
обратите внимание на чудесное совпадение первых 2 цифр в столбцах
G и H, что указывает на правильность "длинного умножения"

ММ
Максут Молдобаев
50 705
Лучший ответ
Для этого напиши формулу с умножением правильно.
Каков вопрос - таков и ответ.
Алексей Шатов
Алексей Шатов
32 266
А где ошибка? И что там в ячейках? И что на что умножалось?