تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب تعديل كواد زر اختصار الصنف في شاشة المبيعات
#1

.rar   654.rar (الحجم : 8.76 ك ب / التحميلات : 3) بحث علي اكثر من موقع ولكن لم اجد كود الا علي فيجوال بيسك2012 ولكن انا عمل كود بسيط  ولكن باهي مشكله  مستخدم علي ملف اكسل اكسل مربوط بفيجوال بيسك6
سوف تجد كود مشروح اذا احد لديه حل وتعديل كود بحيث يعمل بشكل  صحيح  ويجود مرفق للتطبيق عليه
كود :
Dim Name       As String
Dim x       As Long
'وضعت شرط بحيث لو كانت علي زر في حالت =+ يظهر مشج هلتريد اضافة زر اختصار
If Command1.Caption = "+" Then
Dim msg1
' InputBox في حالت مسخدم ضغط علي موافق يظهر مسج
msg1 = MsgBox("هل تريد اضافة زر اختصار", vbYesNo, "تبيه")
If msg1 = vbYes Then
x = InputBox("ادخل رقم التجاري", "اختصارات")
'x= شرط الاخر في حالت العمود الاول
If x = Sheet1.Cells(x, 1).Value Then
'   تحقق الشرط يظهر المسج 2 بأسم الصنف
Name = InputBox("ادخل اسم الصنف", "اختصارات", sheet2.Cells(x, 2).Value)
Command1.Caption = Name
ElseIf x <> Sheet1.Cells(x, 1).Value Then
'   اذا لم يتحقق الشرط يظهر المسج لا يوجد هذه الصنف
x = MsgBox("لايوجد هذه الصنف", 16, "تبيه")
End If
End If
End If
Dim lr2     As Long
Dim y       As Long
lr2 = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row
For y = 1 To lr2
'ولكن اذا تحقق الشرط سوف يتم تغير اسم الزر بأسم الصنف
'   شرط الاخر اذا تحقق الشرط اذا اسم الزر =العمود الثاني
If Sheet1.Range("b" & y).Text = Command1.Caption Then
'   يجلب بيانات العمود الاول في التكس بوكس
Text1.Text = Sheet1.Range("a" & y).Text
Exit Sub
End If
Next y
(لا إله الا انت سبحانك اني كانت من الظلمين)
الرد
تم الشكر بواسطة:
#2
أهلا بك أخي الكريم , تم تعديل المثال , بالتوفيق .


الملفات المرفقة
.rar   654_1.rar (الحجم : 8.99 ك ب / التحميلات : 17)
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: ahmed250 , Amir_Alzubidy , princeofislam
#3
(03-06-20, 03:56 AM)Ahmed_Mansoor كتب : أهلا بك أخي الكريم , تم تعديل المثال , بالتوفيق .
شكرا يااخي الغالي وجزاك الله الف خير
(لا إله الا انت سبحانك اني كانت من الظلمين)
الرد
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy , princeofislam , princeofislam


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  (تم التعديل) تعديل كود حذف بيانات طالب مصمم هاوي 1 289 24-06-21, 12:13 PM
آخر رد: مصمم هاوي
  [vb6.0] تعديل كود الطباعة من منفذ com1 الى طابعة معينة او منفذ usb. Abd elraof 1 348 07-06-21, 02:23 PM
آخر رد: السيد الغالي
  كيف أصدر من تقرير من الكرستال دون عرض شاشة الخيارات ياسر عبد الكريم 0 191 27-05-21, 07:57 PM
آخر رد: ياسر عبد الكريم
  تعديل كود أظهار بيانات الحضور والغياب مصمم هاوي 3 577 09-05-21, 01:06 AM
آخر رد: مصمم هاوي
  اهدي اليكم طريقة الاتصال بقاعدة البيانات عن طريقة المشاركه بدون تعديل كود الاتصال ahmed201 1 534 25-03-21, 11:35 AM
آخر رد: رضوان الجماعي
  مشكله في تقرير المبيعات ahmed201 3 586 21-02-21, 09:47 PM
آخر رد: ahmed201
  طلب كود استدعاء الصنف في شاشة المبيعات ahmed201 0 334 15-01-21, 08:15 AM
آخر رد: ahmed201
  طلب كواد ترحيل بيانات منMSFlexGrid الي جدول ahmed201 3 631 15-11-20, 08:02 AM
آخر رد: sendbad100
  مشكله في كواد بحث في قاعدة بيانات اكسس ahmed250 2 720 07-08-20, 09:50 AM
آخر رد: ahmed250
  تعديل كود تحديث مخزن الكتب بعد الإعارة مصمم هاوي 7 1,203 07-08-20, 08:16 AM
آخر رد: Ahmed_Mansoor

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


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