如何保存一行数据代码改成保存多行数据代码,谢谢!(改不了放弃)

rjtang · 发表于 2014-6-7 22:58

本帖最后由 rjtang 于 2014-6-13 18:56 编辑

我在坛中找到的办公用品管理系统,操作简单实用,但只有一行数据,根据我的实际情况,,领用表想增加几行,请教楼主,,楼主没回应,我只好自己改动,现在相关内容已改好,效果不错,就是保存的代码,只能保存一行数据,要所有行的数据都能保存,代码不知如何改动,请各位老师帮忙,谢谢!
这个改不了,放弃,重新做了一个,谢谢!
附件及代码如下:

办公文品管理.rar (31.81 KB, 下载次数: 19)
Private Sub 单据()
'
' 宏1 Macro
' lmm 记录的宏 2008-3-20
'
aa = Sheet2.Cells(1, 7)
If Sheet1.Range("F2") < 8 Then
a = MsgBox("数据不完整，不能保存！")
Else
For bb = 1 To 8
Sheet2.Cells(aa, bb) = Sheet1.Cells(4, bb)
Next bb
If Sheet1.CheckBox1.Value = True Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If

Sheet1.Range("A4:D8").ClearContents

End If

End Sub

补充内容 (2014-8-6 08:28):
修改不了,没用处,请版主删除,谢谢!

rjtang · 发表于 2014-6-8 08:11

本帖最后由 rjtang 于 2014-6-8 08:15 编辑

                     物品退回单
                                                2014年6月8日
  物品          性质       数量       相关人       类别
中订书针       退回       1          陈总       消耗品
小订书针       退回       1          陈总       消耗品
涂改液          退回       1          陈总       消耗品
铁夹             退回       1          陈总       消耗品
白板笔          退回       1             陈总       消耗品
相关人签字：                            制单：       李四

rjtang · 发表于 2014-6-8 08:17

希望各位老师帮一把,就差这一关了,谢谢!

rjtang · 发表于 2014-6-9 10:19

代码不懂,就是改不通,无奈!!!!!!

rjtang · 发表于 2014-6-9 18:14

慢慢等待有心人出现了!!!!!!!

rjtang · 发表于 2014-6-9 23:35

在坛中到是找到几款,但总觉得没有这个简单实用,还是希望有人给予帮助解决,我实在是对代码不熟,谢谢!

rjtang · 发表于 2014-6-10 10:49

问题简单,没人感兴趣!!!!

rjtang · 发表于 2014-6-11 08:34

该系统确实简间实用,不能使用有点可惜!!!!!!!

rjtang · 发表于 2014-6-11 19:08

这个代码改不了,我只好换一个思路,重新增加一个保存模块,在坛中找找是否有类似的代码参考了.

rjtang · 发表于 2014-6-12 19:03

重新找了一个模板,另谋出路.

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

[求助] 如何保存一行数据代码改成保存多行数据代码,谢谢!(改不了放弃)

修改后的效果