استفسار بخصوص كود Vba في الاكسل ويخص Msgbox

Private Sub Worksheet_Change(ByVal Target As Range)
	 If Target.Address = "$A$2" Then
		 If Target.Value > 10 Then
			 MsgBox ("الرقم اكبر من 10")
			 Exit Sub
		 End If
		 If Target.Value < 0 Then
			 MsgBox ("الرقم اضغر من 0")
			 Exit Sub
		 End If

		 If Target.Value <> Int(Target.Value) Then
			 MsgBox "الرقم فيه كسور عشرية"
			 Exit Sub
		 End If
	 End If
 End Sub

السلام عليكم ورحمة الله وبركاته

أخي الحبيب يمكنك عمل ذلك دون اللجوء إلى أكواد VBA فإكسيل يدعم ذلك بجدارة كل ما عليك سوى اتباع ما يلي :

قم بتحديد الخلايا المراد ادخال الرقم بها

ومن قائمة Data اختر Validation

سيفتح لك مربع حوار بعنوان Data Validation في التبويب الأول منه Settings افتح القائمة المنسدلة Allow واختر منها Whole number (أي أنك تريد أن تجبر المستخدم على ادخال عدد صحيح)

ثم من القائمة المنسدلة الثانية المسماة Data اختر between

سيظهر لك مربعين . الأول Minimum أكتب فيه 0 ، والثاني Maximum اكتب فيه 10

بعد ذلك انتقل للتبويب الثاني بالأعلى Input Message وذلك إذا أردت أن تظهر للمستخدم رسالة إذا وقف على الخلية تخبره فيها بإدخال رقم أكبر من الصفر وأقل من العشرة

بعد ذلك انتقل للتبويب الثالث بالأعلى Error Alert وهذا الجزء هو المسؤول عن ظهور رسالة الخطأ في حالة ادخال المستخدم رقم يخالف القاعدة الموضوعة (كما هو واضح في رسالة الخطأ التي أرفقتها في الصورة)

بعد ذلك اضغط OK

وإذا أردت أن تزيل كل هذا قم بتحديد الخلايا المراد إزالة هذا الشرط منها وكرر فتح مربع حوار Data Validation مرة أخرى واضغط على الزر الأيسر Clear All ثم Ok

وأريد أن أوضح أن هذه الطريقة أفضل لأن طريقة أكواد VBA يجب أن يجعل المستخدم مستوى الأمان عنده إما متوسط أو منخفض حتى تعمل أكواد VBA

والسلام عليكم ورحمة الله