- 帖子
- 560
- 主題
- 159
- 精華
- 0
- 積分
- 723
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2023-10-31
  
|
dear sir
If Intersect([H5:H6], Target) [H5:H6] 依需求變更即可
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([H5:H6], Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub |
|
發表於 2016-1-4 16:17
| 