Макрос для копирования значения ячейки в буфер обмена
Jhonson
Дата: Понедельник, 26.09.2011, 15:31 |
Сообщение № 1
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Помогите написать макрос, для копирования значения ячейки (значение - результат работы формулы).
Помогите написать макрос, для копирования значения ячейки (значение - результат работы формулы). Jhonson
К сообщению приложен файл:
___.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
Требуется "специальная вставка"
Требуется "специальная вставка" Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Требуется "специальная вставка" Автор - Hugo Дата добавления - 26.09.2011 в 16:14
Jhonson
Дата: Понедельник, 26.09.2011, 16:33 |
Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
нет не специальная вставка, пароль нужно скопировать в форму на сайте Способ, который в приложенном файле, не работает. Пароль в форму вставляется не корректный. Хотя если вставлять в какой-нибудь текстовый редактор, то вставляется парвильно.
нет не специальная вставка, пароль нужно скопировать в форму на сайте Способ, который в приложенном файле, не работает. Пароль в форму вставляется не корректный. Хотя если вставлять в какой-нибудь текстовый редактор, то вставляется парвильно. Jhonson
"Ничто не приносит людям столько неприятностей, как разум."
Сообщение отредактировал 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
Так на сайт вставляет с переводом строки вероятно... Обрезайте на один символ справа.
Так на сайт вставляет с переводом строки вероятно... Обрезайте на один символ справа. Hugo
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] Саня
Ответить
Сообщение 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] Можно погуглить по этому длинному номеру - будет пара-тройка других примеров.
Без доп.библиотек: [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
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. Гость
Ответить
Сообщение Всем откликнувшимся спасибо! Заработало так, без дополнительных библиотек: [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
Саня, я привёл пример, как у меня сохранён, со всем заданием к нему. Гарантированно проверенный в работе. ТС понял и переделал под свою задачу.
Саня, я привёл пример, как у меня сохранён, со всем заданием к нему. Гарантированно проверенный в работе. ТС понял и переделал под свою задачу. Hugo
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 выдает нормальный текст из ячейки второй - два каких-то непечатаемых символа ()
Апну тему, чтобы не плодить лишней. странно, но в 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
Ответить
Сообщение Апну тему, чтобы не плодить лишней. странно, но в 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 , создайте свою тему. Эта тема закрыта
eenk , создайте свою тему. Эта тема закрытаPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение eenk , создайте свою тему. Эта тема закрытаАвтор - Pelena Дата добавления - 03.06.2017 в 14:20