作者rala1128 (饼饼)
看板Visual_Basic
标题Re: [VBA ] 如何写一个VBA去验证身份证字号是否正봠…
时间Tue Oct 24 15:46:15 2006
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
请问大大
用三角形框起来的地方是我看不懂的地方
可以解释给我听吗??
这是输入身分证字号的那个表格的程式码...
是不是有些地方是我用不到的...像是他一直会出现"r"
可是我不知道"r"代表着是什麽...
还有"Chr(10)"我也不懂他是什麽??
※ 引述《qsss (Qsss)》之铭言：
: ※ 引述《rala1128 (饼饼)》之铭言：
: : 请问我有找到这个参考的范例...http://www.vba.com.tw/plog/post/1/230
: 这个范例已经包括验证的公式了...
: 只是它的侦错防呆的机制是不是你要的?
: 还有...它使用的方式是不是你要的?
: 范例里面不只用到If..Then..Else
: 如果你的需求是只能使用If...
: 那你就要自行将Select改写成If用法了...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.131.241.39
1F：推 LPH66:Chr(10)可以当成vbCrLf 10/24 16:19
2F：→ LPH66:最下面那四行是显示错误讯息後把使用者输入的选起来 10/24 16:20