返回列表 上一主題 發帖

[發問] 請教此程序如何修改??

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-10-30 18:42 | 只看該作者

[發問] 請教此程序如何修改??

本帖最後由 t8899 於 2014-10-30 18:43 編輯

Sub MA3333()
Dim tou, aa
SET TOU = Range("A300").End(xlUp).Offset(0, 1) '所在位置
Set aa = Range(tou&":B222").Find(What:="", LookIn:=xlFormulas, SearchOrder:=xlByColumns) '所在位置到B222 找空白的儲存格
If aa Is Nothing Then
MsgBox aa.Address
End If
End Sub
收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2014-10-30 22:04 | 只看該作者
本帖最後由 luhpro 於 2014-10-30 22:14 編輯
Sub MA3333()
Dim tou, aa
SET TOU = Range("A300").End(xlUp).Offset(0, 1) '所在位置
Set aa = Range ...
t8899 發表於 2014-10-30 18:42

Set aa = Range(tou, [B222]).Find(What:="", LookIn:=xlFormulas, SearchOrder:=xlByColumns) '所在位置到B222 找空白的儲存格

另 :
If aa Is Nothing Then
MsgBox aa.Address
End If
永遠不會正確執行.

因為當 aa Is Nothing 時, aa 為空值,
會出現 "沒有設定物件變數或 With 區域變數" 的錯誤.
應該改成 :
If Not aa Is Nothing Then

TOP

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-15 
3#
發表於 2014-10-31 09:35 | 只看該作者
Set aa = Range(tou, ).Find(What:="", LookIn:=xlFormulas, SearchOrder:=xlByColumns) '所在位置到B222 ...
luhpro 發表於 2014-10-30 22:04

謝謝指導

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題