|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
27.07.2008, 14:23 | #1 | |
Пользователь
Регистрация: 27.07.2008
Сообщений: 12
|
Макрос для копирования
Нужен макрос для копирования содержимого ячейки, обратите внимание что только содержимого а не всей ячейки. Зараннее благодарен.
--------- примечание модератора - вдруг кому пригодится -------------- Цитата:
Последний раз редактировалось EducatedFool; 30.09.2013 в 09:31. |
|
27.07.2008, 14:46 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Копируем ячейку-источник обычным образом.
Правой кнопкой на ячейку-приемник. Кликаем "Специальная вставка", выбираем "только значение". Вставляем. обратите внимание - копируется только содержимое.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
27.07.2008, 14:48 | #3 |
Пользователь
Регистрация: 27.07.2008
Сообщений: 12
|
Мне нужно с помощью макроса...
|
27.07.2008, 14:49 | #4 | ||
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Цитата:
Код:
Цитата:
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
||
27.07.2008, 14:52 | #5 |
Пользователь
Регистрация: 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. |
27.07.2008, 15:02 | #6 | |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Задачу нужно описывать изначально полно, тогда получите полный ответ на свой вопрос.
Цитата:
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
|
27.07.2008, 15:07 | #7 |
Пользователь
Регистрация: 27.07.2008
Сообщений: 12
|
Извините, проблема стала при выборе строк из екселя и вставки в ворд, я не специалист, но что мог с разных сайтов собрал в кучу, вот осталась последняя проблемка.
Вышеуказаный код позволяет обьединять ячейки в одну с сохранением текста, в конце он копирует всю ячейку, как сделать что бы копировал только содержимое ? Последний раз редактировалось knyz; 27.07.2008 в 15:12. |
27.07.2008, 15:41 | #8 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
вопрос не в том что копировать, а в том как вставлять в документ Ворд.
вот такая строка Код:
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 Последний раз редактировалось VictorM; 27.07.2008 в 15:49. |
27.07.2008, 15:45 | #9 |
Пользователь
Регистрация: 27.07.2008
Сообщений: 12
|
а нельзя поменять на копировать как текст ?
|
27.07.2008, 15:49 | #10 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
нет, Copy он и есть Copy
а вот для вставки есть выбор
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Параметры копирования | Черничный | Общие вопросы 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 |