Excel VBAの範囲はVLOOKUP #VALUEエラー

Question

このコードは、 'dataWeaponField'名前付き範囲の文字列値ではなく、セルA8またはA17（アクティブなトグルに応じて）に#VALUEエラーをスローします。このExcel式（たとえば）セルA17正しく動作：= VLOOKUP（B17、dataWeaponField、2、FALSE）。私はVBAでこの式を単純に複製しようとしています。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 
    If Target.Column = 1 And Target.Row = 7 Then 'CLICK TO SWAP WEAPONS 
     If Range("A8").Interior.ColorIndex = 6 Then 'Primary Weapon 
      Range("A8:C15").Interior.ColorIndex = 12 'Primary Weapon 
      Range("A17:C24").Interior.ColorIndex = 6 'Secondary Weapon 
      Range("A8").Value = "" 'Primary Weapon 
      Range("A17").Value = Application.VLookup(Range("B17"), ThisWorkbook.Names("dataWeaponField"), 2, False) 
     Else 
      Range("A8:C15").Interior.ColorIndex = 6 'Primary Weapon 
      Range("A17:C24").Interior.ColorIndex = 12 'Secondary Weapon 
      Range("A8").Value = Application.VLookup(Range("B8"), ThisWorkbook.Names("dataWeaponField"), 2, False) 
      Range("A17").Value = "" 'Secondary Weapon 
     End If 
     Range("A6").Select 'Cell above CLICK TO SWAP WEAPONS 
    End If 
End Sub 

Answer 1

Rangeの代わりにNameオブジェクトを渡すためです。また、

Range("A17").Value = [VLOOKUP(B17, dataWeaponField, 2, FALSE)] 

選択したセルをクリックするとSelectionChangeがトリガされませんので、あなたがコントロールまたはハイパーリンクを使用することができますし、Worksheet.FollowHyperlink Event

：

Range("A17").Formula = "=VLOOKUP(B17, dataWeaponField, 2, FALSE)" 

またはEvaluateそれを：あなたは、式を設定することができます

Answer 2

ThisWorkbook.Names("dataWeaponField")は、Rangeオブジェクトではなく、Nameオブジェクトです。 VLookupは後者を想定しているため、この式を単にApplication.Range("dataWeaponField")に置き換えることができます。

コードがワークシートコードモジュールにあり、名前付き範囲が別のワークシートに属しているため、アプリケーションオブジェクトがグローバルスコープからフェッチできるようにするために接頭辞が必要です。

また、Application.Evaluate(yourWorkingFormula)を使用して、そのままExcelで動作する数式全体を評価することもできます。