Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/27.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
VBA和Excel-从数组()添加到选择单元格_Excel_Vba_Production - Fatal编程技术网

VBA和Excel-从数组()添加到选择单元格

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

首先,我想提前感谢你的回答

我有一个包含行号的“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 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