这是一个服装进销存及往来帐款管理查询的一个工作文件

cooltyfo · 发表于 2010-12-29 08:41

正须要这个，先学习一下

matsukawash · 发表于 2011-1-26 16:11

刚好用的到,谢谢楼主的分享啊!

TAIHUHUAYUAN · 发表于 2011-3-19 00:57

下载看看，多谢分享！

xmyjk · 发表于 2011-3-19 11:40

谢谢楼主分享。

dhf104109 · 发表于 2011-6-2 21:18

就是每次录入记录的时候要复制公式公式新麻烦，
给你个代码，复制到all的工作表代码里，
可以实现：
每次录入完进仓或出仓数量后，下一行自动生成公式
这个功能，你会发现爽呆呆的

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim k As Range, r%
r = Target.Row + 1
rr = Target.Row
If Target.Value = "" Then Exit Sub
If Range("b" & rr) = "" Then Exit Sub
If Target.Row < 3 Then Exit Sub
If Target.Column = 8 Or Target.Column = 11 Then

Range(ActiveSheet.Cells(r - 1, 1), ActiveSheet.Cells(r - 1, 30)).AutoFill Destination:=Range(ActiveSheet.Cells(r - 1, 1), ActiveSheet.Cells(r, 30)), Type:=xlFillDefault
Range("T" & r & ":Y" & r & "," & "a" & r & ":c" & r & "," & "e" & r & ":h" & r & "," & "k" & r & "," & "m" & r).ClearContents
Range("a" & r) = Range("a" & r - 1) + 1
End If
End Sub

chenyuanwen · 发表于 2011-6-3 07:51

真的吗？我试试，如果是真的，那的确很爽。

jnsxzg · 发表于 2011-6-11 22:12

77楼做一个学习一下

jnsxzg · 发表于 2011-6-11 22:42

研究中，楼主做的不错嘛

lyfegf · 发表于 2011-6-19 12:39

真不错，挺干净漂亮的表格

xiaomagehappy · 发表于 2011-6-20 11:34

每次都为收款头大，楼主解决燃眉之急了

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

[分享] 这是一个服装进销存及往来帐款管理查询的一个工作文件

回复 1楼 chenyuanwen 的帖子