создание нумерованных листов в excel

[noxs]

привет всем

Есть процедура, которая в результате каждого своего запуска создает лист с именем "res".

Нужно:

чтобы она создавала не просто лист "res", а лист с номером запуска (типа "res4", "res5" и так далее)

Как это реализовать?

спасибо.

[GSerg]

Вариант первый. Заведи static счётчик, в котором будет храниться цифирь.
Вариант второй. Добавляй res1. Если ошибка - добавляй res2. И так пока ошибки не прекратятся.
Но первый вариант лучше

[noxs]

Вариант первый. Заведи static счётчик, в котором будет храниться цифирь.

большое спасибо за ответ

я человек начинающий в бейсике
но насколько поняла, речь идет о глобальной переменной?
если да, то как ее завести?
я попробовала завести вне процедуры:

Код: Выделить всё

dim i as integer

однако вне процедуры я не могу ей присвоить начальное значение (то есть i=1)

и в связи с этим способом еще вопрос, а как имя листа изменять в соответствии со значением i?

[GSerg]

Оба варианта:

1. Код: Выделить всё

   static i as long 'глобальная

   
   

   Код: Выделить всё

   if i=0 then i=1
workshets.add.name="res"&i
i=i+1

2. Код: Выделить всё

   dim i as long 'локальная
worksheets.add
on error goto beginadding
beginadding:
i=i+1
activesheet.name="res"&i
on error goto 0

[noxs]

спасибо!

Код: Выделить всё

if i=0 then i=1


однако, вот эта строчка вызывает сомнение, а если i не 0, то инициализация не пройдет?

[GSerg]

А если не ноль, то сохранится то значение, которое там уже есть - собственно номер листа

[noxs]

А если не ноль, то сохранится то значение, которое там уже есть - собственно номер листа

а что в vb при объявлении переменной типа long ей по умолчанию присваивается ноль?

[GSerg]

Ага, все переменные всех типов инициализируются в ноль
Если интересно, в начале каждой процедуры на VB можно лицезреть конструкцию вида

Код: Выделить всё

xor eax, eax
mov dword ptr [ebp-0x8], eax

Последняя строчка повторяется для каждой переменной