Imprimir página | Cerrar ventana

reducir secuencia de instrucciones

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=70481
Fecha de impresión: 22/Noviembre/2019 a las 14:26


Tema: reducir secuencia de instrucciones
Publicado por: febrero59
Asunto: reducir secuencia de instrucciones
Fecha de publicación: 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.



Respuestas:
Publicado por: AnSanVal
Fecha de publicación: 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.
 
 


-------------
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi http://achinet.mvp-access.es/" rel="nofollow - sitio_web con ejemplos Excel.


Publicado por: febrero59
Fecha de publicación: 28/Septiembre/2011 a las 22:42
Superior, Cry
Muchas gracias AnSanVal.
JuanClap.



Imprimir página | Cerrar ventana