自己做的excel商品进销存，完全公开

觉得它很有用 · 发表于 2013-11-22 17:22

dick_lau 发表于 2011-4-12 10:04
做的格式很好，谢谢楼主
有个疑问，帮解决下
销售录入按照货号输入时，点提交有问题，总提示输入货号和数 ...

Private Sub CommandButton2_Click()
If Sheets("销售录入").Cells(37, 4) <> "" And Sheets("销售录入").Cells(37, 9) <> "" Then
Dim a As Long
a = Sheets("销售录入").[d56].End(xlUp).Row
Sheets("销售录入").Range("A37:k" & a).Select
Selection.Copy
Dim b As Long
b = Sheets("销售数据").[a65536].End(xlUp).Row + 1
Sheets("销售数据").Select
Sheets("销售数据").Cells(b, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("销售录入").Range("d37:d56").ClearContents
Sheets("销售录入").Range("i37:i56").ClearContents
Sheets("销售录入").Select
Sheets("销售录入").Cells(36, 2).Select
Else
MsgBox "请输入货号及数量"
End If
End Sub
简单修改下代码就行了复制粘贴在货号输入的提交处

liyimei · 发表于 2013-11-23 16:56

楼主，首先感谢楼主的分享。我想借用一下，修改了“销售录入”的页名后按“提交”就出错了，在宏里有没有找到对应的宏，请教如何修改？

1992jgx · 发表于 2013-11-24 15:53

很好希望可以进一步交流啊！qq 1248558450

lovezjy · 发表于 2013-11-25 13:05

谢谢分享~{:soso_e112:}

CeciCheng · 发表于 2013-11-25 18:29

请问能否简单分享一下制作思路和方法？谢谢！

whl880110 · 发表于 2013-11-27 11:31

谢谢楼主啊

ず轩源妃貦 · 发表于 2013-11-27 22:19

好帖，无私的顶

love玥儿 · 发表于 2013-11-29 10:45

谢谢！{:soso_e163:}

ysycraft · 发表于 2013-11-30 11:32

不错，学习中。。。。。。。

SUSIELANLAN · 发表于 2013-12-1 10:49

学习一下，谢谢

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

[分享] 自己做的excel商品进销存，完全公开