关于excel是什么意思采数问题

来源：蜘蛛抓取(WebSpider) 时间：2017-08-10 00:24 标签： excel是什么意思
查看: 580|回复: 6
求高手解答，关于excel数据自动采集！万分感谢！
阅读权限10
在线时间 小时
各位前辈好，和各位相比，本人属于excel的新人，现为一家公司总监，曾在各位前辈留下的经典脚印中学习到了很多东西，自制了一套收银系统。但是，现在发现这套收银系统存在问题很多，需要各位前辈指点！鄙人的想法是这样的，在一个工作簿中设定一个特定的格式，有若干需要输入的选项。由于我是要制作一个新的收银系统，每天前台要使用该工作簿将数据输入很多次，我希望就在这一张excel表格上输入数据确认后，该输入数据会自动在另外一个工作薄中复制过去（另一个工作薄格式也是特定的，项目和第一张工作薄类似）。同时，确认后，第一张工作薄内容自动清零，等待下一次收银时再输入。下一次输入时，数据被复制到第二个工作薄的下一行，这样第二个工作薄就形成了一个收银统计数据，我感觉我的知识很不够，完全没有能力解决，还请各位前辈指点。同时，我还希望能够有一个输入记录功能，能够记录异常更改，避免前台违规操作。附件一为我之前自己制作的收银系统，附件二我为新收银系统设计的格式，还望各位多指点！本人万分感谢！附件一登陆账号为账号123，密码123，请先设置宏安全性为最低，否则无法运行
21:00 上传
点击文件名下载附件
706.44 KB, 下载次数: 20
阅读权限100
在线时间 小时
PASSWORD NOT CORRECT
阅读权限100
在线时间 小时
SEE IF HELP YOU
22:36 上传
点击文件名下载附件
16.53 KB, 下载次数: 19
阅读权限10
在线时间 小时
KCFONG 发表于
SEE IF HELP YOU
前辈，这是如何实现在？人如果在增加一列或者多列数据呢？万分感谢！
阅读权限95
在线时间 小时
前辈，这是如何实现在？人如果在增加一列或者多列数据呢？万分感谢！
这个是很容易实现的。
阅读权限10
在线时间 小时
& & & & & & & &
VBA万岁 发表于
这个是很容易实现的。
我是新手，急需用到，还望前辈多指点撒
阅读权限95
在线时间 小时
我是新手，急需用到，还望前辈多指点撒
(17.27 KB, 下载次数: 2)
17:31 上传
点击文件名下载附件
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1108|回复: 3
[已解决]请教大神，如何在两个数据工作表中采集数据
本帖最后由 kanhai1978 于
21:01 编辑
教大神，如何采集数据1、数据2中的对应炉号数据，1、钢种以数据1为主，当数据1中没有就采集数据2中的钢种，采集使用氧气量以数据1、数据2中数据大的为主。谢谢
19:45 上传
点击文件名下载附件
8.67 KB, 下载次数: 9
tgydslr发布于
生产报表B3=IFERROR(VLOOKUP(A3,数据1!A$3:B$9,2,),VLOOKUP(A3,数据2!A$3:B$9,2,))复制代码C3=MAX(IFERROR(VLOOKUP(A3,数据1!A$3:C$9,3,),),IFERROR(VLOOKUP(A3,数据2!A$3:C$9,3,),))复制代码下拉即可
&&&本楼为最佳答案&&&
生产报表B3=IFERROR(VLOOKUP(A3,数据1!A$3:B$9,2,),VLOOKUP(A3,数据2!A$3:B$9,2,))复制代码C3=MAX(IFERROR(VLOOKUP(A3,数据1!A$3:C$9,3,),),IFERROR(VLOOKUP(A3,数据2!A$3:C$9,3,),))复制代码下拉即可
(9.24 KB, 下载次数: 10)
20:02 上传
点击文件名下载附件
Sub test()
& & Dim arr, sh As Worksheet, k%, d
& & Set d = CreateObject(&scripting.dictionary&)
& & For Each sh In Sheets(Array(&数据1&, &数据2&))
& && &&&arr = sh.Range(&a1:c& & sh.Cells(Rows.Count, 2).End(3).Row)
& && &&&For k = 3 To UBound(arr)
& && && && &If arr(k, 2) && && Then
& && && && && & If Not d.exists(arr(k, 2)) Then
& && && && && && &&&d(arr(k, 2)) = arr(k, 3)
& && && && && & Else
& && && && && && &&&If d(arr(k, 2)) & arr(k, 3) Then d(arr(k, 2)) = arr(k, 3)
& && && && && & End If
& && && && &End If
& && &&&Next
& && &&&Erase arr
& & Next sh
& & Sheets(&生产报表&).Range(&b3&).Resize(d.Count, 1) = Application.Transpose(d.keys)
& & Sheets(&生产报表&).Range(&c3&).Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub复制代码
20:34 上传
点击文件名下载附件
19.21 KB, 下载次数: 3
Powered by！求EXCEl函数大神指导,如何匹配出最低价格的采购名字？ - 知乎2被浏览152分享邀请回答0添加评论分享收藏感谢收起

我要回帖

更多关于 excel是什么意思 的文章

 

随机推荐