ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вставить текст в примечание из буфера обмена
4 сообщений из 4, страница 1 из 1
Вставить текст в примечание из буфера обмена
    #38017898
Густав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Густав
Участник
Нужен макрос, который бы создавал примечание и вставлял в него текст из буфера обмена . Написал такой: ))
Код: vbnet
1.
2.
3.
4.
5.
6.
' Сочетание клавиш: Ctrl+p
'
    ActiveCell.AddComment
    ActiveCell.Comment.Visible = False
    ActiveCell.Comment.Text Text:="Данные"
    ActiveCell.Select



..но когда нажимаю "Ctrl+p" он всегда вставляет слово "Данные" (что, впрочем, судя по коду, неудивительно!), а мне нужно, чтобы текст из буфера, т.к. он всегда разный.

P.S.: у меня Excel 2003.
...
Рейтинг: 0 / 0
30.10.2012, 02:21
| Ответить | Цитировать | Написать  
Вставить текст в примечание из буфера обмена
    #38018018
QValD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QValD
Участник
Густав,

http://g.zeos.in/?q=%D1%80%D0%B0%D0%B1%D0%BE%D1%82%D0%B0%20%D1%81%20%D0%B1%D1%83%D1%84%D0%B5%D1%80%D0%BE%D0%BC%20%D0%BE%D0%B1%D0%BC%D0%B5%D0%BD%D0%B0%20vba&m=1
...
Рейтинг: 0 / 0
30.10.2012, 08:51
| Ответить | Цитировать | Написать  
Вставить текст в примечание из буфера обмена
    #38018020
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Густав,

Добавить ссылку на Microsoft Forms 2.0 и в модуль, или где использоваться будет две функции.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Function GetTextClipboard() As Variant
    Dim MyDataObj As New DataObject
    MyDataObj.GetFromClipboard
    GetTextClipboard = MyDataObj.GetText()
End Function

Public Function SetTextClipboard(ByVal Obj As Variant)
    Dim MyDataObj As New DataObject
    MyDataObj.SetText Obj
    MyDataObj.PutInClipboard
End Sub
...
Рейтинг: 0 / 0
30.10.2012, 08:54
| Ответить | Цитировать | Написать  
Вставить текст в примечание из буфера обмена
    #38019121
Густав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Густав
Участник
Ха, оказалось, от забугровых (англоязычных) форумов толку больше, чем от "родного" )

В общем, если вдруг когда-нибудь кому нибудь это понадобиться, то нужно написать следующее:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
' Сочетание клавиш: Ctrl+p
'
    Dim DataObj As New MSForms.DataObject
    Dim S As String
    DataObj.GetFromClipboard
    S = DataObj.GetText     'переменной "S" присваиваются данные из буфера
    
    ActiveCell.AddComment
    ActiveCell.Comment.Visible = False
    ActiveCell.Comment.Text Text:=S  'собственно, в поле примечания вставляется буфер обмена
    ActiveCell.Select



P.S.: а, да, и по совету VSVLAD'а (Спасибо!) добавил ссылку на Microsoft Forms 2.0: Tools -> References -> Browse -> FM20.dll -> Открыть
...
Рейтинг: 0 / 0
30.10.2012, 17:30
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вставить текст в примечание из буфера обмена
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38019121&tid=2157354]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 24ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 14ms
total:  131ms
созд. / загр.: 131ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]