将下拉列表参数应用于行数组

Question

我已经创建了一个下拉列表与2列的数据-名称和DOB。我有一个VBA代码在适当的下拉显示在列1的选择数据，但单元格显示从列2的日期。这很好。然而，我需要的VBA代码适用于多行。当我插入新行时，我希望能够将新行添加到代码中，并使下拉列表参数应用。

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
selectedNa = Target.Value
*  ** If Target.Row = 7 Then***
selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("listrates1"), 2, False)
If Not IsError(selectedNum) Then
Target.Value = selectedNum
End If
End If
End Sub

这是我的代码....* *如果目标。row = 7然后**—如果我选择第7行，这将非常有效，但是我需要代码为第7、10、13、16行工作，等等......

Answer 1

您可以使用Mod函数来测试每第三行…

If Target.Row >= 7 Then
If Target.Row Mod 3 = 1 Then
'etc
'
'
End If
End If