Excel VBA برای کپی کردن ردیف ها در کاربرگ دیگر بر اساس معیارها

  • این را به اشتراک بگذارید
Hugh West

مقابله کردن داده ها ، بر اساس معیارها، از یک صفحه به برگه دیگر یکی از کارهایی است که اغلب در اکسل انجام می شود. اگر ردیف‌های زیادی دارید و می‌خواهید آن‌ها را بر اساس برخی معیارها در برگه دیگری کپی کنید، ممکن است بسیار خسته‌کننده و وقت‌گیر باشد. اما با Microsoft Visual Basic Application (VBA) می‌توانید ماکروهایی ایجاد کنید که با آن‌ها می‌توانید به راحتی داده‌ها را بر اساس معیارهای مختلف از یک صفحه به برگه دیگر کپی کنید. در این مقاله، من به شما نشان خواهم داد چگونه می توانید با استفاده از Excel VBA ، ردیف های را بر اساس 2 نوع معیار مختلف به کاربرگ دیگری کپی کنید.

بیایید بگوییم: شما مجموعه داده زیر را در یک کاربرگ به نام " داده " دارید که در آن قسمت های فروش و فروش فروشنده های مختلف آورده شده است. اکنون، می‌خواهید ردیف‌های خاصی را بر اساس برخی معیارها در برگه دیگری کپی کنید.

دانلود کتاب تمرین تمرین

کپی ردیف‌ها به دیگری کاربرگ بر اساس Criteria.xlsm

2 روش برای کپی کردن ردیف ها در کاربرگ دیگر بر اساس معیارها توسط Excel VBA

1. کپی کردن ردیف ها در کاربرگ دیگر بر اساس معیارهای متن

در این نمایش، من به شما نشان خواهم داد که چگونه سطرها را از یک کاربرگ به کاربرگ دیگر بر اساس معیارهای متن کپی می کنید. فرض کنید، می‌خواهید داده‌های فروشندگانی را که در ویرجینیا فروش می‌کنند، در برگه‌ای به نام فروش منطقه با استفاده از Excel VBA کپی کنید. برای انجام این کار، ابتدا

ALT+F11 را فشار دهید تا پنجره VBA باز شود.

در VBA پنجره،

➤ روی تب Insert کلیک کنید و Module را انتخاب کنید.

پنجره Module(Code) را باز کنید. اکنون،

➤ کد زیر را در پنجره Module(Code) وارد کنید،

4331

کد یک ماکرو به نام Copy_Criteria_Text ایجاد می کند که ویرجینیا را در ستون C کاربرگ فعلی جستجو کنید و سطرهایی را که حاوی ویرجینیا در کاربرگ به نام فروش منطقه (برگ3) هستند برگردانید.

پس از آن،

➤ پنجره VBA را ببندید یا کوچک کنید.

ALT+F8

را فشار دهید. پنجره Macro را باز می کند.

Copy_Criteria_Text را در کادر Macro name انتخاب کنید و روی Run کلیک کنید.

در نتیجه، ردیف‌های دارای ویرجینیا در کاربرگ به نام فروش منطقه

کپی می‌شوند.

بیشتر بخوانید: نحوه کپی کردن خودکار ردیف ها در اکسل در یک برگه دیگر (4 روش)

2. بر اساس معیارهای شماره، ردیف ها را در کاربرگ دیگری کپی کنید

اکنون ، من به شما نشان خواهم داد که چگونه می توانید ردیف ها را از یک کاربرگ به کاربرگ دیگر بر اساس معیارهای عددی کپی کنید. فرض کنید، می‌خواهید داده‌های فروش را که بیش از 100000 دلار است در برگه‌ای با نام فروش برتر کپی کنید. برای انجام این کار، ابتدا

ALT+F11 را فشار دهید تا پنجره VBA باز شود.

در VBA پنجره،

➤ بر روی تب Insert کلیک کنید و Module را انتخاب کنید.

این صفحه باز می شود ماژول (کد) پنجره. اکنون،

➤ کد زیر را در پنجره Module(Code) وارد کنید،

6693

کد یک ماکرو به نام Copy_Criteria_Number ایجاد می کند که مقادیر بیشتر از 100000 را در ستون D کاربرگ با نام داده جستجو کنید و سطرهایی را که حاوی مقادیر فروش بیش از 100000 دلار هستند را در کاربرگ با نام فروش برتر برگردانید. Sheet4).

پس از آن،

➤ پنجره VBA را ببندید یا کوچک کنید.

➤ را فشار دهید 1>ALT+F8

پنجره Macro را باز می کند.

Copy_Criteria_Number را در نام ماکرو <انتخاب کنید. 2> را کادر بندی کنید و روی Run کلیک کنید.

در نتیجه، ردیف هایی که دارای ارزش فروش بیش از 100000 دلار هستند در <4 کپی می شوند. کاربرگ برتر فروش.

بیشتر بخوانید: نحوه کپی کردن چندین ردیف در اکسل با استفاده از ماکرو (4 مثال)

نتیجه‌گیری

با دو روش این مقاله، می‌توانید با استفاده از Excel VBA ردیف‌ها را از یک کاربرگ به کاربرگ دیگر بر اساس معیارهای مختلف کپی کنید. شما می توانید از روش اول برای معیارهای متن و روش دوم برای معیارهای عددی استفاده کنید. اگر در مورد هر یک از روش ها سردرگمی دارید، لطفاً نظر خود را بنویسید.

هیو وست یک مربی و تحلیلگر اکسل بسیار با تجربه با بیش از 10 سال تجربه در این صنعت است. وی دارای مدرک لیسانس در رشته حسابداری و امور مالی و مدرک کارشناسی ارشد در رشته مدیریت بازرگانی است. هیو علاقه زیادی به تدریس دارد و یک رویکرد آموزشی منحصر به فرد ایجاد کرده است که به راحتی قابل پیگیری و درک است. دانش تخصصی او از اکسل به هزاران دانش آموز و متخصص در سراسر جهان کمک کرده تا مهارت های خود را بهبود بخشند و در حرفه خود برتری پیدا کنند. هیو از طریق وبلاگ خود دانش خود را با جهان به اشتراک می گذارد و آموزش های رایگان اکسل و آموزش آنلاین ارائه می دهد تا به افراد و مشاغل کمک کند تا به پتانسیل کامل خود دست یابند.