Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> помогите с макросом! макрос exel сцепляет строки и копирует 
:(
    Опции темы
lilia90
Дата 26.5.2016, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 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
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.1029 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.