Re: [VBA ] 如何寫一個VBA去驗證身份証字號是否正봠…
※ 引述《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
推
10/24 18:17, , 1F
10/24 18:17, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 5 之 6 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
