يوزرفورم بحث و تعديل وحذف مرن يصلح لأي قاعدة بيانات

[زياد عبد الجليل]

السلام عليكم استاذ ربيع و السلام على جميع الاخوة الافاضل

      لدي طلب بسيط بخصوص هذا الموضوع المتميز و يكمن في حال و جود اكثر من ورقة عمل وليس ورقة عمل واحدة فقط مع ظهور الفور في كل ورقات العمل بعد اختيار الورقة المعنية بالكومبو بوبكس فقد وضعت الكود التالي للكومبو بوكس للتنقل عبر الصفحات.

Private Sub ComboBox2_Change()
Dim Ws As Worksheet
Dim sName As String: sName = Me.ComboBox2.Value
Set Ws = ThisWorkbook.Sheets(sName)
Dim iRow As Long: iRow = Ws.Cells(Rows.Count, 1).End(xlUp).Row + 0
If Not ComboBox2.Text = "" Then
 Sheets(ComboBox2.Text).Select
end if
end sub
,وهذا في يوزر فورم انيسياليز

Private Sub UserForm_Initialize()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Sheets
Me.ComboBox2.AddItem Ws.Name
End If
Next

 وانا اريد التعديل لجعل الملف يتعامل مع ملف به اكثر من صفحة ولكم مني جزيل الشكر"data" لكن الكود في ملف الاستاذ ربيع مبرمج على اساس ورقة واحدة اسمها 

[almos7rati]

 

مشكور استاذ شوقي

كيف يمكن اظهار التكستبوكس التي داخل الفريم في وضع التصميم للتعديل عليها وتغيير اللغة من عربي الي انجليزي

[هاشم بركات]

بارك الله فيك

[الحدادي]

في 4/8/2017 at 17:24, شوقي ربيع said:

بسم الله الرحمان الرحيم

السلام عليكم

تحياتي لجميع اعضاء اوفيسنا المحترمين

الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب

لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول

فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك

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

و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة

ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية

يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته

كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك

وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها

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

نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص

اولا

اذهب الى محرر الاكواد تجد موديل باسم ModulePublic

تجد في بدايته هذين الكودين او التعريفين ان صح التعبير

Public Const sNomFeuil As String = "data"   'اسم ورقة العمل التي تحمل قاعدة البيانات
Public Const sTableau  As String = "tbData" ' اسم جدول قاعدة البيانات

اضن ان الامر واضح

تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data"

واسم الجدول نفسه مكان عبارة "tbData"

ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول

لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول

باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم

ثانيا

نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس)

لتنفيذ ذالك

قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين

في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة

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

ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل

ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت

            و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا

اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي

اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا

الاخ ضاحي الغريب و الاستاد عبد الله باقشير

تحياتي للجميع

 

 

UserForm Flexibles.rar

 

نفسي اتعلم هذه الاشياء الجميلة

[235Waheed]

في ٨‏/٤‏/٢٠١٧ at 06:24, شوقي ربيع said:

بسم الله الرحمان الرحيم

السلام عليكم

تحياتي لجميع اعضاء اوفيسنا المحترمين

الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب

لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول

فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك

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

و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة

ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية

يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته

كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك

وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها

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

نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص

اولا

اذهب الى محرر الاكواد تجد موديل باسم ModulePublic

تجد في بدايته هذين الكودين او التعريفين ان صح التعبير

Public Const sNomFeuil As String = "data"   'اسم ورقة العمل التي تحمل قاعدة البيانات
Public Const sTableau  As String = "tbData" ' اسم جدول قاعدة البيانات

اضن ان الامر واضح

تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data"

واسم الجدول نفسه مكان عبارة "tbData"

ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول

لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول

باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم

ثانيا

نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس)

لتنفيذ ذالك

قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين

في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة

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

ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل

ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت

            و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا

اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي

اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا

الاخ ضاحي الغريب و الاستاد عبد الله باقشير

تحياتي للجميع

 

 

UserForm Flexibles.rar

 

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

UserForm Flexibles.rar

تم تعديل أكتوبر 27, 2017 بواسطه 235Waheed

[852654]

رائع

 

[essamelshaer]

عمل رائع

 

[محمد فاروق محمود]

اولاً كل الشكر لمن ساهم فى هذا العمل الجبار جزاكم الله كل الشكر ممكن اسأل فى امكانية اضافة خانة لعمل ارتباط تشعبى لpdf مرتبط بكل فرد وشكرا

[ashrey]

في 4/9/2017 at 16:33, محمد الخازمي said:

 

اريد طباعة السند نشختين فى صفحة واحدة اصل وصورة واريد وضع شعار المؤسسة على السندات

 

 

 

في 4/13/2017 at 09:33, ضاحي الغريب said:

 

 

في 4/8/2017 at 17:37, ضاحي الغريب said:

تلوح في سمائنا دوما نجوم براقه

لا يخفت بريقها عنا لحظه واحده

نترقب أضاءتها بقلوب ولهانه

ونسعد بلمعانها في سمائنا كل ساعه

فاستحقت وبكل فخر ان يرفع اسمها في عليانا

اخي وصديقي الغالي / شوقي ربيع

المتميز دائما نجم من نجوم اوفيسنا سيظل يجمعنا سويا الكثير والكثير

 

 

 

 

[جلال الجمال_ابو أدهم]

ما شاء الله عليك شوقي ربيع
هل من الممكن ان يتم عمل BOLD لـ FONT بالتكيست ليكون اوضح من كده
فى مربعات الجزء الايسر 
تحياتى و ايام مباركه

[abdullahalaameri]

هل بالامكان البحث بشرطين وشيء الثاني كيفية تغير الوان الخطوط بفورم الادخال 

وشكراً لك خدمتني كثير بهذا العمل 

[سيف الدين ابو باسم]

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