チェック値

Question

If UserForm1.ComboBox1.Value = "One" Then 

    If UserForm1.ComboBox2.Value = "Attentive" Then 

    For Each listItem In ws.Range("D1:D56").SpecialCells(xlConstants) 

    With Me.ListBox1 
    If listItem = "Y" Then .AddItem Sheets("Sheet2").Range("A" & listItem.Row).Value 
    End With 

    Next listItem 

End If 

範囲Aの名前は "1"、 "2"、 "3"のいずれかの値です。範囲Dは "Y"と "N" "

範囲を確認するD1：範囲Cに「1」の値を持ち、リストボックスに「Y」が入っている列Aの名前を印刷します。

もう一つの項目を追加したいのですが、その範囲を "D57"に変更する必要があります。これを繰り返す必要はなく、手動でコードを変更するのではなく、それ自体を考慮する必要があります。

どうすればいいですか？

Answer 1

私は値を確認している範囲をの動的にしたいと思っています。

使用できる

For Each listItem In ws.Columns(4).SpecialCells(xlConstants) 

または：：特殊な細胞はあなただけ使用することができますusedrangeを使用しているので、ここであなたのコメントに基づいて

For Each listItem In ws.Range("D1", ws.cells(rows.count,"D").end(xlup)).SpecialCells(xlConstants) 

が更新答えです：

Dim rCell As Range 
Dim sValue As String '// Represents your One, Two, Three values 
Dim sAttentive As String '// Represents your attentive value 

sValue = UserForm1.ComboBox1.Value 

If UserForm1.ComboBox2.Value = "Attentive" Then 
    sAttentive = "Y" 
Else 
    sAttentive = "N" 
End If 

For Each rCell In ws.Columns(4).SpecialCells(xlConstants) 
    If rCell.Value = sAttentive And rCell.Offset(, -1) = sValue Then 
     Me.ListBox1.AddItem Sheets("Sheet2").Range("A" & listItem.Row).Value 
    End If 
Next rCell