[已解决]求助，如何在表2中自动填入表1 中的数据？谢谢

qqy426 · 发表于 2012-6-13 13:52

本帖最后由 qqy426 于 2012-6-13 16:37 编辑

化验报告单.xlsx (12.04 KB, 下载次数: 25)

无聊的疯子 · 发表于 2012-6-13 14:12

自动汇兑是啥意思??

你要怎么操作??你不说别人怎么给你弄呢??

zjdh · 发表于 2012-6-13 14:21

不明不白！

是否将表1记入表2？

qqy426 · 发表于 2012-6-13 14:53

在表1中有写目的的
在表1 中可以录入也可以查询以前的数据，表2 是数据库

qqy426 · 发表于 2012-6-13 15:49

无聊的疯子发表于 2012-6-13 14:12
自动汇兑是啥意思??

你要怎么操作??你不说别人怎么给你弄呢??

在表1 中可以录入数据也可以查询以前某一天的数据，表2 是表一所有录入数据的数据库，谢谢。

无聊的疯子 · 发表于 2012-6-13 18:58

qqy426 发表于 2012-6-13 15:49
在表1 中可以录入数据也可以查询以前某一天的数据，表2 是表一所有录入数据的数据库，谢谢。

按钮自己添加吧,下面两个是代码

Option Explicit
Sub cc() '保证并打印
Dim Arr, Hx As Long
Hx = Sheet1.Range("A17").End(xlUp).Row
Arr = Sheet1.Range("A4:L" & Hx)
Hx = Sheet2.Range("A65536").End(xlUp).Row + 1
Sheet2.Range("B" & Hx).Resize(UBound(Arr), UBound(Arr, 2)) = Arr
Sheet2.Range("A" & Hx).Resize(UBound(Arr)) = Sheet1.Range("B2")
Sheet1.Range("A1:L18").PrintOut '打印指定区域
Sheet1.Range("B2:C2,A4:L16").ClearContents '清除内容
End Sub
Sub C() '数据查询
Dim Hx As Long
Hx = Sheet2.Range("A65536").End(xlUp).Row
Sheet2.Range("IV1") = "日期"
Sheet2.Range("IV2") = Sheet1.Range("B2")
Sheet1.Range("3:1000").Clear
Sheet2.Range("b3:M" & Hx).AdvancedFilter xlFilterCopy, Sheet2.Range("IV1:IV2"), Sheet1.Range("A3")
End Sub

复制代码

zjdh · 发表于 2012-6-13 19:40

化验报告单.rar (22.78 KB, 下载次数: 44)

qqy426 · 发表于 2012-6-14 09:31

谢谢“无聊的疯子”“zjdh”两位大侠！

qqy426 · 发表于 2012-6-14 09:34

zjdh 发表于 2012-6-13 19:40

你好，表1的报告单有时是不打印的，能不能在表1增加“录入”按钮，在表1输入当天的数据后按一下“录入”按钮可以把数据直接添加到表2数据库中，谢谢。

zjdh · 发表于 2012-6-14 09:58

化验报告单2.rar (24.53 KB, 下载次数: 11)

		自动登录	找回密码
密码			注册