- 帖子
- 522
- 主題
- 36
- 精華
- 1
- 積分
- 603
- 點名
- 0
- 作業系統
- win xp sp3
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-12-13
- 最後登錄
- 2021-7-11
|
試試看:- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim Rng As Range, E
- '設定[A2],[A4:A5],[A7](舉例,可增減)一定要輸入值
- Set Rng = Union([A2], [A4:A5], [A7])
- '目前整張Worksheet任何地方有異動, 均會觸動本VBA.
- '如想縮小觸動範圍為[A2],[A4:A5],[A7],請將下列前面之一撇「'」去掉
- 'If Intersect(Target, Rng) Is Nothing Then Exit Sub
- If [A2] <> "" And Application.CountA(Rng) < Rng.Count Then
- For Each E In Rng
- If E = "" Then
- MsgBox E.Address & " 一定要輸入內容, 不能留下空白。"
- End If
- Next
- End If
- End Sub
|
|
發表於 2016-3-8 09:57
| 
