photosdematures.com

Mga Halaga ng Pag-paste ng Excel VBA

Ang Copy & Paste ay hindi ang pinakadakilang trabaho sa buong mundo !!! Ngunit ang pagkopya at pag-paste na may espesyal na pagpipilian ay nangangailangan ng ilang uri ng kaalaman sa VBA. Hindi ito ang proseso ng tuwid na pasulong bilang simpleng kopya at i-paste. Ang isa sa mahalagang mga espesyal na pamamaraan ng i-paste ay ang "I-paste ang Mga Halaga" sa VBA.

Paano Mag-paste ng Mga Halaga sa Excel gamit ang VBA?

Maaari mong i-download ang Template ng VBA Paste Value Excel na ito dito - VBA Paste Value Excel Template

Halimbawa # 1 - Paggamit ng Paste Espesyal

Para sa isang halimbawa tingnan ang imahe ng worksheet sa ibaba.

Sa cell B6, inilapat namin ang formula upang makalkula ang kabuuang halaga ng mga benta mula B2 hanggang B5 cells. Ngayon kung kokopyahin at i-paste ko ang cell B6 hanggang C6 hindi ko makukuha ang halagang 22,761 ngunit makukuha ko ang kaukulang pormula.

Upang maisakatuparan ang parehong bagay sa VBA kailangan namin ng kaalaman sa pag-cod. Ipapakita namin sa iyo kung paano i-paste ang mga halaga gamit ang VBA. Sundin ang mga hakbang sa ibaba.

Hakbang 1: Kopyahin ang cell B6.

Upang makopya ang cell B6 gamitin ang code bilang Saklaw ("B6"). Kopyahin

Hakbang 2: Piliin ang patutunguhang cell. Sa kasong ito C6 cell.

Tulad ng nakikita mo pagkatapos ng kopya ay nagtanong ito sa "Destinasyon". Wala ito ngunit saan mo nais i-paste, kaya piliin ang "Destinasyon" bilang Saklaw ("C6")

Code:

 Sub Paste_Values ​​() Saklaw ("B6"). Saklaw ng Kopya ("C6") End Sub 

Hakbang 3: Patakbuhin ang Code

Patakbuhin ang code na ito makukuha namin ang kopya ng B6 sa C6.

Ang formula lamang ang nakuha namin dito.

Hakbang 4: Magsagawa ng isang Espesyal na Paraan ng Pag-paste.

Upang maisagawa ang espesyal na pamamaraan ng i-paste tingnan natin sa ibaba ang syntax ng i-paste ang espesyal na pamamaraan.

Sa espesyal na pamamaraan ng i-paste, mayroon kaming maraming mga pamamaraan. Batay sa ginagawa nating operasyon kailangan nating piliin ang uri nang naaayon.

Upang maunawaan buksan natin ang code sa dalawang linya.

Una ay ang pagkopya ng cell B6.

Ngayon sa susunod na linya isulat ang patutunguhang cell bilang Saklaw ("C6")

Ngayon upang ma-access ang I-paste ang Espesyal na Paraan maglagay ng isang tuldok at simulang i-type ang titik na "P".

Sa iba't ibang mga pagpipilian sa itaas piliin ang pamamaraang "I-paste ang Espesyal".

Matapos piliin ang pamamaraan pindutin ang space key upang makita ang iba't ibang mga espesyal na pamamaraan ng i-paste.

Sa iba't ibang mga pagpipilian na ito piliin ang "xlPasteValues".

Matapos piliin ang pagpipilian pindutin ang tab key upang awtomatikong pumili.

Code:

 Sub Paste_Values ​​() Saklaw ("B6"). Saklaw ng Kopyahin ("C6"). I-paste ang Espesyal na xlPasteValues ​​End Sub 

Hakbang 5: Patakbuhin ang Code

Ngayon patakbuhin ang code, dapat lamang makuha ang halaga ng cell B6 sa cell C6.

Kung napansin mo ang worksheet pagkatapos patakbuhin ang code nasa mode na kopya lamang ito.

Idi-disable nito ang cut mode ng kopya pagkatapos maipatupad ang espesyal na pamamaraan ng pag-paste.

Halimbawa # 2 - I-paste ang Espesyal sa mga Loops

Madali ang i-paste ang espesyal ngunit sa mga tuntunin ng paggamit nito bilang bahagi ng isang malaking code ay nangangailangan ng isang advanced na antas ng mga kasanayan sa pag-cod.

Para sa isang halimbawa tingnan ang larawan sa ibaba.

Sa imahe sa itaas ng worksheet sa haligi na "F" mayroon kaming kabuuang haligi na hal sa F2, F5, F8, F11, at F14 cells.

Ngayon ang aking kinakailangan ay kopyahin ang bawat kabuuang cell mula sa kani-kanilang cell at i-paste sa haligi na "H" sa kani-kanilang mga cell.

Gamit ang code sa ibaba, sa mga loop ng VBA, magagawa natin ito.

Code:

 Sub Paste_Values1 () Dim k Bilang Integer Dim j Bilang Integer j = 2 Para sa k = 1 hanggang 5 Mga Cell (j, 6). Mga Kopya ng Kopya (j, 8). I-paste ang Espesyal na xlPasteValues ​​j = j + 3 Susunod k End Sub 

Ang code na ito na may espesyal na pagpipilian sa pag-paste ay gaganap ng gawain ng pagkopya ng bawat kabuuang cell at i-paste sa haligi na "H" na may kani-kanilang mga cell.

Halimbawa # 3 - Kopyahin Mula sa Worksheet patungo sa Isa pa

Upang mai-paste ang mga halaga mula sa isang worksheet patungo sa isa pa, kailangan naming banggitin ang parehong mga pangalan ng worksheet. Nasa ibaba ang isang halimbawa nito.

 Sub Paste_Values2 () Mga Worksheet ("Sheet1"). Saklaw ("A1"). Kopyahin ang Mga Worksheet ("Sheet2"). Saklaw ("A15"). I-paste ang Espesyal na xlPasteValues ​​End Sub