Как преобразовать мой именованный диапазон VBA в циклический код

В приведенном ниже примере кода VBA я вручную создал 3 именованных диапазона, где ReportID_0XX постепенно увеличивается с ... 01 до ... 03, а также увеличил ссылку на ячейку ComparisonReport с $ A $ 6 до $ A $ 8.

Это было нормально в меньшей области, но теперь мне нужно сделать это для 60 экземпляров, эффективно продолжая процесс еще 57 раз, чтобы создать именованные диапазоны от «ReportID_001» до «ReportID_060» (добавьте соответствующие начальные нули) и начать ссылку на ячейку в $ A $ 6 и в конечном итоге в $ A $ 65.

Я очень новичок в именовании диапазонов с помощью VBA.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

ActiveWorkbook.Names.Add Name:="ReportID_001", RefersTo:= _
"='ComparisonReport'!$A$6"
ActiveWorkbook.Names("ReportID_001").Comment = ""

'''''''''''''''''''''''''''''''''''''

ActiveWorkbook.Names.Add Name:="ReportID_002", RefersTo:= _
"='ComparisonReport'!$A$7"
ActiveWorkbook.Names("ReportID_002").Comment = ""

'''''''''''''''''''''''''''''''''''''

ActiveWorkbook.Names.Add Name:="ReportID_003", RefersTo:= _
"='ComparisonReport'!$A$8"
ActiveWorkbook.Names("ReportID_003").Comment = ""

for-loop excel named-ranges vba
person Dion    schedule 09.11.2019    source источник
comment
Создайте объект Range, состоящий из всех интересующих вас ячеек, переберите эти ячейки и назначьте им именованный диапазон. Сохраняйте назначенную переменную, чтобы отслеживать счетчик, который нужно включить в имя именованного диапазона... но зачем именованные диапазоны отдельных ячеек? Я почти не вижу =)   -  person JvdV    schedule 09.11.2019

Ответы (1)


arrow_upward

arrow_downward

person    schedule
comment
@Дион Рад, что это помогает - person Tin Bum; 12.11.2019