استدعاء اسم ورقة العمل

[ابوسلماان]

الاعزاء .................. السلام عليكم

معروف ان المعادلة =  sheet() تعطيني رقم الورقة في ملف الاكسل ..

فاذا كنت اريد اظهار اسم ورقة العمل أو سرد لاوراق العمل..   بناء على ارقامها المحددة في ملف الاكسل فماذا افعل؟؟

 

وشكراً ،،

[سليم حاصبيا]

جرب هذا الملف

 

sheet_list.rar

[ابوسلماان]

تسلم يدك اخي سليم ...

 هل عندك فكرة الحصول على ذلك عبر المعادلة وليس الكود؟!

[سليم حاصبيا]

ربما يعجبك هذا الملف (كلما اضفت صفحة يجب عليك تنشيط المعادلات و ذلك بالسحب نزولاً)

 

 

enmerate_sheets .rar

[ابوسلماان]

جزاك الله خيرا

تشكرات استاذ سليم ،،  اعجبني ونص  

[ابوسلماان]

منذ ساعه, سليم حاصبيا said:

ربما يعجبك هذا الملف (كلما اضفت صفحة يجب عليك تنشيط المعادلات و ذلك بالسحب نزولاً)

 

 

enmerate_sheets .rar

بقي جزئية بسيطة ،، عند تعديل اسم الورقة لا يتغير  اسمها في المعادلة.. كيف استطيع حل هذه الاشكالية؟

[ياسر خليل أبو البراء]

Sub UpdateData()
'[Ctrl + Alt + F9] يقوم الكود بعملية تحديث للمعادلات والتي تعتبر بمثابة الضغط على
    Application.CalculateFull
End Sub

 

جرب الكود التالي

Private Sub Workbook_SheetActivate(ByVal SH As Object)
    Dim I As Long, WS As Worksheet
    With Sheet1
        For Each WS In ThisWorkbook.Worksheets
            I = I + 1
            .Range("A" & I).Value = WS.Name
        Next
    End With
End Sub

 

[سليم حاصبيا]

الان, ابوسلماان said:

بقي جزئية بسيطة ،، عند تعديل اسم الورقة لا يتغير  اسمها في المعادلة.. كيف استطيع حل هذه الاشكالية؟

يجب عليك تنشيط المعادلات بأن تحدد   المعادلات تضغط على المفتاح F2 ثم تضغط Ctrl+Enter

 

[ابوسلماان]

ممنون لكم كثيرا ،، 

 

بارك الله فيكم، ورفع الله قدركم ،

 

 

اللهم آمين.