¿Existe un límite para la cantidad de validaciones de secuencias de datos en Excel VBA?

1. La cadena tiene un límite de longitud y no puede exceder los 255 caracteres. Puede operarlo en la interfaz de Excel, copiar un fragmento de texto al portapapeles y luego presionar Ctrl+V en la validación de datos para que no se pueda pegar. Si está por debajo de 255, no hay problema.

2. Si la ventana de Excel está minimizada, el código también mostrará este error.

Puedes probar el siguiente código.

¿Sub? Prueba()

¿Activado? ¿error? CV? Entonces

1. rango("A1"). Seleccione

Aplicar. ¿Estado de ventana? =?XL Maximizar

Uf. Claro

¿Qué usar? elegir. Confirmar

. Eliminar

Menor o igual a 255 caracteres, normal.

. ¿Reponer? Tipo:=xlValidateList,? AlertStyle:=xlValidAlertStop,? Operador:=xlEntre,? Fórmula 1: =Aplicación. rept("a",? 255)

. ¿Ignorar en blanco? =?Verdadero

¿Y si? ¿Bien? Entonces

¿Parar? '

¿Fin? Si

¿Finalizar? Con

Eh. Claro

¿Qué usar? elegir. Confirmar

. Elimine

si tiene más de 255 caracteres. Agregar declaración.

. ¿Reponer? Tipo:=xlValidateList,? AlertStyle:=xlValidAlertStop,? Operador:=xlEntre,? Fórmula 1: =Aplicación. rept("a",? 256)

. ¿Ignorar en blanco? =?Verdadero

¿Y si? ¿Bien? Entonces

¿Parar? Más de 255 caracteres

¿Fin? Si

¿Finalizar? Con

Eh. Borrar

aplicación. ¿Estado de ventana? =?XL minimizar? Minimizar ventana activa.

¿Qué utilizar? elegir. Confirmar

. Eliminar

La ventana de Excel se minimiza y aparecerá. Agregar declaración.

. ¿Reponer? Tipo:=xlValidateList,? AlertStyle:=xlValidAlertStop,? Operador:=xlEntre,? Fórmula 1: =Aplicación. rept("a",?21)

. ¿Ignorar en blanco? =?Verdadero

¿Y si? ¿Bien? Entonces

Detener

¿Finalizar? Si

¿Finalizar? Con

Aplicar. ¿Estado de ventana? =?Maximización XL

¿Fin? Submarino