Что не так с кодом? - VBA

Узнай цену своей работы

Формулировка задачи:

Дорогие форумяне, помогите разобраться... на листе 2 кода. при BRC - один выполняется если лист называется Новый Лист (затем имя листа меняется в число), а другой - если начинается с числа почему то когда выполняется первый код, он тянет за собой второй. единственный выход это либо поставить после него exit sub, либо поместить его после второго кода, то есть за ним. почему код не реагирует на условие If ActiveSheet.Name Like "#*" Then
Листинг программы
  1. If ActiveSheet.Name Like "Новый*" Then
  2. Call Sheet_Accomplish
  3. Exit Sub
  4. End If
  5. If ActiveSheet.Name Like "#*" Then
  6. If Not Intersect(Target, Range("C2:C111")) Is Nothing Then
  7. Application.Run "Column_C_Plus_s"
  8. End If
  9. End If

Решение задачи: «Что не так с кодом?»

textual
Листинг программы
  1. If ActiveSheet.Name Like "Новый*" Then
  2.  
  3.     ActiveSheet.Name = "0_12" ' ПЕРЕИМЕНОВАЛИ ЛИСТ!
  4.    'Exit Sub
  5.        
  6. End If
  7.  
  8. '********************************************************************************************
  9.  
  10. If ActiveSheet.Name Like "#*" Then
  11.  
  12.         MsgBox "WHY?" 'НЕ УДИВЛЯЕМСЯ - ЛИСТ ВЕДЬ ВЫШЕ ПЕРЕИМЕНОВАЛИ!
  13. End If

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.833 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы