در این مقاله، من به شما نشان خواهم داد که چگونه می توانید صفحات یک کاربرگ اکسل را با Visual Basic of Applications (VBA) منجمد کنید. بسیاری از مواقع در حین کار در اکسل، ما نیاز به فریز کردن صفحات داریم. از کاربرگ برای راحتی و تجربه بهتر. امروز یاد خواهید گرفت که چگونه می توانید این کار را با VBA انجام دهید.

فریز کردن صفحات با VBA در اکسل (نمایش سریع)

5098

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

این کتاب تمرین را برای تمرین در حین خواندن این مقاله دانلود کنید.

مقدمه ای بر فریز صفحات اکسل

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

برای مثال، به مجموعه داده‌های زیر نگاه کنید. در اینجا کاربرگ را تا ردیف 3 ( سال ) و ستون B ( نام محصولات ) ثابت کرده‌ایم.

وقتی با پیمایش نوار اسکرول صفحه کار را پایین می‌آوریم، متوجه می‌شویم که ردیف‌های تا ردیف 3 همیشه قابل مشاهده هستند.

همانطور برای ستون B در حالی که ما به راست پیمایش می‌کنیم. سلول را درست بعد از سطر و ستون انتخاب کنید (سلول C4 در این مثال) و به مشاهده >قاب های ثابت > بستن پانل ها در نوار ابزار اکسل.

برای ثابت کردن فقط ردیف، کل ردیف را انتخاب کنید و به مشاهده > قاب های ثابت > Freeze Panes در نوار ابزار Excel.

به طور مشابه، برای ثابت کردن تنها ستون، کل ستون را انتخاب کرده و به View > قاب های ثابت > ثابت کردن پانل ها در نوار ابزار اکسل.

⧭ یادداشت ها:

• انتخاب Freeze ردیف بالا برای ثابت کردن فقط ردیف بالا.
• به طور مشابه، Freeze First Column را انتخاب کنید تا فقط ستون اول ثابت شود.

5 روش برای فریز کردن صفحات با VBA در اکسل

ما یاد گرفتیم که فریز کردن صفحات در اکسل چیست و چگونه آن را به صورت دستی انجام دهیم. اکنون، بیایید به بحث اصلی امروز خود برویم، نحوه ثابت کردن صفحات با VBA .

1. فقط یک ردیف را با VBA در اکسل ثابت کنید

اول از همه، بیایید ببینیم چگونه می توانیم فقط یک ردیف را با VBA ثابت کنیم.

همانطور که قبلاً بحث شد، به فقط یک ردیف را ثابت کنید، ابتدا باید کل ردیف زیر ردیف را برای ثابت شدن انتخاب کنید (در این مثال ردیف 4 ).

سپس باید را اعمال کنید. دستور Freeze Panes .

بنابراین کد VBA خواهد بود:

⧭ کد VBA:

3994

⧭ خروجی:

این کد را اجرا کنید. و کاربرگ فعال را تا ردیف 3 ثابت می‌بینید.

⧭ یادداشت‌ها:

• در اینجا از سلول C4 برای انتخاب هر سلول از ردیف 4 کاربرگ استفاده کرده ایم. شماآن را با توجه به نیاز خود انتخاب کنید.
• آخرین خط کد Range("C4").Select به منظور لغو انتخاب کل ردیف 4 ( لغو انتخاب هر انتخابی به معنای انتخاب یک انتخاب جدید است، زیرا در اکسل، چیزی باید انتخاب شده باقی بماند). در صورت تمایل می توانید این خط را حذف کنید.

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

2. فقط یک ستون را با VBA در اکسل ثابت کنید

ما دیدیم که چگونه می‌توانیم یک ردیف را با VBA ثابت کنیم. حالا بیایید ببینیم چگونه یک ستون را با VBA ثابت کنیم.

مشابه ردیف، برای ثابت کردن تنها یک ستون، ابتدا باید کل ستون را به سمت راست ستونی که قرار است ثابت شود انتخاب کنید. (ستون C در این مثال).

سپس باید دستور Freeze Panes را اعمال کنید.

بنابراین VBA کد خواهد بود:

⧭ کد VBA:

5345

⧭ خروجی:

این کد را اجرا کنید. و کاربرگ فعال را تا ستون C ثابت می‌بینید.

⧭ یادداشت‌ها:

• در اینجا از سلول C4 برای انتخاب هر سلول از ستون C کاربرگ استفاده کرده ایم. شما آن را بر اساس نیاز خود انتخاب می کنید.
• آخرین خط کد Range("C4").Select به منظور لغو انتخاب کل ستون C است. (لغو انتخاب هر انتخابی به معنای انتخاب یک انتخاب جدید است، زیرا در اکسل، چیزی باید انتخاب شده باقی بماند). در صورت تمایل می توانید این خط را حذف کنید.

بیشتر بخوانید: چگونه 2 ستون را فریز کنیمدر اکسل (5 روش)

3. هر دو سطر و ستون را با VBA در اکسل ثابت کنید

ما دیدیم که چگونه می‌توانیم یک سطر و یک ستون را جداگانه ثابت کنیم. این بار، بیایید ببینیم چگونه می‌توانیم سطر و ستون را با هم ثابت کنیم.

برای ثابت کردن هر دو سطر و ستون با هم، باید یک سلول زیر ردیف را انتخاب کنید تا ثابت شود و درست به ستون باشد. برای منجمد شدن (سلول C4 در این مثال).

سپس باید دستور Freeze Panes را اعمال کنید.

بنابراین کد VBA خواهد بود:

⧭ کد VBA:

5115

⧭ خروجی:

