پرسش مشكل در فرمول IsNumeric محدود كردن تكس باكس به داده‌های عددی

[ظهور 313]

سلام و عرض ادب
برای محدود كردن تكس باكس به دادههای عددی از فرمول IsNumeric استفاده كردم
حالا مشكل اینجاست كه ، جلوی كاراكترهای حروف را میگیره، اما در مورد كاراكترهایی مثل نقطه و ویرگول، ممانعتی به عمل نمیاره
چه باید كرد؟

[Amir Ghasemiyan]

سلام و عرض ادب
برای محدود كردن تكس باكس به دادههای عددی از فرمول IsNumeric استفاده كردم
حالا مشكل اینجاست كه ، جلوی كاراكترهای حروف را میگیره، اما در مورد كاراكترهایی مثل نقطه و ویرگول، ممانعتی به عمل نمیاره
چه باید كرد؟

سلام دوست عزیز
این دو کارکتری که فرمودین به جهت اینکه در اعداد کاربرد دارن (برای ممیز و جداکننده هزارگان) با این تابع تضادی ندارن. به نظر من شما میتونید از کد اسکی استفاده کنید. یعنی کارکتر که وارد شد کد اسکی رو استخراج کنید و اگر در بازه کد اسکی ۰ تا ۹ بود قابل قبول باشه فقط

[iranweld]

با سلام

میتوانید با دستور OR کارکترهای مورد نیاز را اضافه کنید

Private Sub TextBox1_Change()

If IsNumeric(Right(TextBox1, 1)) Or Right(TextBox1, 1) = "." Or Right(TextBox1, 1) = "," Then

MsgBox "ok"

End If

End Sub