Excel VBA beillesztési értékek
A másolás és beillesztés nem a legnagyobb munka a világon !!! De a speciális opciókkal történő másolás és beillesztés valamilyen tudást igényel a VBA-ban. Ez nem az egyszerű folyamat, mint az egyszerű másolás és beillesztés. Az egyik fontos paszta speciális módszer a „Paste Values” a VBA-ban.
Hogyan lehet beilleszteni az értékeket az Excelbe a VBA használatával?
1. példa - A Paste Special használata
Nézze meg például az alábbi munkalap képét.
A B6 cellában a képletet alkalmaztuk a teljes értékesítési érték kiszámításához a B2 és a B5 cellák között. Ha most bemásolom és beillesztem a B6 cellát a C6-ba, akkor nem a 22 761 értéket kapom, hanem a megfelelő képletet.
Ahhoz, hogy ugyanezt elvégezzük a VBA-ban, kódolási ismeretekre van szükségünk. Megmutatjuk, hogyan lehet beilleszteni az értékeket a VBA segítségével. Kövesse az alábbi lépéseket.
1. lépés: Másolja a B6 cellát.
A B6 cella másolásához használja a kódot tartományként („B6”)
2. lépés: Válassza ki a cél cellát. Ebben az esetben C6 sejt.
Amint a másolat után láthatja, a következőt kéri: „Cél”. Ez nem más, mint ahová be akar illeszteni, ezért válassza ki a „Cél” tartományt („C6”)
Kód:
Sub Paste_Values () Tartomány ("B6"). Másolási tartomány ("C6") End Sub
3. lépés: Futtassa a kódot
Futtassa ezt a kódot, és megkapjuk a B6 példányt a C6-ban.
Itt csak a képletet kaptuk.
4. lépés: Végezze el a Beillesztés speciális módszert.
A paste speciális módszer végrehajtásához nézzük meg a paste speciális módszer alábbi szintaxisát.
A paszta speciális módszerben több módszerünk van. Az elvégzett művelet alapján ennek megfelelően kell kiválasztanunk a típust.
Hogy megértsük, bontsuk két kódra a kódot.
Az első a B6 cellát másolja.
Most írja be a következő sorba a cél cellát tartományként („C6”)
A Paste Special Method eléréséhez tegyen egy pontot, és kezdje el beírni a „P.” betűt
A fenti lehetőségek közül válassza a „Különleges beillesztés” módszert.
A módszer kiválasztása után nyomja meg a szóköz billentyűt a különféle speciális beillesztési módszerek megtekintéséhez.
Ebben a sokféle lehetőségben válassza az „xlPasteValues” lehetőséget.
Az opció kiválasztása után nyomja meg a tab billentyűt az automatikus kiválasztáshoz.
Kód:
Sub Paste_Values () Tartomány ("B6"). Másolási tartomány ("C6"). PasteSpecial xlPasteValues End Sub
5. lépés: Futtassa a kódot
Most futtassa a kódot, csak a B6 cella értékét kell megkapnunk a C6 cellához.
Ha a munkalapot a kód futtatása után észleli, akkor is csak másolási módban van.
Ez letiltja a kivágás módját a speciális beillesztés végrehajtása után.
2. példa - Speciális beillesztése hurokkal
A speciális beillesztés egyszerű, de ennek használata egy nagy kód részeként fejlett szintű kódolási képességeket igényel.
Nézze meg például az alábbi képet.
Az „F” oszlop munkalapjának fenti képén van egy teljes oszlopunk, azaz az F2, F5, F8, F11 és F14 cellákban.
Most az a követelményem, hogy minden egyes cellát átmásoljak a megfelelő cellából, és beillesztem a „H” oszlopba a megfelelő cellákkal.
Az alábbi kód használatával, VBA hurkok segítségével ezt megtehetjük.
Kód:
Sub Paste_Values1 () Dim k egész számként Dim j As egész számként j = 2 k = 1-5 celláig (j, 6). Másolja a cellákat (j, 8).
Ez a kód beillesztés speciális opcióval elvégzi azt a feladatot, hogy az összes cellát átmásolja, majd beilleszti a H oszlopba a megfelelő cellákkal.
3. példa - Másolás munkalapról egy másikra
Az értékek egyik munkalapról a másikra történő beillesztéséhez meg kell említenünk mindkét munkalap nevét. Az alábbiakban egy példa erre.
Sub Paste_Values2 () Munkalapok ("Sheet1"). Tartomány ("A1"). Munkalapok másolása ("Sheet2"). Range ("A15"). PasteSpecial xlPasteValues End Sub
