Excel如何制作年终盘点清单,你跟高手之间差了这段代码

2019-12-06 11:35:12  阅读 40 次 评论 0 条

每家公司都会制作年终盘点清单,今天我们就来学习一下,年终盘点清单到底如何来制作。

Excel如何制作年终盘点清单,你跟高手之间差了这段代码


如上图,当我们点击表格中的核对按钮后,我们需要核对的内容将自动显示出来。下面来看一下具体的操作方法。

第一步:按alt+F11,或者点击开发者工具—点击visual basic,进入代码编辑窗口;

Excel如何制作年终盘点清单,你跟高手之间差了这段代码


第二步:进入代码窗口后,右键点击左边的thisworkbook,插入模块,双击模块后输入下方的代码即可。

代码如下:

'年终盘点,根据库存核对已经盘点过的编码

Sub 盘点表综合实例()

Dim rng As Range, rngs As Range, K% '定义rng、rngs作为区域变量,K为整形变量

For Each rng In [A1:A796] '变量 rng 循环区域为A1:A796,因为编码区域在A1:A796

For Each rngs In [G1:G175] '变量 rngs 循环区域为G1:G175,已盘点区域在G1:G175

If rngs = rng Then

GoTo 100 '如不相等跳出

End If

Next rngs '如在a列核对完G列G2,则循环下一个G3............

K = K + 1

Cells(K, "H") = rng '如上面rngs与rng不相等,则将rng的值赋值给H2单元格

100: '如同上方的goto,因为goto语句必须接常量

Next rng

End Sub

第三步:插入图形,命名为核对两个字,点击右键选择指定宏即可。

Excel如何制作年终盘点清单,你跟高手之间差了这段代码


第四步:输入需要核对内容后,点击核对按钮,即可对数据源中数据进行核对。

Excel如何制作年终盘点清单,你跟高手之间差了这段代码


注意点:

1、goto语句必须接常量,不能接变量;cells(k,"H")=rng这个变量,所以第二个goto直接引用100;

2、cells(K,"H")可以使用H作为列,但是必须双引号。

现在你学会制作年终盘点表格了吗?


Excel如何制作年终盘点清单,你跟高手之间差了这段代码

分享软件 资源资讯分享君 资料分享 工具分享 教程分享 共享 新闻 限免 科技 互联网 攻略 技巧 资讯 教程 素材 微信公众号:coolwinker

本文地址:http://blog.02868.cn/?id=404
版权声明:内容收集于网络,由 admin 整理,邮箱:coolwinker@vip.qq.com,版权归原作者所有!

评论已关闭!