[發問] 身分證代碼

cypd

若在A1儲存格輸入  a123456789
有無方法或公式?
將A1儲存格內容自動轉換成   A123456789(要在同一儲存格)
請各位先進高手解惑
感恩  ^^

sujane0701

=UPPER(A1)

sujane0701

抱歉,沒注意到要在同一儲存格~

ML089

回復 1# cypd
同一格要改變無法用公式，需要用VBA
按 ALT-F11，將VBA放入

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Intersect([A:A], Target) Is Nothing Then Exit Sub
   
3.     Application.EnableEvents = False
   
4.     Target = UCase(Target)
   
5.     Application.EnableEvents = True
   
6. End Sub

複製代碼

下載 (45.21 KB)

2016-1-4 09:42

cypd

回復 4# ML089
感恩版主ML089解惑
若是儲存格位置不固定
其公式程式碼是否要做修改?
感恩您!!^^

cypd

回復 5# cypd
附上範例
若是 H5、H6儲存格要轉換...
其程式碼該如何...
感恩版主ML089能再度解惑

rouber590324

dear  sir
  If Intersect([H5:H6], Target)    [H5:H6] 依需求變更即可

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect([H5:H6], Target) Is Nothing Then Exit Sub

    Application.EnableEvents = False

    Target = UCase(Target)

    Application.EnableEvents = True

End Sub

ML089

回復 5# cypd

7樓已經說明

下列這行是控制要處理位置，[A:A] 表示A欄要處理
    If Intersect([A:A], Target) Is Nothing Then Exit Sub

若是 H5:H6要處理，修改如下
   If Intersect([H5:H6], Target) Is Nothing Then Exit Sub

cypd

水啦!!
太感謝二位先進的指導
疑惑點已獲得解決
感恩  ^^

cypd

若是要在H5之儲存格輸入...a123456789
試問
能在同一格儲存格自動轉換成...A123456789，並能同時檢核該 A123456789驗證是否正確!
請問該VB程式碼該如何建立(重點是小寫字母轉換成大寫...並一併驗證該身分證號碼輸入是否正確)
感恩各位先進能指導  ^^