如休能够将出入库单记录自动保存到出入库记录表中

huyongzhen · 发表于 2012-9-10 12:25

老师们
大家节日快乐!~~~

我想求作一段程序
能够自动实现
将一个表页中的内容
自动保存到另一个表页中.

比如,
"出入库单"的工作表中
有入库日期,材料名称,规格,型号,数量,金额等
然后
一点保存按钮之后
能够自动保存到"出入库记录"的工作表中
的相应位置
之后
清空"出入库单"工作表
以备下次使用

我会一行对应一行那样的
但是
行数一多
我就不会做了

请老师们
有时间
帮指教一下

OK
祝大家都快乐!~~

LangQueS · 发表于 2012-9-10 12:35

★利用单元颜色动态判断记录方式★ http://club.excelhome.net/thread-484976-1-1.html

hai167 · 发表于 2012-9-10 13:07

大连清国进销存系统.rar (87.6 KB, 下载次数: 458)

Private Sub CommandButton1_Click()
Dim cnn As New ADODB.Connection
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select 序号,'" & Me.DTPicker1.Value & "','" & Range("B4") & "','" & Range("L5") & "',供应商名称,订单号,材料编号,材料名称,[规格/型号],税别状态,单位,数量,单价,币别,金额 " _
& " from [出入库单$B6:M16]"
LRow = Sheet2.[a65536].End(3).Row + 1
Sheet2.Range("a" & LRow).CopyFromRecordset cnn.Execute(Sql)
Range("c7:M16").ClearContents
cnn.Close
Set cnn = Nothing
Sheet2.Activate
End Sub

复制代码

huyongzhen · 发表于 2012-9-10 14:18

本帖最后由 huyongzhen 于 2012-9-10 14:19 编辑

{:soso_e163:}{:soso_e163:}
感谢楼上两位老师的帮助!
非常感谢!
祝节日快乐!
{:soso_e160:}{:soso_e160:}
感谢大家的关注!
{:soso_e156:}{:soso_e156:}

版主说的
"利用单元颜色动态判断记录方式"
我还没弄明白
可能是我用的是 EXCEL 2003的原因
然后
我又换了一台装有 EXCEL 2007的电脑
试了下
又说"无法运行宏
我修改下宏的安全级别
还是提示"无法运行宏"
继续努力研究中

谢谢
大家
祝大家快乐!~~~~

lzqmsy · 发表于 2012-9-10 14:29

做了一个,供参考

大连清国.rar (13.89 KB, 下载次数: 310) ,还可以将单号搞成自动的,但是需要你提供原则

lzqmsy · 发表于 2012-9-10 15:22

又做一个

大连清国1.rar (15.14 KB, 下载次数: 563)

huyongzhen · 发表于 2012-9-10 15:27

{:soso_e102:}
太好了!
太厉害了!
我想要的单号
能做成
按日期,按出入库单类别,
自动编号就更棒了
比如
9月的入库单
就编成
CLRK201209001
(材料入库2012年9月第1号的意思)
{:soso_e102:}
行吗

huyongzhen · 发表于 2012-9-10 15:28

9月的出库单
就编成
CLCK201209001
(材料出库2012年9月第1号的意思)
{:soso_e113:}

huyongzhen · 发表于 2012-9-10 15:44

{:soso_e121:}
大侠
"出入库"那列中的
"出库","入库"是怎么弄上去的
没明白
{:soso_e113:}

lzqmsy · 发表于 2012-9-10 16:19

别急,晚上有时间给你做自动编号

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

[求助] 如休能够将出入库单记录自动保存到出入库记录表中