أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مهند محسن ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تجميع العديد من الملفات في ملف واحد اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





تعديل كود( i*nputBox)

ممكن تعدل هذه الكود لانه انا مش عرف اي مشكله بزبط لكن سوف اشرح الكود لكم لا يقبل بحث اكثر من رقم واحد يعني لو ادخلت و ..



10-03-2020 10:37 مساء
احمد 9598
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 121
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
قوة السمعة : 66
الاعجاب : 7
 offline 
ممكن تعدل هذه الكود لانه انا مش عرف اي  مشكله  بزبط لكن سوف اشرح الكود لكم 
لا يقبل بحث اكثر من رقم واحد يعني لو ادخلت واحد يظهر لي بيانات بس لو دخلت اكثر من عشرة ارقام لا يظهر لي بيانات مع العلم ان البيانات موجوده في الشيت وفي نفس العمو وإليكم المرافق 
 
 
  المصنف1.xls   تحميل xls مرات التحميل :(3)
الحجم :(49.664) KB





15-03-2020 08:26 صباحا
مشاهدة مشاركة منفردة [1]
أبوعيد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-09-2017
رقم العضوية : 439
المشاركات : 27
الدولة : اليمن
الجنس : ذكر
تاريخ الميلاد : 19-6-1971
قوة السمعة : 98
الاعجاب : 12
 offline 
look/images/icons/i1.gif تعديل كود( i*nputBox)
اشرح لنا كيف يتم البحث خطوة خطوة ( مثال ماذا تكتب في البحث ؟ )
وما هو الزر الذي تضغطه بعد الكتابة ؟ وما وظيفة الأزرار الأخرة في الفورم ؟

أثارت هذه المشاركة إعجاب: YasserKhalil، احمد 9598،



15-03-2020 03:50 مساء
مشاهدة مشاركة منفردة [2]
احمد 9598
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 121
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
قوة السمعة : 66
الاعجاب : 7
 offline 
look/images/icons/i1.gif تعديل كود( i*nputBox)
[quote=أبوعيد]
Dim Name As String
Dim Name1 As String
Dim X As Integer
X = 2
'اول شرط ان في حالة زر يوسوي + يظهره مسج  اذا كان مستخدم يغرب في اضافة زر اختصار
If CommandButton1.Caption = "+" Then
Dim msg1
msg1 = MsgBox("هل تريد اضافة زر اختصار", vbYesNo, "تبيه")
'اذا كان يغرب المستخدم في اضافة زر يضغط موافق ام اذا كان لايرغب يضغظ لا
If msg1 = vbYes Then
Name1 = InputBox("ادخل رقم التجاري", "اختصارات")
' اذا ضغط المستخدم موافق يظهر صندوق ادخل رقم الصنف
If Name1 = sheet2.Cells(X, 1).Value Then
'اذا كان صندوق الادخل رقم التجاري يوسوي العمود الاول يظهر صندوق الادخل اسم الصنف
Name = InputBox("ادخل اسم الصنف", "اختصارات", sheet2.Cells(X, 2).Value)
'بعد ان يتم ادخل اسم الصنف يتم تغير اسم الزر
CommandButton1.Caption = Name
'شرط اذا لم يوسوي رقم التجاري العمود الاول يظهر مسج لايوجد هذه الصنف
ElseIf Name1 <> sheet2.Cells(X, 1).Value Then
X = X + 1
X = MsgBox("لايوجد هذه الصنف", 16, "تبيه")
End If
End If
Dim lr2     As Long
Dim Y       As Long
lr2 = sheet2.Cells(Rows.Count, 2).End(xlUp).Row
For Y = 1 To lr2
'اذا كان اسم الزر يوسوي العمود الثاني
If sheet2.Range("b" & Y).Text = CommandButton1.Caption Then
'يجلب بيانات العمود الاول في التكس بوكس
TextBox1.Value = sheet2.Range("a" & Y).Text
Exit Sub
End If
Next Y






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعديل على كود حماية الصفحات ليتم حماية صفحات ماعدا صفحات محددة كما هو بالمرفق ابو طيبه
15 295 ابو طيبه
تعديل على كود الترحيل واستدعاء بيانات من شيت لاخر وعمل قائمة منسدله ابو طيبه
14 505 ابو طيبه
تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل المبتدأ
7 132 المبتدأ
تعديل كواد انشاء مستند نص احمد 9598
0 42 احمد 9598
تحذير : كيف يتم تزوير و التعديل على مواصفات أي جهاز قبل بيعه Mohamed Abdullah
6 1431 Excelawy

الكلمات الدلالية
تعديل ، كواد ، InputBox ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 12:02 صباحا

أعلن هنا
أعلن هنا
أعلن هنا