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

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/VBA некорректная работа - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
VBA некорректная работа
DenchikZ Дата: Понедельник, 14.10.2024, 14:50 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

2020
Считывания условия останавливается выдавая ошибку 28, затем выпадает ошибка на строчку
Option ExplicitIf Range("F10").Value = "К42" Then и выдает ошибку run-time error -2147417848 Метод "Выбора" объекта "Диапазон" не удался, в чем проблема не могу понять

Private Sub Worksheet_Calculate()
If Range("F10").Value = "К42" Then
Rows("34:35").EntireRow.Hidden = False
Rows("36:39").EntireRow.Hidden = True
ElseIf Range("F10").Value = "К48" Then
Rows("36:39").EntireRow.Hidden = True
Rows("34:35").EntireRow.Hidden = False
ElseIf Range("F10").Value = "К52" Then
Rows("34:39").EntireRow.Hidden = False
ElseIf Range("F10").Value = "К50" Then
Rows("24:39").EntireRow.Hidden = False
ElseIf Range("F10").Value = "К60" Then
Rows("36:39").EntireRow.Hidden = False
Rows("34:35").EntireRow.Hidden = True
End If
End Sub


Сообщение отредактировал DenchikZ - Понедельник, 14.10.2024, 14:50
 
Ответить
СообщениеСчитывания условия останавливается выдавая ошибку 28, затем выпадает ошибка на строчку
Option ExplicitIf Range("F10").Value = "К42" Then и выдает ошибку run-time error -2147417848 Метод "Выбора" объекта "Диапазон" не удался, в чем проблема не могу понять

Private Sub Worksheet_Calculate()
If Range("F10").Value = "К42" Then
Rows("34:35").EntireRow.Hidden = False
Rows("36:39").EntireRow.Hidden = True
ElseIf Range("F10").Value = "К48" Then
Rows("36:39").EntireRow.Hidden = True
Rows("34:35").EntireRow.Hidden = False
ElseIf Range("F10").Value = "К52" Then
Rows("34:39").EntireRow.Hidden = False
ElseIf Range("F10").Value = "К50" Then
Rows("24:39").EntireRow.Hidden = False
ElseIf Range("F10").Value = "К60" Then
Rows("36:39").EntireRow.Hidden = False
Rows("34:35").EntireRow.Hidden = True
End If
End Sub

Автор - DenchikZ
Дата добавления - 14.10.2024 в 14:50
Hugo Дата: Понедельник, 14.10.2024, 15:20 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3679
Репутация: 789 ±
Замечаний: 0% ±

365
Ошибка или в ошибке, или в объединениях.
Покажите проблему с файлом.


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеОшибка или в ошибке, или в объединениях.
Покажите проблему с файлом.

Автор - Hugo
Дата добавления - 14.10.2024 в 15:20
  • Страница 1 из 1
  • 1
Поиск:

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