السلام عليكم أخي الكريم
أي تحديد (اختيار ) حالة حسب الكود المطلوب
مثال: تحديد حالة ( نعم أو لا أو إلغاء الأمر)
تعريف متغير باسم nResult كنتيجة VbMsgBoxResult أي مربع رسالة بعرض النتيجة
مربع رسالة بعرض النتيجة = رسالة ( نعم أو لا أو إلغاء الأمر)
نحدد حالة nResult كما يلي:
في حالة nResult النتيجة نعم
أظهر "نعم"
في حالة nResult النتيجة لا
أظهر "لا"
في حالة nResult النتيجة إلغاء
أظهر "إلغاء"
ثم نهاية التحديد في الكود ثم إتمام الكود
Sub Select_Case_Yes_No_Cancel()
Dim nResult As VbMsgBoxResult
nResult = MsgBox("...", vbYesNoCancel)
Select Case nResult
Case vbYes
MsgBox "Yes"
Case vbNo
MsgBox "No"
Case vbCancel
MsgBox "Cancel"
End Select
End Sub
تقبل تحياتي العطرة
والسلام عليكم