|
本帖最后由 bosao 于 2017-7-7 16:45 编辑
1. 返回同时符合原始“图号+毛坯+版本”条件的行号
2. 自动将条件图号及数据表的图号分别去除后面3位数的尾号待用(不能添加辅助列,原表数据不能改变)
返回同时符合“去除尾号的图号+毛坯+版本”条件的数据量
返回这些数据图号的尾号
文字部分用...代替了,你自己替换下,以下为查询按钮的代码。
- Private Sub CommandButton3_Click()
- Dim arr, i&, r&, n&, s$
- arr = Sheets(1).Range("b2:v" & [b65536].End(3).Row)
- For i = 1 To UBound(arr)
- If arr(i, 1) = TextBox2 And arr(i, 3) = ComboBox12 And arr(i, 21) = ComboBox1 Then r = i + 1
- If Left(arr(i, 1), Len(arr(i, 1)) - 3) = Left(TextBox2, Len(TextBox2) - 3) And arr(i, 3) = ComboBox12 And arr(i, 21) = ComboBox1 Then
- n = n + 1
- s = s & "+" & Right(arr(i, 1), 3)
- End If
- Next i
- MsgBox ".......:" & r & " .........:" & n & " .........:" & Mid(s, 2)
- End Sub
复制代码
|
|