作者Marty (DNA探针)
看板Visual_Basic
标题Re: [VBA ] 如何写一个VBA去验证身份证字号是否正봠…
时间Tue Oct 24 16:23:05 2006
※ 引述《rala1128 (饼饼)》之铭言:
: Option Explicit
: Private Sub CommandButton1_Click()
: ◤ Dim r As Integer◢
: ◤ If CheckIDNum(UCase(Me.TextBox1)) Then◢
: MsgBox "身分证字号正确" ◣ & Chr(10) & Chr(10) & ◢ "切换至VBE程式码"
: ViewCode
: Unload Me
: Else
: MsgBox "输入错误,请重新输入"
: ◤ r = Len(TextBox1.Text)
: Me.TextBox1.SetFocus
: Me.TextBox1.SelStart = 0
: Me.TextBox1.SelLength = r◢
: End If
: End Sub
◤ Dim r As Integer◢ : 定义r为整数
◤ If CheckIDNum(UCase(Me.TextBox1)) Then◢ : 如果CheckIDNum()为真,则继续,
CheckIDNum为验证身份证的函数
◣ & Chr(10) & Chr(10) & ◢: Chr()为ASCII函数,Chr(10)为换行符号
Len()为计算字串内字元数目的函数
如果是初学者的话,建议先买本入门书看一看.
另外,也可以多利用Help.
: 请问大大
: 用三角形框起来的地方是我看不懂的地方
: 可以解释给我听吗??
: 这是输入身分证字号的那个表格的程式码...
: 是不是有些地方是我用不到的...像是他一直会出现"r"
: 可是我不知道"r"代表着是什麽...
: 还有"Chr(10)"我也不懂他是什麽??
: ※ 引述《qsss (Qsss)》之铭言:
: : 这个范例已经包括验证的公式了...
: : 只是它的侦错防呆的机制是不是你要的?
: : 还有...它使用的方式是不是你要的?
: : 范例里面不只用到If..Then..Else
: : 如果你的需求是只能使用If...
: : 那你就要自行将Select改写成If用法了...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.202.6.129
1F:推 rala1128:解释的很清楚ㄋㄟ~~谢谢唷!! 10/24 18:17