چگونه می توان یک لیست پویا از نام شیت ها در اکسل ایجاد کرد؟

با سلام خدمت کاربران عزیز آی تی سواد

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

لیست پویا از نام شیت ها در اکسل با Define Name و فرمول

۱ یک سلول را در یک شیت خالی انتخاب کنید، در اینجا A1 را انتخاب کرده و سپس روی Formulas > Define Name کلیک کنید.

۲ سپس در پنجره New Name ، در کادر Name عبارت Sheets را تایپ کنید و در قسمت Refers to فرمول زیر را تایپ کنید .

(“”,”[“&(SUBSTITUTE(GET.WORKBOOK(1),”[“&GET.WORKBOOK(16=

۳٫ بر روی OKکلیک کنید. در سلول انتخاب شده (A1) این فرمول را تایپ کنید ((INDEX(Sheets,ROWS($A$1:$A1= و سلول را به سمت پایین درگ کنید تا !REF# ظاهر شود.

نوک: اگر شیت هایی حذف یا اضافه شده، شما باید به A1 بروید و دکمه Enter را بزنید و سپس دوباره سپس سلول را درگ کنید.

لیست پویا از نام برگه ها با VBA

۱٫ یک برگه جدید ایجاد کنید و آن را به Index تغییر نام دهید.

۲ با کلیک راست بر روی نام شیت View Code را انتخاب کنید.

۳ در پنجره ظاهر شده، کد VBA زیر را کپی کنید و در آن وارد کنید.

Private Sub Worksheet_Activate()
    'Updateby20150305
    Dim xSheet As Worksheet
    Dim xRow As Integer
    Dim calcState As Long
    Dim scrUpdateState As Long
    Application.ScreenUpdating = False
    xRow                       = 1
    With Me
        .Columns(1).ClearContents
        .Cells(1, 1) = "INDEX"
        .Cells(1, 1).Name = "Index"
    End With
    For Each xSheet In Application.Worksheets
        If xSheet.Name <> Me.Name Then
            xRow                     = xRow + 1
            With xSheet
                .Range("A1").Name = "Start_" & xSheet.Index
                .Hyperlinks.Add anchor: = .Range("A1"), Address: = "", _
                SubAddress:             = "Index", TextToDisplay: = "Back to Index"
            End With
            Me.Hyperlinks.Add anchor: = Me.Cells(xRow, 1), Address: = "", _
            SubAddress: = "Start_" & xSheet.Index, TextToDisplay: = xSheet.Name
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()

'Updateby20150305

Dim xSheet As Worksheet

Dim xRow As Integer

Dim calcState As Long

Dim scrUpdateState As Long

Application.ScreenUpdating = False

xRow = 1

With Me

.Columns(1).ClearContents

.Cells(1, 1) = "INDEX"

.Cells(1, 1).Name = "Index"

End With

For Each xSheet In Application.Worksheets

If xSheet.Name <> Me.Name Then

xRow = xRow + 1

With xSheet

.Range("A1").Name = "Start_" & xSheet.Index

.Hyperlinks.Add anchor: = .Range("A1"), Address: = "", _

SubAddress: = "Index", TextToDisplay: = "Back to Index"

End With

Me.Hyperlinks.Add anchor: = Me.Cells(xRow, 1), Address: = "", _

SubAddress: = "Start_" & xSheet.Index, TextToDisplay: = xSheet.Name

End If

Application.ScreenUpdating = True

End Sub

۴٫ کلیکF5را برای اجرای VBAبزنید ، در حال حاضر یک لیست پویا از نام شیت ها ایجاد شده است.

نکته:

۱ هنگامی که شیتی حذف یا اضافه می شود، لیست اسامی شیت ها بصورت خودکار بروز خواهد شد.

۲ شما می توانید درشیت نام ها با کلیک به شیت مربوطه بروید.

ترجمه شده از سایت www.extendoffice.com

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

اشتراک گذاری

بیشتر

10 دیدگاه دربارهٔ «چگونه می توان یک لیست پویا از نام شیت ها در اکسل ایجاد کرد؟;

حسام میرعزیزی

تیر 31, 1402 در 10:54 قبل از ظهر

سلام
ممنون از ارائه راهکار عالیتون
من شیت جدید اضافه کرم اما به لیست اضافه نشد و از روش دوم استفاده کردم، لطفا راهنمایی کنید
ضمنا اگه امکانش هست بفرمائید چطور میشه اون کدی که نوشتیم رو دوباره ببینیم
پاسخ
- حامد محمودخانی
  
  تیر 31, 1402 در 5:26 بعد از ظهر
  
  سلام
  در روش اول باید دقت کنید که کاراکتر جدا کننده سیستم شما هم کاراکتر ویرگول باشد
  اگر فایلتون رو با پسوند xlsm ذخیره کرده باشد،با زدن کلید alt+f11 می تونید کد رو مشاهده کنید
  پاسخ
مونا

اردیبهشت 12, 1403 در 8:37 قبل از ظهر

عالییییییییییییی دمتون گرممممممممممممممممممممم
پاسخ

با سلام خدمت کاربران عزیز آی تی سواد

لیست پویا از نام شیت ها در اکسل با Define Name و فرمول

لیست پویا از نام برگه ها با VBA

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

10 دیدگاه دربارهٔ «چگونه می توان یک لیست پویا از نام شیت ها در اکسل ایجاد کرد؟;

دیدگاهتان را بنویسید لغو پاسخ