1 Тема от Bonus!

  • Bonus!
  • Bonus!
  • Младший лейтенант

Тема: Вопрос по EXEL

Народ, кто разбирается в экселе, небольшой вопрос.
Есть экселевский лист, в котором в первом столбце ФИО сотрудников, во втором адреса их, в третьем номера. Как распечатать шаблон приглашения каждому сотруднику по 1 экземпляру, чтобы в каждом из приглашений автоматически в определенном месте менялся номер приглашения, ФИО и адрес?

2 Ответ от Flooder

Re: Вопрос по EXEL

А почему вы думаете что Excel это умеет?

3 Ответ от Михаил

Re: Вопрос по EXEL

Flooder пишет:

А почему вы думаете что Excel это умеет?

Потому что Excel умеет все...  ag 

Sub Макрос1()
For Each Строка In Columns("A:A").Cells
    If Строка.Value <> Empty Then
        Sheets(2).Cells(1, 2).Formula = Строка.Row 'Номер приглашения
        Sheets(2).Cells(2, 2).Formula = Строка.Value 'ФИО
        Sheets(2).Cells(3, 2).Formula = Sheets(1).Cells(Строка.Row, 2) 'Адрес
        Sheets("Шаблон приглашения").Copy After:=Sheets(2)
    Else: Exit For: End If
Next
End Sub

img.mapkc.ru/thumbs/excel.png
Если Вы кто-то из моих стьюдентов, то задание принято не будет. В противном случае, с Вас бутылка...

Добавлено спустя 9 минут 10 секунд:

Возможно не самый оптимальный вариант решения, так как сделан почти на бегу...

4 Ответ от Bonus!

  • Bonus!
  • Bonus!
  • Младший лейтенант

Re: Вопрос по EXEL

Спасибо, дружище! Студентом не являюсь, учиться закончил года 4 назад, поэтому остановимся на варианте с бутылкой ab