نام شیت از روی سلول

[eleman]

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

ممنونم

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

[ali.b]

=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,32)

شما میتونید با این تابع نام شیت رو به سلول انتقال بدین

اما برای اینکه نام شیت رو تغیر بدین به نظر من تنها راهش استفاده از کد ویژوال هست که این کدشه و روی شیت راست کلیک کنید و گزینه view code رو کلیک کنید و در این محیط کد رو بنویسید
و نام مورد نظر رو در سلول a1 قرار بدین

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 
   Set Target = Range("A1")
    If Target = "" Then Exit Sub
    On Error GoTo Badname
    ActiveSheet.Name = Left(Target, 31)
    Exit Sub
Badname:
    MsgBox "Please revise the entry in A1." & Chr(13) _
    & "It appears to contain one or more " & Chr(13) _
    & "illegal characters." & Chr(13)
    Range("A1").Activate End Sub

[eleman]

متاسفانه syntaxerror میگیره!

[misammisam]

متاسفانه syntaxerror میگیره!

احتمالا کدهارو از اینجا بد کپی میکنی ، درست کار میکنه

[حسام بحرانی]

جهت اطلاع؛ کد را به صورت زیر تغییر دهید:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
   Set Target = Range("A1")
    If Target = "" Then Exit Sub
    On Error GoTo Badname
    ActiveSheet.Name = Left(Target, 31)
    Exit Sub
Badname:
    MsgBox "Please revise the entry in A1." & Chr(13) _
    & "It appears to contain one or more " & Chr(13) _
    & "illegal characters." & Chr(13)
    Range("A1").Activate
    End Sub 

یک تغییر جزئی انجام شد!
موفق باشید.