Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba excel函数,用于与多张图纸上的多列进行比较时,突出显示一列中的唯一值_Vba_Excel_Unique_Conditional Formatting - Fatal编程技术网

Vba excel函数,用于与多张图纸上的多列进行比较时,突出显示一列中的唯一值

Vba excel函数,用于与多张图纸上的多列进行比较时,突出显示一列中的唯一值,vba,excel,unique,conditional-formatting,Vba,Excel,Unique,Conditional Formatting,好的,我正在使用excel工作簿来管理我们产品的物料清单。我在一个工作簿中有几个特定于产品的工作表和一个库存工作表 发布新BOM表时,所有库存都会手动添加到库存工作表中 我想寻找一种方法来搜索仅存在于库存表上的所有零件号 基本上它的产品已经停产了。手动查找这些零件号是一件痛苦的事情 我想在库存表上查找零件列唯一的所有项目。这些唯一项不会出现在任何其他图纸的“零件”列中 因此,我需要搜索整个工作簿并突出显示那些孤立的工作簿,这样就可以轻松地将其从该工作表中删除 我不知道如何使VBA函数实现这一点,

好的,我正在使用excel工作簿来管理我们产品的物料清单。我在一个工作簿中有几个特定于产品的工作表和一个库存工作表

发布新BOM表时,所有库存都会手动添加到库存工作表中

我想寻找一种方法来搜索仅存在于库存表上的所有零件号

基本上它的产品已经停产了。手动查找这些零件号是一件痛苦的事情

我想在库存表上查找零件列唯一的所有项目。这些唯一项不会出现在任何其他图纸的“零件”列中

因此,我需要搜索整个工作簿并突出显示那些孤立的工作簿,这样就可以轻松地将其从该工作表中删除

我不知道如何使VBA函数实现这一点,或者如何使用条件格式实现这一点

零件号可以是字母数字值的混合

我可能太想让excel像关系数据库一样工作了,但我可以梦想,不是吗

提前感谢你的帮助

对不起,我还没有上传照片的名声。我提供了屏幕截图的下载链接

下面是一个代码示例:这是使用推荐的VB模块。此公式仅适用于数值

这是日期从中提取的选项卡。它应该找到这个值,但不是


Scott

假设库存工作表实际上被称为库存,并且“多个特定于产品的工作表”有一个通用的“零件号”列,这应该适用于库存工作表上的帮助器列,该列可以在条件格式规则中过滤或作为公式过滤

点击Alt+F11,当VBE打开时,立即使用下拉菜单插入► 模块Alt+I,M。将以下内容粘贴到名为Book1-Module1代码的新窗格中

示例:如果库存工作表的A列中的零件号从第2行开始,而所有其他工作表上的零件号都在B列中,则将此公式放入库存工作表第2行的未使用列中

=bDiscontinued($A2, $B:$B )
根据需要填写。此新列可过滤为TRUE,以显示所有可删除的已终止零件号


如果简单的条件格式突出显示行就足够了,那么可以在CF规则中使用相同的公式,并将其应用于A2:Z9999的:中。如果适用于:was$A:$Z,则将公式更改为=bDiscontinued$A1,$B:$B。

通过新规则设置条件格式>使用公式确定要格式化的单元格。假设要突出显示唯一值的范围为A1:A99,请使用以下公式:=COUNTIF$A$1:$A$99,$A1=1。

到目前为止您尝试了什么?请阅读并发布您的代码,指出其失败的地方。是否有一个“多个特定于产品的工作表”共有的部分无列,或者是否需要搜索整个工作表?我确实搜索了功能。我是VBA的新手,不想让道指太多地推断什么对我不起作用。我尽量不创造浪费的职位!感谢回复,这是字母数字零件号的工作。但对于纯数字的零件号,并没有找到它们并将其标记为true@scott-处理混合文本和数字时经常会出现问题。尝试将第二行更改为sPart=rPART.Text。如果这不能解决所有问题,请考虑发布一些经过修改的工作数据和非工作部分NOS的样本数据,这样我们就有一些事情要做。增加了屏幕截图的链接。数值仍然无效。将第二行更改为文本没有任何影响。我发现的唯一诀窍是在只有数字的零件号中添加符号。它找到了他们。
=bDiscontinued(<part no to look for>, <common column of part nos in other worksheets>)
=bDiscontinued($A2, $B:$B )