Board logo

標題: [發問] 請教此程序如何修改?? [打印本頁]
作者: t8899    時間: 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    時間: 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
作者: t8899    時間: 2014-10-31 09:35

Set aa = Range(tou, ).Find(What:="", LookIn:=xlFormulas, SearchOrder:=xlByColumns) '所在位置到B222 ...
luhpro 發表於 2014-10-30 22:04

謝謝指導



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