Crear un array con una variable es posible?

21/10/2008 - 17:07 por Pregunton | Informe spam
Buenos Días nuevamente a los participantes de esta ayuda...

Tengo otra preguntica.. quisiera saber si en visual excel, es posible crear
un array (arreglo) de una dimensión o de dos que se pueda crear con una
variable preguntada al usuario mediante un mensaje. Por ejemplo, deseo hacer
una multiplicación y me diga Que tabla?, hasta que numero desea multiplicar?
algo un ejemplo del codigo:

Dim TablaNo as string
Dim HastaDonde as string

TablaNo = Inputbox ("Que tabla va a ser?")
HastaDonde = Inputbox ("Hasta que numero?")

Dim tabla (1 to HastaDonde) as string

For A = 1 to HastaDonde
tabla (A) = TablaNo * A
Next A

For B = 1 To HastaDonde
msgbox ("la table del " & TablaNo & " por " & B & " es igual a: " & tabla(B)
Next B.

Lo anterior es más o menos como me imagino que se debe hacer, perdon si esta
mal...

Agradezco de antemano su colaboración por lo antención prestada y su ayuda.

Atentamente;

OSWALDO GAITAN ARAQUE
Que Dios los bendiga!
 

Leer las respuestas

#1 Héctor Miguel
22/10/2008 - 00:12 | Informe spam
hola, Oswaldo !

... quisiera saber si en visual excel, es posible crear un array (arreglo) de una dimension o de dos
que se pueda crear con una variable preguntada al usuario mediante un mensaje.
Por ejemplo, deseo hacer una multiplicacion y me diga Que tabla?, hasta que numero desea multiplicar? ...



para el caso que expones, creo que no seria necesaro trabajar con arrays (llenar, conservar, volcar, etc.)
(a menos que la "verdadera" pregunta se hubiera quedado "en el tintero"...)
prueba con algo +/- como lo siguiente:

Sub Tablas()
Dim Tabla As Byte, Hasta As Byte, n As Byte, Msj As String
Tabla = Val(InputBox("La tabla de ?..."))
If Tabla < 1 Or Tabla > 12 Then Exit Sub
Hasta = Val(InputBox("Hasta que numero ?"))
If Hasta < 1 Or Hasta > 12 Then Exit Sub
Msj = "Resultados hasta el " & Hasta
For n = 1 To Hasta
Msj = Msj & vbCr & Tabla & " por: " & n & " -> es igual a: " & Tabla * n
Next
MsgBox Msj, , "Resutado de la tabla " & Tabla
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ ejemplo solicitado __
algo un ejemplo del codigo:

Dim TablaNo as string
Dim HastaDonde as string

TablaNo = Inputbox ("Que tabla va a ser?")
HastaDonde = Inputbox ("Hasta que numero?")

Dim tabla (1 to HastaDonde) as string

For A = 1 to HastaDonde
tabla (A) = TablaNo * A
Next A

For B = 1 To HastaDonde
msgbox ("la table del " & TablaNo & " por " & B & " es igual a: " & tabla(B)
Next B.

Lo anterior es mas o menos como me imagino que se debe hacer ...

Preguntas similares