M.NHAKAMI قام بنشر نوفمبر 24, 2019 مشاركة قام بنشر نوفمبر 24, 2019 السلام عليكم يا يا اخواان عندي الكود التالي هل ممكن استطيع مسميات الازرار في 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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة omar elhosseini قام بنشر نوفمبر 29, 2019 أفضل إجابة مشاركة قام بنشر نوفمبر 29, 2019 الاخ M.NHAKAMI ربما يكون هذا الكو يوفي طلبك انظر المرفقات Three_Button.rar 2 1 رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر نوفمبر 29, 2019 مشاركة قام بنشر نوفمبر 29, 2019 كود رائع استاذ ابو تامر جزاك الله كل خيراً رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر نوفمبر 29, 2019 مشاركة قام بنشر نوفمبر 29, 2019 أستاذ M.NHAKAMI أين الضغط على الإعجاب ؟!!! رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر نوفمبر 29, 2019 مشاركة قام بنشر نوفمبر 29, 2019 الاخ أحمد يوسف لك رساله في الانبوكس افتحها 1 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر نوفمبر 29, 2019 مشاركة قام بنشر نوفمبر 29, 2019 تمام استاذى الكريم وتم الرد بالفعل على حضرتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.