Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Nuta
0 / 0 / 0
Регистрация: 25.09.2009
Сообщений: 5
#1

Подпись отчета - VBA

25.09.2009, 14:28. Просмотров 850. Ответов 5
Метки нет (Все метки)

Добрый день. Нужна помощь... Из программы выгружается spravaka.xls помогите написать макрос для того чтобы внизу документа стояла отметка как spravaka111.xls. число строк неограничено...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.09.2009, 14:28
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Подпись отчета (VBA):

Подпись осей
Добрый вечер, уважаемые форумчане! Помогите советом. Строю график при...

Цифровая подпись макросов
Случайно наткнулась, и стало интересно, зачем нужна цифровая подпись макросов?...

Как вставить подпись в мейл в outlook?
Сабж. Формирую в аутлуке письма кодом: Function SendMail(recipName, subjText,...

Вставить подпись на большом количестве страниц
Доброго времени суток! Подскажите, пожалуйста, как быть если автофигур много?...

Как поставить в документе электронную подпись?
как поставить в документе электронную подпись, т.е. что бы при выводе...

Диаграмма Excel, вывести подпись к позицию
Есть диаграмма на которую нужно вывести подписи к каждому столбцу (полоске)...

5
Nuta
0 / 0 / 0
Регистрация: 25.09.2009
Сообщений: 5
25.09.2009, 16:57  [ТС] #2
Файлы в качестве примера..
0
Вложения
Тип файла: rar справка.rar (5.4 Кб, 18 просмотров)
Toxa33rus
3814 / 878 / 120
Регистрация: 16.04.2009
Сообщений: 1,766
25.09.2009, 20:52 #3
Visual Basic
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
32
33
34
35
36
Sub addPodval()
  LastCell = ActiveSheet.UsedRange.Rows.Count
  
  Cells(LastCell + 2, 3).Value = "Отметка о принятии Справки к учету"
  Cells(LastCell + 4, 1).Value = "Операции приняты к учету с отражением в "
  
  Range("B" & LastCell + 4 & ":F" & LastCell + 4).Borders(xlEdgeBottom).LineStyle = xlContinuous
  Range("B" & LastCell + 5 & ":F" & LastCell + 5).Merge
  Range("B" & LastCell + 5 & ":F" & LastCell + 5).HorizontalAlignment = xlCenter
  Cells(LastCell + 5, 3).Value = "(учетный регистр, номер, за период)"
  Cells(LastCell + 7, 1).Value = "Главный бухгалтер"
  
  Cells(LastCell + 7, 2).Borders(xlEdgeBottom).LineStyle = xlContinuous
  Cells(LastCell + 7, 4).Borders(xlEdgeBottom).LineStyle = xlContinuous
  Cells(LastCell + 7, 5).Borders(xlEdgeBottom).LineStyle = xlContinuous
  
  Cells(LastCell + 8, 2).Value = "(подпись)"
  Cells(LastCell + 8, 2).HorizontalAlignment = xlCenter
  
  Range("D" & LastCell + 8 & ":E" & LastCell + 8).Merge
  Range("D" & LastCell + 8 & ":E" & LastCell + 8).HorizontalAlignment = xlCenter
  Cells(LastCell + 8, 4).Value = "(расшифровка подписи)"
  
  Cells(LastCell + 10, 1).Value = "Руководитель структурного подразделения"
  Cells(LastCell + 12, 1).Value = """___""________________________20____г."
  
  Range("A" & LastCell + 2 & ":F" & LastCell + 13).Borders(xlEdgeLeft).LineStyle = xlDash
  Range("A" & LastCell + 2 & ":F" & LastCell + 13).Borders(xlEdgeTop).LineStyle = xlDash
  Range("A" & LastCell + 2 & ":F" & LastCell + 13).Borders(xlEdgeBottom).LineStyle = xlDash
  Range("A" & LastCell + 2 & ":F" & LastCell + 13).Borders(xlEdgeRight).LineStyle = xlDash
  
  Range("A" & LastCell + 2 & ":F" & LastCell + 13).Borders(xlEdgeLeft).Weight = xlMedium
  Range("A" & LastCell + 2 & ":F" & LastCell + 13).Borders(xlEdgeTop).Weight = xlMedium
  Range("A" & LastCell + 2 & ":F" & LastCell + 13).Borders(xlEdgeBottom).Weight = xlMedium
  Range("A" & LastCell + 2 & ":F" & LastCell + 13).Borders(xlEdgeRight).Weight = xlMedium
End Sub
1
Nuta
0 / 0 / 0
Регистрация: 25.09.2009
Сообщений: 5
27.09.2009, 21:55  [ТС] #4
Спасибо огромное за помощь)))))))))
0
Nuta
0 / 0 / 0
Регистрация: 25.09.2009
Сообщений: 5
28.09.2009, 09:49  [ТС] #5
если не трудно подскажите как сделать чтобы например в графе расшифоровка подписи ___________и операции приняты к учету с отражением в ______________стояла конкретная информация...Напримре там Иванов И.И.
0
Nuta
0 / 0 / 0
Регистрация: 25.09.2009
Сообщений: 5
28.09.2009, 12:08  [ТС] #6
Вопрос снимаю)))
0
28.09.2009, 12:08
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.09.2009, 12:08
Привет! Вот еще темы с решениями:

Как вставить подпись в тело письма
ребята нужна помощь .. вообще не шарю в VBA .. есть просьба .. наковырял в...

Добавить подпись в письмо при отправке из Эксель
Здравствуйте, помогите подправить известный макрос: при добавлении кода на...

Создать подпись данных на графике Excel через VBA
Добрый день. Есть обычный график по точкам в Excel 2010. К каждой точке...

VBA Excel 2003: подпись данных на столбце диаграммы: как изменить FontSize
Как программно изменить размер шрифта в подписи данных ряда (число написанное...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru