Excel 2013のVBAの範囲名は機能しません。

Question

Excel 2013を使用しています。カウントも範囲名のリストも取得できません。 [名前マネージャ]ダイアログボックスを開くと、名前と範囲が表示されます。 VBA（Set rngTable = c.CurrentRegion.ListObjects.Add）を使用してワークブックに名前（List1、List2、およびList3）を追加しました。 "List" & intCounterを使用して、各リストに関連付けられた範囲を取得することによって、名前付き範囲を反復処理できます。しかし、私は名前の数や名前のリストを得ることができません。

Iは、Excel 2013および2007で、次のコードを試して実行namedRanges.CountへのラインにI = 1の場合を取得したときには、ゼロ（0）を返します。ブック内の名前付き範囲の数を取得し、名前付き範囲の名前を表示するにはどうすればよいですか？あなたの助けが大変ありがとう！

ます。Private Subサムシング（）

Dim namedRanges As Names 
Set namedRanges = ActiveSheet.Names 

Dim targetSheet As Worksheet 
Set targetSheet = Sheet3 
targetSheet.Cells.Clear 

Dim i As Integer 
For i = 1 To namedRanges.Count 
    targetSheet.Cells(i, 2).Value = namedRanges(i).Name 
    targetSheet.Cells(i, 3).Value = namedRanges(i).RefersToRange.Address 
Next 

End Subの

Answer 1

は、あなたの名前付き範囲は、ワークシート、またはブックへのスコープはありますか？単一のワークシートに限定されていない場合は、代わりにworkbook.Namesコレクションを参照する必要があります。

Set namedRanges = ActiveWorkbook.Names