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

RFpro.ru: Пакет Microsoft Office

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.040 RSS
←   Ноябрь 2010   →
 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


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru
Открыта: 03-03-2006

Автор
Калашников О.А.

Статистика

2.040 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Пакет Microsoft Office


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты данной рассылки

Гаряка Асмик
Статус: Профессор
Рейтинг: 5196
∙ повысить рейтинг » 		Валерий Ахметович Набиуллин aka ValeryN
Статус: Мастер-Эксперт
Рейтинг: 3842
∙ повысить рейтинг » 		Kom906
Статус: Студент
Рейтинг: 2328
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программное обеспечение / Пакет Microsoft Office

Номер выпуска:893
Дата выхода:15.11.2010, 09:32
Администратор рассылки:Ерёмин А.А. (Мастер-Эксперт)
Подписчиков / экспертов:335 / 287
Вопросов / ответов:1 / 1

Вопрос № 180665: Здраствуйте уважаемые эксперты! Подскажите, как создать макрос на добавление нового листа в книгу по подобию предыдущего то есть на основе Листа 3 создать Лист 4, затем на основе Листа 4 создать Лист 5, при этом ячейка А2 в Листе 4 ссылается на яч...

Вопрос № 180665:

Здраствуйте уважаемые эксперты!
Подскажите, как создать макрос на добавление нового листа в книгу по подобию предыдущего то есть на основе Листа 3 создать Лист 4, затем на основе Листа 4 создать Лист 5, при этом ячейка А2 в Листе 4 ссылается на ячейку А2 в Лист 3 аналогичная связь должна остаться между Листом 5 и Листом 4.
Заранее благодарен за ответ.
Буду очень признателен если будет описан механизм работы макроса.
С Уважением Филоненко Юрий!

Отправлен: 10.11.2010, 09:02
Вопрос задал: Филоненко Юрий (Посетитель)
Всего ответов: 1
Страница вопроса »

Отвечает Megaloman (Профессор) :
Здравствуйте, Филоненко Юрий!
Вот код макроса, который выполняет поставленную задачу. В начале в строковых переменных определяем имена листов, и адрес ячейки для связи, далее в макросе по тексту даны пояснения
Код:
sub rrr()
'
Name0
= "Лист3"         ' Имя исходного листа
Name1 = "Лист4"         ' Имя первого создаваемого листа
Name2 = "Лист5"         ' Имя второго создаваемого листа
RFormula = "A2"         ' На какую ячейку сошлемся
'
Sheets(Name0).Copy After:=Sheets(Name0)         ' Копируем лист Name0, вставляем его после листа Name0
ActiveSheet.Name = Name1                        ' Переимен
 овываем получившийся лист
Range(RFormula) = "=" + Name0 + "!" + RFormula  ' Вставляем формулу в ячейку RFormula   =Лист3!A2
'
Sheets(Name1).Copy After:=Sheets(Name1)
ActiveSheet.Name = Name2
Range(RFormula) = "=" + Name1 + "!" + RFormula
'
End Sub
Как легко увидеть в коде, один и тот же набор действий делается дважды. Поэтому резонно одинаковые действия оформить в виде процедуры. Вот пример такого решения - здесь дважды вызывается организованная мной процедура InsList, в которую передаются необходимые данные.
Код:
Sub sss()
'
Name0 = "Лист3"         ' Имя исходного листа
Nam
 e1 = "Лист4"         ' Имя первого создаваемого листа
Name2 = "Лист5"         ' Имя второго создаваемого листа
RFormula = "A2"         ' На какую ячейку сошлемся
'
InsList Name0, Name1, RFormula
InsList Name1, Name2, RFormula
End Sub

Sub InsList(N0, N1, R)
    Sheets(N0).Copy After:=Sheets(N0)               ' Копируем лист N0, вставляем его после листа N0
    ActiveSheet.Name = N1                           ' Переименовываем
получившийся лист
    Range(R) = "=" + N0 + "!" + R                   ' Вставляем формулу в ячейку R
End Sub
Естественно, исходный лист должен обязательно присутствовать, а листов, совпадающих по названию с создаваемыми, быть не должно, иначе получим ошибочную ситуацию.
-----
Нет времени на медленные танцы

Ответ отправил: Megaloman (Профессор)
Ответ отправлен: 10.11.2010, 13:59
Номер ответа: 263941

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 263941 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2010, Портал RFPRO.RU, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.23 от 10.11.2010
    В избранное