帖子: 242
主題: 41
精華: 0
積分: 315
點名: 53
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-12-20

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 儲存格內自動轉換大寫英文...
望請各位高手解惑

樓主熱帖

Baracuda

中學生 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可以達成。

TOP

Baracuda

中學生 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

TOP

ikboy

中學生 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)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-20

5^#

發表於 2020-6-4 12:59 | 只看該作者

以前問過一模一樣的需求, 只是身份證號換成車號,
又要問一次, 這又怎麼學得到東西呢???

TOP

cypd

中學生 Rank: 2

帖子: 242
主題: 41
精華: 0
積分: 315
點名: 53
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-12-20

6^#

發表於 2020-6-4 15:39 | 只看該作者

感謝先進的指導

TOP

cypd

中學生 Rank: 2

帖子: 242
主題: 41
精華: 0
積分: 315
點名: 53
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-12-20

7^#

發表於 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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-20

8^#

發表於 2020-6-9 11:10 | 只看該作者

本帖最後由准提部林於 2020-6-9 11:11 編輯

回復 7# cypd

以下藍色字都要copy到

Dim CK%

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xR As Range
With Target
   If .Columns.Count > 1 Or .Column <> 5 Then Exit Sub
   If CK > 0 Then Exit Sub
   On Error GoTo 999
   CK = 1
   For Each xR In .Cells
      If xR.Row < 3 Or xR.Value = "" Then GoTo 101
      xR.Value = UCase(xR.Value)
101: Next
End With
999: CK = 0
End Sub

TOP

cypd

中學生 Rank: 2

帖子: 242
主題: 41
精華: 0
積分: 315
點名: 53
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-12-20

9^#

發表於 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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-20

10^#

發表於 2020-6-9 15:47 | 只看該作者

回復 9# cypd

不是一言兩語可說清,
先逐行去理解吧!
若連.row, .value, .column, .columns都不懂, 解釋了也沒用~~

試著將每行了解一下, 並做註解

CK 用來替代 Application.EnableEvents
避免"反覆觸動", 造成當機~~

ON ERROR GOTO 999
若程式執行錯誤中斷, 會直接去執行 999:CK=0
否則下次就不能產生CHANGE事件~~

TOP