Ошибка времени выполнения 1004: определено приложение или определена ошибка на объекте диапазона

Question

Dim collet As String
collet = ThisWorkbook.ColLetter(ColCount) + ":" + LTrim(Str(Target.Row))
Set my_r = Target(collet).Select

Я получаю ошибку времени выполнения в последней строке моего кода. Не могу понять, почему

Answer 1

Было бы полезно точно знать, чего вы пытаетесь достичь здесь, но я могу сделать несколько предложений.

• Во-первых, когда ссылаемся на одну ячейку, как я считаю, выпытаясь сделать, двоеточие не требуется.Поэтому collet должен содержать что-то вроде «B2», а не «B: 2».

• Во-вторых, когда вы вызываете Select для объекта Range, он использует параметр каксмещение, а не абсолютная ссылка.Поэтому, если Target - это ячейка B2, а collect - это B2, тогда Target("B2").Select фактически выберет ячейку C3.

• И, наконец, я предполагаю, что наличиеTarget объект, что этот код находится внутри обработчика событий.Убедитесь, что, выбрав другой диапазон, вы больше не будете вызывать одно и то же событие.Вы можете закончить бесконечным циклом, который заканчивается только тогда, когда вы достигаете дна или конца вашей таблицы.Этот сценарий может вызвать ошибку времени выполнения 1004, которую вы видите.