Как да създадете команден бутон за копиране и поставяне на данни в Excel?
Ако приемем, че трябва често да копирате набор от клетки на друго място след промяна на данните, методът за ръчно копиране и поставяне ще бъде труден и отнема много време. Как да накарам това копиране и поставяне да работи автоматично? Тази статия ще ви покаже как да използвате команден бутон за копиране и поставяне на данни само с едно щракване.
Създайте команден бутон за копиране и поставяне на данни с VBA код
Създайте команден бутон за копиране и поставяне на данни с VBA код
Моля, направете следното, за да копирате и поставите данни автоматично, когато щракнете върху команден бутон.
1. Вмъкнете команден бутон чрез щракване Софтуерен Инженер > Поставете > Команден бутон (ActiveX Control). Вижте екранна снимка:
2. Начертайте команден бутон във вашия работен лист и щракнете с десния бутон върху него. Изберете Преглед на кода от контекстното меню.
3. При изскачане Microsoft Visual Basic за приложения прозорец, моля, заменете оригиналния код в прозореца на кода с кода на VBA по-долу.
VBA код: Използвайте командния бутон, за да копирате и поставите данни в Excel
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim xSheet As Worksheet
Set xSheet = ActiveSheet
If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
xSheet.Range("A1:C17 ").Copy
xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = True
End Sub
Забележка: В кода CommandButton1 е името на вашия вмъкнат команден бутон. A1:C17 е диапазонът, който трябва да копирате, а J1:L17 е целевият диапазон за поставяне на данни. Моля, сменете ги според нуждите си.
4. Натиснете Друг + Q ключове за затваряне на Microsoft Visual Basic за приложения прозорец. И изключете режима на проектиране в раздела Разработчик.
5. Сега щракнете върху командния бутон, всички данни в диапазон A1: C17 ще бъдат копирани и поставени в диапазон J1: L17 без форматирането на клетката.
Свързани статии:
- Как да запишете и затворите активна работна книга без подкана от команден бутон в Excel?
- Как винаги да плавате команден бутон на работен лист в Excel?
- Как да актуализирате или вмъкнете (текуща) дата и час чрез команден бутон в Excel?
- Как да използвате команден бутон, за да промените определена стойност на клетка в Excel?
- Как да използвате командния бутон за запазване на активен работен лист като PDF файл в Excel?
- Как да вмъкна празен нов ред автоматично чрез команден бутон в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!