Excel - matriz formulario

   
Vista:

matriz formulario

Publicado por calpe83 (67 intervenciones) el 14/09/2008 23:19:35
Hola,

Necesito implementar una matriz con los datos de un formulario para poderlo descargar y continuar con otro proceso, mi formulario consta únicamente de 5 cajas de texto y 5 listas combinadas que he nombrado como textbox1......textbox5 y combobox1.......combobox5, (como veis no me he complicado mucho con los nombres).

Tengo escrito el siguiente código pero no es correcto, y no sé como resolverlo.

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 5
caracteristicas(i, 1) = "TextBox" & i.Text
Next
End Sub

características es una matriz (5, 2) declarada como public en otro módulo del libro, y commandbutton1 es un botón tipo siguiente que daría paso a un segundo formulario y descargaría el primero (los datos del userform1 serán consultados en un futuro, de ahí la necesidad de almacenarlos en una matriz).

Igual no es la mejor solución el planteamiento que yo he propuesto, pero es lo que se me ha ocurrido, no soy muy experto.

Un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:matriz formulario

Publicado por calpe83 (67 intervenciones) el 14/09/2008 23:23:46
Después de esta linea faltaría otra para completar la segunda columna de la matriz características, pero la estructura lógica sería la misma que con esta primera.

caracteristicas(i, 1) = "TextBox" & i.Text
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

RE:matriz formulario

Publicado por JuanC (1053 intervenciones) el 22/09/2008 01:23:03
por tan pocos controles no es necesario hacer un bucle...
este tema ya se tocó en este foro (no recuerdo cómo ni cuándo!)
en casos como estos yo suelo recurrir a la propiedad Tag de los controles

algo asi...
dim ctl as object

for each ctl in me.controls
select case ctl.tag
case 0
caracteristicas(0, 1) = TextBox0.Text
end select
next

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar