654.rar (الحجم : 8.76 ك ب / التحميلات : 12)
بحث علي اكثر من موقع ولكن لم اجد كود الا علي فيجوال بيسك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(لا إله الا انت سبحانك اني كانت من الظلمين)