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

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

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

13^#

發表於 2023-5-25 01:31 | 只看該作者

回復 12# Andy2483

感謝 Andy2483 另一詳細解說
能好好研讀...^^

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

12^#

發表於 2023-5-24 11:59 | 只看該作者

回復 8# 准提部林

謝謝前輩
後學藉此帖學習到重要技巧,學習心得註解如下,請前輩再指導

Option Explicit
Dim CK%
'↑宣告變數:CK是短整數變數,放在最上端是為了讓此工作表模組都能用

Private Sub Worksheet_Change(ByVal Target As Range)
'↑當使用者或外部連結變更工作表中的儲存格時會發生此事件
Dim xR As Range
'↑宣告變數:xR是儲存格變數
With Target
'↑以下是關於觸發的程序
   If .Columns.Count > 1 Or .Column <> 5 Then Exit Sub
   '↑如果觸發欄數大於1 或觸發欄位不是第5欄!就結束程式執行
   If CK > 0 Then Exit Sub
   '↑如果CK變數大於 0!就結束程式執行
   On Error GoTo 999
   '↑如果以下程式遇到錯誤就跳到標示999位置繼續執行
   CK = 1
   '↑令CK變數是1,讓後方For Each迴圈不會在觸發
   For Each xR In .Cells
   '↑設逐項迴圈!令xR變數是觸發格低其中一格
      If xR.Row < 3 Or xR.Value = "" Then GoTo 101
      '↑如果xR變數所在的列號小於3 或其值是空的,
      '就跳到標示101位置繼續執行
      xR.Value = UCase(xR.Value)
      '↑令xR變數(儲存格)值是英文轉為大寫的新字串
101: Next
End With
999: CK = 0
'↑令CK變數歸零
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

cypd

中學生 Rank: 2

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

11^#

發表於 2020-6-9 22:20 | 只看該作者

回復 10# 准提部林
感謝版主指導...
積極進取學習中 ^^

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

10^#

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

回復 9# cypd

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

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

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

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

TOP

cypd

中學生 Rank: 2

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

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

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

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