photosdematures.com

Katulad ng worksheet kapag kumopya kami ng isang data at i-paste ito sa iba't ibang saklaw ng cell mayroon kaming isang espesyal na pamamaraan ng pag-paste na nagbibigay-daan sa amin upang i-paste ang data bilang sarili nito o ang mga formula lamang o ang mga halaga at parehong fashion na maaari naming magamit ang Paste Special sa VBA gamit ang saklaw na pamamaraan ng pag-aari tulad ng sumusunod na saklaw. i-paste ang espesyal () na nagbibigay ng uri na nais namin sa mga braket.

I-paste ang Espesyal sa VBA

Nag-paste ng Espesyal sa excel ay nagsisilbi sa maraming paraan sa aming pang-araw-araw na gawain. Ang paggamit ng espesyal na i-paste ay maaari nating gawin ang maraming bagay kaysa sa karaniwang mga. Ang kopya at pag-paste ay naroroon kahit saan sa mundo ng computer. Ngunit ang espesyal na i-paste ay ang advanced na bagay sa excel.

Tulad ng regular na excel paste na espesyal sa VBA din mayroon kaming espesyal na pamamaraan na i-paste upang i-paste ang kinopyang data. Ang pagkopya ng mga bagay sa excel ay hindi isang kakaibang bagay para sa mga excel na gumagamit, kumokopya, nag-paste, at karamihan sa mga oras na gumagamit sila ng espesyal na i-paste upang maihatid ang kanilang layunin sa maraming paraan.

Sa regular na excel paste ay nagsasama ng maraming mga pagpipilian tulad ng i-paste lamang ang mga halaga, i-paste ang mga formula, i-paste ang mga format at iba pa…

I-paste ang espesyal na kailangang I-paste, Operasyon, Laktawan ang mga Blangko, at Transpose tulad nito sa VBA din mayroon kaming lahat ng mga parameter I-paste ang Espesyal paraan

Ang Formula ng Paste Espesyal sa VBA

Nasa ibaba ang Formula para sa Paste Special sa VBA

Magagamit ang Paste Special sa object ng VBA Range dahil pagkatapos makopya ang data mai-paste namin ito sa saklaw ng cell kaya magagamit ang espesyal na pamamaraan ng pag-paste. saklaw bagay

Uri ng I-paste: Matapos makopya ang data paano mo nais i-paste. Kung nais mong i-paste ang mga halaga, formula, format, pagpapatunay, atbp .. Nasa ibaba ang kumpletong listahan ng mga pagpipilian na magagamit sa ilalim Uri ng Pag-paste.

I-paste ang Espesyal na Operasyon: Habang ang pag-paste gusto mo bang magsagawa ng anumang uri ng pagpapatakbo tulad ng pagdaragdag, pagbabawas, paghahati, pagpaparami, o wala.

• [Laktawan ang mga Blangko]: Kung nais mong laktawan ang mga blangko pagkatapos ay maaari kang pumili ng TUNAY o MALI.
• [I-transpose]: Kung nais mong ibalhin ang data pagkatapos ay maaari kang pumili ng TUNAY o MALI.

Mga halimbawa ng Paste Espesyal sa Excel VBA

Ang mga sumusunod ay ang mga halimbawa ng espesyal na i-paste sa VBA.

Maaari mong i-download ang VBA Paste Espesyal na Template dito - Espesyal na Template ng VBA Paste

Halimbawa # 1 - I-paste lamang ang Mga Halaga gamit ang VBA PasteSpesyal na Pag-andar

Sa unang halimbawa, gagawa kami ng mga pag-paste lamang ng mga halaga gamit ang espesyal na i-paste. Ipagpalagay sa ibaba ang data na mayroon ka sa pangalan ng sheet na tinatawag na Data ng Pagbebenta.

Gagawin namin ngayon ang gawain ng kopya at i-paste gamit ang maraming mga espesyal na pamamaraan ng pag-paste. Sundin ang mga hakbang sa ibaba.

Hakbang 1: Lumikha muna ng isang macro name.

Hakbang 2: Una kopyahin ang saklaw na A1 hanggang D14 mula sa pangalan ng sheet na "Data ng Pagbebenta". Upang makopya ang saklaw mag-apply sa ibaba ng code.

Code:

Saklaw ("A1: D14"). Kopyahin

Hakbang 3: Matapos makopya ang data mai-paste namin ang mga halaga mula G1 hanggang J14. Unang sanggunian ang saklaw.

Code:

Saklaw ("G1: J14")

Hakbang 4: Matapos piliin ang saklaw kailangan naming i-paste. Kaya maglagay ng isang tuldok (.) At piliin ang I-paste ang Espesyal na pamamaraan.

Code:

 Sub PasteSpesyal_Example1 () Saklaw ("A1: D14"). Saklaw ng Kopya ("G1: J14"). I-paste ang Espesyal na Katapusan na Sub 

Hakbang 5: Mula sa drop-down na listahan, piliin ang pagpipilian "XlPasteValues".

Code:

 Sub PasteSpesyal_Example1 () Saklaw ("A1: D14"). Saklaw ng Kopya ("G1: J14"). I-paste ang Espesyal na xlPasteValues ​​End Sub 

Hakbang 6: Patakbuhin ngayon ang code na ito gamit ang F5 key o manu-mano at tingnan kung ano ang mangyayari.

Kaya kinopya ng aming code ang data mula sa A1 hanggang D14 at na-paste mula sa G1 hanggang J14 bilang mga halaga.

Ginanap nito ang gawain ng shortcut excel key sa worksheet ALT + E + S + V.

