Версия для слабовидящих
Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

 

= Мир MS Excel/Выподает окно с "Run-time '28' - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Выподает окно с "Run-time '28'
DenchikZ Дата: Вторник, 05.11.2024, 07:37 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

2020
Раньше все хорошо работало но сейчас стало выпадать "Run-time error '28' out of stack space" , с кодом вроде все в порядке в чем причина не могу понять кто сталкивался как решить?

Option Explicit

Private Sub Worksheet_Calculate()
If Range("F10").Value = "К42" Then
Rows("30:31").EntireRow.Hidden = False
Rows("32:35").EntireRow.Hidden = True
ElseIf Range("F10").Value = "К48" Then
Rows("32:35").EntireRow.Hidden = True
Rows("30:31").EntireRow.Hidden = False
ElseIf Range("F10").Value = "К52" Then
Rows("30:35").EntireRow.Hidden = False
ElseIf Range("F10").Value = "К50" Then
Rows("20:35").EntireRow.Hidden = False
ElseIf Range("F10").Value = "К60" Then
Rows("32:35").EntireRow.Hidden = False
Rows("30:31").EntireRow.Hidden = True
End If
End Sub



Сообщение отредактировал Pelena - Вторник, 05.11.2024, 08:57
 
Ответить
СообщениеРаньше все хорошо работало но сейчас стало выпадать "Run-time error '28' out of stack space" , с кодом вроде все в порядке в чем причина не могу понять кто сталкивался как решить?
[vba]
Option ExplicitPrivate Sub Worksheet_Calculate()If Range("F10").Value = "К42" ТhenRows("30:31").EntireRow.Hidden = FalseRows("32:35").EntireRow.Hidden = ТrueElseIf Range("F10").Value = "К48" ТhenRows("32:35").EntireRow.Hidden = ТrueRows("30:31").EntireRow.Hidden = FalseElseIf Range("F10").Value = "К52" ТhenRows("30:35").EntireRow.Hidden = FalseElseIf Range("F10").Value = "К50" ТhenRows("20:35").EntireRow.Hidden = FalseElseIf Range("F10").Value = "К60" ТhenRows("32:35").EntireRow.Hidden = FalseRows("30:31").EntireRow.Hidden = ТrueEnd IfEnd Sub
[/vba]

Автор - DenchikZ
Дата добавления - 05.11.2024 в 07:37
Nic70y Дата: Вторник, 05.11.2024, 08:12 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9133
Репутация: 2416 ±
Замечаний: 0% ±

Excel 2010
DenchikZ, попробуйте после
Цитата DenchikZ, 05.11.2024 в 07:37, в сообщении № 1 ( писал(а)):
Private Sub Worksheet_Calculate()
вставить

Application.EnableEvents = False

и перед
Цитата DenchikZ, 05.11.2024 в 07:37, в сообщении № 1 ( писал(а)):
End Sub

Application.EnableEvents = True

п.с. код нужно оформлять соот. тегом #


ЮMoney 41001841029809
 
Ответить
СообщениеDenchikZ, попробуйте после
Цитата DenchikZ, 05.11.2024 в 07:37, в сообщении № 1 ( писал(а)):
Private Sub Worksheet_Calculate()
вставить[vba]
Application.EnableEvents = False
[/vba]и перед
Цитата DenchikZ, 05.11.2024 в 07:37, в сообщении № 1 ( писал(а)):
End Sub
[vba]
Application.EnableEvents = Тrue
[/vba]п.с. код нужно оформлять соот. тегом #

Автор - Nic70y
Дата добавления - 05.11.2024 в 08:12
DenchikZ Дата: Вторник, 05.11.2024, 08:23 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

2020
Nic70y, Спасибо большое оказалось решение в простом!!!!
 
Ответить
СообщениеNic70y, Спасибо большое оказалось решение в простом!!!!

Автор - DenchikZ
Дата добавления - 05.11.2024 в 08:23
  • Страница 1 из 1
  • 1
Поиск:

Рейтинг@Mail.ru Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!