Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VBA, preguntas sobre la declaración CON

Programación VBA, preguntas sobre la declaración CON

Dos preguntas:

1. ?Set?RNG?=?Intersect(Sheet1.UsedRange,?Selection) significa

tomar la hoja1? parte con datos y el área seleccionada actualmente?

Cuando seleccionas un área que no tiene datos, RNG=NOTHING, K=RNG.Cells.Count? Esta oración informará un error. el objeto y no puede contarlo. Aparecerá el mensaje de error anterior

2. With?ActiveSheet.UsedRange? End?With

se usa en el medio para guardar el código. para usar el objeto ActiveSheet.UsedRange se puede reemplazar por ., pero no ha usado ActiveSheet.UsedRange, por lo que esta oración es redundante. K?=?RNG.Cells.Count? Esta oración también es redundante. más tarde.

RNG.Cells.Count? se puede cambiar a?RNG.count ¿No es necesario agregar celdas?, por supuesto que es bueno agregarlo, pero es redundante.

Si no necesita juzgar la intersección del área de datos y el área de selección, el código se puede cambiar a: Sub?YN1()

Dim?RNG As?Range

p>

Si?TypeName(Selección)?<>?"Rango"?Entonces

MsgBox?("1")

Else

Si ?Selección.Cuenta?>?0?Entonces

Para?Cada?RNG?En?Selección

RNG?=?StrConv(RNG,?1)

Siguiente

¿Fin?Si

Fin?Si

Fin?Sub