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

[發問] 用VBA讓固定欄位小寫自動轉大寫程式失效的原因?

kim595

中學生 Rank: 2

帖子: 36
主題: 16
精華: 0
積分: 134
點名: 0
作業系統: Xp
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-1-7
最後登錄: 2019-1-6

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-3-17 11:46 | 顯示全部帖子

[發問] 用VBA讓固定欄位小寫自動轉大寫程式失效的原因?

使用前輩提供的語句:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [$E$12:$E$65536]) Is Nothing Then Exit Sub 'e欄小寫轉大寫
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub

============

此工作表無任何儲存格合併
E 欄會陸續增加新欄位

不知道為什麼程式不起作用了
煩請各位前輩多提點,感恩,多謝 :)