تغيير مسميات الازرار في msgbox

[M.NHAKAMI]

السلام عليكم يا يا اخواان عندي الكود التالي هل ممكن استطيع مسميات الازرار في msgbox  تظهر عندي بالعربي ( نعم , لا , الغاء الامر ) اريد تغيرها الى (ارسال , استبدال, مسح)

 If Sheets("diff").Range("a23") = 1 Then
x = MsgBox("يوجد بيانات فرسان سابقين هل تود ترحيل الفرسان التاليين ", vbYesNoCancel + vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه")
If x = vbYes Then
MsgBox "تم الارسال"
ElseIf x = vbNo Then
MsgBox "تم الاستبدال"
ElseIf x = vbCancel Then
MsgBox "تم المسح"
End If
Else
MsgBox ""
End If

 

[omar elhosseini]

الاخ M.NHAKAMI

ربما يكون هذا الكو يوفي طلبك

انظر المرفقات

Three_Button.rar

 

 

[خالد الشاعر]

كود رائع استاذ ابو تامر

جزاك الله كل خيراً

[أحمد يوسف]

أستاذ

M.NHAKAMI

أين الضغط على الإعجاب ؟!!!

[omar elhosseini]

الاخ أحمد يوسف

لك رساله في الانبوكس افتحها

 

[أحمد يوسف]

تمام استاذى الكريم وتم الرد بالفعل على حضرتك