通过2个条件值来取所在的行值~~~~~~

chaqu · 发表于 2010-10-31 13:31

具体见附件

求行号.rar (11.17 KB, 下载次数: 17)

要求如果输入的日期和产品名称同时等于同一行 B列 C列的值

求行值 Rows

[ 本帖最后由 chaqu 于 2010-10-31 14:05 编辑 ]

chaqu · 发表于 2010-10-31 13:35

Private Sub CommandButton1_Click()
For Each irng In Sheet1.[b2:c7]
      If irng.Value = 8 Then
         If irng(1, 2).Value = "丁三" Then MsgBox irng.Row
      End If
Next
End Sub

已知的方法，如上可以成立并得出结果
如果调用 TextBox 的值再查询就没有反应了

请高手帮忙解释下

cxffxc · 发表于 2010-10-31 13:51

这样试试
Private Sub CommandButton1_Click()
For Each irng In Sheet1.[b3:c14]
If irng.Value = TextBox1.Text Then
If irng(1, 2).Value = TextBox2.Text Then
MsgBox irng.Row
End If
End If
Next
End Sub

chaqu · 发表于 2010-10-31 14:05

谢谢3楼的版主，问题已经解决

我原先的2个控件中有一个commobox的控件

如果

If irng(1, 2).Value = commobox1.Text Then

这样的就是错误的

需要改成

If irng(1, 2).Value = commobox1 Then

蓝桥玄霜 · 发表于 2010-10-31 21:15

commobox1 ？应该为
ComboBox1

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

[已解决] 通过2个条件值来取所在的行值~~~~~~