コードが個別に表のセルを塗りつぶすのではなく、列全体を塗りつぶす

Question

リストボックスからデータを取り出し、テーブルの特定のセルに配置するボタンがあります。私の問題は今、特定のセルの代わりにセルが入っている列全体を塗りつぶすセルに値を挿入するときです。ここで

は、ボタンのコードです：

Private Sub cbSubmit_Click() 

Dim i As Long 
Dim v As Variant 
Dim vTable() As Variant 

Set inventoryTable = cSheet.ListObjects("inventory_table") 
    colItemID = inventoryTable.ListColumns("Item #").Index 
    colSpecs = inventoryTable.ListColumns("Specs").Index 

    v = inventoryTable.DataBodyRange.Rows 
    ReDim vTable(1 To UBound(v, 1), 1 To 4) 
    For i = 0 To lbItemList.ListCount - 1 

     vTable(i + 1, 1) = "=DATA!" & lbItemList.List(i, 2) 

     If specLink = "" Then 
      Exit For 
     Else 

      vTable(i + 1, 4) = lbItemList.List(i, 1) 

     End If 
    inventoryTable.DataBodyRange(i + 1, colItemID).Value = vTable(i + 1, 1) 
    inventoryTable.DataBodyRange(i + 1, colSpecs).Value = vTable(i + 1, 4) 
    Next 

Unload Me 
End Sub 

これは私がボタンを実行した後に、それがどのように見えるかです。

Item＃の最初のセルとその同じ行のSpecsのセルだけを入力します。次に、各セルの行を下に移動し、次の項目を入力します。代わりに、各アイテムは古いアイテムの上に塗りつぶされます。

Answer 1

あなたがAutoCorrect.AutoFillFormulasInLists propertyの有効にする必要があり、その後の構造化テーブルに（ListObject object別名）を、個々の細胞を標的としている場合。

Application.AutoCorrect.AutoFillFormulasInLists = False 

これはまた、TAltキー + F、で達成することができ、P、Altキー + その後、あなたはタブを入力し、のチェックを外したようオートフォーマットに行きます計算された列を作成するテーブル内の数式を入力します。

オプションで、このアプリケーション全体のオプションを使用できるようにするには、サブプロシージャの最後に再度オンにします。

Application.AutoCorrect.AutoFillFormulasInLists = True