身分證代碼 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 身分證代碼

返回列表下一主題上一主題發帖

[發問] 身分證代碼

中學生 Rank: 2

帖子: 246
主題: 42
精華: 0
積分: 320
點名: 22
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2025-10-20

6^# 跳轉到 »

發表於 2016-1-4 15:19 | 只看該作者

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

10501.rar (9.77 KB)

中學生 Rank: 2

帖子: 246
主題: 42
精華: 0
積分: 320
點名: 22
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2025-10-20

5^#

發表於 2016-1-4 14:35 | 只看該作者

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

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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2016-1-4 09:44 | 只看該作者

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

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

複製代碼

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

　暱稱: Ted

中學生 Rank: 2

帖子: 70
主題: 12
精華: 0
積分: 163
點名: 0
作業系統: windows
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 基隆市
註冊時間: 2010-5-3
最後登錄: 2024-6-7

3^#

發表於 2016-1-4 01:03 | 只看該作者

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

　暱稱: Ted

中學生 Rank: 2

帖子: 70
主題: 12
精華: 0
積分: 163
點名: 0
作業系統: windows
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 基隆市
註冊時間: 2010-5-3
最後登錄: 2024-6-7

2^#

發表於 2016-1-4 00:49 | 只看該作者

=UPPER(A1)

靜思自在 : 要用心，不要操心、煩心。

返回列表下一主題上一主題