الأحد، 9 يونيو 2019

عالم الاوفيس : اسهل طريقة لعمل فهرس العملاء اوتوماتيكيا Creat Index Automaticaly Excel vba

 عالم الاوفيس : اسهل طريقة لعمل فهرس العملاء اوتوماتيكيا 
اهلا بكم متابعى موقع ومدونة عالم الاوفيس 
 فى درس جديد من دروس اكسل 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 لفتح شيت كل عميل من خلال الفهرس 

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


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

هناك تعليق واحد:

  1. السلام عليكم

    دخلت علشان احمل ملف العمل ولكن بيخدنى لاعلانات ومش عارف احمل الملف

    ثانيا لو تكرمت تشرح أزاى عملت الحلقة التكرارية for each

    ردحذف

من نحن

authorمرحبا، أسمي عماد غازى وهذه مدونتي أسعى دائما لأقدم لكم أفضل المواضيع الخاصة بالاوفيس
المزيد عني →

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة