تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة استعلام textbox1 عن رقم مثل 10/20/1000/0
#1
السلام عليكم
قمت بانشاء فورم فى برنامج الاكسل يقوم واضافة وترحيل البيانات الى ملف الشيت
ويقوم text box1 ( رقم الحساب ) بعمل استعلام داخل الشيت للبحث في العمود الخاص برقم الحساب لمعرفة رقم الحساب المراد اضافتة موجود مسبقا ام لا في شيت العمل
المشكلة هي صيغة رقم الحساب . فمثلا ارقام الحساب التى اعمل عليها تكون بصورة  10/20/100/0 لا يقوم بجلب البيانات من الشيت مع العلم بان رقم الحساب موجود فعلا
مع العلم ان الكود يعمل اذا كان  رقم الحساب ( عدد صحيح) متل 10000
الكود المستخدم
Private Sub TextBox1_Change()
lr = WorksheetFunction.CountIf(Range("c2:c10000"), Val(TextBox1.Value))
If TextBox1.Value <> "" And lr = 1 Then
TextBox2.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 2, 0)
TextBox3.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 3, 0)
TextBox4.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 4, 0)
ComboBox1.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 5, 0)


Else
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
ComboBox1.Value = ""

End If

End Sub
ارجو المساعدة ولكم جزيل الشكر


الملفات المرفقة
.rar   برنامج الاستعجال ver3.rar (الحجم : 804.17 ك ب / التحميلات : 2)
الرد
تم الشكر بواسطة:
#2
(24-12-20, 10:54 PM)moodyfy كتب : السلام عليكم
قمت بانشاء فورم فى برنامج الاكسل يقوم واضافة وترحيل البيانات الى ملف الشيت
ويقوم text box1 ( رقم الحساب ) بعمل استعلام داخل الشيت للبحث في العمود الخاص برقم الحساب لمعرفة رقم الحساب المراد اضافتة موجود مسبقا ام لا في شيت العمل
المشكلة هي صيغة رقم الحساب . فمثلا ارقام الحساب التى اعمل عليها تكون بصورة  10/20/100/0 لا يقوم بجلب البيانات من الشيت مع العلم بان رقم الحساب موجود فعلا
مع العلم ان الكود يعمل اذا كان  رقم الحساب ( عدد صحيح) متل 10000
الكود المستخدم
Private Sub TextBox1_Change()
lr = WorksheetFunction.CountIf(Range("c2:c10000"), Val(TextBox1.Value))
If TextBox1.Value <> "" And lr = 1 Then
TextBox2.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 2, 0)
TextBox3.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 3, 0)
TextBox4.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 4, 0)
ComboBox1.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("c2:q10000"), 5, 0)


Else
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
ComboBox1.Value = ""

End If

End Sub
ارجو المساعدة ولكم جزيل الشكر

أخي رقم الحساب بهذه الهيئة ( 10/20/100/0) هو عبارة عن نص وأنت تستخدم الدالة val التي تحول النص الي رقم لذي فأن الدالة vlookup تبحث عن


كود :
val("10/20/100/0")


الذي سيعطي قيمة مختلفة تماما عن النص الذي أدخلته جرب أن تضع هذه الكود داخل شاشة الـ Immedate واضغط علي انتر وانظر القيمة الناتجة كيف هي 


كود :
?val("10/20/100/0")



وباختصار قم بازالة الدالة val من الكود وستنتهي المشكلة ان شاء الله
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad مشكلة عدم دقة توقيت التايمر أسعد 5 104 منذ 2 ساعة مضت
آخر رد: أبو عبدالله الحلواني
  مشكلة تحديث برنامجي عن تحزيمه ببرنامج Smart Install Maker alfaiz678 2 66 , 12:42 PM
آخر رد: alfaiz678
  مشكلة في اضافة centent فيه boundary bden1 0 45 17-04-21, 07:13 PM
آخر رد: bden1
  مشكلة بزيدة قيمة المتغير داخل التيمر أبو عبدالله الحلواني 5 113 17-04-21, 12:22 AM
آخر رد: أبو عبدالله الحلواني
  مشكلة في زيادة كمية الصنف الي الفاتورة المبيعات عبدالكريم برشدان 1 91 16-04-21, 07:15 AM
آخر رد: عبدالكريم برشدان
  [VB.NET] مشكلة في تقارير مريم علي 2 94 15-04-21, 09:52 PM
آخر رد: messry
  [VB.NET] مشكلة مطلوب حلها Lathe1 2 114 09-04-21, 02:38 PM
آخر رد: Lathe1
  مشكلة عندالتعامل مع (My.Application.CommandLineArgs) عبدالله الصافي 11 423 08-04-21, 01:42 AM
آخر رد: سعود
  [VB.NET] مشكلة عند تحويل المتغير الي تاريخ احمد 2021 4 258 01-04-21, 09:39 PM
آخر رد: احمد 2021
  [VB.NET] مشكلة في تصميم الفورم messry 3 249 01-04-21, 03:51 AM
آخر رد: messry

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم