excel vba 名前付きセルが存在しないとき

締切済

質問者：kusisters
質問日時：2013/02/10 14:00
回答数：5件

あるワークシートのセルに、"_1", "_2","_3","_10"のように名前をつけています。
"_8"が見つからなかったら、ループで番号を上げていき、"_10"にたどりつくようにしたいんですが、"_8"というセルが見つからなかった時の判定方法がわかりません。

On error ではない処理を使いたいのですが、

If Range("_8") = Empty Then

では実行時エラー1004 "アプリケーション定義またはオブジェクト定義のエラーです"

と出ます。

Rangeオブジェクトがemptyになるわけではないんでしょうか？
よい方法があれば、教えてください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

最新から表示
回答順に表示

No.5

回答者： WindFaller
回答日時：2013/02/11 00:48

こんにちは。

>Rangeオブジェクトがemptyになるわけではないんでしょうか？

Range のEmpty というのは、何も入っていない、Variant型の空の意味で、Value値では、""(長さ0の文字列）と同等です。そのコードは、存在しないものを探しているのですから、エラーそのものになります。

しかし、ある程度熟練したVBAプログラマーは、名前定義を使いません。それは、VBAでは見失うことがあるのです。見失ってしまうと、VBAでは、取り出せなくなるからです。理由ははっきりしませんが、バグの一種があります。

以下は、あまり実用的ではない内容ですが、レベルとしては、VBAの学習をひと通り終わったレベルです。

'//
Sub Test1()
Dim i As Long
Dim cnt As Long
Dim dum As Variant　'ダミー
cnt = 10　'探す最後の名前
For i = 1 To cnt
　　 On Error Resume Next
　　 dum = ActiveWorkbook.Names("_" & i)
　　 If dum = Empty Then MsgBox "Missing Name '_" & i & " '"
　　 dum = Empty
Next i
End Sub