Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос для копирования значения ячейки в буфер обмена - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для копирования значения ячейки в буфер обмена
Макрос для копирования значения ячейки в буфер обмена
Jhonson Дата: Понедельник, 26.09.2011, 15:31 | Сообщение № 1
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

Помогите написать макрос, для копирования значения ячейки (значение - результат работы формулы).
К сообщению приложен файл: ___.xls (24.5 Kb)

"Ничто не приносит людям столько неприятностей, как разум."
 
Ответить
СообщениеПомогите написать макрос, для копирования значения ячейки (значение - результат работы формулы).
Автор - Jhonson
Дата добавления - 26.09.2011 в 15:31
Саня Дата: Понедельник, 26.09.2011, 16:02 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
я не понял, что требуется
 
Ответить
Сообщениея не понял, что требуется
Автор - Саня
Дата добавления - 26.09.2011 в 16:02
Hugo Дата: Понедельник, 26.09.2011, 16:14 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3252
Репутация: 707 ±
Замечаний: 0% ±

2019
Требуется "специальная вставка" smile

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеТребуется "специальная вставка" smile
Автор - Hugo
Дата добавления - 26.09.2011 в 16:14
Jhonson Дата: Понедельник, 26.09.2011, 16:33 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

нет не специальная вставка, пароль нужно скопировать в форму на сайте
Способ, который в приложенном файле, не работает. Пароль в форму вставляется не корректный.
Хотя если вставлять в какой-нибудь текстовый редактор, то вставляется парвильно.

"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Понедельник, 26.09.2011, 16:43
 
Ответить
Сообщениенет не специальная вставка, пароль нужно скопировать в форму на сайте
Способ, который в приложенном файле, не работает. Пароль в форму вставляется не корректный.
Хотя если вставлять в какой-нибудь текстовый редактор, то вставляется парвильно.
Автор - Jhonson
Дата добавления - 26.09.2011 в 16:33
Саня Дата: Понедельник, 26.09.2011, 16:58 | Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
на каком сайте?
в какую форму?
 
Ответить
Сообщениена каком сайте?
в какую форму?
Автор - Саня
Дата добавления - 26.09.2011 в 16:58
Hugo Дата: Понедельник, 26.09.2011, 17:08 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3252
Репутация: 707 ±
Замечаний: 0% ±

2019
Так на сайт вставляет с переводом строки вероятно...
Обрезайте на один символ справа.

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеТак на сайт вставляет с переводом строки вероятно...
Обрезайте на один символ справа.
Автор - Hugo
Дата добавления - 26.09.2011 в 17:08
Саня Дата: Понедельник, 26.09.2011, 18:24 | Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
tools\references\Microsoft forms 2.0[vba]
Код
Dim d_o As New MSForms.DataObject
       d_o.SetText "что-то" 'Cells(1, 1).value
       d_o.PutInClipboard
[/vba]
 
Ответить
Сообщениеtools\references\Microsoft forms 2.0[vba]
Код
Dim d_o As New MSForms.DataObject
       d_o.SetText "что-то" 'Cells(1, 1).value
       d_o.PutInClipboard
[/vba]
Автор - Саня
Дата добавления - 26.09.2011 в 18:24
Hugo Дата: Понедельник, 26.09.2011, 18:31 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3252
Репутация: 707 ±
Замечаний: 0% ±

2019
Без доп.библиотек:

[vba]
Код
==============================================================
подскажите, пожалуйста, КАК с помощью макроса выделенный столбец числе скопировать в буфер обмена , чтобы они там были через запятую?

Sub getdataback()

Dim S, ss, sss$

S = Selection
For Each ss In S
sss = sss & ", " & ss
Next
sss = Mid(sss, 3)
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText sss
.PutInClipboard
End With

End Sub

Пробелы не игнорируются!!!
==============================================================
[/vba]

Можно погуглить по этому длинному номеру - будет пара-тройка других примеров.

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеБез доп.библиотек:

[vba]
Код
==============================================================
подскажите, пожалуйста, КАК с помощью макроса выделенный столбец числе скопировать в буфер обмена , чтобы они там были через запятую?

Sub getdataback()

Dim S, ss, sss$

S = Selection
For Each ss In S
sss = sss & ", " & ss
Next
sss = Mid(sss, 3)
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText sss
.PutInClipboard
End With

End Sub

Пробелы не игнорируются!!!
==============================================================
[/vba]

Можно погуглить по этому длинному номеру - будет пара-тройка других примеров.
Автор - Hugo
Дата добавления - 26.09.2011 в 18:31
Гость Дата: Понедельник, 26.09.2011, 20:18 | Сообщение № 9
Группа: Гости
Всем откликнувшимся спасибо!
Заработало так, без дополнительных библиотек:

[vba]
Код
Sub pswdcopy()
   With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   .SetText Cells(2, 1)
   .PutInClipboard
   End With
End Sub
[/vba]

С уважением Jhonson.
 
Ответить
СообщениеВсем откликнувшимся спасибо!
Заработало так, без дополнительных библиотек:

[vba]
Код
Sub pswdcopy()
   With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   .SetText Cells(2, 1)
   .PutInClipboard
   End With
End Sub
[/vba]

С уважением Jhonson.
Автор - Гость
Дата добавления - 26.09.2011 в 20:18
Саня Дата: Понедельник, 26.09.2011, 22:03 | Сообщение № 10
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
кто-нибудь знает - связаны ли последние сообщения?
 
Ответить
Сообщениекто-нибудь знает - связаны ли последние сообщения?
Автор - Саня
Дата добавления - 26.09.2011 в 22:03
Hugo Дата: Понедельник, 26.09.2011, 23:38 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3252
Репутация: 707 ±
Замечаний: 0% ±

2019
Саня, я привёл пример, как у меня сохранён, со всем заданием к нему. Гарантированно проверенный в работе. ТС понял и переделал под свою задачу.

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеСаня, я привёл пример, как у меня сохранён, со всем заданием к нему. Гарантированно проверенный в работе. ТС понял и переделал под свою задачу.
Автор - Hugo
Дата добавления - 26.09.2011 в 23:38
eenk Дата: Суббота, 03.06.2017, 14:13 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Апну тему, чтобы не плодить лишней.
странно, но в Excel 2013 не работает. макрос такой:
[vba]
Код

Dim Clipboard As New DataObject
txt$ = Selection.Text
MsgBox (txt$)
    
Clipboard.SetText txt$
Clipboard.PutInClipboard
Clipboard.GetFromClipboard
txt$ = Clipboard.GetText
MsgBox (txt$)
[/vba]
первый msgbox выдает нормальный текст из ячейки
второй - два каких-то непечатаемых символа (￿￿)
К сообщению приложен файл: file1.xlsm (23.6 Kb)
 
Ответить
СообщениеАпну тему, чтобы не плодить лишней.
странно, но в Excel 2013 не работает. макрос такой:
[vba]
Код

Dim Clipboard As New DataObject
txt$ = Selection.Text
MsgBox (txt$)
    
Clipboard.SetText txt$
Clipboard.PutInClipboard
Clipboard.GetFromClipboard
txt$ = Clipboard.GetText
MsgBox (txt$)
[/vba]
первый msgbox выдает нормальный текст из ячейки
второй - два каких-то непечатаемых символа (￿￿)
Автор - eenk
Дата добавления - 03.06.2017 в 14:13
Pelena Дата: Суббота, 03.06.2017, 14:20 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
eenk, создайте свою тему. Эта тема закрыта

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщениеeenk, создайте свою тему. Эта тема закрыта
Автор - Pelena
Дата добавления - 03.06.2017 в 14:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для копирования значения ячейки в буфер обмена
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!