لیست کردن شیتها

**saed.rasa** · 2020/04/16, 17:52

سلام

امتحان کنید لطفا!

فایل های پیوست شده

sheets.rar (16.2 کیلو بایت, مشاهدات 6)

**sma4727134** · 2020/04/16, 22:04

با تشکر از لطف جنابعالی فایل تان را مشاهده نمودم با توجه به اینکه فایلی که دارم تعداد شیت هاش زیاد است بالای 150 شیت و دایم شیت هایم در حال تغییر میباشد اگر لطف کنید شیت ها بصورت اتوماتیک لیست شود ممنون میشم در ضمن اگر با استفاده از vba راه حلی بفرمایید ممنون میشم

**saed.rasa** · 2020/04/16, 22:34

اوکی!

برای آپدیت فقط کافی است اولین سلول که فرمول وارد شده است( A2) علامت + که در سمت چپ پایین سلول وقتی موس قرار میگیرد + ظاهر میشود را یکبار کلیک کنید کل ستون و نام شیت ها آپدید می شود (بعد از تغییرات نام شیت ها)

اگر 150 شیت داری ، می توانید یکبار 150 ردیف را انتخاب کنید و تابع A2 =TRANSPOSE(SeheetNames)را وارد کرده و Contrl + Shift + Enter را بزنید.

اما در مورد vb :
من بلد نیستم دیگر دوستان مهربون، در اولین فرصت به شما کمک خواهند کرد.

اول یک شیت باز کنید بنام INDEX

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

با احترام

**mvalaei68** · 2020/04/16, 23:17

سلام با اجازه آقا سعید روی فایل کد vba گذاشتم که بعد از اضافه کردن شیت با زدن دکمه آپدیت لیست شیتها آپدیت میشود برای گزارش جمع ها هم از همون فرمول آقا سعید استفاده کنید

فایل های پیوست شده