joblyc017 wrote:
可能我的回覆方式造...(恕刪)
先說我不是樓主，我只是個好奇的中年大叔。
這個公式似乎只驗證輸入字元有沒有符合要求，但是對於身份證字號的正確好像沒辦法判定，剛剛我把字號最後一碼數字故意打錯也是true的。
個人積分：1904分
文章編號：66891163
個人積分：208分
文章編號：66891307
個人積分：3021分
文章編號：66892907
個人積分：168分
文章編號：66904467
個人積分：168分
文章編號：66904513
個人積分：168分
文章編號：66904890
個人積分：3021分
文章編號：66911413
black79815 wrote:
我是要【限制】該欄位只能輸入大寫英文+數字一共10位...(恕刪)
black79815 wrote:
不管是16行程式碼還是1.6行....(恕刪)
不好意思，我能力不足，1.6行的程式碼我寫不出來，如果不考慮檢查碼、格式是否正確
把四樓的寫法改成VBA，最短我只能寫到3行，另外4行是無聊上色用的
'無檢查碼核對功能、無格式檢查功能，只檢查1大寫英文+9個數字
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing And Range("A1") <> "" Then
If Asc(Target) >= 65 And Asc(Target) <= 90 And IsNumeric(Right(Target, 9)) And Len(Target) = 10 Then
Target.Interior.Pattern = xlNone
Else
Target.Interior.Color = 255: Target = ""
End If
End If
End Sub
個人積分：5898分
文章編號：66915997
個人積分：168分
文章編號：66919069
