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

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

cypd

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-6-3 23:27 | 顯示全部帖子

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

同一儲存格輸入車牌 abc-8888 希望能自動轉化 ABC-8888 之格式
例如在 E3儲存格輸入abc-8888 希望能自動轉化 ABC-8888
E4儲存格輸入2050-sa 希望能自動轉化 2050-SA
我只想在 E3:E1002 儲存格內自動轉換大寫英文...
望請各位高手解惑

樓主熱帖

cypd

中學生 Rank: 2

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

2^#

發表於 2020-6-4 15:39 | 顯示全部帖子

感謝先進的指導

TOP

cypd

中學生 Rank: 2

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

3^#

發表於 2020-6-9 00:51 | 顯示全部帖子

回復 4# ikboy
感謝先進指導
針對上述公式程式碼...
以圖為例若 E3 輸入abc-8558

依公式程式碼會進行英文小寫轉換大寫
若是想要用複製其他工作表之車牌號碼(k3:k20)
至 E3:E20 儲存格...
該程式碼無法一次自動轉換至大寫英文
需該如何重新編寫程式碼?

0609.jpg (82.05 KB)

0609.rar (9.67 KB)

TOP

cypd

中學生 Rank: 2

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

4^#

發表於 2020-6-9 13:40 | 顯示全部帖子

回復 8# 准提部林
好神奇的語法...感恩
不明白儲存格用
1.輸入的方式
及用 2.複製貼上之方式
兩者間之英文小寫轉換大寫，差異大不同?
懇問程式碼中內的數字各代表甚麼意思?
If xR.Row < 3 Or xR.Value = "" Then GoTo 101
xR.Value = UCase(xR.Value)
101: Next
End With
999: CK = 0

TOP

cypd