Contabilidad 91

Excel usa macros para buscar y, si no se encuentra la macro, aparecerá este error.

Modifica la parte anterior del código de la siguiente manera:

Atenuar frow como entero

Si txt1. Valor = Entonces 'Primero determine si el nombre de usuario está vacío.

¡El nombre de usuario de MsgBox no puede estar vacío! , vbInformación, mensajes del sistema

Conector de exportación

Terminará si...

Tamaño xRng como rango

Establezca xRng = Hojas. Range(A3:A53)' y luego determine si el nombre de usuario no existe.

Si se aplica. WorksheetFunction.CountIf(xRng, txt1) = 0 entonces

¡MsgBox no tiene este nombre de usuario! , vbInformación, mensajes del sistema

Salir del conector

Terminará si...

Finalmente, use la hoja de trabajo para determinar si el nombre de usuario y la contraseña son consistentes .

fruncir el ceño =. Rango (A3:A53). Buscar(qué:=txt1). fila

si. Cell(frow, 2) CStr(txt2. text) y luego

MsgBox(Passwordwrong)

txt1. texto=

txt2. text=

Salir del conector

Terminará si...