16-09-16, 07:03 PM
هذا ما فكرت فيه لكن كله عيب
ارغب في عند اضافة اي مربغ نص يتم عمل الدالة
شكرا
Public Function onlynumeric(ByVal e As String)
If Not IsNumeric(e) Then
e = ""
MsgBox("Please enter numbers only.", vbInformation)
End If
End Function
ارغب في عند اضافة اي مربغ نص يتم عمل الدالة
شكرا
Public Function onlynumeric(ByVal e As String)
If Not IsNumeric(e) Then
e = ""
MsgBox("Please enter numbers only.", vbInformation)
End If
End Function