Копирање лепљења у ВБА је слично ономе што радимо у радном листу Екцел, као што можемо копирати вредност и залепити је у другу ћелију, такође можемо користити специјално лепљење за лепљење само вредности, слично као у ВБА користимо методу копирања са својством опсега за копирајте вредност из једне ћелије у другу и за лепљење вредности користимо функцију радног листа пасте специал или пасте.
Како копирати лепљење у ВБА?
Испод су неки примери како копирати-налепити у Екцел користећи ВБА.
Основна ствар коју радимо у Екцелу је копирање, резање и лепљење података из једне ћелије у другу ћелију. Такође не захтева посебно представљање. Међутим, док је учење ВБА кодирања важно је разумети исти концепт у језику кодирања. Цопи Пасте у ВБА је рутински задатак који свакодневно радимо у Екцелу. Да бисмо прво копирали, морамо да одлучимо коју ћелију да копирамо.
Пример # 1 - Копирање и лепљење вредности помоћу објекта домета
Претпоставимо да имате реч „Екцел ВБА“ у ћелији А1.
Рецимо, на пример, ако желите копирати ћелију А1, можемо користити објект ВБА РАНГЕ.
Шифра:
Подкопија_Пример () Опсег ("А1"). Енд Суб
Оног тренутка када референцирате ћелију, видећемо сва својства и методе са њом. Дакле, изаберите метод „ Копирај“.
Шифра:
Суб Цопи_Екампле () Распон ("А1"). Копирај Крај Суб
Након избора методе, притисните размакницу да бисте видели аргумент методе Копирање.
Каже Одредиште.
Ово није ништа, али где желите да копирате-налепите вредности у ВБА без одабира методе ПАСТЕ.
Ако лепимо у исти лист, можемо да изаберемо ћелију помоћу објекта Ранге. Рецимо да ако желимо да вредност залепимо у ћелију Б3, одредиште можемо ставити као „Распон („ Б3 “).“
Шифра:
Суб Цопи_Екампле () Ранге ("А1"). Дестинатион Цопи: = Ранге ("Б3") Енд Суб
Овим ћете копирати податке из ћелије А1 и залепити их у ћелију Б3.
Доле наведени метод такође можемо користити за лепљење података.
Шифра:
Суб Цопи_Екампле () Ранге ("А1"). Цопи Ранге ("Б3"). Изаберите АцтивеСхеет.Пасте Енд Суб
Прво ћемо копирати и одабрати податке из ћелије А1 и залепити у ћелију Б3.
Пример # 2 - Копирајте на други радни лист у истој радној свесци
Сада, ако желимо да копирамо-залепимо вредност из различитих радних листова помоћу ВБА макронаредбе, онда у аргументу Одредиште морамо да наведемо име листа помоћу објекта ВОРКСХЕЕТС, а затим поменимо опсег ћелија у том ВОРКСХЕЕТ-у. Код у наставку ће обавити посао.
Шифра:
Суб Цопи_Екампле () Опсег ("А1"). Одредиште копије: = Радни листови ("Лист2"). Опсег ("Б3") Крај Суб
Ако желимо да копирамо податке са одређеног листа и желимо да их налепимо на други одређени лист, морамо да поменемо оба имена листова.
Прво морамо поменути лист за копирање.
Радни листови („Лист1“). Опсег („А1“). Копија
Затим у аргументу Одредиште морамо споменути циљано име радног листа и опсег ћелије.
Одредиште: = Радни листови („Лист2“). Домет („Б3“)
Дакле, код би ово требало да се свиђа.
Шифра:
Подкопија_Екампле () Радни листови ("Лист1"). Опсег ("А1"). Одредиште копије: = Радни листови ("Схеет2"). Опсег ("Б3") Крај Суб
Пример # 3 - Копирајте из једне радне свеске у другу радну свеску
Видели смо како да копирамо са радног листа на други радни лист у истој радној свесци. Али то можемо да радимо и из једне у другу радну свеску.
Погледајте доњи код.
Шифра:
СубЦопи_Екампле () Радне свеске ("Књига 1.клск"). Радни листови ("Лист1"). Распон ("А1"). Копирајте радне свеске ("Књига 2.клск"). Активирајте АцтивеВоркбоок.Ворксхеетс ("Схеет 2"). Изаберите АцтивеСхеет.Пасте Енд Суб
Прво ће копирати податке из радног листа „Лист1“ у радној свесци „Боок1.клск“ из ћелије А1.
“Workbooks("Book 1.xlsx").Worksheets("Sheet1").Range("A1").Copy”
Then it will activate the workbook “Book 2.xlsx”.
Workbooks("Book 2.xlsx").Activate
In the active workbook, it will select the worksheet “Sheet 2.”
ActiveWorkbook.Worksheets("Sheet 2").Select
Now in the active sheet, it will paste.
ActiveSheet.Paste
Alternative Way for using Copy-Paste in VBA
We have one more alternative way of having the data from one cell to another cell. Assume you have the word “Excel VBA” in the cell A1 and you need the same to come in cell B3.
One method we have seen is using the VBA copy and paste method. Now I will show you one of the alternative ways. Look at the below piece of code to understand.
Code:
Sub Copy_Example1() Range("A1").Value = Range("B3").Value End Sub
The above says whatever the value is there in the cell A1 should be equal to the value in the cell B3.
Range("A1").Value = Range("B3").Value
Even though this is not a copy and paste method still adds more value to our coding knowledge.
Top Ways of VBA Copy and Paste as Values
Now we will see different ways of VBA copy and paste values. Assume you are in the cell A1 as shown in the below image.
- If we want to copy and paste, we need to reference the cell here. Rather we can just use a property of Selection. Copy method.
Code:
Sub Copy_Example1() Selection.Copy Destination:=Range("B3") End Sub
OR
Sub Copy_Example1() ActiveCell.Copy Destination:=Range("B3") End Sub
- If you want to copy the entire used range of the worksheet, you can use the below code.
Code:
Суб Цопи_Екампле2 () Ворксхеетс ("Схеет1"). УсеРанге.Цопи Дестинатион: = Ворксхеетс ("Схеет2"). Ранге ("А1") Енд Суб
Овим ћете копирати цео коришћени опсег у радни лист „Схеет1“ и залепити га у радни лист „Схеет2“.
