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