Elija programación
Primera,? ¿configuración? ¿RNG? =?Intersect(Sheet1.UseRange,?Select)significa
¿Tomar hoja1? ¿La parte con datos? ¿Utiliza sus opciones actuales? ¿área? ¿intersección?
Cuando no seleccionas una región con datos, ¿RNG? ¿en vano? ,?k? =?RNG. celúla. ¿contar? Esta oración informará un error. ¿RNG? ¿No recibiste el objeto? No hay forma de contarlos y aparecerá el mensaje de error anterior.
Segundo, ¿uso? Hoja Activa. ¿Ámbito de uso?
¿Fin? Con
¿Se usa en el medio para guardar código? ¿Qué? Requiere el uso de hojas de actividades. ¿Usar objetos de rango? Puedes usar. En cambio. Pero no estás utilizando ActiveSheet. ¿Ámbito de uso? ,?Entonces esta frase es redundante.
k? =?RNG. celúla. ¿contar? Esta frase también es redundante. ¿Ni siquiera has usado K antes? ,
RNG. celúla. ¿contar? ¿Se puede cambiar a? ¿Recuento de RNG? ¿No es necesario agregar celdas? Por supuesto, es bueno agregarlo, pero es redundante.
Si no necesita juzgar el código de intersección del área de datos y el área de selección, puede cambiarlo a:
¿Sub? YN1()
¿Atenuado? ¿RNG? ¿Como? Alcance
¿Si? ¿Escribir nombre (seleccionar)? <>? "alcance"? Entonces
¿MsgBox? ("1")
Otro
¿Y si? elegir. ¿Contar? >? 0?Entonces
¿Para qué? ¿Cada? ¿RNG? ¿existir? Elige
RNG? =?StrConv(RNG,?1)
Entonces
¿finalizar? Si
¿Finalizar? Si
¿Finalizar? Submarino