Re: [VBA ] 如何寫一個VBA去驗證身份証字號是否正봠…
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
推
10/24 16:19, , 1F
10/24 16:19, 1F
→
10/24 16:20, , 2F
10/24 16:20, 2F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
