** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - reducir secuencia de instrucciones
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoreducir secuencia de instrucciones

 Responder Responder
Autor
Mensaje
febrero59 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 04/Diciembre/2007
Localización: España
Estado: Sin conexión
Puntos: 27
Enlace directo a este mensaje Tema: reducir secuencia de instrucciones
    Enviado: 27/Septiembre/2011 a las 21:37

Hola,

En lo que estoy desarrollando con VBA excel 2003, me encuentro con que tengo que repetir numerosas veces esta secuencia para pasar los valores a los campos siguientes:
 
TxtPregunta3 = TxtPregunta2
TxtRespuesta3 = TxtRespuesta2
TxtSolucion3 = TxtSolucion2
TxtSolucion3.BackColor = TxtSolucion2.BackColor
 
TxtPregunta2 = TxtPregunta1
TxtRespuesta2 = TxtRespuesta1
TxtSolucion2 = TxtSolucion1
TxtSolucion2.BackColor = TxtSolucion1.BackColor
 
TxtPregunta1 = txtPregunta
TxtRespuesta1 = TxtRespuesta
TxtSolucion1 = TxtSolucion
TxtSolucion1.BackColor = TxtSolucion.BackColor
 
...
 
¿cómo podría simplificarla?
Muchas gracias, Juan.
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5492
Enlace directo a este mensaje Enviado: 28/Septiembre/2011 a las 20:04
  Dim n&
  For n = 3 To 1 Step -1
    Me.Controls("TextBoxPregunta" & n).Value = Me.Controls("TextBoxPregunta" & n - 1).Value
    Me.Controls("TextBoxRespuesta" & n).Value = Me.Controls("TextBoxRespuesta" & n - 1).Value
    Me.Controls("TextBoxSolucion" & n).Value = Me.Controls("TextBoxSolucion" & n - 1).Value
    Me.Controls("TextBoxSolucion" & n).BackColor = Me.Controls("TextBoxSolucion" & n - 1).BackColor
  Next n
 
 
 
 
Editado: Fíjate que yo he hecho la prueba con TextBox...  y no con Txt...  y que además he numerado todos los cuadros de texto desde 0 hasta 3.
 
 


Editado por AnSanVal - 28/Septiembre/2011 a las 20:10
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
febrero59 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 04/Diciembre/2007
Localización: España
Estado: Sin conexión
Puntos: 27
Enlace directo a este mensaje Enviado: 28/Septiembre/2011 a las 22:42
Superior, Cry
Muchas gracias AnSanVal.
JuanClap.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable