入力セルのアドレスは、テーブル名を取得

Question

私はいくつかのExcelのVBAコードを探しています私はセルのアドレスを入力すると、そのセルが離れているテーブルの名前を与えるだろうし、テーブルの名前を格納変数。私はまた、 "GetCellsTable"と呼ばれる変数にセルアドレスを格納したいと思います。

私はこれをやりなおすことができますか？

例：

Dim StoreTableName as String? 
Dim GetCellsTable as ? 
StoreTableName = Range(GetCellsTable).ListObject.Name 

Answer 1

MyVariable = SomeCell.ListObject.Name 

編集：

あなたは、テーブル名を取得するために変数にセルアドレス（セル「A3」と言う）を格納し、それを使用したい場合：

Dim GetCellsTable As String 
GetCellsTable = "A3" 
MyTableName = Range(GetCellsTable).ListObject.Name 

それとも、あなたが変数に範囲オブジェクトとしてセル自体を保存したい場合：

Dim GetCellsTable as Range 
Set GetCellsTable = Range("A3") 
MyTableName = GetCellsTable.ListObject.Name