فورم بحث مرن بامكانك استخدامه بدلا من القائمة المنسدلة

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

السلام عليكم ورحمة الله وبركاته
 
اخي الحبيب أبو محمد عباس ............حفظكم الله
 

واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة
 
تقبلوا تحياتي وشكري

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

اخي الفاضل جلال

 

 

[محمد الورفلي1]

مشكور جداً لقد استفت منه كثيراً نسأل الله ان كون في ميزان حسناتك

[بن خليفه]

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

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

أتمنى أن أكون قد وفقت في التوضيح بما هو مطلوب

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

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

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

أتمنى أن أكون قد وفقت في التوضيح بما هو مطلوب

في هذا الكود تحدد الخلية التي تريدها بدلا من ActiveCell

Private Sub ListSearch_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
ActiveCell.Value = Me.ListSearch.Value
End Sub

مثلا

[A4] = Me.ListSearch.Value

تحياتي

[مجدى يونس]

[بن خليفه]

والله عجز لساني بأي الطرق يشكرك يا أستاذنا ومعلمنا ( عبدالله باقشير )

 

نقطة بسيطة .. لو كان عندي زرين على نفس الشيت كيف أخلي الز الثاني يحدد خلية ثانية ؟ بدون ما تتأثر الأولى

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

والله عجز لساني بأي الطرق يشكرك يا أستاذنا ومعلمنا ( عبدالله باقشير )

 

نقطة بسيطة .. لو كان عندي زرين على نفس الشيت كيف أخلي الز الثاني يحدد خلية ثانية ؟ بدون ما تتأثر الأولى

 

في هذه الحالة اترك اكواد الفورم مثل ما هي بدون تغيير مثل ماهي في المرفق في المشاركة 1

 

والتغير الان سيتم في كود اظهار الفورم فقط

سيتم فيه تحديد الخلية التي نريدها ونمنع تنشيط اي حلية اثناء فتح الفورم

 

مثلا كود الزر الاول

Sub KH_SHOW()
Range("D13").Activate
With UserForm1
    .kh_SetRng Sheets("t1").[B3:B200]
    .Show 1
End With
End Sub

في هذا الكود لا يمكنك التغيير الا في الخلية  D13

ولا يمكنك تحديد اي خلية اخرى والفورم مفتوح

 

وهكذا مع الزر الثاني مع تغيير خلية التعديل

 

تحياتي

[MAHMOUDALIYOUSSEF]

السلام عليكم

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

[غالب عبد]

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

[محمد القمجي]

بارك الله بك

ﻻ اله اﻻ الله وحده ﻻ شريك له له الحمد والشكر وعلى كل شيء قدير

[سمير سامي]

استاذى الفاضل المحترم عبدالله باقشير

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

فشلت في تحميل الملف ارجو توضيح كيفية تحميل الملف 

[سمير سامي]

استاذى الفاضل المحترم عبدالله باقشير

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

فشلت في تحميل الملف ارجو توضيح كيفية تحميل الملف 

 

تم تعديل نوفمبر 14, 2014 بواسطه سمر سامي

[سمير سامي]

تاذى الفاضل المحترم عبدالله باقشير

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

فشلت في تحميل الملف ارجو توضيح كيفية تحميل الملف 

[سمير سامي]

 

تاذى الفاضل المحترم عبدالله باقشير

اريد عمل برنامج ادخال بيانات عن طريق شاشة ادخال لدفتر مرور العاملين و الانتاج الخاص بهم و مرفق النموذج

حيث اريد ان تتحرك الكيرسول لوحدها خلال الكتابة عندالانتهاء من كتابة الوردية تنتقل الكيرسول لوحها الي خانة الرئيسي بدون ان اضغط علي زر Enter

بالاضافة الي عند الوصول الي نهاية الصف خانة الخزينة كيف ينتقل الي الصف التالي لادخالة 

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

فشلت في تحميل الملف ارجو توضيح كيفية تحميل الملف 

 

[سمير سامي]

تحميل الملف 

[مجدى يونس]

الاخت سمر سامى

فيديو لطريقة رفع ملف الى المنتدى

 

https://www.youtube.com/watch?feature=player_detailpage&v=_pwuzFHrBjU#t=1

 

او على رابط المنتدى

 

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

[جلال محمد]

استاذى الفاضل المحترم عبدالله باقشير

السلام عليكم 

بارك الله فيك وفي اعمالك 

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

عمل والله رائع