عمل زر خروج برسالة هتريد الحفظ بنعم او لا

[خالد المصـــــــــــرى]

عمل زر خروج برسالة هتريد الحفظ بنعم او لا

زر.xlsx

[أبوأحـمـد]

تفضل

Private Sub MSGE()
Dim Action As VbMsgBoxResult
Action = MsgBox("هل تريد حفظ التعديلات", vbYesNo + vbExclamation + vbDefaultButton2, "تنبيه!")
If Action = vbYes Then
MsgBox "نعم"
Else
MsgBox "لا"
End If
End Sub

 

[كمال على طارق]

خالد المصـــــــــــرى   أين الضغط على الإعجاب 💙 وعلى أفضل إجابة ؟!!!!!

[خالد المصـــــــــــرى]

4 ساعات مضت, أبوأحـمـد said:

Private Sub MSGE()
Dim Action As VbMsgBoxResult
Action = MsgBox("هل تريد حفظ التعديلات", vbYesNo + vbExclamation + vbDefaultButton2, "تنبيه!")
If Action = vbYes Then
MsgBox "نعم"
Else
MsgBox "لا"
End If
End Sub

الكود في خطأ

 

تم تعديل يوليو 24, 2023 بواسطه خالد المصـــــــــــرى

[أبوأحـمـد]

1 دقيقه مضت, خالد المصـــــــــــرى said:

الكود فين خطأ

إنت عايز ايه؟🫣

[خالد المصـــــــــــرى]

شكرا تم الحل