コードでコンボボックスを挿入する

Question

ユーザーが入力するセルの右側に「合格/不合格」基準を持つドロップダウンリストを挿入しようとしています。細胞は、上から下に順番に配置されます。私がこれまで持っていたものは次の通りです：

Sub ComboBoxPassFail()  
    Dim i As Integer 
    Dim rng As Range 

    i = 4 

    For Each c In Worksheets("Inspection Report").Range("A4", Range("A4").End(xlDown)).Cells 
     If c.Value <> "" Then 

     Set rng = c.Offset(0, 14) 

     Top = rng.Top 
     Left = rng.Left 

     ActiveSheet.OLEObjects.Add(classtype:="forms.combobox.1", Left:=Left, Top:=Top, Width:=8, Height:=15).Insert 

     i = i + 1 

     End If 
    Next c 

    i = 4 

End Sub 

私の主な問題はコンボボックスを扱うことに由来します。

Answer 1

物事のカップル

1. topとleft VBAでの予約語です。変数として使用することはできません
2. Excelの行を使用しているため、行はで、Integerではないと宣言しています。私はiコードの使用が表示されません。
3. .Insertは有効な文ではありません。

これはあなたの試みですか？

Sub ComboBoxPassFail() 
    Dim rng As Range, c As Range 
    Dim rngTop As Double, rngLeft As Double 

    For Each c In Worksheets("Inspection Report").Range("A4", Range("A4").End(xlDown)).Cells 
     If c.Value <> "" Then 
      Set rng = c.Offset(0, 14) 
      rngTop = rng.Top 
      rngLeft = rng.Left 

      '~~> You may want to decide on a more appropriate width value? :) 
      ActiveSheet.OLEObjects.Add classtype:="forms.combobox.1", _ 
             Left:=rngLeft, Top:=rngTop, _ 
             Width:=8, Height:=15 
     End If 
    Next c 
End Sub