返回列表 上一主題 發帖

[發問] 身分證代碼

[發問] 身分證代碼

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

=UPPER(A1)

TOP

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

TOP

回復 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
複製代碼
圖片 1.JPG
2016-1-4 09:42
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

本帖最後由 cypd 於 2016-1-4 14:37 編輯

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

TOP

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

10501.rar (9.77 KB)

TOP

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

TOP

回復 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
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP


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

TOP

身分證檢核

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

TOP

        靜思自在 : 難行能行,難捨能捨,難為能為,才能昇華自我的人格。
返回列表 上一主題