如何实现输入编码即引用另一工作簿同编码下记录？

作者：绿色风分类：时间：2022-08-17 浏览：86

楼主
wjc2090742

Q：如何实现输入编码即引用另一工作簿同编码下记录？如下2图，上图为产品录入表，下图为产品汇编表，但是下图中，编码下均有多个空单元格，要实现，上图中A列输入编码，即将下图表中，该编码起包括下面的空单元格直到下个编码期间的内容全部引用过来，如何实现？

A：

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
Dim i&, str$, ar, arr()
Workbooks.Open ThisWorkbook.Path & "\产品结构汇编.xls"
With Workbooks("产品结构汇编.xls").Worksheets("组合件")
arr() = .[a4].Resize(.Cells(.Rows.Count, 2).End(3).Row - 3, 7).Value
End With
Workbooks("产品结构汇编.xls").Close False
For i = 2 To UBound(arr, 1)
If arr(i, 1) = "" Then arr(i, 1) = arr(i - 1, 1)
Next
str = Cells(Cells(Rows.Count, 1).End(3).Row, 1).Text
ReDim ar(1 To 5, 1 To 1)
For i = 2 To UBound(arr, 1)
If InStr(str, arr(i, 1)) > 0 Then
m = m + 1
ReDim Preserve ar(1 To 5, 1 To m)
For j = 1 To 5
ar(j, m) = arr(i, j + 1)
Next
End If
Next
Application.EnableEvents = False
Cells(Cells(Rows.Count, 1).End(3).Row, 2).Resize(UBound(ar, 2), 5) = Application.Transpose(ar)
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

101224-产品结构整个区域信息的引入.rar

2楼
海洋之星

小胖全才,VBA也这么厉害

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表