Необходима программа для нумерации бланков. Чтобы нумеровала листы в определенном диапазоне (напр. от 00001 до 10000). Скажете Excel - но нет, мне необходимо, чтобы можно было на одном листе сразу в неск. местах ставить номера (заранее определенных координатами). Может кто сталкивался, поможет...
Вот макрос: ----------------------------------------- Sub Set_Number() 'С какого по какой нумеровать For i = 1 To 10000 'Записываем в значение в ячейку Range("B1").Value = i 'Печатаем i-й номер ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" 'Переходим к следующему номеру Next i End Sub -----------------------------------------