[Microformt]

الأخوة الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل textيقبل  فقط إدخال نسبة  موأيه بتنسيق التالي
مثال (00.00%) هل يمكن ذلك نامل المساعدة  ؟؟
وجزكم الله خيراً

[Taha Okla]

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

مثلاً تريد تحويل الرقم 15 لنسبة مئوية ، منطقياً أن يضرب بـ 100 ثم ينسب إلى  النسبة المئوية (%)

ويكون ذلك بإستخدام الدالة (Format) :
إما أن تضعه بتنسيق تفصيل الخانات والأرقام 

كود :

   Text1.Text = Format(15, "#,###,###.00 %")

أو تضعه بالشكل العادي بدون تفصيل الخانات :

كود :

   Text1.Text = Format(15, "0.00 %")

[Microformt]

(28-09-22, 01:38 AM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

مثلاً تريد تحويل الرقم 15 لنسبة مئوية ، منطقياً أن يضرب بـ 100 ثم ينسب إلى  النسبة المئوية (%)

ويكون ذلك بإستخدام الدالة (Format) :
إما أن تضعه بتنسيق تفصيل الخانات والأرقام 

كود :

   Text1.Text = Format(15, "#,###,###.00 %")

أو تضعه بالشكل العادي بدون تفصيل الخانات :

كود :

   Text1.Text = Format(15, "0.00 %")

اخي العزيز
السلام عليكم ورحمة وبركاته
الفكرة انني اريد انشاء قناع إدخال لنسبة مئوية ؟
مثال:-
اريد ان اجعل المستخدم الا يدخل  في Text اكبر من لنسبة 100% 
 تحياتي وشكراً على تقديم المساعده

[Taha Okla]

بإمكانك تنبيهه ليعدل الصيغة للصيغة المئوية عند مغادرة مربع النص بحيث لا يمكن المضي بدون التصحيح :

كود :

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

[Microformt]

(28-09-22, 09:55 AM)Taha Okla كتب : بإمكانك تنبيهه ليعدل الصيغة للصيغة المئوية عند مغادرة مربع النص بحيث لا يمكن المضي بدون التصحيح :

كود :

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


تحياتي وشكراً على تقديم المساعده