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

57wk

QUOTE:

以下是引用57wk在2007-8-28 20:48:35的发言：

  请朋友们帮忙看看，我用oobird版主的代码学做的导出数据未成功，请指出错在何处？

[此贴子已经被作者于2007-8-28 20:50:17编辑过]

57wk

  有请会VBA的朋友为以下代码加上注释，谢谢！

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

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
n = Sheet3.[a65536].End(xlUp).Row + 1
Sheet3.Cells(n, 1) = .[q1]
Sheet3.Cells(n, 3).Resize(2, 18) = arr
.[b3:c36].ClearContents
End With

End Sub

oobird

没人能懂你的玄机。

arr(1, i) = .Cells(i + 2, 2) + .Cells(i + 2, 3)
arr(2, i) = .Cells(i + 2, 5)
你这些Cells完全没有值为何作如上操作。

oobird

arr(1, i) = .Cells(i + 2, 2) + .Cells(i + 2, 3)'数组的第一行第i列为单元格第i+2行第2列+单元格第i+2行第3列
arr(2, i) = .Cells(i + 2, 5)'数组的第二行第i列为单元格第i+2行第5列

57wk

oobird版主：您好！

   我将附件修改了一下，请帮助解决：

  1.在日报表中当填写完数据并核对后，点击数据导出按钮，会将日报表中的日期、数量和金额导出到月报表中；

  2.当月报表中已有相同日期的数据时，需要弹出一个提示框，以确定再次导入、取消导入或替换前一次已导入的数据；

  3.次日的数据依序导入在上一日期的下面；

  4.日报表中的数据被导出后，该表将恢复到原始状态——空表（在原日报表中清除H1、B3:C36区域的数据即可），以备下一次使用；

  5.我刚学VBA，希望在代码中加上注释方便理解，可以用代码取代函数公式的地方能修改为代码也行。

7zWW2jw3.rar (16.54 KB, 下载次数: 12)

2007-8-29 18:21 上传

点击文件名下载附件
[求助]数据的导出（导入）

[此贴子已经被作者于2007-8-29 18:29:43编辑过]

57wk

oobird版主：您好！

  您最近一定很忙吧，请您有空时帮助指导一下；若35楼中有不能用VBA实现或不明白的地方请指出。

57wk

oobird版主：您好！

  您最近一定很忙吧，请您有空时帮助指导一下；若35楼中有不能用VBA实现或不明白的地方请指出。

57wk

oobird版主：您好！

  您最近一定很忙吧，请您有空时帮助指导一下；若35楼中有不能用VBA实现或不明白的地方请指出。

oobird

cVf4Axcd.rar (16.93 KB, 下载次数: 35)

2007-9-3 12:59 上传

点击文件名下载附件
[求助]数据的导出（导入）

57wk

  谢谢oobird版主的帮助；我先学习学习，如遇有不理解的地方再向您请教。