|
每家公司都会制作年终盘点清单，今天我们就来学习一下，年终盘点清单到底如何来制作。 如上图，当我们点击表格中的核对按钮后，我们需要核对的内容将自动显示出来。下面来看一下具体的操作方法。 第一步：按alt+F11，或者点击开发者工具—点击visual basic，进入代码编辑窗口； 第二步：进入代码窗口后，右键点击左边的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 第三步：插入图形，命名为核对两个字，点击右键选择指定宏即可。 第四步：输入需要核对内容后，点击核对按钮，即可对数据源中数据进行核对。 注意点： 1、goto语句必须接常量，不能接变量；cells(k,'H')=rng这个变量，所以第二个goto直接引用100； 2、cells（K,'H'）可以使用H作为列，但是必须双引号。 现在你学会制作年终盘点表格了吗？ |
|
|
