返回列表 上一主題 發帖

[發問] 關於判斷儲存格的值

feecshyrnd

帖子
28 
主題
13 
精華
0 
積分
78 
點名
0  
作業系統
windows xp 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2013-12-4 
最後登錄
2023-3-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-8-1 10:27 | 只看該作者

[發問] 關於判斷儲存格的值

請問各位達人,小弟如果要判斷 某個範圍裡的值不等於空白
例如 A1:A4 無論其中哪個有值,只要顯示一次訊息就好
用FOR NEXT 的話如果4格都有值就會顯示4次,能只要顯示一次訊息就好嗎
sub dd()
Dim xR As Range
For Each xR In [a1:a4]
   If xR <> "" Then
     MsgBox "有值"
     End If
Next
End Sub
收藏 分享

feecshyrnd

帖子
28 
主題
13 
精華
0 
積分
78 
點名
0  
作業系統
windows xp 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2013-12-4 
最後登錄
2023-3-29 
3#
發表於 2016-8-2 17:47 | 只看該作者
准提大感謝了  解決了小弟的問題

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 2016-8-1 11:33 | 只看該作者
For Each xR In [a1:a4]
　　If xR <> "" Then
　　　MsgBox "有值"
　　　Exit For
　　End If
Next


可簡略：
For Each xR In [a1:a4]
　　If xR <> "" Then MsgBox "有值":Exit For
Next

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題