¿Existe un límite para la cantidad de validaciones de secuencias de datos en Excel VBA?
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