[求助]数据的导出（导入）

57wk · 发表于 2007-8-19 21:42

谢谢楼上朋友！

回oobird版主：月报表中重量栏的数据等于日报表中数量与重量两栏之和（如上传附件月报表C4单元格应等于日报表B3+C3得67，月报表C5单元格应等于日报表E3单元格中的金额——3886.00）。

oobird · 发表于 2007-8-19 22:24

Sub yy()
Dim i%, arr
With Sheet2
ReDim arr(1 To 2, 1 To 18)
For i = 1 To 18
arr(1, i) = .Cells(i + 2, 2) + .Cells(i + 2, 3)
arr(2, i) = .Cells(i + 2, 5)
Next i
Sheet3.[c4].Resize(2, 18) = arr
End With
End Sub

57wk · 发表于 2007-8-20 07:06

oobird版主：您好！

我刚接触VBA，不会理解您所编代码的含义，更别说运用了。之所以在VBA程序开发版中发帖求助，是想到用VBA方能较好的解决——以日报表为“模板”处理数据、月报表统计并存储数据。您若在附件中直接写入代码、注释会有利于一个初学者的学习的。

此外，日报表中最好设计一个导出按钮，导出的数据能与日期对应（能同步导出吗？）。

[此贴子已经被作者于2007-8-20 7:19:30编辑过]

57wk · 发表于 2007-8-20 22:32

附件是我根据oobird版主提供的代码学做的结果。问题是日期未被导入、日报表中的数据被导出后未能“清空”，还有就是次日的数据又如何导入？

dxk6YpR0.rar (15.6 KB, 下载次数: 7)

[此贴子已经被作者于2007-8-20 22:49:49编辑过]

oobird · 发表于 2007-8-20 23:12

nlAZru6u.rar (13.33 KB, 下载次数: 48)

lizhigang160 · 发表于 2007-8-20 23:53

谢谢版主，学习了！！

safinx · 发表于 2007-8-21 01:18

不会用VBA ，不过试着用函数做了一些，

不过我个人觉得你还可以重新设计一下表格，加入年月日，做个类似数据库的EXCEL，用数据透视表，

因为我感觉你的数据透视表的功能要强大多了，对于数据的查询分析比较有用

zZwrOjMJ.rar (32.48 KB, 下载次数: 13)

[此贴子已经被作者于2007-8-21 1:30:59编辑过]

57wk · 发表于 2007-8-21 06:48

QUOTE:

以下是引用safinx在2007-8-21 1:18:44的发言：

不会用VBA ，不过试着用函数做了一些，

不过我个人觉得你还可以重新设计一下表格，加入年月日，做个类似数据库的EXCEL，用数据透视表，

因为我感觉你的数据透视表的功能要强大多了，对于数据的查询分析比较有用

非常感谢safinx朋友的参与！

我也试着用函数，因很难达到“以日报表为‘模板’处理数据、月报表统计并存储数据”的目的，另一方面也想学学VBA。

此外，鉴于无需数据的分析与查询，因此没必要作数据透视表。

57wk · 发表于 2007-8-21 07:04

QUOTE:

以下是引用oobird在2007-8-20 23:12:29的发言：

谢谢版主！

请教：1.模块在本求助中没必要吗？

2.同步导出日期困难吗？

3.数据被导出后，日报表中单价和金额列的函数公式不能保留吗（原附件只需去掉日期以及数量和重量列中的数据即可成空表）？

4.为防删除或修改，附件中月报表的数据能被“锁定”吗？

[此贴子已经被作者于2007-8-21 21:45:11编辑过]

57wk · 发表于 2007-8-22 21:54

数据的导出问题有请各位朋友帮助解决；如若附件中有不清楚的地方请提出。谢谢！

[此贴子已经被作者于2007-8-22 22:02:19编辑过]

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