Создание цикла для замены нескольких вложенных операторов if при работе с группами объектов в Excel

На первый взгляд, вам способ лучше использовать операторы elseif вместо вложенных операторов if.

И прочитайте Как избежать использования Select в Excel VBA

@TimStack точно в точку. Я искал ссылку на эту статью.

Отсутствие указанной рабочей книги и -листа, а также ссылка на ActiveSheet также является открытой дверью для ошибок.

Согласен ... но пытаюсь делать это шаг за шагом, так как ОП сказал, что он новичок в кодировании.

Большое спасибо @ rohrl77. Как я только что описал в другом месте, по какой-то причине, когда я удаляю «Выбрать», это приводит к «Ошибке времени выполнения 438: объект не поддерживает это свойство или метод», но обе точки все еще действительно полезный совет и очень ценный-большое спасибо! :)

Постарайтесь помочь ОП избежать использования Select

Но почему вы думаете, что ОП хочет этого избежать? Может быть, он хочет выбрать Shapes, чтобы увидеть, что копируется, и я делаю первый Case, чтобы избежать этого ))

Ответы приходят так быстро, большое спасибо за всю информацию и идеи! @TimStack Я не знаю, связано ли это с какими-то другими плохими практиками, но удаление «выбрать» на самом деле нарушает это для меня, я получаю «Ошибка времени выполнения« 438 »- объект не поддерживает это свойство или метод». Я прочитаю ссылку о том, как избежать выбора, и включу ее в другое место, когда смогу поблагодарить.

@DmitrijHolkin Большое спасибо, я попробую и отчитаюсь - я достаточно новичок, поэтому еще не понимаю случаи, но мне придется прочитать :)

@DmitrijHolkin, вам не нужно использовать ужасный Select, чтобы увидеть это..

@Turtle, вам нужно заменить функцию Select, а не удалить слово. Использование Select является плохой практикой и необходимо только в очень редких случаях, поэтому старайтесь избегать его использования. Снова прочитайте эта тема

@TimStack Спасибо, Тим, я буквально только что читал эту ветку, когда ты ответил :) К сожалению, для меня это действительно не работает; Я неправильно сформулировал то, что пытался сказать ранее, но замена «выбрать» на «копировать» в этом случае для меня не работает. Так, например, [ ActiveSheet.Shapes.Range(Array("Group1")).Copy ] выдает ошибку. По какой-то причине работает [ ActiveSheet.Shapes.Range(Array("Group1")).Select с последующим Selection.Copy ]. Есть идеи, почему это может быть связано с какой-то другой плохой практикой в ​​​​коде?

@DmitrijHolkin Просто в подтверждение того, что я очень ценю ваше предложение, однако необходимость вводить число не совсем подходила для данной ситуации. Это очень полезно как конкретный пример того, как можно использовать регистр - большое спасибо :)

@TimStack Спасибо за ссылку и дальнейшие идеи. К сожалению, я не смог заставить его работать на меня, группировка выглядела многообещающе, однако я группировал вещи, которые уже были сгруппированы, я думаю, я все еще получал сообщение об ошибке. Мне нужно добиться некоторого прогресса в более важных функциях, но я обязательно вернусь к этому, когда у меня будет время. Спасибо еще раз :)

Выбор регистра полезен в любой ситуации, так как вы можете делать все, что хотите, например, проверить логическое значение Select Case True, а затем case Range("Links").Value = "" : ActiveSheet.Shapes.Range(Array("Group1")).Group.Copy