ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 322|回复: 8

[求助] 怎样用VBA编程,文件可以提取到源文件中的数据

[复制链接]

TA的精华主题

TA的得分主题

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

检验报告.zip

21.42 KB, 下载次数: 3

TA的精华主题

TA的得分主题

发表于 2020-1-12 18:26 | 显示全部楼层
本帖最后由 wodewan 于 2020-1-12 20:40 编辑

附件供参考。。。。

检测报告.rar

33.44 KB, 下载次数: 6

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-12 20:03 | 显示全部楼层
wodewan 发表于 2020-1-12 18:26
附件供参考。。。。

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

TA的精华主题

TA的得分主题

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

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

检测报告.rar

33.44 KB, 下载次数: 16

TA的精华主题

TA的得分主题

发表于 2020-1-12 22:24 | 显示全部楼层
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

亲可以,说明一下各代码意思吗??

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

TA的精华主题

TA的得分主题

发表于 2020-1-12 22:25 | 显示全部楼层
我正在找 同一工作蒲中,有一张信息汇总表,如何在不同表中根据汇总表中某栏的条件 自动提取到不同表某区域下。
原始考勤人员信息.PNG
A部门.PNG

TA的精华主题

TA的得分主题

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

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-13 23:12 | 显示全部楼层
wodewan 发表于 2020-1-12 20:34
晕了,忘清空数据了。。。。。更新下

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

TA的精华主题

TA的得分主题

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

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

database.rar

36.44 KB, 下载次数: 7

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-4-10 06:32 , Processed in 0.073983 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表