チョコマフィン復活希望

オブジェクトを参照するにはSetキーワードが必要

Dim xxx as Ragne

xxx = Worksheets("集計用").Range("A1:Z1000").Find("自分で獲得した報酬")

ではエラーになった。

set xxx = Worksheets...

でOK

Findメソッドは範囲内を検索して見つからなかったらNothingを返す。


If Not xxx Is Nothing Then

　　MsgBox xxx.Offset(0, 1).Value

End If

これでNothingの判定ができる。
Isキーワードでオブジェクトの比較ができます。


If xxx <> Nothing Then

　　MsgBox xxx.Offset(0, 1).Value

End If

これはNG。

あーイライラする。
こんなんでいちいち引っかかるのはごめんだぜ。
オブジェクトが何だーぁ！！！

Excel2000のVBAにて。