VBAを使用してExcelの特定のセル（列）に動的にリストを追加する

Question

ExcelのL列に値を設定するドロップダウンリストをExcelで作成しようとしています。 。私はいくつかのダミー値を持つTable1というテーブルを手動で作成しました。私はテーブル内の値をハードコードすることができますので、それは問題ではありません。私はいくつかの条件を実行する必要があり、いくつかの特定の行については、ExcelのL列にドロップダウンを追加する必要があります。どんな助けもありがとう。また、Excelで特定の行を色付けする簡単な方法はありますか？

Sub button_click() 
Set i = Sheets("Sheet1") 
Set e = Sheets("Sheet2") 
arrColumnNames = i.ListObjects("Table1") 

Dim d 
Dim j 
d = 1 
j = 13 

Do Until IsEmpty(i.Range("K" & j)) 

If i.Range("K" & j) = "Y" Then 
d = d + 1 
e.Rows(d).Columns("A:E").Value = i.Rows(j).Columns("A:E").Value 
i.Rows(j).Columns("L") = arrColumnNames 
End If 
j = j + 1 
Loop 
End Sub 

Answer 1

私はあなたが何をしているかを見ていると思います。これにより、検証リストが作成され、選択した値でリストが作成されます。

Dim myRng As String 

myRngr = Range("A1:A10").Address 

With Range("B2").Validation 
    .Delete 
    .Add Type:=xlValidateList, _ 
     AlertStyle:=xlValidAlertStop, _ 
     Operator:=xlBetween, Formula1:="=" & myRngr & "" 
End With 

は

myRngr = Range("A1:A10").Address 

が次にあなたが L columnを介して実行するループを使用することができ、何が必要ソースデータ、あなただけのこの行を変更する必要があるためにどのような範囲改正するとの基準が満たされた場合検証リストを追加します。

希望に役立ちます。