آموزش دسته بندی شیت های اکسل

کسانی که با اکسل کار میکنند  پروژهای سنگین با اکسل اجرا میکنند و دارای شیت های بسیار زیادی میباشد و ممکن است پیدا کردن شیت مورد نظر مشکل باشد.

میتوانید شیت های اکسل را مرتب سازی کنید تا پیدا کردن شیت مورد نظر ساده تر شود.

در ادامه روش دسته بندی شیت های اکسل را آموزش خواهیم داد.

برای شروع، به منظور باز کردن ویرایشگر Microsoft Visual Basic for Applications (VBA) کلیدهای ترکیبی Alt+F11 را فشار دهید. سپس به مسیر Insert > Module بروید.

ماکروی زیر را که در واقع از وبسایت پشتیبانی مایکروسافت است کپی کرده و در پنجره‌ی ماژولی که ظاهر میشود پیست کنید.

Sub Sort_Active_Book()

Dim i As Integer

Dim j As Integer

Dim iAnswer As VbMsgBoxResult

‘

‘ Prompt the user as which direction they wish to

‘ sort the worksheets.

‘

   iAnswer = MsgBox(“Sort Sheets in Ascending Order?” & Chr(10) _

     & “Clicking No will sort in Descending Order”, _

     vbYesNoCancel + vbQuestion + vbDefaultButton1, “Sort Worksheets”)

   For i = 1 To Sheets.Count

      For j = 1 To Sheets.Count – 1

‘

‘ If the answer is Yes, then sort in ascending order.

‘

         If iAnswer = vbYes Then

            If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then

               Sheets(j).Move After:=Sheets(j + 1)

            End If

‘

‘ If the answer is No, then sort in descending order.

‘

         ElseIf iAnswer = vbNo Then

            If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then

               Sheets(j).Move After:=Sheets(j + 1)

            End If

         End If

      Next j

   Next i

End Sub

ویرایشگر VBA به طور خودکار هر ماژول را با افزودن عددی به انتهای آن نظیر Module1، Module2 و به همین صورت، نام‌گذاری میکند. اگر قصد دارید ماکروهای دیگری هم به کاربرگ‌تان اضافه کنید، بهتر است نام پیشفرض ماژول‌ها را تغییر دهید تا به راحتی بتوانید آنها را از یکدیگر تشخیص دهید.

برای تغییر نام ماژول، از پنل سمت چپ، در بخش Properties بر روی متن جلوی گزینه‌ Name کلیک کنید.

یک نام برای ماژول بنویسید و اینتر بزنید. به یاد داشته باشید که در نام ماژول‌ها نمیتوانید از نویسه‌ فاصله (Space) استفاده کنید.

اکنون نام ماژول از جعبه‌ Project که در سمت راست صفحه دیده میشود تغییر میکند.

با رفتن به منوی File > Close ، ویرایشگر VBA را بسته و به خود اکسل برگردید.

اکنون به منظور مرتب سازی زبانه‌ها باید ماکرو را اجرا کنیم. برای دسترسی به لیست ماکروها کلیدهای Alt+F8 را فشار دهید. ماکروی موردنظر خود را از لیست انتخاب نموده و بر روی دکمه‌ Run کلیک کنید.

با نمایش پنجره‌ زیر از شما پرسیده میشود که میخواهید زبانه‌ها را به ترتیب صعودی مرتب کنید یا نه. اگر گزینه‌ No را انتخاب کنید، ترتیب نزولی خواهد شد. ما ترتیب صعودی را ترجیح میدهیم، پس بر روی Yes کلیک میکنیم.

زبانه‌های کاربرگ‌ها اکنون به بر اساس حروف الفبا مرتب شده است.

این ماکرو حالا بخشی از کاربرگ شماست. اگر در هنگام ذخیره کردن فایل با پیام زیر روبرو شدید بدانید که دلیل این اتفاق این است که شما فایل خود را با پسوند .xlsx ذخیره کرده‌اید، در حالی که این پسوند (یا به طور دقیق‌تر این قالب اکسل) شامل ماکروها نمیشود. اگر میخواهید ماکروها را در کاربرگ خود ذخیره کنید تا دوباره بتوانید آنها را اجرا نمایید، باید فایل خود را با پسوند .xlsm ذخیره کنید. برای انجام این کار گزینه‌ No را انتخاب کنید.

با ظاهر شدن پنجره‌ Save As، به محل مورد نظر خود رفته و از لیست کشویی Save as type گزینه‌ Excel Macro-Enabled Workbook (*.xlsm) را انتخاب نمایید.

حالا بر روی Save کلیک کنید.

اگر فایل کاربرگ خود را با قالبی که از ماکروها پشتیبانی میکند، یعنی .xlsm ذخیره نکنید، ماکروی شما از فایل پاک میشود.

 سایر مقالات مربوط به آفیس