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

Вход

Регистрация

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

 

= Мир MS Excel/Убрать сообщение системы "Индекс указанного набора выходит.. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Убрать сообщение системы "Индекс указанного набора выходит.. (Макросы/Sub)
Убрать сообщение системы "Индекс указанного набора выходит..
timo64uk Дата: Суббота, 05.03.2022, 16:07 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 1 ±
Замечаний: 0% ±

Добрый день, дамы и господа :D
Господа, с прошедшим; дамы, с предстоящим праздником!

У меня беда: был макрос, удаляющий строки, если в столбце 10 содержатся определенные значения ("БВХ Усть-Кут", "КС-2 Олёкминская*"...).
Но случилось мне добавить к данному коду макрос, удаляющий объекты (рисунки) и начало выскакивать сообщение:
"Индекс указанного набора выходит за допустимые пределы".
При проигрывании отдельно макроса, удаляющего рисунки (объекты) все работает без сообщений.

Как побороть данную проблему?

[vba]
Код
Sub УдСтрокиСклад()
Application.DisplayAlerts = False
  PS = Range("A" & Rows.Count).End(xlUp).Row
       For I = PS To 1 Step -1
       If Cells(I, 10) = "БВХ Усть-Кут" Or Cells(I, 10).Value Like "КС-2 Олёкминская*" Or Cells(I, 10).Value Like "БВХ Беркакит*" Or Cells(I, 10).Value Like "БВХ Солянка" _
       Or Cells(I, 10).Value Like "КС-4 Нимнырская_5.4 - (Основной склад - ячейки)*" Or Cells(I, 10).Value Like "БВХ Большой Нимныр*" Then
         Rows(I).Delete
        End If
        Next

  ActiveSheet.DrawingObjects.Delete      'здесь что-то не так
      Application.DisplayAlerts = True
' закрыть Макрос
Workbooks("макрос.xlsm").Close SaveChanges:=False
End Sub
[/vba]
К сообщению приложен файл: 4491443.xlsx(62.6 Kb)


Сообщение отредактировал timo64uk - Суббота, 05.03.2022, 16:11
 
Ответить
СообщениеДобрый день, дамы и господа :D
Господа, с прошедшим; дамы, с предстоящим праздником!

У меня беда: был макрос, удаляющий строки, если в столбце 10 содержатся определенные значения ("БВХ Усть-Кут", "КС-2 Олёкминская*"...).
Но случилось мне добавить к данному коду макрос, удаляющий объекты (рисунки) и начало выскакивать сообщение:
"Индекс указанного набора выходит за допустимые пределы".
При проигрывании отдельно макроса, удаляющего рисунки (объекты) все работает без сообщений.

Как побороть данную проблему?

[vba]
Код
Sub УдСтрокиСклад()
Application.DisplayAlerts = False
  PS = Range("A" & Rows.Count).End(xlUp).Row
       For I = PS To 1 Step -1
       If Cells(I, 10) = "БВХ Усть-Кут" Or Cells(I, 10).Value Like "КС-2 Олёкминская*" Or Cells(I, 10).Value Like "БВХ Беркакит*" Or Cells(I, 10).Value Like "БВХ Солянка" _
       Or Cells(I, 10).Value Like "КС-4 Нимнырская_5.4 - (Основной склад - ячейки)*" Or Cells(I, 10).Value Like "БВХ Большой Нимныр*" Then
         Rows(I).Delete
        End If
        Next

  ActiveSheet.DrawingObjects.Delete      'здесь что-то не так
      Application.DisplayAlerts = True
' закрыть Макрос
Workbooks("макрос.xlsm").Close SaveChanges:=False
End Sub
[/vba]

Автор - timo64uk
Дата добавления - 05.03.2022 в 16:07
Kuzmich Дата: Суббота, 05.03.2022, 17:41 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 651
Репутация: 146 ±
Замечаний: 0% ±

Excel 2003
'вот здесь что-то не так
[vba]
Код
Workbooks("макрос.xlsm").Close SaveChanges:=False
[/vba]
 
Ответить
Сообщение'вот здесь что-то не так
[vba]
Код
Workbooks("макрос.xlsm").Close SaveChanges:=False
[/vba]

Автор - Kuzmich
Дата добавления - 05.03.2022 в 17:41
timo64uk Дата: Воскресенье, 06.03.2022, 03:54 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 1 ±
Замечаний: 0% ±

так

Спасибо. Убрал строку, работает макрос без сообщений.
Но теперь приходится совершать клик закрывая файл, содержащий макросы.

Все макросы храню на рабочем столе в отдельном файле макрос.xlsm и чтобы он закрывался после обращения к нему мне и нужна эта строчка.
 
Ответить
Сообщение
так

Спасибо. Убрал строку, работает макрос без сообщений.
Но теперь приходится совершать клик закрывая файл, содержащий макросы.

Все макросы храню на рабочем столе в отдельном файле макрос.xlsm и чтобы он закрывался после обращения к нему мне и нужна эта строчка.

Автор - timo64uk
Дата добавления - 06.03.2022 в 03:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Убрать сообщение системы "Индекс указанного набора выходит.. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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