Halimbawa # 2 - I-paste ang Lahat gamit ang VBA PasteSpesyal

Ngayon makikita natin kung ano ang mangyayari kung gampanan natin ang gawain ng xlPasteAll.

Code:

 Sub PasteSpesyal_Example2 () Saklaw ("A1: D14"). Sakop ng Kopya ("G1: J14"). I-paste ang Espesyal na xlPasteAll End Sub 

Ngayon kung patakbuhin mo ang code na ito nang manu-mano sa pamamagitan ng pagpipiliang run o sa pamamagitan ng pagpindot sa F5 key, magkakaroon kami ng ito ay data.

Halimbawa # 3 - I-paste ang Mga Format gamit ang VBA PasteSpesyal na Pag-andar

Ngayon makikita natin kung paano i-paste lamang ang mga format. Ang code sa ibaba ang gagawa ng trabaho para sa amin.

Code:

 Sub PasteSpesyal_Example3 () Saklaw ("A1: D14"). Saklaw ng Kopya ("G1: J14"). I-paste ang Espesyal na xlPasteFormats End Sub 

Kung patakbuhin mo ang code na ito gamit ang F5 key o manu-mano makukuha namin ang tanging format ng nakopyang saklaw wala nang iba pa.

Halimbawa # 4 - I-paste ang Lapad ng Haligi gamit ang VBA Paste Espesyal

Ngayon makikita natin kung paano i-paste lamang ang lapad ng haligi mula sa nakopyang saklaw. Para sa mga ito, nadagdagan ko ang lapad ng haligi para sa isa sa aking mga haligi ng data.

Mag-apply sa ibaba ng code ay i-paste lamang nito ang lapad ng haligi ng nakopyang saklaw.

Code:

 Sub PasteSpesyal_Example3 () Saklaw ("A1: D14"). Sakop ng Kopya ("G1: J14"). I-paste ang Espesyal na xlPasteColumnWidths End Sub 

Patakbuhin ang code na ito at makita ang pagkakaiba sa lapad ng haligi.

Ngayon ay nakikita na namin ang lapad ng haligi ng Benta ay nadagdagan sa lapad ng haligi ng aming kinopyang hanay ng saklaw.

Halimbawa # 5 - Kopyahin ang Data mula sa Isang Sheet patungo sa Isa pang Sheet gamit ang VBA Paste Espesyal na Pagpipilian

Nakita namin kung paano makopya at i-paste ang data sa parehong sheet. Ngayon ay paano namin i-paste mula sa isang sheet papunta sa isa pang sheet.

Hakbang 1: Bago namin piliin ang saklaw kailangan naming sabihin mula sa aling sheet ang kailangan namin upang piliin ang data.

Code:

 Sub PasteSpesyal_Example5 () Mga Worksheet ("Data ng Pagbebenta") Tapusin ang Sub 

Hakbang 2: Matapos piliin ang sheet sa pamamagitan ng pangalan nito pagkatapos ay kailangan naming piliin ang saklaw sa sheet na iyon. Ang kopya nito.

Code:

 Sub PasteSpesyal_Example5 () Mga Worksheet ("Data ng Pagbebenta"). Saklaw ("A1: D14"). Kopyahin ang Wakas na Sub 

Ang code sa itaas ay nagsasabi sa pangalan ng sheet na "Data ng Pagbebenta" kopyahin ang Saklaw ("A1: D14")

Hakbang 3: Dahil na-paste namin ito sa iba't ibang sheet kailangan namin upang piliin ang sheet sa pamamagitan ng pangalan nito.

Code:

 Sub PasteSpesyal_Example5 () Mga Worksheet ("Data ng Pagbebenta"). Saklaw ("A1: D14"). Kopyahin ang Mga Worksheet ("Month Sheet") End Sub 

Hakbang 4: Ngayon sa sheet na "Month Sheet" piliin ang saklaw.

Code:

 Sub PasteSpesyal_Example5 () Mga Worksheet ("Data ng Pagbebenta"). Saklaw ("A1: D14"). Kopyahin ang Mga Worksheet ("Month Sheet"). Saklaw ("A1: D14") End Sub 

Hakbang 5: Paggamit ng espesyal na I-paste ay mai-paste namin ang mga halaga at format.

Code:

 Sub PasteSpesyal_Example5 () Mga Worksheet ("Data ng Pagbebenta"). Saklaw ("A1: D14"). Kopyahin ang Mga Worksheet ("Month Sheet"). Saklaw ("A1: D14"). I-paste ang Espesyal na xlPasteValuesAndNumberFormats End Sub 

Hakbang 6: Hindi lamang namin nai-paste ang mga halaga at format na gumagamit ng VBA Paste Special ngunit dinididikit namin ito bilang TRANSPose din.

Code:

 Sub PasteSpesyal_Example5 () Mga Worksheet ("Data ng Pagbebenta"). Saklaw ("A1: D14"). Kopyahin ang Mga Worksheet ("Month Sheet"). Saklaw ("A1: D14"). I-paste ang Espesyal na xlPasteValuesAndNumberFormats, Transpose: = True End Sub 

Patakbuhin ngayon ang code na ito kokopya at isalin ang data sa "Month Sheet".

Mga Bagay na Dapat Tandaan Tungkol sa Excel VBA PasteSpesyal na Pag-andar

• Kung nais mong laktawan ang mga blangko kailangan mong ipasok ang argument bilang TUNAY sa pamamagitan ng default aabutin ng MALI.
• Kung nais mong ibalhin ang data kailangan namin upang piliin ang transpos bilang TUNAY.
• Maaari lamang kaming magsagawa ng isang espesyal na i-paste sa bawat pagkakataon.