請問我想用 marco 寫以下程式 :
_______A________B
1____1234
2____1560
如果 A2 大於1540 及小於1550 就看B1是否空白, 如果B1是空白就彈出MgsBox "要求輸入XXX", 否則 到 B2
請指教應如何寫?
Excel VBA 問題
2007-08-24 1:18 am
回答 (2)
2007-08-29 5:39 am
✔ 最佳答案
Private Sub Worksheet_Change(ByVal Target As Range)If [A2] > 1540 And [A2] < 1550 Then
If [B1] = "" Then
[B1].Select
MsgBox "要求輸入XXX"
Else
[B2].Select
End If
End If
End Sub
2007-08-24 8:53 pm
要求的程式碼片段如下：
If [A2] > 1540 And [A2] < 1550 Then
If Len(Trim([B1].Text)) = 0 Then
MsgBox "要求輸入XXX"
Else
Call [B2].Select
End
End
參考: 個人經驗
收錄日期: 2021-04-13 13:05:26
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20070823000051KK03995