怎样用VBA编程，文件可以提取到源文件中的数据

daniel323323

附件的两个文件，1. “database“ 中是所有产品的信息和检验参数，包括物料的信息，描述，功能参数和长度参数
2. “检验报告”是QC的标准模板，记录的是每笔检验的真实数据
目前需要在“检验报告” 中实现一个功能，即QC录入料号后，“检验报告”中黄色的单元格会自动显示出 此物料在 “database”中的信息 。
用excel 函数可以实现这个功能，
但请教各位大神，用VBA如何实现此功能

wodewan

附件供参考。。。。

daniel323323

wodewan 发表于 2020-1-12 18:26
附件供参考。。。。

感谢。看到您发的表格了。只有表头的数据可以关联。功能和尺寸的数据没有关联

wodewan

daniel323323 发表于 2020-1-12 20:03
感谢。看到您发的表格了。只有表头的数据可以关联。功能和尺寸的数据没有关联

晕了，忘清空数据了。。。。。更新下

bobofun

wodewan 发表于 2020-1-12 20:34
晕了，忘清空数据了。。。。。更新下

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lot_Num, i%
If Target.Address = [c5].Address Then
    Lot_Num = [c5].Value
    Range("d11,d12,d13,c4:d4,f4:g4,e30:i30,e31:i31").ClearContents
    For i = 19 To 25
      Range("D" & i).ClearContents
    Next
    If Dic.exists(Lot_Num) Then
        [c4] = Dic(Lot_Num)(2): [f4] = Dic(Lot_Num)(1)
        [e30] = Dic(Lot_Num)(14): [e31] = Dic(Lot_Num)(15)
        [d11] = Dic(Lot_Num)(4): [d12] = Dic(Lot_Num)(5): [d13] = Dic(Lot_Num)(6)
        For i = 19 To 25
            Range("D" & i) = Dic(Lot_Num)(i - 12)
        Next
    End If
End If
End Sub

亲可以，说明一下各代码意思吗？？

我正在找 同一工作蒲中，有一张信息汇总表，如何在不同表中根据汇总表中某栏的条件 自动提取到不同表某区域下。

bobofun

我正在找 同一工作蒲中，有一张信息汇总表，如何在不同表中根据汇总表中某栏的条件 自动提取到不同表某区域下。

wodewan

bobofun 发表于 2020-1-12 22:25
我正在找 同一工作蒲中，有一张信息汇总表，如何在不同表中根据汇总表中某栏的条件 自动提取到不同表某区域 ...

你这个需求，论坛里大把得代码，有字典得，有数组得，有SQL的，你可以找找看。上面那个代码其实就是用了个工作表的change事件，每次你输入时就触发那个程序，先将原先的数据清空，然后再从字典中读取对应的数据写到单元格中。当然字典的数据是在你打开文档的时候就装载进来的，所有在thisworkbook的open事件里其实还有一段代码。

daniel323323

wodewan 发表于 2020-1-12 20:34
晕了，忘清空数据了。。。。。更新下

果然大咖！！！ 多谢。
如果我想更复杂一点，做一个控件，控件会提示输入 料号/数量/日期三个表头信息后，会自动生成一个检验报告。这样可以用VBA实现吗？

wodewan

daniel323323 发表于 2020-1-13 23:12
果然大咖！！！ 多谢。
如果我想更复杂一点，做一个控件，控件会提示输入 料号/数量/日期三个表头信息后 ...

可以，就是个体力活，做了个简单的窗体，粗糙了点，每次按模板生成一个新的工作簿，没考虑什么细节，你参考参考吧。