Как да поставите от клипборда в Excel с помощта на VBA

Hugh West

16-10-2023 Макроси & Excel VBA
  • Споделя Това
Hugh West

Ако изрежете или копирате някакъв текст или изображение, той първо се записва в клипборда. След това можете да поставите текста или изображението навсякъде, например във файловете на Word и Excel. В Excel можете да поставяте от клипборда по много начини. Приложения на Visual Basic (VBA) ви позволява да вмъквате от клипборда във вашия Excel файл с някои кодове. В тази статия ще ви покажа 3 метода за използване на VBA за вмъкване от клипборда в Excel.

Да предположим, че имате копира някои текстове от текстов файл и те са записани в клипборда. Сега искате да ги поставите във вашия Excel файл, като използвате VBA .

Изтегляне на работна тетрадка за практика

Вмъкване от клипборда в Excel.xlsm

3 метода за вмъкване от клипборда в Excel с помощта на VBA

1. Вмъкване от клипборда в една клетка с помощта на VBA

Преди да приложите този метод, трябва да активирате Библиотека за обекти на Microsoft Forms 2.0 за VBA проект. За да направите това,

➤ Преса ALT+F11 за да отворите The VBA

➤ Отидете на Инструменти> Препратки в VBA прозорец.

Това ще отвори Референция - VBAProject прозорец.

➤ Проверка Библиотека за обекти на Microsoft Forms 2.0 и щракнете върху ОК .

Той ще активира Библиотека за обекти на Microsoft Forms 2.0 . Сега,

➤ Щракнете върху Вмъкване на и изберете Модул .

Това ще отвори Модул(Код) прозорец.

➤ Въведете следния код в Модул(Код) прозорец, 

 Sub Paste_from_Clipboard() Dim CObj As MSForms.DataObject Set CObj = New MSForms.DataObject CObj.GetFromClipboard XText = CObj.GetText(1) ActiveSheet.Range("B4").Value = XText End Sub

Кодът ще създаде Macro която ще вмъкне текстовете от клипборда в клетката B4 .

След въвеждане на кода,

➤ Щракнете върху Изпълнявайте или натиснете F5 .

Сега,

➤ Затворете или минимизирайте VBA прозорец.

Ще видите, че текстовете от клипборда са вмъкнати в клетка B4 .

Прочетете още: Как да копирате и поставяте в Excel без формули (7 лесни трика)

Подобни четива

  • Как да копирате уникални стойности в друг работен лист в Excel (5 метода)
  • Копиране на обединени и филтрирани клетки в Excel (4 метода)
  • Как да копирате редове в Excel (4 лесни начина)
  • Копиране и поставяне на хиляди редове в Excel (3 начина)
  • Как да копирате и поставяте точно форматиране в Excel (бързи 6 метода)

2. Вмъкване от клипборда от SendKeys

Този метод се основава на бързия клавиш CTRL+V която се използва за вмъкване на данни. VBA код, можете да използвате тази команда, за да поставите данни от клипборда. Първо,

➤ Щракнете с десния бутон върху името на листа от Проект панел на VBA прозорец.

Ще се появи падащо меню.

➤ Разширяване Вмъкване на като щракнете и след това изберете Модул .

Това ще отвори Модул(Код) прозорец.

➤ Въведете следния код в Модул(Код) прозорец, 

 Sub Paste_from_Clipboard_2() ActiveSheet.Range("B4").Select SendKeys "^v" End Sub

Кодът ще създаде Macro с име Paste_from_Clipboard_2 което ще даде командата CTRL+V след избиране на клетка B4 и поставете данните от клипборда в тази клетка.

Сега,

➤ Затворете или минимизирайте VBA прозорец.

➤ Преса ALT+F8

Това ще отвори Macro прозорец.

➤ Изберете Paste_from_Clipboard_2 в Име на макрос и щракнете върху Изпълнявайте .

В резултат на това ще видите, че текстовете от клипборда са вмъкнати в клетката B4 .

Прочетете още: Excel VBA за копиране само на стойности към местоназначението (макроси, UDF и UserForm)

3. Вмъкване от клипборда в диапазон

В този метод ще ви покажа как можете да копиране на набор от данни от даден лист в клипборда и да поставите тези данни в друг лист от клипборда.

Да предположим, че разполагате със следното множество от данни в лист с име Данни .

Сега,

➤ Преса ALT+11 за да отворите VBA прозорец.

➤ Щракнете с десния бутон върху името на листа от Проект панел на VBA прозорец.

Ще се появи падащо меню.

➤ Разширяване Вмъкване на като щракнете и след това изберете Модул .

Това ще отвори Модул(Код) прозорец.

➤ Въведете следния код в Модул(Код) прозорец, 

 Sub Copy_Clipboard_Range() Worksheets("Data").Range("B4:E9").Copy ActiveSheet.Paste Destination:=Worksheets("Paste sheet").Range("B5:E10") End Sub

Кодът ще копира данните от B4:E9 на листа с име Данни в клипборда. След това той ще вмъкне данните в B5:E10 на листа с име Лист за паста от клипборда.

След това,

➤ Затворете или минимизирайте VBA прозорец.

➤ Преса ALT+F8

Това ще отвори Macro прозорец.

➤ Изберете Copy_Clipboard_Range в Име на макрос и щракнете върху Изпълнявайте .

В резултат на това данните ви ще бъдат вмъкнати в желаната дестинация.

➤ Отидете в Начало и щракнете върху малката икона със стрелка надолу в долния ляв ъгъл на Клипборд лента.

Това ще отвори клипборда от лявата страна на файла Excel.

Сега можете да видите, че данните, които са били вмъкнати в листа, са в клипборда. Всъщност данните първо са били записани тук, а след това са били вмъкнати в листа оттук.

Прочетете още: Формула за копиране и поставяне на стойности в Excel (5 примера)

Заключение

В тази статия ще намерите 3 метода за поставяне от клипборда в Excel с помощта на VBA . Първите два метода ще вмъкнат съдържанието на клипборда в една клетка, но с третия метод можете да вмъкнете данни в диапазон. Ако имате някакви неясноти, не се колебайте да оставите коментар.

Предишна публикация Как да показвате стрелките на тракера в Excel (2 удобни начина)
Следваща публикация Как да опресните всички таблици Pivot с VBA (4 начина)

Хю Уест е опитен обучител и анализатор на Excel с над 10 години опит в индустрията. Има бакалавърска степен по счетоводство и финанси и магистърска степен по бизнес администрация. Хю има страст към преподаването и е разработил уникален подход на преподаване, който е лесен за следване и разбиране. Неговите експертни познания по Excel са помогнали на хиляди студенти и професионалисти по целия свят да подобрят уменията си и да постигнат отлични резултати в кариерата си. Чрез своя блог Хю споделя знанията си със света, като предлага безплатни уроци за Excel и онлайн обучение, за да помогне на хората и фирмите да достигнат пълния си потенциал.