VB filtra datos con múltiples condiciones
Guarde los datos anteriores en un archivo Txt y colóquelo en el directorio raíz D:.
El código es el siguiente.
==============================
Opción explícita
Private Sub Form_Click()
Atenuar s como cadena, a(10, 2) como byte, i como byte
Abrir "d:\1.txt" para entrada Como 1
Hacer hasta EOF(1)
Entrada de línea #1, s
a(i, 0) = Val(Split(s)(0) ))
a( i, 1) = Val(División(s)(1))
a(i, 2) = Val(División(s)(2))
i = i 1
Bucle
Dim inp Como cadena, b(2) Como único, j Como byte, suma Como único, min Como único, minj As Byte
min = 10000
b(0) = Val(InputBox("El primer dato, si es *, ingresa 0", , 0))
b(1) = Val( InputBox("El segundo dato, si es *, ingresa 0", , 0))
b(2) = Val(InputBox("El tercero datos, si son *, ingrese 0", , 0))
Para j = 0 To i - 1
suma = IIf(b(0), Abs(a( j, 0) - b(0)), 0) IIf(b(1), Abs(a(j, 1) - b(1)), 0) IIf(b(2), Abs(a(j, 2) - b(2)), 0)
Si suma lt min; Entonces min = suma: minj = j
Siguiente
Imprimir "El que mejor cumple con los requisitos es " amp; minj 1 amp; "Datos:" amp; a(minj, 0) amp; "," amp; a(minj, 1) amp; "," amp; a(minj, 2 )
Cerrar
End Sub
La prueba pasó con (10, *, 15.2), (50.5, *, 22.3).