Excel VBA 問題

2007-08-24 1:18 am

請問我想用 marco 寫以下程式 :

_______A________B
1____1234
2____1560

如果 A2 大於1540 及小於1550 就看B1是否空白, 如果B1是空白就彈出MgsBox "要求輸入XXX", 否則到 B2

請指教應如何寫?

回答 (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

👍 0 👎 0

Liang

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

參考: 個人經驗

👍 0 👎 0

收錄日期: 2021-04-13 13:05:26
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20070823000051KK03995

檢視 Wayback Machine 備份