Несанкционированный выброс из цикла

@Chiks · Регистрация: 20.06.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте, нужна помощь знающих!
Есть программа, код:

Visual Basic

Sub CmbProg_Click()
 For i = 0 To 6
  If CmbProg.Text = CmbProg.List(i) Then NumberProg = i + 1
 Next i
 If NumberProg <> 7 Then
    For j = 9 To 10
     Rows(j).EntireRow.Hidden = True
    Next j
end if

проблема в том, что при начале второго цикла (где скрываются строки), вместо того,чтобы завершить цикл (скрыть все строки с 9-ой по 16-ую), выполнение программы после j=9 перескакивает снова на самую первую строку программы...а далее, при начале повторного выполнения цикла со скрытием строк-выдается ошибка. Почему так происходит, почему происходит выброс из цикла?

SoftIce · 19.12.2012, 19:57

А если закомментировать строку

Visual Basic

1	Rows(j).EntireRow.Hidden = True

то всё нормально работает?

@~~Апострофф~~ · 19.12.2012, 20:29

Chiks, распиши цель задачи нашим языком, пожалста

@Chiks · 20.12.2012, 10:30 **[ТС]**

Сообщение от SoftIce

А если закомментировать строку

Visual Basic

1	Rows(j).EntireRow.Hidden = True

то всё нормально работает?

Да, если закомментить, то все работает нормально...что не правильно в этой строчке-непонятно для меня

Добавлено через 3 минуты

Сообщение от Апострофф

Chiks, распиши цель задачи нашим языком, пожалста

Цель: при выборе из выпадающего списка определенного значения -некоторые строки Excel должны отображаться, если выбрано любое другое значение из того же списка, то строки должны скрываться. Но в том коде,что я привел-есть какая-то ошибка,связанная с процедурой скрытия строк-почему то выкидывает из цикла снова на начало выполнения всей процедуры...

SoftIce · 20.12.2012, 10:44

Сообщение от Chiks

Да, если закомментить, то все работает нормально..

Со 99% уверенностью могу сказать, что "выброса" из цикла не происходит, а выполнение кода

Visual Basic

1	Rows(j).EntireRow.Hidden = True

вызывает цепь событий (каких, не могу сказать,не посмотрев код), в конце которой событие CmbProg_Click

Так что всё логично

@Chiks · 20.12.2012, 10:55 **[ТС]**

Сообщение от SoftIce

Со 99% уверенностью могу сказать, что "выброса" из цикла не происходит, а выполнение кода

Visual Basic

1	Rows(j).EntireRow.Hidden = True

вызывает цепь событий (каких, не могу сказать,не посмотрев код), в конце которой событие CmbProg_Click

Так что всё логично

весь код процедуры здесь:

Visual Basic

Private Sub CmbProg_Click()
 For i = 0 To 6
  If CmbProg.Text = CmbProg.List(i) Then NumberProg = i + 1
 Next i
 If NumberProg <> 7 Then
    For j = 9 To 16
     Rows(j).EntireRow.Hidden = True
    Next j
    Chk1.Visible = False
    Chk2.Visible = False
    Chk3.Visible = False
    Chk4.Visible = False
    Chk5.Visible = False
    Chk6.Visible = False
    Chk7.Visible = False
 Else
    For i = 9 To 16
     Rows(i).EntireRow.Hidden = False
    Next i
    Chk1.Visible = True
    Chk2.Visible = True
    Chk3.Visible = True
    Chk4.Visible = True
    Chk5.Visible = True
    Chk6.Visible = True
    Chk7.Visible = True
 End If
End Sub

К сожалению, продолжает выкидывать...при пошаговым выполнении, только одна строчка из цикла скрывается а далее процедура начинает выполняться снова...и, когда снова дойдет до цикла с сокрытием строк - вылетает ошибка "Run-time error '1004': Нельзя установить свойство Hidden класса Range"

SoftIce · 20.12.2012, 11:02

Сообщение от Chiks

К сожалению, продолжает выкидывать.

Да не выкидывает из цикла.
Причина не в коде этой процедуры.

Где то в другом месте.

Весь код секретный?

@Chiks · 20.12.2012, 11:09 **[ТС]**

Да нет, конечно, не секретный))Я весь код дал...ни одной другой строчки кода в данной книге Excel нет...Дело не может быть в настройках Excel на данном конкретном компьютере?

@~~Апострофф~~ · 20.12.2012, 11:12

Для начала давайте определимся с разделом.
Очевидно речь идёт об VBA?

SoftIce · 20.12.2012, 11:13

Сообщение от Chiks

в данной книге Excel

Книга тоже секретная?

@~~Апострофф~~ · 20.12.2012, 11:18

Chiks, кем и как заполняется список CmbProg?

@Chiks · 20.12.2012, 11:27 **[ТС]**

Сообщение от SoftIce

Книга тоже секретная?

Книга вот здесь

@Chiks · 20.12.2012, 11:29 **[ТС]**

Сообщение от Апострофф

Chiks, кем и как заполняется список CmbProg?

Список строго задан на том же листе Excel (адреса ячеек прописаны в свойстве ListFillRange списка).

@StepInLik · 20.12.2012, 11:33

