فهرست مطالب
وقتی مجموعه داده بزرگی در کتاب کار اکسل خود داریم، گاهی اوقات راحت است که بتوانیم در ردیف ها حلقه بزنیم تا نتایج خاصی را که می خواهیم به دست آوریم استخراج کنیم. پیاده سازی VBA موثرترین، سریع ترین و ایمن ترین روش برای اجرای هر عملیاتی در اکسل است. در این مقاله، ما 11 روش مختلف را به شما نشان خواهیم داد که چگونه با ماکرو VBA در اکسل، ردیفهای جدول را حلقهبندی کنید .
دانلود کتاب کار
میتوانید کتاب تمرین رایگان Excel را از اینجا دانلود کنید.
با VBA.xlsm در ردیفهای جدول حلقه بزنید
11 روش با VBA برای حلقه زدن ردیفهای جدول در اکسل
در ادامه این بخش، نحوه حلقه کردن ردیفهای جدول را با 11 روش مختلف، یاد خواهید گرفت. مانند حلقه کردن ردیف ها تا یک سلول خالی، حلقه زدن بین ردیف ها تا یافتن یک مقدار خاص، حلقه زدن بین ردیف ها و رنگ کردن یک سلول خاص و غیره با ماکرو VBA در اکسل.
در بالا مجموعه داده نمونه ای است که این مقاله برای توصیف روش ها دنبال خواهد شد.
1. VBA را برای حلقه زدن از طریق هر سلول در هر ردیف از جدول بر اساس شماره مرجع سلول جاسازی کنید
اگر می خواهید هر سلول در هر ردیف از جدول را در کاربرگ Excel خود حلقه بزنید و شماره مرجع سلول را به عنوان مقدار بازگشتی دریافت کنید ، سپس مراحل مورد بحث در زیر را دنبال کنید.
مراحل:
- در ابتدا ، Alt + F11 را روی صفحه کلید خود فشار دهید یا برویدمتغیر.
2145
این قطعه کد اینجا برای حلقه زدن در ردیف های 1 تا 15 است. اگر کلمه خاص " Edge " را پیدا کند، سلولی را که کلمه را نگه می دارد رنگ می کند. این کار را تا زمانی که اسکن تمام داده ها از ردیف های 1 تا 15 در جستجوی کلمه را تمام کند، ادامه می دهد.
بیشتر بخوانید: نحوه استفاده از VLOOKUP Table Array بر اساس مقدار سلول در اکسل
خوانشهای مشابه
- آیا تابع TABLE در اکسل وجود دارد؟
- نحوه تبدیل جدول به لیست در اکسل (3 روش سریع)
- تبدیل محدوده به جدول در اکسل (5 روش آسان)
- از فرمول در جدول اکسل به طور موثر استفاده کنید (با 4 مثال)
- نام جدول اکسل: همه آنچه باید بدانید
7. پیاده سازی VBA برای حلقه زدن از طریق هر ردیف و رنگ آمیزی هر سطر فرد در اکسل
از بخش قبل، ما یاد گرفتیم که چگونه سلولی را که دارای یک مقدار خاص است رنگ آمیزی کنیم. در این بخش، ما یاد خواهیم گرفت که چگونه هر ردیف از جدول را حلقه کنیم و هر سطر فرد را با VBA ماکرو در اکسل رنگ کنیم.
مراحل اجرای فرآیند در زیر توضیح داده شده است.
مراحل:
- همانطور که قبلا نشان داده شده است، Visual Basic Editor را از Developer باز کنید تب و درج یک ماژول در پنجره کد.
- سپس، کد زیر را کپی کنید و چسب کنید آن را در پنجره کد.
9049
کد شما اکنون آماده اجرا است.
- اکنون، ماکرو را اجرا کنید و برای دیدن خروجی به تصویر زیر نگاه کنید.
همه ردیف های فرد رنگی هستند پس از حلقه زدن از طریق تمام ردیف های موجود در جدول کاربرگ.
توضیح کد VBA
5079
متغیر را تعریف کنید.
2617
محدوده ای را که با آن کار خواهیم کرد تعریف کنید.
5354
این قسمت از کد به تکرار در تمام ردیف ها اشاره دارد، که از ردیف بعدی ردیف فعلی شروع می شود، B4 . اگر مد تقسیم اعداد ردیف بر 2 برابر با شماره سطر برگشتی ذخیره شده در نوع صحیح باشد، این کد تمام ردیف هایی را که با محاسبه با شاخص رنگ ارائه شده در کد استخراج می شود رنگ می کند. در تمام ردیف ها حرکت می کند تا زمانی که به انتهای محدوده برسد.
8. پیاده سازی VBA برای حلقه زدن از میان ردیف ها و رنگ آمیزی هر سطر زوج در اکسل
در بخش قبل، نحوه رنگ آمیزی هر سطر فرد از جدول را یاد گرفتیم. در این بخش، ما یاد خواهیم گرفت که چگونه هر سطر از جدول را حلقه کنیم و هر سطر زوج را رنگ کنیم با ماکرو VBA در اکسل.
مراحل اجرای فرآیند در زیر مورد بحث قرار گرفته است.
مراحل:
- ابتدا Visual Basic Editor را از برگه Developer باز کنید و Insert یک Module در پنجره کد.
- سپس، کد زیر را کپی و چسب کنید در پنجره کد.
9216
کد شما اکنون آماده استاجرا کنید.
- بعد، ماکرو را اجرا کنید و برای دیدن نتیجه به تصویر زیر نگاه کنید.
همه ردیف های زوج رنگی می شوند پس از حلقه زدن در تمام ردیف های موجود در جدول کاربرگ.
توضیح کد VBA
3498
متغیر را تعریف کنید.
7997
محدوده ای را که با آن کار خواهیم کرد تعریف کنید.
8864
این قطعه کد بعد از شروع به تکرار می شود سه ردیف از ردیف فعلی، B4 . ابتدا آن را رنگ می کند سپس تعداد ردیف را 2 افزایش می دهد و آن را تا زمانی که به آخرین ردیف مجموعه داده برسد به رنگ آمیزی ادامه می دهد.
9. ماکرو را برای تکرار از طریق ردیفها تا سلول خالی در اکسل اعمال کنید
اگر میخواهید کد شما طوری کار کند که در تمام ردیفهای جدول حلقه بزند و وقتی به یک سلول خالی رسید متوقف میشود ، پس این بخش برای شما مناسب است. شما می توانید آن کار را با حلقه FOR و Do-Until Loop در Excel VBA اجرا کنید.
9.1. با FOR Loop
گامهایی برای حلقه ردیفها در جدول تا زمانی که یک سلول خالی با FOR Loop در VBA Excel در زیر نشان داده شود.
مراحل:
- در ابتدا، Visual Basic Editor را از برگه Developer باز کنید و Insert یک Module در پنجره کد.
- پس از آن، کد زیر را کپی و چسب کنید در پنجره کد.
5971
کد شما اکنون آماده اجرا است.
- سپس، اجرا کنید ماکرو و نتیجه در گیف زیر نشان داده شده است.
پس از اجرای ماکرو، شروع به حلقه زدن در تمام ردیفهای در جدول کرد. و هنگامی که به سلول خالی، سلول B8 رسید، تکرار را متوقف کرد .
توضیح کد VBA
8680
متغیر را تعریف کنید.
1678
رویداد به روز رسانی صفحه را خاموش کنید.
3704
همه سطرها را از Cell B4 تا آخرین ردیف ذخیره کنید.
3780
Cell B4 را انتخاب کنید.
6414
این قطعه کد شروع به حلقه زدن در تمام ردیف ها می کند. وقتی یک سلول خالی در یک ردیف پیدا کرد، آن را انتخاب می کند و به اسکن ردیف ها ادامه می دهد تا به آخر برسد.
8684
رویداد به روز رسانی صفحه را روشن کنید.
9.2. با Do-Until Loop
مراحل حلقه بین ردیف ها تا زمانی که یک سلول خالی با حلقه Do-Until در VBA در زیر نشان داده شود.
مراحل:
- ابتدا Visual Basic Editor را از برگه Developer باز کنید و Insert a Module در پنجره کد.
- سپس، کد زیر را کپی کنید و چسب کنید آن را در پنجره کد.
4811
کد شما اکنون آماده اجرا است.
- بعد، ماکرو را اجرا کنید . نتیجه در گیف زیر نشان داده شده است.
پس از اجرای ماکرو، شروع به حلقه زدن در تمام ردیفهای در جدول و یکبار کرد. به سلول خالی سلول B8 رسید، تکرار را متوقف کرد .
کد VBAتوضیح
5598
سلولی را که از آن کار خواهیم کرد انتخاب کنید.
9115
حلقه زدن را شروع می کند و تا زمانی که یک سلول خالی پیدا شود ادامه می دهد.
5341
وقتی یک سلول خالی است در یک ردیف پیدا شد، سپس آن را انتخاب کنید و تکرار را متوقف کنید.
10. ماکرو VBA برای تکرار از طریق ردیفها تا سلولهای خالی چندگانه در اکسل
در بخش قبل، یاد گرفتید که چگونه وقتی یک سلول خالی پیدا شد، حلقه را متوقف کنید. اما اگر نخواهید تکرار را متوقف کنید تا زمانی که به جای یک سلول چند سلول خالی پیدا شود چه می شود.
مراحل حلقه بین ردیف ها تا زمانی که چندین سلول خالی در جدول پیدا شود با VBA Excel در زیر نشان داده شده است.
مراحل:
- ابتدا Visual Basic Editor را از تب Developer و Insert Module در پنجره کد.
- سپس، کپی کد زیر و آن را در پنجره کد قرار دهید .
5291
کد شما اکنون آماده اجرا است.
- اکنون، ماکرو را اجرا کنید و گیف زیر را برای خروجی ببینید.
بعد از اجرای ماکرو، روی آن متوقف نشد. اولین سلول خالی، سلول B8 . هنگامی که دو سلول خالی متوالی را در سلول B16 یافت متوقف شد.
شرح کد VBA
1481
سلول را انتخاب کنید که ما از آن کار خواهیم کرد.
4069
حلقه زدن را شروع می کند و تا زمانی که دو سلول خالی متوالی پیدا شود ادامه می دهد.
1820
وقتی دو سلول خالی متوالی پیدا شد، سپسآن را انتخاب کرده و تکرار را متوقف کنید.
11. جاسازی VBA برای چرخش در میان سطرها با الحاق همه ستونها تا خالی در اکسل
این بخش به شما نشان میدهد که چگونه در تمام ردیفهای یک جدول حلقه بزنید و همه ستونها را تا یک سلول خالی به هم متصل کنید. با VBA Excel یافت میشود.
بیایید نحوه انجام این کار را با ماکرو VBA در اکسل بیاموزیم.
مراحل:
- در ابتدا Visual Basic Editor را از برگه Developer باز کنید و Insert a Module<2 را باز کنید> در پنجره کد.
- سپس، کد زیر را کپی و جایگذاری در پنجره کد.
4028
کد شما اکنون آماده اجرا است.
- بعداً، ماکرو را اجرا کنید و گیف زیر را برای نتیجه ببینید.
همانطور که از گیف بالا می بینید این است که یک پاپ آپ MsgBox وجود دارد که مقدار پیوسته همه ستون های موجود در هر ستون را به شما نشان می دهد. ردیف از جدول کاربرگ اکسل شما. اما بعد از رسیدن به سلول خالی متوقف شد .
شرح کد VBA
4871
متغیرها را تعریف کنید.
6824
نام برگه ای را که با آن کار خواهیم کرد تنظیم کنید (" ConcatenatingAllColUntilBlank " نام برگه در کتاب کار است).
2469
محدوده ای را که با آن کار خواهیم کرد را تعریف کنید.
7448
این قطعه کد حلقه را با آرایه شروع می کند. تا زمانی که بزرگترین زیرنویس آرایه و کران پایین آرایه را برگرداند به حلقه زدن ادامه می دهدبعد اول سپس وارد تکرار استخراج کران پایینی بعد دوم می شود. پس از آن، تمام مقادیر استخراج شده در متغیر iResult را با به هم پیوستن آنها و انداختن نتیجه در MsgBox ارسال می کند. این کار را تا زمانی که یک سلول خالی پیدا کند ادامه میدهد.
نتیجهگیری
برای نتیجهگیری، این مقاله 11 روش موثر در مورد نحوه حلقه کردن ردیفها را به شما نشان میدهد. یک جدول در اکسل با ماکرو VBA . امیدوارم این مقاله برای شما بسیار مفید بوده باشد. هر گونه سوالی در مورد موضوع بپرسید.
به برگه برنامهنویس -> Visual Basicبرای باز کردن Visual Basic Editor.
- بعد، در پنجره کد پاپ آپ، از نوار منو، روی Insert -> ماژول .
- سپس، کد زیر را کپی کنید و آن را در کد قرار دهید پنجره.
4841
کد شما اکنون آماده اجرا است.
- اکنون، F5 را فشار دهید صفحه کلید یا از نوار منو Run -> Sub/UserForm را اجرا کنید. همچنین میتوانید فقط روی نماد کوچک Play در نوار منوی فرعی کلیک کنید تا ماکرو اجرا شود.
- یا به مشاهده بصری و مقایسه مجموعه داده و نتیجه، می توانید کد را ذخیره کنید و به کاربرگ مورد علاقه برگردید.
- از آنجا، می توانید بر روی <1 کلیک کنید>Macros از تب Developer ، نام ماکرو را انتخاب کنید، و سپس روی Run کلیک کنید.
بعد از اجرای موفقیت آمیز کد، به گیف بالا نگاه کنید تا نتیجه را ببینید. یک پاپ آپ MsgBox وجود خواهد داشت که شماره مرجع سلول هر سلول از هر ردیف از جدول در برگه اکسل شما را نشان می دهد.
شرح کد VBA
6509
برای دریافت آخرین شماره ردیف در جدول با جستجوی ستون B.
Range("B4").Select
ردیف شماره 4 را تنظیم کنید، از جایی که داده های ما شروع می شود.
8773
برای حلقه زدن از ردیف اول.
6549
ستون شماره 2 را تنظیم کنید، از جایی که داده های ما از آنجا شروع می شوند.
7906
شروع به حلقه زدن در میان ردیف ها برای دریافت آخرینشماره ستون با ارزیابی سطر فعلی تا آخرین سطر.
8358
افزایش حلقه ستون از سطر اول تا آخرین سطر.
7585
این قطعه کد برای پردازش کار می کند، بعد از هر یک افزایش می یابد. تکرار و نمایش نتیجه کد.
بیشتر بخوانید: نحوه افزودن ردیف جدید به صورت خودکار در جدول اکسل
2 . پیاده سازی VBA برای حلقه زدن از طریق هر سلول در هر ردیف بر اساس مقدار
اگر می خواهید از طریق هر سلول در هر ردیف جدول حلقه بزنید و مقدار موجود در سلول ها را به عنوان مقدار بازگشتی بریزید. ، سپس این بخش به شما کمک می کند تا بفهمید که چگونه این کار را با VBA Excel انجام دهید.
می توانید این کار را با ListObject و با <1 انجام دهید. ویژگی>DataBodyRange از VBA . ما کد ماکرو را با شی و ویژگی به شما نشان خواهیم داد.
2.1. با ListObject
مراحل حلقه هر سلول در هر ردیف جدول بر اساس مقدار سلول با ListObject در VBA Excel در زیر آورده شده است.
مراحل:
- به همان روش قبلی، Visual Basic Editor را از برگه Developer باز کنید و یک ماژول را در پنجره کد وارد کنید.
- سپس، در پنجره کد، کد زیر را کپی کنید و چسب کنید آن را.
2297
کد شما اکنون آماده اجرا است.
- پس از آن، ماکرو را اجرا کنید همانطور که در قسمت بالا به شما نشان دادیم. نتیجه در گیف نشان داده شده استدر زیر.
یک پاپ آپ MsgBox وجود خواهد داشت که مقدار را که توسط هر سلول از هر ردیف <2 حمل می شود به شما نشان می دهد>از جدول موجود در برگه اکسل خود.
شرح کد VBA
4244
متغیرها را تعریف کنید.
9457
این قطعه ابتدا کد شروع به حلقه زدن در ردیف های جدول می کند (« TblStudents » نام جدول ما است). سپس ستون هایی را برای هر سطر وارد می کند. پس از آن، مقدار سلول را در MsgBox ارسال کنید. سپس به ستون بعدی بروید. پس از اتمام تکرار در تمام ستون های یک سطر، سپس به ردیف بعدی می رود و روند تکرار را تا آخرین سطر ادامه می دهد.
2.2. با ویژگی DataBodyRange
برای دقیق تر بودن اطلاعات استخراج شده از جدول، می توانید از ویژگی DataBodyRange در ListObject استفاده کنید. ویژگی DataBodyRange نتیجه حاوی محدوده لیست بین ردیف سرصفحه و ردیف درج را به شما نشان می دهد.
مراحل چگونگی حلقه هر سلول در هر سطر یک جدول بر اساس مقدار سلول با DataBodyRange در VBA Excel در زیر آورده شده است.
مراحل:
- همانطور که نشان داده شده است. قبل از این، Visual Basic Editor را از برگه Developer باز کنید و Insert a Module را در پنجره کد باز کنید.
- سپس ، کد زیر را کپی کنید و چسب کنید در پنجره کد.
3943
کد شما اکنون آماده اجرا است.
- بعد، ماکرو را اجرا کنید و برای دیدن خروجی به گیف زیر نگاه کنید.
یک پاپ آپ MsgBox<وجود خواهد داشت. 2> به شما نشان می دهد که مقدار حمل شده توسط هر سلول از هر ردیف از جدول موجود در برگه اکسل شما.
توضیح کد VBA
9044
متغیر را تعریف کنید.
4740
این قطعه کد ابتدا شروع به حلقه زدن در ردیف های جدول می کند (" TblStdnt " نام جدول ما است) و محدوده ای از مقادیر را به استثنای آن برمی گرداند. ردیف سرصفحه جدول سپس مقدار محدوده را در MsgBox ارسال کنید. سپس برای استخراج محدوده به ردیف بعدی می رود و روند تکرار را تا آخرین ردیف ادامه می دهد.
3. اعمال ماکرو VBA برای تکرار در ردیفها با الحاق ستونها در اکسل
این بخش نشان میدهد که چگونه میتوان با اتصال ستونها به ستون اول از مجموعه دادههای خود، در میان ردیفها در جدول حلقهگذاری کرد. در اکسل.
به عنوان مثال، برای مجموعه داده ما، ابتدا از طریق John در سلول B5 و 101 در سلول C5 با به هم پیوستن آنها و سپس از طریق آنها تکرار می کنیم. John در سلول B5 و 89 در سلول D5 با به هم پیوستن آنها از ردیف 5 .
اجازه دهید به شما نشان دهیم چگونه می توانید این کار را با ماکرو VBA در اکسل.
مراحل:
- در ابتدا Visual Basic Editor را از <باز کنید 1>برگه Developer و Insert a Module در پنجره کد.
- دوم، در پنجره کد، کپی زیر کدو آن را جایگذاری کنید .
8311
کد شما اکنون آماده اجرا است.
- سوم، <1 ماکرو را اجرا کنید. برای دیدن نتیجه به گیف زیر نگاه کنید.
یک پنجره بازشو MsgBox وجود خواهد داشت که مقدار پیوسته را به شما نشان می دهد از سلول های ستون اول و دوم ( John در سلول B5 از ستون B و 101 در سلول C5 از ستون C ) و سپس مقدار الحاقی از سلول های ستون اول و سوم ( جان در سلول B5 از ستون B و 89 در سلول D5 از ستون D ) از ردیف شماره 5 از مجموعه داده شما. و این عملیات الحاق تا زمانی که به آخرین ردیف جدول برسد ادامه خواهد داشت.
شرح کد VBA
6390
متغیر را تعریف کنید.
8375
سپس کد جدول را از صفحه فعال انتخاب می کند (" TblConcatenate " در نام جدول ما).
7675
بعد از آن، شروع به تکرار هر سطر به استثنای هدر می کند. ستون. اگر تکرار یک تطابق در محدوده بین سرصفحه ستون و ردیفها پیدا کند، مقدار را در متغیر iValue ذخیره میکند.
2066
اگر شرط بالا برآورده نشد، پس کد مقدار را در MsgBox می اندازد و شرط را تمام می کند. پس از آن، به حلقه کردن در یک محدوده دیگر می رود و تا ردیف آخر به تکرار ادامه می دهد. پس از رسیدن به ردیف پایانی، ماکرو اجرای کد را پایان می دهد.
4. ماکرو را برای تکرار جاسازی کنیداز طریق سطرها با الحاق همه ستون ها در یک جدول در اکسل
در این بخش، ما یاد می گیریم که چگونه همه ستون هایی را که هر ردیف در مجموعه داده نگه می دارد با به هم متصل کنیم. ماکرو VBA در اکسل.
مراحل اجرا که در زیر نشان داده شده است.
مراحل:
- ابتدا، <را باز کنید. 1>Visual Basic Editor از تب Developer و Insert a Module در پنجره کد.
- سپس، کد زیر را کپی کنید و چسب کنید آن را در پنجره کد.
5750
کد شما اکنون آماده اجرا است.
- بعد، کد ماکرو را اجرا کنید .
همانطور که از گیف بالا می بینید این است که وجود دارد یک پاپ آپ MsgBox که مقدار به هم پیوسته همه ستون های موجود در هر ردیف از جدول کاربرگ اکسل شما را نشان می دهد.
شرح کد VBA
4232
متغیرها را تعریف کنید.
3010
نام برگه ای را که با آن کار خواهیم کرد تنظیم کنید (" ConcatenatingAllCol " نام برگه است در کتاب کار).
7170
De نام جدولی را که با آن کار خواهیم کرد خوب کنید (" TblConcatenateAll " نام جدول در مجموعه داده ما است).
8663
تکرار را در هر ردیف از جدول شروع می کند.
2621
تکرار را از طریق هر ستون از هر ردیف از جدول شروع می کند.
3887
نتیجه را با قطع مقادیری که هر ستون از هر ردیف حمل می کند، ذخیره کنید. پس از اسکن تمام ستونهای موجود در هر ردیف، از آن عبور کردنتیجه در MsgBox. سپس دوباره شروع به حلقه زدن در ردیف بعدی می کند و به حلقه زدن ادامه می دهد تا به آخرین ردیف جدول برسد.
بیشتر بخوانید: چگونه چندین ستون یک جدول را با Excel VBA مرتب کنیم. (2 روش)
5. توقف تکرار اگر مقدار با حلقه زدن ردیفهای جدول با ماکرو VBA پیدا شد را متوقف کنید
فرض کنید میخواهید در ردیفهای جدول خود حلقه بزنید و هنگامی که مقدار خاصی پیدا کرد حلقه زدن را متوقف کنید. 2>. شما می توانید این کار را فقط با یک کد ماکرو ساده انجام دهید.
بیایید یاد بگیریم که چگونه این کار را VBA در اکسل انجام دهیم.
مراحل:
- در ابتدا، Visual Basic Editor را از برگه Developer باز کنید و Insert a Module را در پنجره کد باز کنید.
- سپس، در پنجره کد، کد زیر را کپی کنید و آن را جایگذاری کنید.
6766
کد شما اکنون آماده اجرا است. .
- بعد، ماکرو را اجرا کنید .
- حلقه را شروع میکند و زمانی که مقدار خاص (" Edge ") را در محدوده پیدا می کند و نتیجه را در MsgBox می اندازد.
همانطور که از تصویر بالا می بینید، یک MsgBox پاپ آپ وجود دارد که آدرس سلول، $B$10 را به شما نشان می دهد، جایی که ما پیدا کردیم. مقدار مشخص شده، " Edge " .
شرح کد VBA
3838
تعریف متغیر.
2207
این قطعه کد در اینجا برای حلقه زدن ردیف های 1 تا 15 است. اگر کلمه خاصی را پیدا کند" Edge " سپس نتیجه را با آدرس سلولی که کلمه را نگه می دارد ارسال می کند. این کار را ادامه میدهد تا زمانی که تمام دادههای ردیفهای 1 تا 15 را در جستجوی کلمه تمام کند.
بیشتر بخوانید: نحوه درج یا حذف سطرها و ستونها از جدول اکسل
6. VBA برای حلقه زدن از طریق هر سطر و رنگ کردن یک مقدار خاص در اکسل
اگر نمی خواهید آدرس سلول مقدار مشخص شده را در MsgBox بیاندازید چه؟ ممکن است بخواهید سلولی که حاوی مقدار مورد نظر شما است را رنگ آمیزی کنید.
بیایید یاد بگیریم که چگونه این کار را با VBA ماکرو انجام دهیم.
مراحل:
- به همان روش قبلی، Visual Basic Editor را از برگه Developer و Insert را باز کنید یک Module در پنجره کد.
- سپس، کد زیر را کپی کنید و چسب کنید آن را در پنجره کد.
4372
کد شما اکنون آماده اجرا است.
- پس از آن، ماکرو را اجرا کنید .
- حلقه را شروع می کند و هنگامی که مقدار خاص (" Edge ") را در محدوده پیدا کرد آن را متوقف می کند و سلول را با ColorIndex رنگ می کند. که در کد ارائه کرده اید.
همانطور که در تصویر بالا می بینید، C ell B10 ، جایی که مقدار مشخص شده را پیدا کردیم، " Edge " رنگی پس از اجرای کد است.
توضیح کد VBA
6314
تعریف