发货单自动保存

hzruziniu · 发表于 2016-6-4 11:52

给你一个参考表

出纳票据开具模板.rar (153.16 KB, 下载次数: 65)

kings12333 · 发表于 2016-6-4 11:57

hzruziniu 发表于 2016-6-4 11:48
要增加行次主要是修改下面二句代码
n = Application.CountA(Range("a10:a11"))
arr = Range("a ...

hzruziniu老师，帮我看看这个附件，我只需要今天日期相同的最大值

距今天数（找出最大值).zip (283.83 KB, 下载次数: 3)

mrsnow · 发表于 2016-6-4 12:12

hzruziniu 发表于 2016-6-4 11:48
要增加行次主要是修改下面二句代码
n = Application.CountA(Range("a10:a11"))
arr = Range("a ...

谢谢指点，行数我自己也找到修改的方法了。现在还一个问题又来了，我需要列数增加6列的话，那代码应该怎么个改法，谢谢了。

suiyuan8981 · 发表于 2016-6-4 20:50

留名学习，谢谢指导！

lsc900707 · 发表于 2016-6-4 20:52

hzruziniu 发表于 2016-6-4 11:52
给你一个参考表

这个模板好东西，收藏学习！

一只狗三只眼 · 发表于 2016-6-4 21:09

hzruziniu 发表于 2016-6-4 10:36
给你修改一下：
1、打开工作表默认生成当天日期，并根据当天日期编号
2、修改J7的日期，编号自动调整 ...

又有二个问题来了，一是金额列中设置公式：单价*数量；二是行数增加，需自动相应增加至流水记录中；三是小计中黄色单元格设置求和。

一只狗三只眼 · 发表于 2016-6-4 21:29

hzruziniu 发表于 2016-6-4 10:36
给你修改一下：
1、打开工作表默认生成当天日期，并根据当天日期编号
2、修改J7的日期，编号自动调整 ...

很想结识这位高人，很佩服你的精辟解题思路。能给我讲下你的学习VBA路径吗？怎样一步一步走到VBA高手的，很想和你学习VBA，能收下我这个徒弟吗？

hzruziniu · 发表于 2016-6-4 21:50

一只狗三只眼发表于 2016-6-4 21:29
很想结识这位高人，很佩服你的精辟解题思路。能给我讲下你的学习VBA路径吗？怎样一步一步走到VBA高手的， ...

其实VBA并不是想象的那么难，不一定需要懂英文，我就不识英文，也不是需要记忆所有的语法、单词、属性，只要把一般的常用语法基础记录下来，如果需要用到，用复制的方法，修改关健的参数就行。
编辑VBA非常重要的其实是逻辑和数学基础，象你这个表首先要有明确的思路，象解一个数学题：
1、蓝色的月份区域因每个月的天数不同，象2月是29天，其余月份有30天和31天。你需要隐藏其余月，显示选择月，就首先是用函数计算出所选月的总天数，然后加上表首列区的固定列数再加上本月的月数就是本月的最后列号数，月初列可以用Find查到该月的和一列。
掌握了起始列号后应可以用代码先隐藏全部月份区域，再显示所选月份区域。
2、根据所选月的起始列号用循环方法算出该月的每行合计数。
3、再根据合计列每隔四行计算其是否为空值，如果是空值则该四行隐藏。

hzruziniu · 发表于 2016-6-4 22:53

一只狗三只眼发表于 2016-6-4 21:29
很想结识这位高人，很佩服你的精辟解题思路。能给我讲下你的学习VBA路径吗？怎样一步一步走到VBA高手的， ...

发货单自动记录.rar (127.64 KB, 下载次数: 73)
上一楼的回复发错了，是发另一个坛友的
文件给你修改好了，给你增加了保存的格式设置：动态网格线、字体10号字并居中。

lsc900707 · 发表于 2016-6-5 07:11

hzruziniu 发表于 2016-6-4 22:53
上一楼的回复发错了，是发另一个坛友的
文件给你修改好了，给你增加了保存的格式设置：动态网格线、字 ...

大师真的好热心，不但帮忙搞定问题，而且还教授方法。

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

[求助] 发货单自动保存

评分

评分