Макрос для копирования - Microsoft Office Excel - Страница 2

knyz · 27.07.2008, 15:50

Ругается бейсик что то на эту строку

VictorM · 27.07.2008, 15:55

Цитата:

Сообщение от knyz

Ругается бейсик что то на эту строку

естественно, ведь она вырвана из контекста кода как пример вставки значения как текст. Посмотрите вложение, когда-то делалось этой теме

knyz · 27.07.2008, 16:15

Спасибо , пока попробую.

Попробывал, не совсем то что нужно, нужно что бы в буфере обмена уже текстовая строка была.

knyz · 27.07.2008, 20:44

Вот ответ :

1) зайдите в VBE в меню Tools - references...
и поставьте птичку напротив Microsoft Forms 2.0 object library
2) в начале модуля напишите

Код: Dim MyDataObj As New DataObject
Dim S As String

3) вместо Selection.Copy
попробуйте такой код:

Код:S = CStr(ActiveCell.Value)
MyDataObj.SetText S
MyDataObj.PutInClipboard

Огромное спасибо SERGE_BLIZNUK

VictorM · 27.07.2008, 21:15

Цитата:

Попробывал, не совсем то что нужно, нужно что бы в буфере обмена уже текстовая строка была

а что Вам мешает ее туда поместить?
Ведь предложенные примеры - только примеры, а дальше уже сами...
впрочем Serge_Bliznykov все отлично расписал.
Мне добавить нечего.

дмидми · 27.07.2008, 21:16

CStr(ActiveCell.Value) может привести к ошибке, например, если в ячейке строка "1.1" (через точку).
Поэтому, имхо, лучше Format().

knyz · 27.07.2008, 21:28

Попробывал 1.1, ошибки нет, синтаксис Format() новичку не подскажите ?

дмидми · 27.07.2008, 21:38

Странно, и у меня теперь не генерится ошибка. А раньше была. Что ж, тем лучше.

Синтаксис Format: ставите в VBE курсор на слово Format и жмёте F1.
Не забывайте кликать по Example и See also.

knyz · 27.07.2008, 21:42

Спасибо у меня получилось выделив оператор и нажав F11
И еще вопрос :
Как отфарматировать текст в буфере обмена ?

Serge_Bliznykov · 27.07.2008, 22:08

Цитата:

Сообщение от knyz

Как отфарматировать текст в буфере обмена ?

Вот тебе и здрасте... приехали...
а кто писал:

Цитата:

Попробывал, не совсем то что нужно, нужно что бы в буфере обмена уже текстовая строка была.

??????!
Текст или форматированный объект?!?!?
Так, возращаемся к началу.
Чем Вас не устроил вариант с Selection.Copy ???
Он копирует ячейку как раз с сохранением всего форматирования!

27.07.2008, 16:15	#13
knyz Пользователь Регистрация: 27.07.2008 Сообщений: 12	Спасибо , пока попробую. Попробывал, не совсем то что нужно, нужно что бы в буфере обмена уже текстовая строка была. Последний раз редактировалось knyz; 27.07.2008 в 17:27.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Параметры копирования	Черничный	Общие вопросы 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

27.07.2008, 15:50	#11
knyz Пользователь Регистрация: 27.07.2008 Сообщений: 12	Ругается бейсик что то на эту строку

27.07.2008, 20:44	#14
knyz Пользователь Регистрация: 27.07.2008 Сообщений: 12	Вот ответ : 1) зайдите в VBE в меню Tools - references... и поставьте птичку напротив Microsoft Forms 2.0 object library 2) в начале модуля напишите Код: Dim MyDataObj As New DataObject Dim S As String 3) вместо Selection.Copy попробуйте такой код: Код:S = CStr(ActiveCell.Value) MyDataObj.SetText S MyDataObj.PutInClipboard Огромное спасибо SERGE_BLIZNUK

27.07.2008, 21:16	#16
дмидми Форумчанин Регистрация: 06.03.2008 Сообщений: 352	CStr(ActiveCell.Value) может привести к ошибке, например, если в ячейке строка "1.1" (через точку). Поэтому, имхо, лучше Format().

27.07.2008, 21:28	#17
knyz Пользователь Регистрация: 27.07.2008 Сообщений: 12	Попробывал 1.1, ошибки нет, синтаксис Format() новичку не подскажите ?

27.07.2008, 21:38	#18
дмидми Форумчанин Регистрация: 06.03.2008 Сообщений: 352	Странно, и у меня теперь не генерится ошибка. А раньше была. Что ж, тем лучше. Синтаксис Format: ставите в VBE курсор на слово Format и жмёте F1. Не забывайте кликать по Example и See also.

27.07.2008, 21:42	#19
knyz Пользователь Регистрация: 27.07.2008 Сообщений: 12	Спасибо у меня получилось выделив оператор и нажав F11 И еще вопрос : Как отфарматировать текст в буфере обмена ?