VPF::Добавление листа с именем из ячейки

etc

Дата 10.12.2007, 11:01 (ссылка)

(нет голосов)

Загрузка ...

FCZ

Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.2.2005
Где: Красногорск

Репутация: нет
Всего: 3

Доброго времени.
Собственно то что хотелось бы видеть в сабже.
Нужно нажатием кнопки, создать листы, имена которых будут задаваться из ячеек первого листа. Тобишь, сколько ячеек в первой колонке, столько и листов.
Облазил гугл и форум, но дальше простого добавления 1 листа не ушло

Код


Worksheets.add.Move After:=Worksheets(Worksheets.Count)

Помогите чем могите.

Спасибо!

kapbepucm

Дата 10.12.2007, 11:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12

Код

Sub Test()
  Dim I As Long
  Dim SheetID As Long, NewSheetID As Long
  SheetID = ActiveSheet.Index
  NewSheetID = SheetID
  I = 1
  Do Until IsEmpty(Sheets(SheetID).Cells(I, 1))
    NewSheetID = Sheets.Add(, Sheets(NewSheetID)).Index
    Sheets(NewSheetID).Name = Sheets(SheetID).Cells(I, 1)
    I = I + 1
  Loop
End Sub

--------------------

(С) kapbepucm

etc

Дата 10.12.2007, 12:22 (ссылка)

(нет голосов)

Загрузка ...

FCZ

Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.2.2005
Где: Красногорск

Репутация: нет
Всего: 3

Отлично, то что надо. Спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »