那位老师帮我改下代码，变成一个区域的提交数据

静s听w风q雨 · 发表于 2012-4-23 11:25

Sub dj_save()
Dim r, r1 As Long
r = Sheets("薄膜模板").Range("A18").End(xlUp).Row - 16

With Sheets("数据库")
      r1 = .Range("b65536").End(xlUp).Row + 1

      .Cells(r1, 1).Resize(r, 1) = Range("A22")  '在表中输入单据表的B2单元格内容,下同


      MsgBox "单据保存成功！"


End With

End Sub
那位老师帮我改下，变成一个区域的提交数据，因为很多数据，一个一个单元格数据提交运行很慢，卡死

sparkguo · 发表于 2012-4-23 11:44

上传附件要不然很难快速有效得到回复

无聊的疯子 · 发表于 2012-4-23 11:54

你这个不就是一个区域提交的吗??

静s听w风q雨 · 发表于 2012-4-23 12:26

本帖最后由静s听w风q雨于 2012-4-23 12:36 编辑

不是啊，这代码是别的老师的写的
我想是整行的数据，按上面数据的效果提交这是附件

销售单.rar (12.21 KB, 下载次数: 2)

无聊的疯子 · 发表于 2012-4-23 12:57

静s听w风q雨发表于 2012-4-23 12:26
不是啊，这代码是别的老师的写的
我想是整行的数据，按上面数据的效果提交这是附件

就只保存顾客的那5列信息??

Sub dj_save()
Dim r As Long, r1 As Long, Sh As Worksheet
r = Sheets("销售单").Range("A18").End(xlUp).Row - 11
Set Sh = Sheets("销售单")
With Sheets("顾客资料")
r1 = .Range("b65536").End(xlUp).Row + 1
.Range("A" & r1).Resize(, 5) = _
Array(Sh.Range("B3"), Sh.Range("f3"), Sh.Range("H3"), Sh.Range("B4"), Sh.Range("M4"))
MsgBox "单据保存成功！"
End With
End Sub

复制代码

fjmxwrs · 发表于 2012-4-23 13:27

静s听w风q雨发表于 2012-4-23 12:26
不是啊，这代码是别的老师的写的
我想是整行的数据，按上面数据的效果提交这是附件

销售单.rar (16.82 KB, 下载次数: 6)

静s听w风q雨 · 发表于 2012-4-23 19:15

还是很慢，我有200个个单元格要提取

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

那位老师帮我改下代码，变成一个区域的提交数据

相关帖子