فهرست
هرکله چې تاسو اړتیا لرئ تاسو کولی شئ یو سلسله له یوې پاڼې څخه بلې پاڼې یا کاري کتاب ته کاپي کړئ. د کاپي او پیسټ کولو مختلف ډولونه شتون لري. د دې مقالې په تعقیب، تاسو به په بل شیټ کې د Excel VBA کاپي سلسلې کارولو لپاره مختلفې لارې وپیژنئ.
د توضیحاتو ژوندی کولو لپاره، زه به د نمونې ډیټا سیټ څخه کار واخلم چې د ځانګړو اشخاصو شخصي معلومات استازیتوب کوي. . ډیټاسیټ 4 کالمونه لري. دا کالمونه دي لومړی نوم، وروستی نوم، بشپړ نوم، او بریښنالیک .
د تمرین لپاره د کار کتاب ډاونلوډ کړئ
د VBA رینج بل شیټ ته کاپي کړئ د فارمیټ سره بل شیټ تهکله چې تاسو وغواړئ کاپي د یو شیټ څخه بل شیټ ته د فارمیټ سره تاسو کولی شئ دا په ساده ډول د په کارولو سره ترسره کړئ. 2>VBA .
دلته، زه به کاپي کړم د Dataset شیټ څخه تر WithFormat شیټ
0>راځئ چې کړنلاره پیل کړو،لومړی د Developer tab >> خلاص کړئ. وټاکئ بصری اساسی
تاسو کولی شئ د VBA <د خلاصولو لپاره ALT + F11 کیبورډ هم وکاروئ 3>ایډیټر.
بیا، دا به یوه نوې کړکۍ پرانیزي چې نوم یې د اپلیکیشنونو لپاره د مایکروسافټ ویژول اساسی دی.
له هغه ځایه، خلاص کړئ داخل کړئ >> ماډول انتخاب کړئ.
A ماډول به خلاص شي بیا لاندې کوډ په خلاص شوي کې ټایپ کړئ >> وټاکئ ماکرو وګورئ
➤ یو د ډیالوګ بکس به ښکاره شي.
0>43>اوس، له ماکرو نوم د Copy_Range_BelowLastCell_AnotherSheets انتخاب کړئ Macros in کې د کار کتاب هم وټاکئ.
په پای کې، چل کړئ ټاکل شوی ماکرو .
له دې امله، دا به کاپي ټاکل شوې سلسله او د بلې پاڼې له وروستي قطار څخه به پیسټ کړي .
8. VBA یو سلسله د بل کاري کتاب وروستي قطار ته کاپي کړئ
که تاسو غواړئ کاپي کړئ 3>د بل کاري کتاب پاڼې وروستي قطار ته یو لړ تاسو هم کولی شئ د VBA .
دلته، زه به د Dataset2 څخه یو سلسله کاپي کړم شیټ ته Sheet1 of Book2 مګر د لومړي غیر خالي حجرې څخه.
45>
د کړنالرې پیل کولو لپاره،
لومړی د Developer tab >> خلاص کړئ. وټاکئ بصری اساسی
تاسو کولی شئ د ALT + F11 کیبورډ هم وکاروئ ترڅو د VBA ایډیټر خلاص کړئ.
بیا، دا به د غوښتنلیکونو لپاره د Microsoft Visual Basic نوې کړکۍ پرانیزي.
له هغه ځایه، خلاص کړئ Insert >> ماډول انتخاب کړئ.
A ماډول به خلاص شي بیا لاندې کوډ په خلاص شوي موډول کې ټایپ کړئ.
8192
دلته، ما د فرعي طرزالعمل کاپي_رینج_بیلولاسټ سیل_ته_بل_ورک بوک چیرته wsCopy او WsDestination دي ورک شیټ ډول، lCopyLastRow او lDestLastRow اوږده ډول دي.
لومړی، سیټ د کاپي کولو شیټ او د منزل شیټ لپاره متغیرونو تنظیم کولو لپاره کارول کیږي.
وروسته، د کاپي رینج کې د کالم A د ډیټا پراساس د وروستي قطار موندلو لپاره د قطار میتود کارول شوی.
بیا، د قطار میتود کارول شوی د منزل په سلسله کې د کالم A د معلوماتو پراساس د لومړي خالي قطار موندلو لپاره هم د یو ملکیت لاندې حرکت کولو لپاره افسیټ کارول کیږي.
په پای کې، کاپي د Dataset2 شیټ د Axcel VBA کاپي سلسله د بل شیټ.xlsm کاري کتاب منزل ته Sheet1 د کاري کتاب Book2.xlsx .
اوس، کوډ خوندي کړئ او بیرته ورک پاڼې ته لاړ شئ.
بیا، د لید ټب پرانیزئ >> له ماکرو >> وټاکئ ماکرو وګورئ
47>
➤ یو د ډیالوګ بکس به ښکاره شي.
0>
اوس، د ماکرو نوم څخه د Copy_Range_BelowLastCell_To_Another_Workbook انتخاب کړئ د ماکرو په کې د کار کتاب هم وټاکئ.
په پای کې، چل کړئ ټاکل شوی ماکرو .
له دې امله، دا به کاپي ټاکل شوی سلسله د موجوده شیټ څخه د بل کاري کتاب وروستي قطار ته.
د تمرین برخه
ما په کاري کتاب کې د تمرین پاڼه چمتو کړې ترڅو د Excel VBA کاپي رینج د دې تشریح شوي لارو تمرین کولو لپاره بل شیټ ته.
پایله
پدې مقاله کې ما د 8 مختلف ډوله اسانه او چټکې لارې تشریح کړې.ایکسل VBA کاپي سلسله بلې شیټ ته. دا مختلفې لارې به تاسو سره مرسته وکړي چې یو سلسله له یوې پاڼې څخه بلې ته او همدارنګه له یوې پاڼې څخه بل کاري کتاب ته کاپي کړئ. په پای کې، که تاسو کوم ډول وړاندیزونه، نظرونه، او فیډبیک لرئ، مهرباني وکړئ لاندې تبصره کې وړیا احساس وکړئ.
موډل.5654
دلته، ما اعلان کړ فرعي کړنلاره کاپي_رینج_د فارمټ_ته_او نورو_شیټ
ما د موجوده شیټ څخه د شیټ نوم WithFormat ته د کاپي کولو لپاره حد B1:E10 اخیستی دی.
دلته، ما د کاپي کارولی دی د ټاکل شوي سلسلې د کاپي کولو طریقه، کاپي طریقه د فورمیټ سره هر ډول رینج کاپي کوي.
په پای کې، سپ کړئ کوډ او بیرته ورک شیټ ته لاړ شئ .
بیا، د لید ټب >> خلاص کړئ. له ماکرو >> وټاکئ ماکرو وګورئ
➤ یو د ډیالوګ بکس به ښکاره شي.
17>
اوس، د ماکرو نوم څخه د Copy_Range_withFormat_ToAnother_Sheet د کار کتاب هم انتخاب کړئ په ماکرو کې کې.
په پای کې، چل کړئ انتخاب شوی ماکرو .
له دې امله، دا به کاپي ټاکل شوې سلسله د فورمیټ سره نوې شیټ ته چې ما غوره کړې ده ( د فارمیټ سره) .
2. VBA د فارمیټ پرته بل شیټ ته رینج کاپي کړئ
دا هم ده دا ممکنه ده چې د VBA په کارولو سره د فارمیټ پرته بل شیټ ته یو سلسله کاپي .
دلته، زه به کاپي کړم <3 د Dataset شیټ څخه تر بغیر فارمیټ شیټ
راځئ چې کړنلاره پیل کړو،
اوس، Developer خلاص کړئ. ټب >> وټاکئ بصری اساسی ( د ALT + F11 وکاروئ) 13>
بیا، دا به خلاص شي <2 د اپلیکیشنونو لپاره د مایکروسافټ بصری اساس.
بیا، خلاص کړئ داخل کړئ >> ماډول انتخاب کړئ.
A ماډول به خلاص شي بیا لاندې کوډ په خلاص شوي موډول کې ټایپ کړئ.
3883
دلته، ما د فرعي طرزالعمل کاپي_رینج_د فارمیټ_ټواندر_شیټ
ما رینج اخیستی دی B1:E10 د موجوده شیټ څخه د شیټ نوم ته د کاپي کولو لپاره بغیر فارمیټ .
دلته، ما د انتخاب شوي سلسلې کاپي کولو لپاره د کاپي میتود کارولی دی ذکر شوي Paste:=xlPasteValues په PasteSpecial طریقه کې چې دا به یوازې د ټاکل شوي حد ارزښتونه پیسټ کړي، نه په بڼه.
په پای کې , کوډ خوندي کړئ او بیرته ورک پاڼې ته لاړ شئ.
بیا، د لید ټب >> خلاص کړئ. له ماکرو >> وټاکئ ماکرو وګورئ
➤ یو د ډیالوګ بکس به ښکاره شي.
20>
اوس، د ماکرو نوم څخه د کاپي_رینج_WithoutFormat_Toanother_Sheet غوره کړئ او همدارنګه د کار کتاب په ماکرو کې کې وټاکئ.
په پای کې، چلول ټاکل شوی ماکرو .
په دې توګه، دا به کاپي ټاکل شوی حد یوازې د ارزښتونو نه بڼه <3 سره>.
21>
کاپي کوم انتخاب شوی حد لکه څنګه چې دا دی، د دې لپاره تاسو کولی شئ کاپي کړئ د فارمټ او د کالم عرض سره.
دلته، زه به کاپي کړم د Dataset شیټ څخه تر فورمیټ & د کالم عرض پاڼه.
د VBA ،
په کارولو سره د دندې ترسره کولو طرزالعمل لیدلو لپاره، لومړی، Developer tab >> خلاص کړئ. وټاکئ بصری اساسی
تاسو کولی شئ د ALT + F11 کیبورډ هم وکاروئ ترڅو د VBA ایډیټر خلاص کړئ.
بیا، دا به د اپلیکیشنونو لپاره د Microsoft Visual Basic نوې کړکۍ پرانیزي.
هلته، پرانیزئ Insert >> ماډول انتخاب کړئ.
A ماډول به خلاص شي بیا لاندې کوډ په خلاص شوي موډول کې ټایپ کړئ.
1168
دلته، ما اعلان وکړ فرعي کړنلاره کاپي_رنج_ته_بلې_پاڼې_سره_فارمټ او کالم وایډ
ما رینج اخیستی دی B1:E10 د موجوده شیټ څخه د منزل شیټ نوم ته د کاپي کولو لپاره فارمیټ & د کالم عرض .
دلته، ما د انتخاب شوي سلسلې کاپي کولو لپاره کاپي طریقه کارولې. ما د PasteSpecial میتود هم کارولی چیرې چې ما یادونه کړې Paste:=xlPasteColumnWidths نو دا د فورمیټ او د کالم عرض سره غوره شوې سلسله پیسټ کوي. .
په نهایت کې، کوډ خوندي کړئ او بیرته ورک پاڼې ته لاړ شئ.
بیا، د لید ټب خلاص کړئ >> له ماکرو >> وټاکئ ماکرو وګورئ
➤ یو د ډیالوګ بکس به ښکاره شي.
23>
اوس، د ماکرو نوم څخه د Copy_Range_to_Another_Sheet_with_FormatAndColumnWidth انتخاب کړئ او همدارنګه د ماکرو په کې د کار کتاب وټاکئ.
په پای کې، غوره شوی چل کړئ ماکرو .
د پایلې په توګه، دا به کاپي ټاکل شوې سلسله د شکل او د کالم عرض سره.
4. VBA یو سلسله د فورمول سره بل شیټ ته کاپي کړئ
په هغه صورت کې چې تاسو په خپل ډیټاسیټ کې کوم فورمول لرئ تاسو غواړئ کاپي یې کړئ. مه ورخطا کیږه! تاسو کولی شئ هغه سلسله چې فارمول لري بل شیټ ته کاپي کړئ چې فورمول په خپل حال وساتي.
دلته، زه به کاپي کړم د Dataset شیټ څخه یو سلسله د Formula سره شیټ
راځئ چې طرزالعمل پیل کړو،
د پیل کولو لپاره، د Developer tab >> خلاص کړئ. وټاکئ بصری اساسی ( تاسو کولی شئ د ALT + F11 کیبورډ)
11>
بیا، دا وکاروئ د غوښتنلیکونو لپاره به Microsoft Visual Basic خلاص شي.
له هغه ځایه، خلاص کړئ Insert >> ماډول انتخاب کړئ.
A ماډول به خلاص شي بیا لاندې کوډ په خلاص شوي موډول کې ټایپ کړئ.
7531
دلته، ما د فرعي طرزالعمل Copy_Range_withFormula_ToAnother_Sheet
ما رینج اخیستی دی B1:E10 د موجوده شیټ څخه د منزل پاڼې نوم WithFormula ته کاپي کولو لپاره.
دلته، ما د ټاکل شوي سلسلې کاپي کولو لپاره کاپي طریقه کارولې. ما د PasteSpecial میتود هم کارولی چیرې چې ما یادونه کړې Paste:=xlPasteFormulas ترڅو دا د ټاکل شوي حد سره فارمول لري.
په پای کې , کوډ خوندي کړئ او بیرته ورک پاڼې ته لاړ شئ.
بیا، لید پرانیزئ tab >> له ماکرو >> وټاکئ ماکرو وګورئ
➤ یو د ډیالوګ بکس به ښکاره شي.
0>26>اوس، د ماکرو نوم څخه د Copy_Range_withFormula_ToAnother_Sheet د کار کتاب هم په ماکرو کې کې وټاکئ.
په پای کې، چل کړئ ټاکل شوی ماکرو .
په دې توګه، دا به کاپي ټول ټاکل شوي حجرې د فارمول سره.
ورته لوستل:
- څنګه د VBA رینج آفسیټ وکاروئ (11 لارې)
- VBA د هر حجرې لپاره په Excel کې په رینج کې (3 میتودونه)
- په Excel کې د VBA د رینج آبجکټ کارولو څرنګوالی (5 ملکیتونه)
5. د AutoFit سره یو رینج بل شیټ ته کاپي کړئ
پداسې حال کې چې کاپي کولو یو بل شیټ ته رینج تاسو هم کولی شئ د AutoFit میتود وکاروئ په VBA تر AutoFit په نوي شیټ کې کاپي شوي سلسله.
دلته، زه به د Dataset څخه یو سلسله کاپي کړم شیټ ته AutoFit شیټ
راځئ چې کړنلاره پیل کړو،
لومړی، Developer tab >> خلاص کړئ. وټاکئ بصری اساسی
تاسو کولی شئ د ALT + F11 کیبورډ هم وکاروئ ترڅو د VBA ایډیټر خلاص کړئ.
بیا، دا به د غوښتنلیکونو لپاره د Microsoft Visual Basic کړکۍ پرانیزي.
بیا، خلاص کړئ Insert > ;> ماډول انتخاب کړئ.
A ماډول به خلاص شي بیا لاندې کوډ په خلاص شوي کې ټایپ کړئ ماډول .
5828
دلته، ما اعلان کړ فرعي کړنلاره Copy_Range_withFormat_AutoFit
لومړی، ما کاري پاڼه غوره کړه Dataset . بیا د موجوده شیټ څخه د AutoFit په نوم د منزل شیټ ته د کاپي کولو لپاره رینج B1:E10 واخیستل شو.
دلته، ما د کاپي کار واخیست. د ټاکل شوي سلسلې کاپي کولو میتود او AutoFit طریقه به ورکړل شوي کالمونه په اتوماتيک ډول تنظیم کړي B:E .
په نهایت کې، خوندي کړئ کوډ او لاړ شئ بیرته ورک شیټ ته.
بیا، د لید ټب >> خلاص کړئ. له ماکرو >> وټاکئ ماکرو وګورئ
16>
➤ یو د ډیالوګ بکس به ښکاره شي.
0>33>اوس، د ماکرو نوم څخه د Copy_Range_withFormat_AutoFit غوره کړئ هم د کار کتاب په ماکرو کې کې وټاکئ.
په پای کې، چل کړئ ټاکل شوی ماکرو .
له دې امله، دا به کاپي ټاکل شوې سلسله نوي شیټ ته او همدارنګه AutoFit کالمونه.
6. VBA یو سلسله بل کاري کتاب ته کاپي کړئ
که تاسو وغواړئ تاسو هم کولی شئ یو سلسله له یوې پاڼې څخه بلې پاڼې ته کاپي د یو مختلف کاري کتاب.
دلته، زه به کاپي کړم د Dataset شیټ څخه تر Sheet1 د Book1 کاري کتاب.
راځئ چې کړنلاره پیل کړو،
لومړی، د Developer tab >> خلاص کړئ. وټاکئ بصری اساسی (y تاسو کولی شئ د ALT + F11 کیبورډ)
0> بیا، دا به پرانیزي د مایکروسافټ لیدد غوښتنلیکونو لپاره بنسټیز.
بیا، پرانیزئ داخل کړئ >> ماډول انتخاب کړئ.
A ماډول به خلاص شي بیا لاندې کوډ په خلاص شوي موډول کې ټایپ کړئ.
6264
دلته، ما د فرعي کړنالرې کاپي_رینج_ویت فارمیټ_ټواندر_ورک بوک
ما رینج اخیستی دی B3:E10 د شیټ نوم Dataset د موجوده شیټ څخه د نوي کاري کتاب نوم ته کاپي کولو لپاره Book1 او د پاڼې نوم Sheet1 .
دلته، ما د کاپي طریقه کارولې ترڅو غوره شوي رینج نوي کاري کتاب ته کاپي کړي.
په پای کې، کوډ خوندي کړئ او بیرته ورک پاڼې ته لاړ شئ.
بیا، د لید ټب >> خلاص کړئ. له ماکرو >> وټاکئ ماکرو وګورئ
➤ یو د ډیالوګ بکس به ښکاره شي.
36>
اوس، د ماکرو نوم څخه د Copy_Range_WithFormat_Toanother_WorkBook وټاکئ هم د ماکرو په کې د کار کتاب وټاکئ.
په پای کې، چل کړئ ټاکل شوی ماکرو .
اوس، دا به کاپي ټاکل شوې سلسله د Dataset شیټ څخه بل کاري کتاب ته.
7. یو سلسله د بلې شیټ وروستي قطار ته کاپي کړئ
په هر حالت کې، که تاسو غواړئ یو سلسله بلې پاڼې ته کاپي کړئ د یوې ځانګړې حجرې یا وروستي حجرې څخه تاسو کولی شئ دا د VBA په کارولو سره ترسره کړئ.
پروسیجر ته د ننوتلو دمخه، زه غواړم تاسو ته ووایم چې ما دوه نوې پاڼې اخیستې دي چې بشپړ نوم، بریښنالیک، او پته .
راځئ چې لومړی Dataset2 پاڼه وګورو.
دلته د وروستي حجرې لاندې پاڼه ده.
39>
دلته، زه به کاپي کړم له څخه یو لړ 2>Dataset2 شیټ ته د وروستي حجرې لاندې مګر د لومړي غیر خالي حجرې څخه.
د پیل کولو لپاره، د Developer tab >> خلاص کړئ. وټاکئ Visual Basic
بیا، دا به پرانیزي د اپلیکیشنونو لپاره د مایکروسافټ بصري بنسټیز.
بیا، خلاص کړئ داخل کړئ >> ماډول انتخاب کړئ.
A ماډول به خلاص شي بیا لاندې کوډ په خلاص شوي موډول کې ټایپ کړئ.
8433
دلته، ما فرعي کړنلاره اعلان کړه کاپي_رینج_بیلولاسټ سیل_یوه بل شیټونه
لومړی، ما پاڼه غوره کړه Dataset2 او بیا د وروستۍ قطار د شمیرلو لپاره د قطار طریقه وکاروله او شمیرل شوی قطار یې په lr کې وساتلو.
بیا واخیستل شو. حد A2:C & lr د موجوده شیټ څخه د منزل پاڼې نوم ته د کاپي کولو لپاره د وروستي حجرې لاندې .
بیا، د وروستۍ شمیرې لپاره قطار میتود کارول د بلې پاڼې قطار چې نوم یې د وروستي حجرې لاندې نومیږي او شمیرل شوي قطار په lrAnotherSheet کې ساتل کیږي.
دلته، ما د کاپي طریقه کارولې د ټاکل شوي سلسلې کاپي کولو لپاره او د AutoFit طریقه به ورکړل شوي کالمونه په اتوماتيک ډول تنظیم کړي A:C .
په نهایت کې، Save کوډ او بیرته لاړ شئ کاري پاڼې ته.
بیا، د لید ټب >> خلاص کړئ. له ماکرو څخه
