Другие языки программирования и технологии
Срочно помгите в exel сделать что бы результат умножения выводился не как ошибка!
ячейки от F1 до F500 заполнены числами делящимися на 4 с остатком 1 начиная с 5
вот макрос "длинного умножения"
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, что указывает на правильность "длинного умножения"

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, что указывает на правильность "длинного умножения"

Для этого напиши формулу с умножением правильно.
Каков вопрос - таков и ответ.
Каков вопрос - таков и ответ.
А где ошибка? И что там в ячейках? И что на что умножалось?
Похожие вопросы
- Вопрос тем, кто знает Pascal! Как сделать так, чтобы результат программы, который выводится на экран,
- Срочно! Удалил Corel Draw X6, стал устанавливать X5, в конце установки пишет ошибку, что уже установлена другая версия
- ЗАЩИТА СЕКРЕТНОГО ФАЙЛА EXEL
- EXEL-3.0 Как из одного столба данных исключить значения другого столбца обычному пользователю?
- как в delphi сделать чтобы при нажатии на определенную кнопку выводился другой символ??
- помогите найти ошибку в коде VBA exel !
- Формула в Exel
- Скажите, возможна сверка двух файлов формата exel
- VB. Макросы в MS Exel.
- формула Exel HALP!!!!