- 帖子
- 169
- 主題
- 41
- 精華
- 0
- 積分
- 219
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-7-31
- 最後登錄
- 2023-9-15
|
回復 12# 准提部林
Private Sub Worksheet_Change(ByVal Target As Range) '借戶身分證檢查
Dim T, i%, S
With Target
If .Count > 1 Then Exit Sub
If Intersect([B5], .Cells) Is Nothing Then Exit Sub
Application.EnableEvents = False
.Value = UCase(.Value)
Application.EnableEvents = True
If Not .Value Like "[A-Z]#########" Then MsgBox "身份證輸入錯誤!!": Exit Sub
T = InStr("ABCDEFGHJKLMNPQRSTUVXYWZIO", Left(.Value, 1)) + 9 & Mid(.Value, 2, 8)
For i = 1 To 10
S = S + Mid(T, i, 1) * Left(11 - i, 1)
Next i
T = Right(10 - Right(S, 1), 1)
If T <> Mid(.Value, 10, 1) Then MsgBox "身份證字號錯誤！檢查碼：" & T
End With
如果另外要在加入
[B5]及
[B51] ~[P51]15個身份證檢查
VBA要如何加入呢??? |
|
發表於 2017-2-27 15:44
| 