支票保存明细

38180203 · 发表于 2019-10-2 17:36

本帖最后由 38180203 于 2019-10-2 17:43 编辑

怎么做到修改后自动保存到汇总表论坛没找到类似的...谢谢

hzruziniu · 发表于 2019-10-2 17:54

现在汇总表只有一行数据，如果有多行数据，修改后对应的是哪一行呢？根本不附符合逻辑，既然是支票就应该有唯一性的支票的号码l。

38180203 · 发表于 2019-10-2 17:55

hzruziniu 发表于 2019-10-2 17:54
现在汇总表只有一行数据，如果有多行数据，修改后对应的是哪一行呢？根本不附符合逻辑，既然是支票就应该有 ...

不用支票号, 复制到汇总表只是为了后面可查

hzruziniu · 发表于 2019-10-2 18:05

你不是说需要修改后自动保存到汇总表，如果汇总表有二行或都更多的行数，你把模坂修改的数据保存到哪一行呢？

38180203 · 发表于 2019-10-2 18:10

hzruziniu 发表于 2019-10-2 18:05
你不是说需要修改后自动保存到汇总表，如果汇总表有二行或都更多的行数，你把模坂修改的数据保存到哪一行呢 ...

往下加 ,,

清风竹- · 发表于 2019-10-2 19:55

请看附件。

38180203 · 发表于 2019-10-2 22:38

清风竹- 发表于 2019-10-2 19:55
请看附件。

能用,但我还没理解到代码的意思,,

hzruziniu · 发表于 2019-10-3 13:29

本帖最后由 hzruziniu 于 2019-10-3 13:36 编辑

Sub yyyy()
Dim arr
a = Application.CountA(Sheet1.Range("af4:af9"))
arr = Array([af6], [af7], [af8], [af4], [af5], [af9])
i = Sheet2.[a65536].End(3).Row + 1
If a = 6 Then    '如果6列数据全部不为空把一维数组赋值给汇总表
      For j = 0 To UBound(arr)
         Sheet2.Cells(i, j + 1) = arr(j)
      Next
Else '如果6列数据中任何一列为空，则赋空值
      For j = 1 To 6
         Sheet2.Cells(i, j) = ""
      Next
End If
End Sub

深秋的黎明 · 发表于 2019-10-3 14:48

支票打印啊？可以参考一下我做的建行支票打印软件，现在所有银行的支票格式是统一的，需要修改的地方你自己改一下。

38180203 · 发表于 2019-10-3 19:34

深秋的黎明发表于 2019-10-3 14:48
支票打印啊？可以参考一下我做的建行支票打印软件，现在所有银行的支票格式是统一的，需要修改的地方你自己 ...

兄弟,,加密的吧,要钱的吧,谢谢你了

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

[求助] 支票保存明细

评分

评分

最新热点 /1