|
3学分
求助:材料明细单数据取到财务出、入库单。首先在入库单的“材料名称”是由明细的数据取过来的下拉菜单。我想实现下拉菜单选择那个存货名称,则此行的数据就跟着明细行对应名称的数据一并取到出入库单中。
- Option Explicit
- Sub copy_in()
- Dim arr
- Dim arr1(1 To 1000, 1 To 4)
- Dim x, k, i As Integer
- x = Sheet1.Range("a6").End(xlDown).Row
- arr = Sheet1.Range("A6:s" & x)
- k = 0
- For i = 1 To UBound(arr)
- If arr(i, 2) = Sheet2.Range("B8") Then
- k = k + 1
- arr1(k, 1) = arr(i, 3)
- arr1(k, 2) = arr(i, 4)
- arr1(k, 3) = arr(i, 9)
- arr1(k, 4) = arr(i, 6)
- End If
- Next
- With Sheet2
- If k > 1 Then
- .Rows("9:" & 9 + k - 1).Insert
- .Range("B8:i" & 8 + k).FillDown
- End If
- .Range("C8").Resize(k, 4).Value = arr1
- End With
- End Sub
复制代码
|
|