麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 請問如何讓判斷儲存格,可判斷多格條件? [打印本頁]

作者: starry1314 時間: 2015-6-11 13:48 標題: 請問如何讓判斷儲存格,可判斷多格條件?

區域e3
姓名f3
編號h3
以下代碼可判斷E3有資料才執行程式,但如何作可讓以上三個欄位都有資料才執行呢?
Private Sub 判斷_Click()
If Range("E3").Value <> "" Then
   自動輸入資料
   Unload Me '關閉表單

Else
      MsgBox "未選擇區域代號;姓名;編號"
End If
End Sub

作者: no3-taco 時間: 2015-6-11 13:59

給你最簡單的辦法

If Range("E3").Value <> "" Then
'改成
If Range("e1").Value <> "" And Range("e2").Value <> "" And Range("e3").Value <> "" Then

作者: GBKEE 時間: 2015-6-11 14:53

回復 2# no3-taco

If Range("e1").Value <> "" And Range("e2").Value <> "" And Range("e3").Value <> ""

複製代碼

如果有更多個儲存格,會寫到眼花了.

Option Explicit
Sub Ex()
Dim Rng As Range
Set Rng = Range("E3, F3, H3")
'Set Rng = Range("E3, F3, H3,J3,K3,M3") '更多的儲存格"
If Application.CountA(Rng) = Rng.Cells.Count Then
MsgBox Rng.Address(0, 0) & " 都有資料"
End If
End Sub

複製代碼

作者: no3-taco 時間: 2015-6-11 15:30

不錯喔，版主的回答總是比較嚴謹，趕快偷學起來

作者: starry1314 時間: 2015-6-12 08:40

回復 3# GBKEE

感謝幫忙 :victory:

作者: starry1314 時間: 2015-6-12 08:41

回復 2# no3-taco

謝囉~原來只要再加AND

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)