Excel 将列1的值与列2匹配的代码

Excel 将列1的值与列2匹配的代码,excel,vba,Excel,Vba,我有一个小的用户表单,它有一个组合框、文本框和命令按钮,图像附在上面 第1页上有一张表,其图像附在下面。 我想要的是,当我按下userform中的命令按钮时,它每次都必须检查第1列中的值与第2列中的值 比如说,, 如果第1列的值为“非流动资产”,第2列的值为“PPE”,则msgbox将显示“值存在” 代码每次必须检查column1的值1与column2的值1 如果不存在,则msgbox将显示“值不存在” 这是我的密码: 大宗报价 代码未对照第2列中的值1检查第1列的值1 请告知。在“如果不是r

我有一个小的用户表单,它有一个组合框、文本框和命令按钮,图像附在上面

第1页上有一张表,其图像附在下面。

我想要的是,当我按下userform中的命令按钮时,它每次都必须检查第1列中的值与第2列中的值

比如说,, 如果第1列的值为“非流动资产”,第2列的值为“PPE”,则msgbox将显示“值存在”

代码每次必须检查column1的值1与column2的值1 如果不存在,则msgbox将显示“值不存在”

这是我的密码:

大宗报价


代码未对照第2列中的值1检查第1列的值1


请告知。

在“如果不是rng1,则无”语句中使用以下代码

For Each cell In rng1
        If LCase(cell.Value) = value1 and LCase(cell.offset(0,1).Value)=value2 Then
                MsgBox ("Value Exist.")
                Exit Sub
        Else
                MsgBox ("Value not Exist")
                Unload Me
                Exit Sub
        End If
    Next

在If Not rng1 Is Nothing Then语句中使用以下代码

For Each cell In rng1
        If LCase(cell.Value) = value1 and LCase(cell.offset(0,1).Value)=value2 Then
                MsgBox ("Value Exist.")
                Exit Sub
        Else
                MsgBox ("Value not Exist")
                Unload Me
                Exit Sub
        End If
    Next
你不能这样做

For Each rng1 In rng1
相反,您必须在rng1中循环抛出单元格,如

dim cel as range

for each cel in rng1
同样的事情

For Each rng2 In rng2
尝试修改,看看它会给你什么

你做不到的

For Each rng1 In rng1
相反,您必须在rng1中循环抛出单元格,如

dim cel as range

for each cel in rng1
同样的事情

For Each rng2 In rng2

尝试修改并查看它将给您带来什么

“代码没有检查第1列的值1与第2列的值1。然后它在做什么?它只读取第2列的值。代码没有检查第1列的值1与第2列的值1。然后它在做什么?它只读取第2列的值。变量,它只检查第一排。但是,它不检查其他值。您只需删除else语句中的代码,并在for statemet MsgBox(“Value not Exist”)卸载Me Exit SubThevar后使用以下代码,它只检查第一行。但是,它不检查其他值。您只需删除else语句中的代码,并在for statemet MsgBox(“值不存在”)卸载我退出子语句后使用以下代码