این کد را اجرا کنید. و کاربرگ فعال را تا ردیف 3 و ستون C ثابت می‌بینید.

⧭ یادداشت‌ها:

• در اینجا ما از سلول C4 برای انتخاب سلول زیر ردیف 3 و از سمت راست به ستون B استفاده کرده‌ایم. این سلول C4 است. شما آن را بر اساس نیاز خود انتخاب می کنید.

بیشتر بخوانید: نحوه ثابت کردن صفحات انتخابی در اکسل (10 روش)

خواندن مشابه:

• نحوه فریز کردن چندین صفحه در اکسل (4 معیار)
• میانبر صفحه کلید برای فریز کردن صفحات در اکسل (3 میانبر)
• نحوه فریز کردن 3 ستون اول در اکسل (4 روش سریع)

4. یک Userform برای فریز کردن صفحات با VBA در اکسل ایجاد کنید

ما دیدیم که چگونه می‌توانیم یک سطر یا یک ستون یا سطر و ستون را با VBA در کاربرگ Excel ثابت کنیم.

اکنون ما یک Userform برای آوردن همه موارد ایجاد می کنیموظایف متمایز در یک رابط واحد.

⧭ روش گام به گام برای توسعه فرم کاربری:

⧪ مرحله 1:

⧪ مرحله 2:

• یک UserForm جدید به نام UserForm1 در VBA
• در سمت چپ <ایجاد می‌شود. 1>UserForm ، یک ToolBox به نام Control دریافت خواهید کرد. ماوس خود را روی جعبه ابزار نگه دارید و TextBox (TextBox1) را جستجو کنید. پس از یافتن یکی، آن را به بالای UserForm بکشید.
• به طور مشابه، یک ListBox ( ListBox1 ) را به سمت راست به <1 بکشید>Textbox ، و یک CommandButton (Commandbutton1) در گوشه سمت راست پایین UserForm . نمایش CommandButton را به OK تغییر دهید. UserForm شما اکنون باید به این شکل باشد:

⧪ مرحله 3:

درج یک Module ( Insert > Module ) از VBA toolbox

⧪ مرحله 4 :

کد VBA زیر را در Module وارد کنید.

6096

⧪ مرحله 5:

روی CommandButton که به صورت OK نمایش داده می شود دوبار کلیک کنید. یک زیر خصوصی به نام CommandButton1_Click باز می شود. کد زیر را در آنجا وارد کنید:

5069

⧪ مرحله6:

به طور مشابه بر روی TextBox1 دوبار کلیک کنید. یک زیر خصوصی به نام TextBox1_Change باز خواهد شد. کد زیر را در آنجا وارد کنید.

1499

⧪ مرحله 7:

UserForm شما اکنون آماده است تا استفاده کنید. سلول زیر را در ردیفی که قرار است ثابت شود و سمت راست به ستونی که قرار است ثابت شود (در اینجا سلول C4 ) انتخاب کنید، و Macro به نام Run_UserForm را اجرا کنید.

⧪ مرحله 8:

• UserForm بارگیری خواهد شد. آدرس سلول انتخاب شده ( C4 ) را در TextBox خواهید یافت. اگر می خواهید، می توانید این را تغییر دهید.
• سپس یکی از سه گزینه موجود در ListBox را انتخاب کنید. در اینجا می‌خواهم سطر و ستون را ثابت کنم، بنابراین Freeze Both Row and Column را انتخاب کردم.
• سپس روی OK کلیک کنید.

⧪ مرحله 9:

شما برگه را مطابق میل خود منجمد شده پیدا خواهید کرد. (در اینجا تا ردیف 3 و ستون B ثابت شده است).

محتوای مرتبط: چگونه فریم را در اکسل فریز کنیم (6 ترفند سریع)

5. جایگزینی برای Freeze Panes در اکسل: پنجره را با VBA تقسیم کنید

ما در مورد Freeze Panes در اکسل زیاد صحبت کرده ایم. اکنون، بیایید یک جایگزین بسیار مفید برای فراز پنجره ها در اکسل، دستور Split Window را ببینیم.

شما می توانید ActiveWindow.SplitRow یا ActiveWindow.SplitColumn در VBA برای تقسیم صفحه کار به صورت ردیفی یا ستونی-عاقلانه.

به عنوان مثال، برای تقسیم کاربرگ از ردیف 3 ، از:

1160

به طور مشابه، برای تقسیم کاربرگ از ستون B استفاده کنید. استفاده از:

8249

⧭ کد VBA:

2294

⧭ خروجی:

کد را اجرا کنید، کاربرگ فعال را از ردیف 3 و ستون B تقسیم می کند.

محتوای مرتبط : نحوه اعمال پنل های فریز سفارشی در اکسل (3 روش آسان)

نکاتی که باید به خاطر بسپارید

• قبل از اعمال Freeze Panes در اکسل، باید تمام پنل های فریز را از حالت انجماد خارج کنید که قبلا اعمال شده اند. در غیر این صورت، دستور Freeze Panes کار نخواهد کرد.
• دستور Freeze Panes از طریق سلول های ادغام شده کار نمی کند. بنابراین قبل از اعمال دستور Freeze Panes در صورت وجود، آنها را لغو ادغام کنید .

نتیجه

بنابراین اینها روش هایی برای استفاده از Freeze Panes با VBA در اکسل هستند. من سعی کرده‌ام تمام راه‌های ممکن برای اعمال Freeze Panes را روی یک کاربرگ در اکسل مورد بحث قرار دهم. آیا هیچ سوالی دارید؟ راحت باشید و از ما سوال کنید. و فراموش نکنید که برای پست ها و به روز رسانی های بیشتر از سایت ما ExcelWIKI دیدن کنید.