ВБА Пасте Специал - Топ 5 начина за коришћење ВБА ПастеСпециал функције?

Преглед садржаја

Слично радном листу када копирамо податке и залепимо их у други опсег ћелија, имамо посебну методу лепљења која нам омогућава да податке лепимо као саме себе или само формуле или само вредности или на исти начин на који можемо да користимо Спете Специал у ВБА користећи метода својства опсега као што следи опсег. налепите специал () пружајући у заградама тип који желимо.

Налепите специјално у ВБА

Паста Специал ин екцел на много начина служи у нашем свакодневном раду. Помоћу пасте пасте можемо учинити много више ствари од уобичајених. Копирање и лепљење постоји свуда у свету рачунара. Али специјално лепљење је напредна ствар у екцелу.

Као и уобичајена екцел пасте специјална верзија у ВБА, и ми имамо специјалну методу лепљења копираних података. Копирање ствари у екцелу није необична ствар за кориснике екцела, они копирају, лепе и најчешће користе специјалну пасте да би на много начина служили својој сврси.

У редовном Екцелу, пасте укључује многе опције попут лепљења само вредности, лепљења формула, формата лепљења итд. …

Специјално лепљење мора да се налепи, оперише, прескочи празне просторе и транспонује овако у ВБА. Имамо све параметре методом Пасте Специал .

Формула пасте у ВБА

Испод је Формула за специјално лепљење у ВБА

Специјално лепљење је доступно са објектом ВБА Ранге, јер ћемо га након копирања података лепити у опсег ћелија, тако да је специјални метод лепљења доступан са објектом опсега .

Тип лепљења : Како копирате податке, како желите да их налепите. Без обзира да ли желите да налепите вредности, формуле, формате, валидацију итд … Испод је комплетна листа опција доступних у оквиру Пасте Типе.

Налепите специјалну операцију: Да ли желите да приликом лепљења изводите било какве операције попут сабирања, одузимања, дељења, множења или ниједне.

  • (Прескочи празне просторе ): Ако желите прескочити празне просторе, тада можете да изаберете ТРУЕ или ФАЛСЕ.
  • (Транспозиција): Ако желите да транспонујете податке, можете да изаберете ТРУЕ или ФАЛСЕ.

Примери специјалне пасте у програму Екцел ВБА

Следе примери специјалне пасте у ВБА.

Пример # 1 - Налепите само вредности помоћу ВБА ПастеСпециал функције

У првом примеру извршићемо лепљење само вредности помоћу пасте специал. Претпоставимо да су у наставку подаци које имате у називу листа под називом Подаци о продаји.

Сада ћемо извршити задатак копирања и лепљења помоћу неколико специјалних метода лепљења. Следите кораке у наставку.

Корак 1: Прво креирајте име макронаредбе.

Корак 2: Прво копирајте опсег А1 у Д14 из назива листа „Подаци о продаји“. Да бисте копирали опсег, примените доњи код.

Шифра: 

Домет („А1: Д14“). Копија

Корак 3: Након копирања података, налепићемо вредности од Г1 до Ј14. Прво, наведите опсег.

Шифра:

Домет ("Г1: Ј14")

Корак 4: Након избора опсега, морамо да налепимо. Дакле, ставите тачку (.) И одаберите Пасте Специал методу.

Шифра:

Суб ПастеСпециал_Екампле1 () опсег ("А1: Д14"). Опсег копирања ("Г1: Ј14"). ПастеСпециал Енд Суб

Корак 5: Са падајуће листе изаберите опцију „клПастеВалуес.“

Шифра:

Суб ПастеСпециал_Екампле1 () опсег ("А1: Д14"). Опсег копирања ("Г1: Ј14"). ПастеСпециал клПастеВалуес Енд Суб

Корак 6: Сада покрените овај код помоћу тастера Ф5 или ручно и погледајте шта ће се догодити.

Дакле, наш код је копирао податке из А1 у Д14 и залепио из Г1 у Ј14 као вредности.

Он је извршио задатак пречице екцел кључ у радног АЛТ + Е + М + В .

Пример # 2 - Налепите све који користе ВБА ПастеСпециал

Сада ћемо видети шта ће се догодити ако извршимо задатак клПастеАлл.

Шифра:

Sub PasteSpecial_Example2() Range("A1:D14").Copy Range("G1:J14").PasteSpecial xlPasteAll End Sub

Now, if you run this code manually through the run option or by pressing the F5 key, we will have as it is data.

Example #3 - Paste Formats using VBA PasteSpecial Function

Now we will see how to paste only formats. The Below code would do the job for us.

Code:

Sub PasteSpecial_Example3() Range("A1:D14").Copy Range("G1:J14").PasteSpecial xlPasteFormats End Sub

If you run this code using the F5 key or manually, we will get the only format of the copied range, nothing else.

Example #4 - Paste Column Width using VBA Paste Special

Now we will see how to paste only column width from the copied range. For this, I have increased the column width for one of my data columns.

Apply the below code it will paste only the column width of the copied range.

Code:

Sub PasteSpecial_Example3() Range("A1:D14").Copy Range("G1:J14").PasteSpecial xlPasteColumnWidths End Sub

Run this code and see the difference in the column width.

Now we can see Sales column width has been increased to the column width of our copied range column.

Example #5 - Copy the Data from One Sheet to Another Sheet using VBA Paste Special Option

We have seen how to copy and paste the data on the same sheet. Now we will how to paste from one sheet to another sheet.

Step 1: Before we select the range, we need to tell from which sheet we need to select the data.

Code:

Sub PasteSpecial_Example5() Worksheets ("Sales Data") End Sub

Step 2: After selecting the sheet by its name, then we need to select the range in that sheet. The copy it.

Code:

Sub PasteSpecial_Example5() Worksheets("Sales Data").Range("A1:D14").Copy End Sub

The above code says in the sheet name “Sales Data” copy the Range, (“A1:D14”)

Step 3: Since we are pasting it in a different sheet, we need to select the sheet by its name.

Code:

Sub PasteSpecial_Example5() Worksheets("Sales Data").Range("A1:D14").Copy Worksheets ("Month Sheet") End Sub

Step 4: Now, in the sheet “Month Sheet,” select the range.

Code:

Sub PasteSpecial_Example5() Worksheets("Sales Data").Range("A1:D14").Copy Worksheets("Month Sheet").Range ("A1:D14") End Sub

Step 5: Using Paste special, we will be pasting values and format.

Code:

Sub PasteSpecial_Example5() Worksheets("Sales Data").Range("A1:D14").Copy Worksheets("Month Sheet").Range("A1:D14").PasteSpecial xlPasteValuesAndNumberFormats End Sub

Step 6: We are not only pasting values and format using VBA Paste Special, but we are pasting it as TRANSPOSE as well.

Code:

Sub PasteSpecial_Example5() Worksheets("Sales Data").Range("A1:D14").Copy Worksheets("Month Sheet").Range("A1:D14").PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True End Sub

Now run this code. It will copy and transpose the data to the “Month Sheet.”

Things to Remember About Excel VBA PasteSpecial Function

  • Ако желите прескочити празне просторе, аргумент морате подразумевано унети као ТРУЕ. Потребно је ФАЛСЕ.
  • Ако желите да транспонујете податке, потребно је да одаберемо транспорт као ТАЧНО.
  • Одједном можемо изводити само једну специјалну пасту.

Занимљиви Чланци...