الحوارات MsgBox

دورة VBA: الحوارات

MsgBox

 الآن، كنا فقط في مربع الحوار MsgBox لعرض المعلومات:

Sub effacer_B2()
Range( "B2" ).ClearContents
MsgBox "Le contenu de B2 a été effacé !"
End Sub

في هذه الحالة، يتم استخدام MsgBox فقط مع وسيطة واحدة.

نظرة عامة من التعليمات البرمجية:

 ونحن الآن إنشاء مربع الحوار الذي سوف يطلب منك تأكيد قبل اتخاذ بيانين. وفيما يلي ثلاث حجج سنتعلم:

MsgBox([TEXTE], [BOUTONS], [TITRE])

• النص: مربع الحوار النص
• أزرار: أزرار اختيار (نعم، لا، إلغاء، الخ) + خيارات أخرى
• العنوان: عنوان مربع الحوار

Sub effacer_B2()
If MsgBox( "Etes-vous certain de vouloir supprimer le contenu de B2 ?" , vbYesNo, "Demande de confirmation" ) = vbYes Then
Range( "B2" ).ClearContents
MsgBox "Le contenu de B2 a été effacé !"
End If
End Sub

لمحة عامة:

يشير vbYesNo أن أزرار الحوار هي "نعم" و "لا"، vbYes يتوافق مع زر "نعم":

 

If MsgBox( "Texte" , vbYesNo, "Titre" ) = vbYes Then 'Si le bouton Oui est cliqué ...

الاحتمالات المختلفة لالحجة الثانية لMsgBox

  

 القيم هي الافتراضية 0.

والحجة الثانية لMsgBox يمكن أن يستغرق فترة تصل الى قيمة كل طاولة.

على سبيل المثال، لمربع الحوار مع "نعم، لا، إلغاء" زر + تعجب رمز + 2 افتراضي:

 

MsgBox( "Texte" , vbYesNoCancel + vbExclamation + vbDefaultButton2, "Titre" )

لمحة عامة:

يمكن استبدال الثوابت التي كتبها القيم الخاصة بكل منها، هذه الخطوط الثلاثة متطابقة:

 

MsgBox( "Texte" , vbYesNoCancel + vbExclamation + vbDefaultButton2, "Titre" )
MsgBox( "Texte" , 3 + 48 + 256, "Titre" )
MsgBox( "Texte" , 307, "Titre" )

 القيم التي يعرضها MsgBox

 هنا مثال من MsgBox تظهر بشكل متكرر حتى يتم النقر على زر نعم:

Sub petite_blague()
Do
If MsgBox( "Aimez-vous le site Excel-Pratique ?" , vbYesNo, "Sondage" ) = vbYes Then
Exit Do ' => Si réponse = Oui on sort de la boucle End If
Loop While 1 = 1 ' => Boucle infinie MsgBox ";-)"
End Sub

كسر خط في MsgBox

للحصول على الخط، يمكنك إدراج الحرف "كسر خط" مع وظيفة مركز حقوق الانسان ورقم (10) لهذا الطابع، على سبيل المثال:

 

MsgBox "Exemple 1" & Chr(10) & "Exemple 2" & Chr(10) & Chr(10) & "Exemple 3"

لمحة عامة:

 

 

InputBox

وInputBox يطالب المستخدم لإدخال قيمة من مربع الحوار، على سبيل المثال:

 

Sub exemple()
Dim resultat As String
resultat = InputBox( "Texte ?" , "Titre" ) 'La variable reçoit la valeur entrée dans l'InputBox

If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat MsgBox resultat
End If
End Sub

لمحة عامة:

 

 ومن الممكن تحديد قيمة افتراضية في الحجة الثالثة:

InputBox( "Texte ?" , "Titre" , "Valeur par défaut" )

لمحة عامة:

تحميل الدرس