票据自动生成之VBA编程

    利用国庆长假,扒着资料,为朋友写了个VBA的小程序,贴到这里请VBA高手批批。

    程序是这样的:一个居民小区每月收水电费,先在Excel一个表中按数据格式录入数据,再在另一个表中生成要收水电费个人的收费清单。为了不再重输票号、房号等信息，用VBA根据已录数据自动生成收费清单。

表中显示如下：

 

票据生成键程序如下：

Private Sub CommandButton1_Click()

End Sub

    程序先利用样本复制一个新清单，贴到新位置上，再填入数据，最后根据生成的清单数设置打印区域。

    存在的问题是不知道怎样操作另外一个表中的数据，实现在另一个表中的复制、粘贴。望高手指点。

(头一次在这写东西,头一次用VBA,问题肯定不少,请多指教！嘿嘿...:)

 

 

*一个多星期了,也没人看一眼么?源程序收起来吧,有要的提供email.