Отправляет email-рассылки с помощью сервиса Sendsay

Excel - вопросы и ответы

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 1.605 RSS
←   Декабрь 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней 7 выпусков (3-4 раза в месяц)


Сайт рассылки: http://vladekas.com/
Открыта: 03-09-2006

Автор
Владимир

Статистика

1.605 подписчиков
-4 за неделю
←   Все выпуски   →

Excel - вопросы и ответы


___________________________________________________________________________________________________________

Добрый день!

ВОПРОС

Такая ситуация - есть столбец с данными. Допустим, фамилии работников. Для каждого нужно создать Лист. Как этот процесс можно автоматизировать?

ОТВЕТ

Есть следующий вариант.

допустим, наш список находится на Листе1 в столбце А. Мы создаем следующий макрос

Sub Макрос1()
'
'Макрос1 Макрос

Selection.Copy

Range("E1").Select
ActiveSheet.Paste 
Application.CutCopyMode = False
End Sub

Макрос позволяет копировать ячейку, на которой находится курсор и вставить ее содержимое в ячейку Е1.

Следующим будет Макрос2

Sub Макрос2()
' 
Dim MyStr
MyStr = Range("E1")

Set NewSheet = Sheets.Add
NewSheet.Name = MyStr

Sheets("Лист1").Select

End Sub

Макрос создаст новый Лист и присвоит ему имя, взятое из ячейки Е1 Листа1.

И, наконец, Макрос3

Sub Макрос3()

Application.Run "Макрос1"
Application.Run "Макрос2"
End Sub

Макрос выполняет последовательно Макрос1 и Макрос2. Для Макроса3 создаем кнопку на панели инструментов. Теперь нам нужно установить курсор на ячейку с фамилией и нажать кнопку - Лист с нужным именем будет создан.

Очень бы хотелось, чтобы кто-нибудь предложил более простой вариант. С удовольствием опубликую. 

Кстати, кто может предложить продолжение? Нужно в столбце В на Листе1 в каждой ячейке записать формулу со ссылкой на соответствующий Лист. Например, в ячейке а1 фамилия Иванов. Мы создали Лист Иванов. В ячейке В1 нужно записать формулу

=Иванов!А1

Как заполнить столбец В соответствующими формулами, чтобы менялась не ссылка на ячейку, а на Лист?

Жду писем.

Ну, пока все. Жду новых вопросов и сообщений! Буду благодарен за присланные интересные ссылки.

И еще. Поскольку у нас появилось много новых подписчиков, думаю будет небесполезным разместить здесь ссылку на самоучитель по Excel, с которого, собственно, все и началось - http://www.eliteclub.h10.ru/excel/excel.html

С уважением,
Александр РАСЕВ

Рассылки Subscribe.Ru
Бизнес с EliteClub
Рассылки Subscribe.Ru
Электроника, связанная с компьютерами
В избранное