abc-8888 自動轉化 ABC-888... - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » abc-8888 自動轉化 ABC-888...

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

[發問] abc-8888 自動轉化 ABC-888...

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

4^# 跳轉到 »

發表於 2020-6-4 11:55 | 只看該作者

詳看附件:

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect([E3:E1002], Target) Is Nothing Then Exit Sub
Application.EnableEvents = 0
Target.Value = UCase(Target.Value)
Application.EnableEvents = 1
End Sub

複製代碼

zz.zip (13.34 KB)

中學生 Rank: 2

帖子: 132
主題: 25
精華: 0
積分: 199
點名: 0
作業系統: window XP
軟體版本: Excel 2010
閱讀權限: 20
性別: 男
來自: 台灣新竹
註冊時間: 2010-6-1
最後登錄: 2022-7-14

2013蛇年全勤獎章論壇榮譽勳章論壇贊助勳章

3^#

發表於 2020-6-4 09:37 | 只看該作者

如果要完全自動。
參考你另一帖
身分證代碼
http://forum.twbts.com/thread-16089-1-1.html

中學生 Rank: 2

帖子: 132
主題: 25
精華: 0
積分: 199
點名: 0
作業系統: window XP
軟體版本: Excel 2010
閱讀權限: 20
性別: 男
來自: 台灣新竹
註冊時間: 2010-6-1
最後登錄: 2022-7-14

2013蛇年全勤獎章論壇榮譽勳章論壇贊助勳章

2^#

發表於 2020-6-4 09:34 | 只看該作者

用公式 UPPER可以達成。

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。

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