1. попробуйте вынести эту строку в отдельную функцию
2. попробуйте переместить вызывающую кнопку в другую область листа (кнопку, листбукс)
3. запретите EnableEvents
4. когда проходите в дебаге и снова выходите (как вы говорите) на первую строку - нажмите Ctrl+L - и изучите порядок вызовов функций (возможно, между вылетом и переходом отрабатывает что-то еще)

@~~Апострофф~~ · 20.12.2012, 11:41

Chiks, опустите источник списка ниже 16 строки листа и данная проблема исчезнет.

@Chiks · 20.12.2012, 11:46 **[ТС]**

Сообщение от Апострофф

Chiks, опустите источник списка ниже 16 строки листа и данная проблема исчезнет.

Да, благодарю))ступил я сильно)

Добавлено через 1 минуту

Сообщение от StepInLik

1. попробуйте вынести эту строку в отдельную функцию
2. попробуйте переместить вызывающую кнопку в другую область листа (кнопку, листбукс)
3. запретите EnableEvents
4. когда проходите в дебаге и снова выходите (как вы говорите) на первую строку - нажмите Ctrl+L - и изучите порядок вызовов функций (возможно, между вылетом и переходом отрабатывает что-то еще)

Спасибо за отклик!не могли бы уточнить мне на будущее, что означает пункт 3?где его можно запретить?

@Hugo121 · 20.12.2012, 12:38

В любом месте кода:

Visual Basic

1	Application.EnableEvents=false

Так Эксель не будет реагировать на события, произведённые кодом, да и вообще.
Поэтому не забудьте в конце сделать обратное.

@Казанский · 20.12.2012, 16:02

Application.EnableEvents относится к событиям приложения (Worksheet_SelectionChange, Workbook_Open и т.д.).
На события элементов управления эта установка никак не влияет!
Для запрещения обработки событий элементов управления приходится вводить переменную-флаг и проверять ее состояние, например

Visual Basic

Dim busy As Boolean 'переменная модуля
 
Private Sub CmbProg_Click()
If busy Then Exit Sub 'немедленный выход из процедуры обработки события
busy = True
 
'здесь код, который может вызвать события и повторный вызов этой процедуры
 
busy = False
End Sub

@StepInLik 1069 / 107 / 4 Регистрация: 19.12.2012 Сообщений: 449
	20.12.2012, 11:33	14
	1. попробуйте вынести эту строку в отдельную функцию 2. попробуйте переместить вызывающую кнопку в другую область листа (кнопку, листбукс) 3. запретите EnableEvents 4. когда проходите в дебаге и снова выходите (как вы говорите) на первую строку - нажмите Ctrl+L - и изучите порядок вызовов функций (возможно, между вылетом и переходом отрабатывает что-то еще) 0

@~~Апострофф~~ Заблокирован
	20.12.2012, 11:41	15
	Chiks, опустите источник списка ниже 16 строки листа и данная проблема исчезнет. 1

@~~Апострофф~~ Заблокирован
	19.12.2012, 20:29	3
	Chiks, распиши цель задачи нашим языком, пожалста 1

SoftIce es geht mir gut 11272 / 4756 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	20.12.2012, 11:02	7
	Сообщение от Chiks К сожалению, продолжает выкидывать. Да не выкидывает из цикла. Причина не в коде этой процедуры. Где то в другом месте. Весь код секретный? 1

@Chiks 0 / 0 / 0 Регистрация: 20.06.2011 Сообщений: 46
	20.12.2012, 11:09 [ТС]	8
	Да нет, конечно, не секретный))Я весь код дал...ни одной другой строчки кода в данной книге Excel нет...Дело не может быть в настройках Excel на данном конкретном компьютере? 0

@~~Апострофф~~ Заблокирован
	20.12.2012, 11:12	9
	Для начала давайте определимся с разделом. Очевидно речь идёт об VBA? 0

SoftIce es geht mir gut 11272 / 4756 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	20.12.2012, 11:13	10
	Сообщение от Chiks в данной книге Excel Книга тоже секретная? 0

@~~Апострофф~~ Заблокирован
	20.12.2012, 11:18	11
	Chiks, кем и как заполняется список CmbProg? 0

@Chiks 0 / 0 / 0 Регистрация: 20.06.2011 Сообщений: 46
	20.12.2012, 11:29 [ТС]	13
	Сообщение от Апострофф Chiks, кем и как заполняется список CmbProg? Список строго задан на том же листе Excel (адреса ячеек прописаны в свойстве ListFillRange списка). 0

@Chiks 0 / 0 / 0 Регистрация: 20.06.2011 Сообщений: 46
	20.12.2012, 11:46 [ТС]	16
	Сообщение от Апострофф Chiks, опустите источник списка ниже 16 строки листа и данная проблема исчезнет. Да, благодарю))ступил я сильно) Добавлено через 1 минуту Сообщение от StepInLik 1. попробуйте вынести эту строку в отдельную функцию 2. попробуйте переместить вызывающую кнопку в другую область листа (кнопку, листбукс) 3. запретите EnableEvents 4. когда проходите в дебаге и снова выходите (как вы говорите) на первую строку - нажмите Ctrl+L - и изучите порядок вызовов функций (возможно, между вылетом и переходом отрабатывает что-то еще) Спасибо за отклик!не могли бы уточнить мне на будущее, что означает пункт 3?где его можно запретить? 0