الحلقة العاشرة الدالة Msgbox

MsgBox ""

MsgBox "واخد على خاطري منكم"

MsgBox Range("D3").Value

 MsgBox "القيمة الموجودة يا أستاذ اسلام في الخلية هي " & Range("D3").Value

MsgBox Range("D3").Value & Range("E4").Value

MsgBox Range("D3").Value & "   " & Range("E4").Value

MsgBox Range("D3").Value & vbNewLine & Range("E4").Value

Chr(10)

MsgBox ("الحمد لله الذي بنعمته تتم الصالحات")

MsgBox "هل تحب حلقات افتح الباب؟", vbOKCancel

vbAbortRetryIgnore

vbOKCancel

vbOKOnly

vbRetryCancel

vbYesNo

vbYesNoCancel

MsgBox "هل تحب حلقات افتح الباب؟", vbYesNo + vbQuestion

vbQuestion

vbInformation

vbCritical

vbExclamation

MsgBox "هل تحب حلقات افتح الباب؟", , "منتدى الأحبة"

Answer = MsgBox("هل تحب حلقات افتح الباب؟", vbYesNo + vbQuestion, "منتدى الأحبة")

Sub Query()

    Answer = MsgBox("هل تحب حلقات افتح الباب؟", vbYesNo + vbQuestion, "منتدى الأحبة")

    If Answer = vbYes Then

        MsgBox "كدا حبيبي وصاحبي وكفاءة"

    ElseIf Answer = vbNo Then

        MsgBox "زعلت منك ..روح ربنا يسامحك"

    End If

End Sub

Sub Query()

    Answer = MsgBox("هل تحب حلقات افتح الباب؟", vbYesNo + vbQuestion, "منتدى الأحبة")

    If Answer = 6 Then

        MsgBox "كدا حبيبي وصاحبي وكفاءة"

    ElseIf Answer = 7 Then

        MsgBox "زعلت منك ..روح ربنا يسامحك"

    End If

End Sub

MsgBox "هل تحب حلقات افتح الباب؟", vbMsgBoxRight, "منتدى الأحبة"

MsgBox "هل تحب حلقات افتح الباب؟", vbYesNoCancel

MsgBox "هل تحب حلقات افتح الباب؟", 3

Sub Query()

    Dim Answer As String

    Answer = MsgBox("هل تريد الدخول لتطبيق الإكسيل لتطبيق الأكواد في حلقات افتح الباب؟", vbYesNoCancel)

    If Answer = vbYes Then

        MsgBox "تفضل بالدخول .. بيتك ومطرحك ، وإن شاء الله تستفيد"

        ThisWorkbook.Activate

    ElseIf Answer = vbNo Then

        MsgBox "أكيد مشغول عشان ناوي تقفل .. عموماً تصحبك السلامة وفي رعاية الله"

        ActiveWorkbook.Save

        Application.Quit

    End If

End Sub