- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 16
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2024-3-28
|
詳看附件:- 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)
|
發表於 2020-6-4 11:55
| 