Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » rango13
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Экспорт выделенной строки(с именованными столбцами) в документ .docx+вставка в коды(имена полей).
 
#
10.03.2020 13:12:11
Всем привет!
Даже не знаю, как тему сформулировать точно. Но попытаюсь.

Есть таблица .xlsx вида:

NAME OKUD INN
Петров 1123213 4235435435

Необходимо выделить всю строку с этими данными и перенести их в выбираемый документ .docx, представляющий из себя договор, в котором есть такие шифры, названные по именам столбцов в файле .xlsx.

Т.е., например в .xlsx файле выделяю всю строку:
NAME OKUD INN
Петров 1123213 4235435435

и применяю макрос, который открывает диалоговое окно выбора файла .docx, который из себя представляет договор, примерно такого вида:

Сотрудник NAME имеет ОКУД: OKUD и ИНН: INN

После выбора файла в нём заменяются шифры NAME, OKUD, INN на те, который оказались выделены в первоначальном файле .xlsx

Если в первоначальном файле какое-либо поле(например OKUD) пустое, то при применении макроса в .docx файле этот шифр становится пустым.


Пока даже не знаю куда копать, чтобы решить такую задачу. Можете помочь?
 
Перейти    
Перемещение 3 подряд идущих ячеек вправо.
 
#
07.10.2015 10:10:00
Всем привет!

Было:
1
2
3
4
5
6
7
8
9
Стало:
1 2 3
4 5 6
7 8 9

У меня только получилось перемещать каждую вторую ячейку, но не три сразу.
 
Перейти    
VBA. Удалить все одинаковые строки в выделенном столбце.
 
#
16.07.2015 07:40:26
Всем привет!

Нужно удалить все повторяющиеся(и пустые) строки(без дубликатов) на основании первого столбца. Удаленные строки остаются пустыми.
ДО:
Скрытый текст

ПОСЛЕ:
Скрытый текст

Сначала использовал встроенную функцию поиска одинаковых значений в выделенном тексте, немного доработал, но результата всё равно нет.
Код
Sub Макрос1()
'
' Макрос1 Макрос
' Сначала макрос ищет одинаковые строки в первом столбце и когда находит - помечает их цветом(как и значения внутри ячейки).
' Затем макрос проходит от последней ячейки снизу до самой первой в поисках ячеек в первом столбце, которые закрашены определенным цветом. 
' Их-то он и должен удалять. Но не удаляет.

    Columns("A:A").Select
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    
    For i = (ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count) To 1 Step -1
        If    (Selection.Cells(i, 1).Interior.Color = 13551615) Then
              Selection.Rows(i).Delete Shift:=xlUp
        End If
    Next i
    Selection.FormatConditions(1).StopIfTrue = False
End Sub
 
Перейти    
Страницы: 1
Наверх