Здесь показаны различия между выбранной ревизией и текущей версией данной страницы.
ru:creating_user_reports:use_macros_in_reports:examples:without_tunnel [2013/10/16 16:02] 127.0.0.1 внешнее изменение |
ru:creating_user_reports:use_macros_in_reports:examples:without_tunnel [2018/04/09 15:33] (текущий) |
||
---|---|---|---|
Строка 31: | Строка 31: | ||
Количество столбцов нужных нам таблиц -- 5. Изменения возможны в 5м столбце таких таблиц. | Количество столбцов нужных нам таблиц -- 5. Изменения возможны в 5м столбце таких таблиц. | ||
- | <code vb> | + | <code> |
Sub ПослеВыполненияОтчета(ob As Variant, app As Variant) | Sub ПослеВыполненияОтчета(ob As Variant, app As Variant) | ||
Строка 37: | Строка 37: | ||
'Вводная часть | 'Вводная часть | ||
- | columnTableProc = 5 'кол-во столбцов в таблицах с процессама | + | columnTableProc = 5 'кол-во столбцов в таблицах с процессами |
columnChange = 5 'столбец, в котором необходимо производить изменения | columnChange = 5 'столбец, в котором необходимо производить изменения | ||
Строка 56: | Строка 56: | ||
countRow = Selection.Tables(1).Rows.Count 'кол-во строк в таблице | countRow = Selection.Tables(1).Rows.Count 'кол-во строк в таблице | ||
- | For i = 2 To countRow 'проходим по всем строкам таблицы кроме заголовка | + | For i = 2 To countRow 'проходим по всем строкам таблицы, кроме заголовка |
On Error Resume Next 'игнор error 5991, если какие-то ячейки имеют вертикальное объединение | On Error Resume Next 'игнор error 5991, если какие-то ячейки имеют вертикальное объединение | ||
Строка 87: | Строка 87: | ||
===== Результат ===== | ===== Результат ===== | ||
[{{ ru:creating_user_reports:use_macros_in_reports:without_tunnel:tunnel3.png?nolink |Рисунок 3. Вид сформированного отчета после работы макроса}}] | [{{ ru:creating_user_reports:use_macros_in_reports:without_tunnel:tunnel3.png?nolink |Рисунок 3. Вид сформированного отчета после работы макроса}}] | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | |||
+ | [<contextnavigator>] | ||
+ | |||
+ |