فورم ادخال و تعديل وبحث (باستخدام اسم نطاق للقائمة المنسدلة)

[عبدالله باقشير]

السلام عليكم

 

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

 

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

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

 

وايضا تم تجاوز بعض الاخطاء في الفورم السابق

 

 

    شرح امكانيات الفورم وكيفية الاستخدام
    
1 -    استخدام الفورم لاكثر من قاعدة بيانات في الورقة الواحدة  او في المصنف
    على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات
     kh_SetAddrss
     اولاً : اسم ورقة البيانات                    ( افتراضي )
    ثانياً : نطاق صف رؤوس اعمدة البيانات  ( افتراضي )
    ثالثاً : عمود التسلسل                         ( اختياري )
    اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم  تلقائيا في عمود معين سجل عنوان راس  العمود  .
    مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات  كما هو معمول في المثال 2.

2 -    تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة .
3 -    ينسخ التنسيقات والمعادلات في السجل الجديد   .
4 -    يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم    .
5 -    يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ   .
6 -    امكانيات زر البحث عن تاريخ
    يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم  ,,
    مع امكانية ادخال رقم صحيح بين 1  الى 31  ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية

 

7 -    ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم
    1- تغيير تنسيقات إظهار التاريخ في الفورم  في الثابت DtF  
    2- تغيير عٌرض مربعات  الادخال  في الثابت iWgt1  
 

8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد
مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية

 

مثلا

"E15,C15,H15:AX15"

المرفق 2003

[فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة.rar

 

 

الاصدار الثالث:

 

http://www.officena.net/ib/index.php?showtopic=51955

[يوسف السيد]

الاستاذ الكبير  : عبدالله باقشير ... أعمالك كلها بها لمسة فنية جميلة
بارك الله فيك وبارك ولك .. وننتظر منكم المزيد ....

[أبو حنــــين]

السلام عليكم

عمل مميز كالعادة

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

[الشهابي]

أستاذنا الكبير / عبد الله باقشير

والله أنها لتعجز الكلمات عن التعبير عن الإعجاب بما تراه من أعمالكم 

التي ليس لها مثيل

كنت أتمنى ذلك وقد حصل دون طلب 

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

ولكن التعديلات الجديدة قمة في الروعة 

بارك الله فيكم أستاذنا 

عندي طلب بسيط في الفورم وهو إضافة ليبل لمعرفة عدد نتائج البحث التي تم الحصول عليها 

وجزاكم الله كل خير وحفظكم من كل مكروه 

تقبل تحيات وتقديري

تلميذكم / الشهابي

[ريان أحمد]

أستا\ي والله أعمالك كلها بها   لمسة إبداع وخبرة وإتقان وحب للإكسل   جزاك الله كل خير وبارك الله فيك وإن شاء الله يعطبك الله ما تتمنى

 

أستادي  كيف أستطيع زيادة او نقصان اللأعمدة    وفي حالة زيادة اعمدة  كيف يتم دلك في الفورم

 

 

هناك 02 فورم بينما وجدت فورم واحدة كيف تم \لك وفي حالة كنت أريد ان يبدأ العمدة من العمود

a كيف يتم التعديل

 

 

عندما أردت تجريب الحذف  ظهر خطأ في السظر Cells(iRow + 1, 1).Value = iRow

 

 

أريد أن يطالبك بكلمة مرور لتأكيد الحذف

تم تعديل سبتمبر 2, 2013 بواسطه ريان أحمد

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

الاستاذ الكبير عبد الله باقشير

اعمالك نور تنير لنا الطريق

جعلها الله فى ميزان حسناتك وزادك من فضله وعلمه

[عبدالله باقشير]

الاستاذ الكبير  : عبدالله باقشير ... أعمالك كلها بها لمسة فنية جميلة

بارك الله فيك وبارك ولك .. وننتظر منكم المزيد ....

 

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

تقبلوا تحياتي وشكري

[عبدالله باقشير]

السلام عليكم

عمل مميز كالعادة

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

 

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

تقبلوا تحياتي وشكري

[عبدالله باقشير]

أستاذنا الكبير / عبد الله باقشير

والله أنها لتعجز الكلمات عن التعبير عن الإعجاب بما تراه من أعمالكم 

التي ليس لها مثيل

كنت أتمنى ذلك وقد حصل دون طلب 

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

ولكن التعديلات الجديدة قمة في الروعة 

بارك الله فيكم أستاذنا 

عندي طلب بسيط في الفورم وهو إضافة ليبل لمعرفة عدد نتائج البحث التي تم الحصول عليها 

وجزاكم الله كل خير وحفظكم من كل مكروه 

تقبل تحيات وتقديري

تلميذكم / الشهابي

 

الحمد لله انه وافق طلبك بالنسبة للقائمة

اما طلبك (ليبل عدد نتائج البحث )تجده في المرفق

تقبلوا تحياتي وشكري

فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة.rar

[عبدالله باقشير]

السلام عليكم

أستا\ي والله أعمالك كلها بها   لمسة إبداع وخبرة وإتقان وحب للإكسل   جزاك الله كل خير وبارك الله فيك وإن شاء الله يعطبك الله ما تتمنى

 

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

 

أستادي  كيف أستطيع زيادة او نقصان اللأعمدة    وفي حالة زيادة اعمدة  كيف يتم دلك في الفورم

 

 

في كود اظهار الفورم

 

تحدد اسم الورقة ونطاق رؤوس الاعمدة

كما اوردت في الشرح

Option Explicit
'======================================================
'======================================================
'  kh_SetAddrss متغيرات
' ( اولا : اسم ورقة البيانات (افتراضي
' ( ثانيا : نطاق صف رؤوس اعمدة البيانات (افتراضي
'''''''''''''''''''''''''''''''''''''''''''''''''
' ( ثالثا : عمود التسلسل  (اختياري
'   اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم
'   تلقائيا في عمود معين سجل عنوان راس  العمود
'======================================================
'======================================================
Sub kh_Show_UFormChang1()
On Error GoTo 1
With UFormChang
    .kh_SetAddrss "مثال1", "C10:AO10"
    .Show
End With
1:
If Err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في  : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء"
On Error GoTo 0
End Sub

عندما أردت تجريب الحذف  ظهر خطأ في السظر Cells(iRow + 1, 1).Value = iRow

 

تم تصحيح الخطا واستبدال المرفق في المشاركة الاولى

 

 

تقبلوا تحياتي وشكري

[عبدالله باقشير]

الاستاذ الكبير عبد الله باقشير

اعمالك نور تنير لنا الطريق

جعلها الله فى ميزان حسناتك وزادك من فضله وعلمه

 

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

تقبلوا تحياتي وشكري

[الـعيدروس]

سلمت الانامل يااستاذ عبدالله

تقبل مروري

يتصفح من الجوال <<-----

[عبدالله باقشير]

سلمت الانامل يااستاذ عبدالله

تقبل مروري

يتصفح من الجوال <<-----

 

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

تقبلوا تحياتي وشكري

[خالد الشاعر]

استا عبد الله

 

ليس جديد عليكم هذه المهارة و الاتقان

 

و اسمح لى بطلب صغير فى موضوع جدول الحصص

 

برجاء اكمال هذا العمل الرائع

 

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

 

و جعلة الله فى ميزان حسناتك

[رعد داود]

استاذي العزيز

زادك  الله   من  علمه   ونفع  بك  العباد  .........   رعاك  الله  ودمتم  ذخرا"

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

استاذى الكبير الغالى عبد الله باقشير

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

التعديل على هذا الفورد لاظهار السجلات فى الفورم باللون الاسود بدل الخافت فى السجلات التى تحتوى على معادلات

تقبل منى كل الحب والتقدير

[الشهابي]

أستاذنا الكبير / عبد الله باقشير

جزاك الله خير  على الإضافة التي قدمتها 

ممكن طلب آخر وهو جعل عنوان الفورم يحمل اسم الورقة الإفتراضية 

كذلك هل يمكن الاستعاضة عن اسم الورقة بالورقة النشطة

كذلك هل يمكن أخذ اسم الورقة من خلية معينة عن طريق دالة ( INDIRECT ) مثلا

هذا والعفو وجزاك الله ألف خير وزادك علما ورفعة

[عبدالله باقشير]

استا عبد الله

 

ليس جديد عليكم هذه المهارة و الاتقان

 

و اسمح لى بطلب صغير فى موضوع جدول الحصص

 

برجاء اكمال هذا العمل الرائع

 

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

 

و جعلة الله فى ميزان حسناتك

 

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

موضوع الجداول مكتمل على ما اعتقد

تقبلوا تحياتي وشكري

[عبدالله باقشير]

استاذي العزيز

زادك  الله   من  علمه   ونفع  بك  العباد  .........   رعاك  الله  ودمتم  ذخرا"

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

تقبلوا تحياتي وشكري

[عبدالله باقشير]

استاذى الكبير الغالى عبد الله باقشير

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

التعديل على هذا الفورد لاظهار السجلات فى الفورم باللون الاسود بدل الخافت فى السجلات التى تحتوى على معادلات

تقبل منى كل الحب والتقدير

ان شاء الله

 

تقبلوا تحياتي وشكري

[عبدالله باقشير]

 

أستاذنا الكبير / عبد الله باقشير

جزاك الله خير  على الإضافة التي قدمتها 

ممكن طلب آخر وهو جعل عنوان الفورم يحمل اسم الورقة الإفتراضية 

كذلك هل يمكن الاستعاضة عن اسم الورقة بالورقة النشطة

كذلك هل يمكن أخذ اسم الورقة من خلية معينة عن طريق دالة ( INDIRECT ) مثلا

هذا والعفو وجزاك الله ألف خير وزادك علما ورفعة

 

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

 

ممكن طلب آخر وهو جعل عنوان الفورم يحمل اسم الورقة الإفتراضية

 

 

ضع هذا السطر بداية اونهاية الكود UserForm_Activate

Me.Caption = MyRngdate.Worksheet.Name

كذلك هل يمكن الاستعاضة عن اسم الورقة بالورقة النشطة

 

 

في كود اظهار الفورم غير اسم الورقة بالتعبير ActiveSheet.Nam

مثلا

.kh_SetAddrss ActiveSheet.Name, "C10:AO10"

كذلك هل يمكن أخذ اسم الورقة من خلية معينة عن طريق دالة ( INDIRECT ) مثلا

 

هذا لم افهمه وضح اكثر

 

تقبلوا تحياتي وشكري

[ضاحي الغريب]

اخي الفاضل ومعلمنا القدير الأستاذ // عبدالله باقشير

السلام عليكم ورحمة الله وبركاته

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

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

جعلها الله في ميزان حسناتكم

تقبلوا تحياتي واحترامي

[الشهابي]

أستاذنا الكبير / عبد الله باقشير

جزاك الله خير  على تلبية الطلبين الأوليين

بالنسبة للطلب الثالث مثلا

لو عندي عدة فصول ( الأول - الثاني - الثالث )

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

وعندي خلية تشمل قائمة منسدلة بأسماء الفصول

فأريد عند اختيار فصل معين يتم فتح الفورم على ذلك الفصل المحدد في تلك الخلية

بدلا من الذهاب للفصل المطلوب  وفتح الفورم منه

وبدلا من عمل زر لكل فصل يكون زر واحد مرتبط بكود فتح الفورم وتكون اسم الورقة فيه نفسها المختارة في الخلية التي تشمل أسماء الفصول

إن شاء الله وضحت الفكرة واعذرني على عدم إيصال الفكرة بالوجه المطلوب

والعفو

[عبدالله باقشير]

اخي الفاضل ومعلمنا القدير الأستاذ // عبدالله باقشير

السلام عليكم ورحمة الله وبركاته

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

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

جعلها الله في ميزان حسناتكم

تقبلوا تحياتي واحترامي

 

اسعدني كثيرا مروركم الطيب وكلماتكم الطيبة

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

 

تقبلوا تحياتي وشكري

[عبدالله باقشير]

 

أستاذنا الكبير / عبد الله باقشير

جزاك الله خير  على تلبية الطلبين الأوليين

بالنسبة للطلب الثالث مثلا

لو عندي عدة فصول ( الأول - الثاني - الثالث )

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

وعندي خلية تشمل قائمة منسدلة بأسماء الفصول

فأريد عند اختيار فصل معين يتم فتح الفورم على ذلك الفصل المحدد في تلك الخلية

بدلا من الذهاب للفصل المطلوب  وفتح الفورم منه

وبدلا من عمل زر لكل فصل يكون زر واحد مرتبط بكود فتح الفورم وتكون اسم الورقة فيه نفسها المختارة في الخلية التي تشمل أسماء الفصول

إن شاء الله وضحت الفكرة واعذرني على عدم إيصال الفكرة بالوجه المطلوب

والعفو

 

 

في كود اظهار الفورم اجعله ياخذ اسم الورقة من الخلية الي فيها القائمة

 

مثلا الخلية   B5

.kh_SetAddrss CStr(Range("B5")), "C10:AO10"

تحياتي