الأخوة الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل textيقبل فقط إدخال نسبة موأيه بتنسيق التالي
مثال (00.00%) هل يمكن ذلك نامل المساعدة ؟؟
وجزكم الله خيراً
وعليكم السلام ورحمة الله وبركاته
مثلاً تريد تحويل الرقم 15 لنسبة مئوية ، منطقياً أن يضرب بـ 100 ثم ينسب إلى النسبة المئوية (%)
ويكون ذلك بإستخدام الدالة (
Format) :
إما أن تضعه بتنسيق تفصيل الخانات والأرقام
كود :
Text1.Text = Format(15, "#,###,###.00 %")
أو تضعه بالشكل العادي بدون تفصيل الخانات :
كود :
Text1.Text = Format(15, "0.00 %")
(28-09-22, 01:38 AM)Taha Okla كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
مثلاً تريد تحويل الرقم 15 لنسبة مئوية ، منطقياً أن يضرب بـ 100 ثم ينسب إلى النسبة المئوية (%)
ويكون ذلك بإستخدام الدالة (Format) :
إما أن تضعه بتنسيق تفصيل الخانات والأرقام
كود :
Text1.Text = Format(15, "#,###,###.00 %")
أو تضعه بالشكل العادي بدون تفصيل الخانات :
كود :
Text1.Text = Format(15, "0.00 %")
اخي العزيز
السلام عليكم ورحمة وبركاته
الفكرة انني اريد انشاء قناع إدخال لنسبة مئوية ؟
مثال:-
اريد ان اجعل المستخدم الا يدخل في Text اكبر من لنسبة 100%
تحياتي وشكراً على تقديم المساعده
بإمكانك تنبيهه ليعدل الصيغة للصيغة المئوية عند مغادرة مربع النص بحيث لا يمكن المضي بدون التصحيح :
كود :
Private Sub Text1_LostFocus()
' حدث مغادرة مربع النص
Text1.Text = Format(Val(Text1.Text), "0.00") ' تغيير التنسيق للتنسيق المئوي
If Val(Text1.Text) > 100 Then
MsgBox "لا يمكن أن يتجاوز الرقم كامل النسبة المئوية"
Text1.Text = ""
Text1.BackColor = &H8080FF
Text1.SetFocus
ElseIf Val(Text1.Text) < 0 Then
MsgBox "لا يمكن أن يكون الرقم سالب"
Text1.Text = ""
Text1.BackColor = &H8080FF
Text1.SetFocus
Else
Text1.BackColor = vbWhite
End If
End Sub