|
Модераторы: mihanik |
|
lilia90 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 26.5.2016 Репутация: нет Всего: нет |
Вот этот макрос сцепляет ячейки,переносит значение столбца а затем копирует значения 2 столбцов в буфер обмена
1.Проблема в том,что нужно копировать не 50 значений а занятые значения столба и их же и копировать.А у меня получается только 50 не знаю как переделать Sub Макрос4() ' ' Макрос4 Макрос ' ' Сочетание клавиш: Ctrl+б ' Range("E1").Select ActiveCell.FormulaR1C1 = "9/2/1987" Columns("J:J").Select Selection.ColumnWidth = 14.14 Range("M1").Select ActiveCell.FormulaR1C1 = _ "=CONCATENATE(RC[-11]:R[49]C[-11],"" "",RC[-10]:R[49]C[-10],"" "",RC[-9]:R[49]C[-9])" Selection.AutoFill Destination:=Range("M1:M50"), Type:=xlFillDefault Range("M1:M50").Select ActiveWindow.SmallScroll Down:=-81 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 Columns("M:M").ColumnWidth = 35.71 Range("J1:J50").Select ActiveWindow.SmallScroll Down:=36 Range("J50").Select Selection.ClearContents Range("J50").Select ActiveWindow.SmallScroll Down:=-63 Range("J1:J50").Select Selection.Copy ActiveWindow.SmallScroll Down:=-39 Range("N1").Select ActiveSheet.Paste Columns("N:N").ColumnWidth = 17.43 Application.CutCopyMode = False Range([M1:N1], [M1:N1].End(xlDown)).Copy 'Range([M1], [M1].End(xlDown)).Copy 'Range([N1], [N1].End(xlDown)).Copy End Sub 2. А затем эти данные данные копируются из буфера в табличку Word Макросом Worda Sub Макрос9() ' ' Макрос9 Макрос ' ' Selection.PasteAndFormat (wdTableOverwriteCells) End Sub Как на картинке.Должна быть замена . 2.Не знаю как копировать значения 2 столбцов в буфер так чтобы не привязываться к содержимому и затирались ячейки Ворда Помогите пожалуйста разобраться. Присоединённый файл ( Кол-во скачиваний: 1 ) Безымянный.png 22,43 Kb |
|||
|
||||
Правила форума "Программирование, связанное с MS Office" | |
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |