При копировании,текст автоматически записывается в ячейку - VBA
Формулировка задачи:
Доброго времени суток,
помогите, пожалуйста, написать макрос:
Надо чтобы когда копируешь любой текст (например ссылку в браузере), из буфера обмена автоматически записывалось в одну и ту же ячейку (например ячейку А1).
т.е.
если я скопирую сначала один текст (текст: ААА), в ячейку А1 - запишется ААА
если я скопирую затем другой текст (текст: БББ), в ячейке А1 - заменится текст на БББ
Решение задачи: «При копировании,текст автоматически записывается в ячейку»
textual
Листинг программы
Sub Clip1() Static d As Object, c As Range If d Is Nothing Then 'первый запуск Set d = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 'DataObject Set c = Range("A1") 'вставьте нужный адрес End If On Error GoTo 1 d.GetFromClipboard c = d.GetText 1 Application.OnTime Now + #12:00:01 AM#, "Clip1" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д