¿Es posible optimizar el siguiente código?

¡Hola Mundo!

Estoy iniciándome en el desarrollo con VBA y como todo novato autodidacta puedo lograr comprender rutinas complejas, sin embargo, también puedo desconocer simplezas (que entorpecen el desarrollo) y que sólo el preguntar, la experiencia o un curso bien estructurado aclaran. Mi inquietud...

¿Es posible optimizar el siguiente código?

Private Sub Frame1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
     ComboBox1.BorderColor = &HACCFFA
     ComboBox1.BorderColor = &HACCFFA
     TextBox1.BorderColor = &HACCFFA
     TextBox2.BorderColor = &HACCFFA
     TextBox3.BorderColor = &HACCFFA
End Sub

Es decir, cómo puedo evitar tener que escribir

.BorderColor = &HACCFFA

para cada control. Se me ha ocurrido que tal vez existe una especie de

With objeto
    [instrucciones]
End With

pero a la inversa (con las propiedades en lugar de con el objeto).

Ojala alguien me pueda despejar esta duda. Saludos.

1 respuesta

Respuesta
1

Te mando un ejemplo para optimizar el código.

Con esta macro tratamos de forma conjunta a todos los combobox que tengas en tu form.

Estamos modificando el backcolor de TODOS los combobox para cambiarlo a rojo, sin necesidad de pasar uno a uno. En este ejemplo estoy utilizando el evento INITIALIZE que se dispara al arrancar el formulario.

Private Sub UserForm_Initialize()
For Each ctrl In Me.Controls
If TypeName(ctrl) = "ComboBox" Then
ctrl.BackColor = &HFF&
End If
Next
End Sub

no olvides finalizar la consulta

Muchas gracias, es justo lo que necesitaba.

Private Sub Frame1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
     For Each ctrl In Me.Controls
         If TypeName(ctrl) = "ComboBox" Or TypeName(ctrl) = "TextBox" Then
             ctrl.BorderColor = &HACCFFA
         End If
     Next
End Sub

Esta macro utiliza el evento Exit y se ejecuta al posicionarse fuera del Frame1.

Función: Cambia el color del borde de todos los controles ComboBox y TextBox del Frame1.

Utilidad: Restaurar apariencia (en este caso color de borde) que el evento Exit del ultimo control (ComboBox o TextBox) utilizado en un Frame1 no restaura al pasar a un control ubicado en un Frame2.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

VALIDAR TextBox si esta vacío que sea Igual a "0" (cero)

Hoy vine de una pregunta tras otra. Lo que pasa que cuando voy armando me salen nuevos problemas!. En mis preguntas anteriores y pregunte sobre como multiplicar dos TextBox. Bueno ahora resulta que si el textBox (donde va el porcentaje, que se llama...
1 respuesta

Necesito un código en visual basic 6.0 para copiar información de celdas en varios textbox

Tengo una macro que carga un formulario y cuando este se carga copia la información de varias celdas, organizadas horizontalmente, a varios controles (textbox y combobox). El código que tengo es ActiveCell.Offset(0, 1).Select txtfechalec = ActiveCell...
1 respuesta

Macro Para Ocultar Hojas excel y abrirlas con comboBox

Dante Ante todo u gran saludo a tu persona y por la gran ayuda que nos brindas en el foro, hiendo con mi pregunta. Tengo 30 hojas excel activas en las que ingreso datos, lo que necesito con este tema es que se pueda ocultar las hojas y solo me...
1 respuesta

Formulario con 2 combobox y guardar datos en diferente libro

Un mega favor esperando que me puedas ayudar Tengo un formulario con 2 combobox los cuales el primero Con el siguiente código Private Sub UserForm_Activate() 'Captura datos y guarda en empresa ws_Count = ActiveWorkbook.Worksheets.Count For i = 1 To...
1 respuesta

Calendario con dos textbox

Tengo un calendario cargado en un formulario, este tiene dos textbox uno con fecha inicial y otro con fecha final, en el evento hacer doble clic en ambos textbox emerge el calendario pero solo puedo cargar la fecha en el textbox1, si lo hago en el...
1 respuesta

ComboBox (Visual Basic)

Me colaboran en como debo proceder si tengo un ComboBox en el que me aparecen los nombres de los empleados al desplegar (los cuales tengo en una hoja de excel), pero necesito que en este combobox no se pueda copiar un nombre que no aparezca en la...
1 respuesta

Mostrar en un Textbox o en un label el valor relacionado al ingresar un dato en otro textbox.

Lo que trato de hacer es que cuando yo ingrese información en un textbox automáticamente se muestre la información relaciona en otro textbox o label. Por ejemplo. Ingreso un numero de parte en un textbox y en otro textbox se muestra de inmediato la...
1 respuesta

Mantener el cursor en un textbox cuando tire mensaje

Solo con una consulta como puedo hacer para que un textbox no siga si manda un mensaje de error, por ejemplo estoy utilizando estos códigos. Private Sub TextBox62_Change() If Not IsNumeric(TextBox62.Text) And TextBox62.Text <> "" Then Beep MsgBox "Se...
1 respuesta

Como multiplicar 2 listbox y proyectar el resultado en otra listbox (sin botón)

Tengo un formulario y quiero multiplicar el textbox2 por textbox4 y que el resultado automáticamente lo proyecte en el textbox5 necesito que el resultado respete los decimales y los muestre.
1 respuesta

Como poner determinado formato de fecha a un textbox

Tengo una tabla en excel 2010 e ingreso los datos a través de un formulario, lo que necesito hacer es que en los textbox donde ingreso fechas el formato sea 10-oct-14 y que este mismo formato se quede registrado en mi tabla de excel.
3 respuestas