Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 27.07.2008, 14:23   #1
knyz
Пользователь
 
Регистрация: 27.07.2008
Сообщений: 12
По умолчанию Макрос для копирования

Нужен макрос для копирования содержимого ячейки, обратите внимание что только содержимого а не всей ячейки. Зараннее благодарен.



--------- примечание модератора - вдруг кому пригодится --------------
Цитата:
Надстройка LOOKUP предназначена для сравнения и подстановки значений в таблицах Excel.

Если вам надо сравнить 2 таблицы (по одному столбцу, или по нескольким),
и для совпадающих строк скопировать значения выбранных столбцов из одной таблицы в другую,
надстройка «Lookup» поможет сделать это нажатием одной кнопки.


В настройках программы можно задать:
  • где искать сравниваемые файлы (использовать уже открытый файл, загружать файл по заданному пути, или же выводить диалоговое окно выбора файла)
  • с каких листов брать данные (варианты: активный лист, лист с заданным номером или названием)
  • какие столбцы сравнивать (можно задать несколько столбцов)
  • значения каких столбцов надо копировать в найденные строки (также можно указать несколько столбцов)

Скачать надстройку для сравнения таблиц Excel и копирования данных из одинаковых строк


Последний раз редактировалось EducatedFool; 30.09.2013 в 09:31.
knyz вне форума
Старый 27.07.2008, 14:46   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Копируем ячейку-источник обычным образом.
Правой кнопкой на ячейку-приемник. Кликаем "Специальная вставка", выбираем "только значение". Вставляем.
обратите внимание - копируется только содержимое.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 27.07.2008, 14:48   #3
knyz
Пользователь
 
Регистрация: 27.07.2008
Сообщений: 12
По умолчанию

Мне нужно с помощью макроса...
knyz вне форума
Старый 27.07.2008, 14:49   #4
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
Нужен макрос для копирования содержимого ячейки
Код:
Sub Макрос1()
    Range("A1").Copy
    Range("A10").PasteSpecial Paste:=xlPasteValues
End Sub
Цитата:
обратите внимание что только содержимого
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 27.07.2008, 14:52   #5
knyz
Пользователь
 
Регистрация: 27.07.2008
Сообщений: 12
По умолчанию

Есть такой код :
'слияние ячеек без удаления текста
Sub MergeToOneCell()
Const sDELIM As String = ", "
Dim rCell As Range
Dim sMergeStr As String
If TypeName(Selection) <> "Range" Then Exit Sub
If Not Status Then Exit Sub
Call SaveUndoInfo(Selection)
With Selection
For Each rCell In .Cells
sMergeStr = sMergeStr & sDELIM & rCell.Text
Next rCell
Application.DisplayAlerts = False
.Merge Across:=False
Application.DisplayAlerts = True
.Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM))
ActiveCell.Formula = Mid(sMergeStr, 1 + Len(sDELIM))
Selection.Copy
End With

End Sub

Так он мне в конце в буфер всю ячейку копирует, а мне надо вставить в ворд только содержимое.

Обратите внимание что вашим способом из буфера в ворд вставится таблица а не текстовое значение.

Последний раз редактировалось knyz; 27.07.2008 в 14:57.
knyz вне форума
Старый 27.07.2008, 15:02   #6
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Задачу нужно описывать изначально полно, тогда получите полный ответ на свой вопрос.
Цитата:
Обратите внимание что
О Ворде в Вашем вопросе, в начале темы, ни слова!
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 27.07.2008, 15:07   #7
knyz
Пользователь
 
Регистрация: 27.07.2008
Сообщений: 12
По умолчанию

Извините, проблема стала при выборе строк из екселя и вставки в ворд, я не специалист, но что мог с разных сайтов собрал в кучу, вот осталась последняя проблемка.
Вышеуказаный код позволяет обьединять ячейки в одну с сохранением текста, в конце он копирует всю ячейку, как сделать что бы копировал только содержимое ?

Последний раз редактировалось knyz; 27.07.2008 в 15:12.
knyz вне форума
Старый 27.07.2008, 15:41   #8
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

вопрос не в том что копировать, а в том как вставлять в документ Ворд.
вот такая строка
Код:
wdDoc.Range.PasteAndFormat(wdFormatPlainText) 'вставляем в Word как текст
вставит скопированное значение как текст
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499

Последний раз редактировалось VictorM; 27.07.2008 в 15:49.
VictorM вне форума
Старый 27.07.2008, 15:45   #9
knyz
Пользователь
 
Регистрация: 27.07.2008
Сообщений: 12
По умолчанию

а нельзя поменять на копировать как текст ?
knyz вне форума
Старый 27.07.2008, 15:49   #10
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

нет, Copy он и есть Copy
а вот для вставки есть выбор
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Параметры копирования Черничный Общие вопросы Delphi 4 14.08.2008 10:57
Конструктор копирования Djaconda Общие вопросы C/C++ 3 11.06.2008 18:54
Копирования файлив Shaitan63 Общие вопросы Delphi 10 24.05.2008 19:31
Запрет копирования pinhead Win Api 11 10.01.2007 07:01