تحميل برنامج يومية الايرادات والمصروفات مجانى 100 %

 عالم الاوفيس : اسهل طريقة لعمل فهرس العملاء اوتوماتيكيا 

اهلا بكم متابعى موقع ومدونة عالم الاوفيس 
 فى درس جديد من دروس اكسل vba
كيفية عمل صفحة مخصصة لفهرسة العملاء فى ملف العمل بحيث يكون لكل عميل صفحة محددة لة بها جميع حركات العميل 
وفائدة عمل هذا الفهرس هوسهولة الوصول الى صفحة كل عميل بطريقة سهلة وبسيطة وقابلة للتحديث باستمرار

كيف نقوم بعمل هذا الكود
ندخل على تبويب المطور Developer ونضغط على محرر الاكواد visual basic ثم نقوم بادراج وحدة نمطية جديدة Insert Moduel
وكما تعرفون حضراتكم بان اى موديول لابد ان يبدا ب Sub وينتهى ب end sub 
نفترض اننا سوف نقوم بتسمية الموديول هذا 

sub Creat_Index

اولا كما تعودنا دائما سوف نقوم بتعريف بعض المتغيرات 

Dim i As Long
Dim wsIndex As Worksheet
Dim ws As Variant

ثم بعد نوقف عمل الرسائل التحذيرية

Application.DisplayAlerts = False
On Error Resume Next

ثم بعد ذلك نقوم بحذف شيت Index حتى يتم اضافتة بشكل محدث من خلال اضافة اى اوراق عمل جديدة

Sheets("Index").Delete
On Error GoTo 0

الخطوة التالية هى تعيين قيمة المتغيير wsIndex ونقوم بتسميتة ايضا باسم "Index" 

Set wsIndex = Sheets.Add(Sheets(1))
wsIndex.Name = "Index"
i = 1

ثم نقوم بوضع قيمة اول خلية فى شيت الفهرس ليكون اسمها customers Index

Cells(1, 1).Value = "customers Index"

 ثم بعد ذلك نقوم بعمل حلقة تبحث فى كل اسماء اوراق العمل الموجودة عندنا فى ملف العمل 

For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "Index" Then
            i = i + 1
            wsIndex.Hyperlinks.Add Cells(i, 1), "", "'" & ws.Name & "'!A1", , ws.Name
        End If
    Next
    Application.DisplayAlerts = True
 

بحيث انة اذا وجد اسم ورقة العمل لايساوى Index يقوم بادراج اسم ورقىة العمل الى قائمة الفهرس الموجودة فى صفحة Index ويقوم بعمل ارتباط تشعبى hyperlink لفتح شيت كل عميل من خلال الفهرس 

وبهذا نكون قد انتهينا من درس اليوم وكود اليوم ونلتقى ان شاء الله فى دروس قادمة 

اذا عجبك الكود لاتبخل علينا فى مشاركتة على وسائل التواصل الاجتماعى 

لتحميل ملف العمل 

لمشاهدة الشرح