Excelの名前を取得したい

質問

VB初心者です。宜しく御願いします。

ExcelのシートのRange（"A11"）の名前に「AAA」と付けています。
VBから、Excelを起動して、そのExcelのシートのRange（"A11"）の名前を取得したい場合はどうすれば良いのでしょうか？
ＶＢ側でシートにそのセルにその名前が付いているかのチェックをしたいのです。

ご教授御願いします。宜しくお願い致します。

回答No.5

onlyrom · ベストアンサー

Nameプロパティを使って

　　MsgBox Range("A11").Name.Name

以上。

お礼

ありがとうございます。
単純にNameだけではダメなのですね。
使わせてもらいます。

回答No.4

okormazd

直接取れそうもない(知らない)からつぎのようにでもするか。

Sub getname()
For Each nm In ActiveWorkbook.Names
If nm.RefersTo = "=Sheet1!$A$11" Then
nmab = nm.Name
Exit For
End If
Next

MsgBox nmab

End Sub

お礼

ありがとうございます。
そういう方法もありますかー。
でもこれだとレスポンスが心配なような気がします。
もっと簡単にとる方法が知りたいですね。

回答No.3

n-jun

>セルA11の名前を知る方法が知りたいのです。
私はＶＢのバージョンが知りたいです。
ＶＢ６．０等かＶＢ．ＮＥＴ等か。。。
ExcelVBAではないですよね？

お礼

すみません。
説明不足でしたね。
VB6です。

回答No.2

hana-hana3

MsgBox Range("AAA").Address

アクティブシートにその名前が存在すれば、セルアドレスを取得できます。
無ければエラーで実行が止まります。

あとは、ヘルプの「Names コレクション オブジェクト」等を参考にしてみてください。

お礼

ありがとうございます。

そうなんです。アドレスは取れるのですけど、名前が取れないんですよね～。
どうすれば良いのでしょうか？

回答No.1

n-jun

Ｂｏｏｋ内の名前を取得して、セルＡ１１が含まれていたら当たり。
と言う事ではないかな？・・・憶測ですけど。

お礼

↓名前からセルを導き出すことはできるのですが・・・。
range("AAA").address

逆が出来ないのです。。。
セルA11の名前を知る方法が知りたいのです。