Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Наглухо виснет программа.

88K
28 января 2014 года
Kolesnichkov
2 / / 28.01.2014
Подскажите пожалуйста, не понимаю, в чем проблема, при запуске программа наглухо виснет.
Собственно, дано 6 столбцов по 14 строк, первый из которых являет сбой кратность, остальные 5 - числа.
Необходимо установить, кратны ли числа заданному числу из первого столбца, если да, то ничего не меняется, если нет, то необходимо уменьшить или увеличить число(в ближайшую сторону) и добавить примечание.
До примечания еще не добрался, пытаюсь сделать первую часть.


Код:
Private Sub Кнопочка_Click()
Const n = 5, m = 14, x = 14, y = 5
Dim a(2 To m, 2 To n)    As Variant
Dim b(2 To m, 2 To n) As Variant
Dim c(2 To m, 2 To n) As Variant
 
 
 
With Range("A1:F15")
.NumberFormat = "General"
.Value = .Value
End With
 
For i = 2 To m
For j = 2 To n
For k = 2 To m
For l = 2 To n
a(k, l) = Cells(i, j)  Cells(2, 1)
b(k, l) = Cells(i, j) / Cells(2, 1)
c(k, l) = b(k, l) - a(k, l)
 
 
Do While c(k, l) > 0
If c(k, l) < 0.5 Then Cells(i, j) = Cells(i, j) - 1 And Cells(i, j).Interior.Color = 6
 
If c(k, l) >= 0.5 Then Cells(i, j) = Cells(i, j) + 1 And Cells(i, j).Interior.Color = 4
 
 
Loop
Next
Next
Next
Next
 
End Sub
1.8K
29 января 2014 года
alcatraz_kms
148 / / 01.10.2013
Может я ошибаюсь, но все же рискну предположить, что возможно у вас условия или цикл не имеют завершения, тем самым цикл так скажем повторяется бесконечно?
37K
29 января 2014 года
freets
97 / / 15.10.2010
 
Код:
Do While c(k, l) > 0
If c(k, l) < 0.5 Then Cells(i, j) = Cells(i, j) - 1 And Cells(i, j).Interior.Color = 6
 
If c(k, l) >= 0.5 Then Cells(i, j) = Cells(i, j) + 1 And Cells(i, j).Interior.Color = 4
 
Loop
Условие
 
Код:
c(k, l) > 0
не меняется, поэтому while выполняется бесконечно
88K
29 января 2014 года
Kolesnichkov
2 / / 28.01.2014
Спасибо большое, вопрос уже решен.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог