VBA和Excel-从数组()添加到选择单元格
首先,我想提前感谢你的回答 我有一个包含行号的“end”数组VBA和Excel-从数组()添加到选择单元格,excel,vba,production,Excel,Vba,Production,首先,我想提前感谢你的回答 我有一个包含行号的“end”数组 If OptionButton1 = True Then Dim arraydodrukowania() As String ReDim arraydodrukowania(1 To o, 1 To 2) For j = LBound(array1) To UBound(array1) If array1(j, 9) = 1 And array1(j, 8) = ComboBox2.Value T
If OptionButton1 = True Then
Dim arraydodrukowania() As String
ReDim arraydodrukowania(1 To o, 1 To 2)
For j = LBound(array1) To UBound(array1)
If array1(j, 9) = 1 And array1(j, 8) = ComboBox2.Value Then
arraydodrukowania(j, 1) = array1(j, 9)
arraydodrukowania(j, 2) = array1(j, 2)
Else
End If
我要做的是选择由数组值定义的所有行
我知道选择方法应该避免,但在这种情况下不能忽略
因此,换句话说,我需要一个代码,它将在数组中循环,并将数组中的值定义的行no添加到选择中。
结果将是(例如)选择第2、5、1456、2354行
这里的问题是需要选择的行数不同
所以
j=LBound(array1)到UBound(array1)的
阵列1(j,1)。
下一个j
有什么想法吗 你想对所选行做什么?@BigBen,这是一个更大宏的一部分,让我们假设你有一个生产计划,其中你的某些单元格代表一个产品。当您选择这些单元格并运行它时,您会将指向与该单元格关联的生产图形的链接发送到打印机。您要选择多少单元格?您选择的是整行还是某一列中的单元格,例如A2、A5、A1456和A2354?@BigBen,它将基于条件,但一般来说,我不必选择所有行,只选择由数组中的行与特定列号相交定义的单元格。@BigBen。嗯,所以基本上我需要定义一个范围,将所有地址添加到该范围,然后选择这个范围。我会试试的,谢谢。
For j = LBound(array1) To UBound(array1)
array1(j,1).<ADD TO SELECTION>
next j