ثبت تمام شیت ها در یک سون

[ali719]

سلام
من می خوام هر شیتی جدیدی ایجاد کردیم در ستون d اضافه گردد. برای اینکار باید در سلولهای ستون D چه فرمولی بنویسم

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

از کدهای ذیل در قسمت ماکرونویسی شیت مورد نظر استفاده کنید

Private Sub Worksheet_Activate()

Range("d1:d" & Cells(Rows.Count, "d").End(xlUp).Row).ClearContents

For I = 1 To Sheets.Count

Range("d" & I) = Sheets(I).Name

Next

End Sub