Saltar al contenido

Definir una matriz de dos vectores sin conocer su tamaño


Recommended Posts

Buenos días, 

Estoy ejecutando una macro, y en un momento dado necesito guardar los valores en una matriz de dos vectores, es decir mi_array (x,y). El problema reside en que a priori desconozco el tamaño de la matriz, pero puede ser muy grande (varios miles (o cientos de miles) en la posición x). Si le defino el tamaño al principio del proceso, por ejemplo mi_array (1 to 1000, 1 to 1000), funciona el proceso de después pero llega un momento en que se queda fuera de rango porque necesito más posiciones. Si la dimensiono más grande por ejemplo mi_array (1 to 10000, 1 to 10000) entonces desde el principio me índica Memoria insuficiente (el límite para el error está aproximadamente en  mi_array (1 to 10000, 1 to 10000)

Por tanto, creo que la solución pasa por no definir a priori su tamaño, pero no sé como hacerlo para dos dimensiones. Dim mi_array as variant me da el problema de que no me da dos dimensiones, y al intentar guardar el primer valor en la posición mi_array(1,1) me da error. 

¿Existe alguna solución a mi problema?

 

Enlace a comentario
Compartir con otras webs

Buenos días Haplox, 

Lo siento pero es que el archivo es enorme y la macro también. Ésta depende de varios cálculos al inicio y varios al final, y aislada esa parte pierde un poco el sentido, pero el trozo crítico al que hago referencia sería algo así: 

ReDim conexiones(1 To 10000, 1 To 10000)

i = 1

j=1

'Obtengo a partir de otros cálculos y matrices el valor de nf y lo guardo en la posición correspondiente de la matriz problemática

Do while (una serie de condicionantes)

If nf=(otra serie de condiciones)
    conexiones(i, j) = nf

   i = i + 1

End if 

Loop

 

Mi problema está en que si no dimensiono la matriz (ReDim conexiones) no me guarda el valor en las diferentes posiciones de i, j, porque me da error de tipos. Y si la dimensiono, o me quedo corto y necesito más filas porque sigue creciendo en i y me aparece subíndice fuera del intervalo, o si la quiero dimensionar más grande cuando crea la matriz ya da error de memoria, siendo el límite para mi ordenador de 10000 filas (más o menos). 

 

Gracias

Enlace a comentario
Compartir con otras webs

Hola

Si con esos valores te dice "memoria insuficiente", o tienes muchos programas abiertos o realmente la memoria RAM de la PC en donde estás usando eso es muy pequeña.

Prueba algo así:

Dim mi_array() As Variant
Dim x As Integer, y As Integer

x = 20

ReDim mi_array(1 To x, 1 To x) As Variant

y = 30

ReDim Preserve mi_array(1 To y, 1 To y) As Variant

No mencionas de donde salen los valores, yo ahí los interpreto con "x" e "y" pero obviamente tú puedes sacarlo de donde solo tú puedes saber. Otra cosa, uso Redim y luego Redim Preserve por si vas agregando valore y la matriz vuelve a crecer y no quieres perder los ya agregados, pero insisto, sin detalles es más difícil darte una respuesta 100% certera.

Abraham Valencia

Enlace a comentario
Compartir con otras webs

Hace 5 horas, Haplox dijo:

Sube tu archivo, porque me da que sobredimensionado. Se puede bar qué hacer.

No hacen falta todos los datos, pero si que la estructura sea la real

Gracias Abraham, 

Es cierto que la información que doy está un poco sesgada, pero mi problema es que desconozco x e y (es decir desconozco hasta que finalice todas las comprobaciones) cuanto elementos se van a guardar en la matriz, porque se guardan los elementos de otros vectores que cumplen ciertas condiciones, y es imposible saber a priori cuantos elementos se guardarán. De hecho esa macro aplicada a algunos casos son 20 filas a otros casos más grandes me he quedado en 10000 porque ya no he podido ejecutar más.

Pero por tu respuesta, entiendo que no hay manera de definir la matriz sin tamaño y que vaya creciendo libre. 

Enlace a comentario
Compartir con otras webs

Estimado, por eso digo que solo tú puedes saber de dónde sacar esos valores pero no das datos para darte pautas de cómo hacerlo.  Dices que no se sabe cuántos valores serán pero,  en algún momento ¿llegan? esos datos y he ahí cuando se puede obtener los valores en las variables pero ¿de dónde salen esos datos? ¿cómo los obtienes? ¿de una base de datos (no Excel)? ¿de cálculos hechos en VBA? ¿de otra hoja de Excel? ¿¿?? ¿cómo se obtienen dichos datos? etc.

Abraham Valencia

Enlace a comentario
Compartir con otras webs

Hace 6 horas, JuanPerez dijo:

El problema reside en que a priori desconozco el tamaño de la matriz

Después de lo explicado por @avalencia, debes estar consciente, que si no sabes el limite de la matriz, es como navegar mar adentro sin foro, ademas 10000 mil elementos en una matriz, deberia ser un suspiro para Excel, pero como te lo han comentado, también viene en juego los recursos de la PC

Mi sugerencia es que busques la forma de obtener el limite de la matriz, mas que todo por esto:

Hace 6 horas, JuanPerez dijo:

puede ser muy grande (varios miles (o cientos de miles) en la posición x). Si le defino el tamaño al principio del proceso, por ejemplo mi_array (1 to 1000, 1 to 1000), funciona el proceso de después pero llega un momento en que se queda fuera de rango porque necesito más posiciones

Excel va hacer simplemente lo que le digas tu

 

Saludos a todos

Enlace a comentario
Compartir con otras webs

Bueno gracias a ambos, 

No es que no os quiera subir el archivo para que me ayudéis es que los datos previos están vinculados a una herramienta que se ejecuta a raíz de una librería de cálculo vinculada a otro programa, y por tanto no podríais ejecutarla para obtener los datos de partida. 

Aunque quiera, no puedo saber el número de valores que va a tener mi matriz, porque lo que hace es valorar los datos de las matrices previas, y en función de los resultados generar una nueva fila, bueno en realidad lo que hace es desplazar todos los datos guardados desde la fila donde va a guardar en adelante y guardar el dato en esa posición, por lo que la matriz no para de crecer con cada comprobación favorable que hace. 

Probaré en otro ordenador con más memoria o capacidad, pero es muy posible que tenga el mismo error, pues mi objetivo es poder analizar muchas combinaciones y esto puede superar los cientos de miles de datos. 

 

Enlace a comentario
Compartir con otras webs

Estimado, en realidad aunque era idóneo, no es una obligación "subir" un archivo pero si detallar algunas cosas como las que pregunté.  Sobre ese "otro" programa que ejecuta cálculos, más que saber eso habría que saber todo lo relacionado, e insisto, a las preguntas que hice.

Sobre los valores, ten por 100% seguro que sí se puede saber, más aún si dices que hay matrices previas y sobre eso se hacen los cálculos, pero, también insisto, solo tú podrías saber cómo hacerlo porque eres, de los de este foro, el único que conoce su archivo y los programas mencionados. Ah, quizá el dilema está, también, en la forma en que colocar (por lo que se entiende) los datos en la hoja.

Prueba con otro ordenador con más memoria pero ojo, recomiendo usar Office de 64 bits.

Abraham Valencia  

 

Enlace a comentario
Compartir con otras webs

Hace 3 horas, avalencia dijo:

Estimado, en realidad aunque era idóneo, no es una obligación "subir" un archivo pero si detallar algunas cosas como las que pregunté.  Sobre ese "otro" programa que ejecuta cálculos, más que saber eso habría que saber todo lo relacionado, e insisto, a las preguntas que hice.

Sobre los valores, ten por 100% seguro que sí se puede saber, más aún si dices que hay matrices previas y sobre eso se hacen los cálculos, pero, también insisto, solo tú podrías saber cómo hacerlo porque eres, de los de este foro, el único que conoce su archivo y los programas mencionados. Ah, quizá el dilema está, también, en la forma en que colocar (por lo que se entiende) los datos en la hoja.

Prueba con otro ordenador con más memoria pero ojo, recomiendo usar Office de 64 bits.

Abraham Valencia  

 

... y es que en realidad, cuando las matrices son mal utilizadas, se dan estos casos

Respecto a tu libro, no se pide un "original", se solicita una recreación del mismo, de parte del consultante, pues se debe tener demasiada imaginación, magia negra y varita:D, para determinar como se puede resolver de la mejor forma

 

Saludos! 

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 97 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • Hola que tal amigos programadores por favor me podrían ayudar con una macro que me genere un archivo CSV delimitado por comas, la estructura del archivo CSV no deberá llevar encabezado, los datos del archivo CSV serán obtenidos de la hoja “Datos”. En la columna A: deberá tener la clave clues que se toma de la columna B de la hoja Datos En la Columna B: el Código (son 230 codigos que van del rango G1:IB1 de la hoja datos) En la Columna C: el valor almacenado a su correspondiente al código y clues En la Columna D: el número del mes que se obtendrá de la de la columna E de la hoja Datos En la Columna E: el año que se tomará de la columna F de la hoja de Datos   Son 230 códigos por lo que la macro generará 230 filas por cada clave clues que tenga la hoja Datos En el archivo anexo una hoja llamada CSV para que vean la estructura que tendrá, el archivo CSV estará delimitado por comas   Les agradecería mucho que me ayuden por favor, Dios los bendiga Exportar datos a csv.xlsx
    • Hola buenas tardes.   Debido al trabajo debo estar comparando en un periodo unos archivos dentro de una carpeta o subcarpeta. en base a la fecha de creacion o modificacion.  pero tengo que estar viendo carpeta por carpeta y aveces son varios. Con una macro intente  listar los archivos de cualquier carpeta y subcarpeta, esto activandolo segun la celdaactiva. El problema es que tiene algunos errores. 1. si la carpeta cuenta con subcarpetas me los manda a muchas filas abajo. Mi idea es hoja(Así debe quedar) Que con una macro pueda seleccionar la carpeta desde el buscador y me de la lista de archivos a partir de la fila 6. siendo columna A= fecha de modificación, columna B =Fecha de creación y columna C=Nombre del archivo con hiperlink. Con otro o con la misma macro poder seleccionar otra carpeta y sus subcarpetas, según sea el caso. y me liste a partir de la columna F de la fila 6 Siendo La columna F=Nombre del archivo, columna H=fecha de creación, columna I=ultima modificación   Para así poder acceder y comparar mis archivos, directamente desde excel.   Muchas gracias Mariano       Listar archivos de 2 carpetas para comparar.xlsm
    • Hola buenas, Os presento mis dudas. Tengo un libro  (llamémosle LibroDestino) con dos módulos, uno de definición de variables "ModDef" y otro de inicializacion de esas mismas variables "ModCfg". Necesito que al copiarme una hoja de otro libro(llamémosle LibroOrigen), mediante un procedimiento, sobrescribir el modulo de inicialización de variables del LibroDestino con el  contenido del módulo que hay en el LibroOrigen. Destacar que los dos módulos de cada libro tienen el mismo nombre "ModCfg". Y tienen una única variable llamada "Mensaje". En el LibroDestino tiene el valor "Hola" y en el LibroOrigen el valor "Adiós" Este procedimiento lo realiza perfectamente,  es decir se sobrescribe, pero si en el mismo procedimiento quiero utilizar el nuevo valor de esa variable, me conserva el valor de la variable anterior. Para hacer las comprobaciones he ejecutado un MsgBox al empezar y al acabar el procedimiento, pero en los dos casos me devuelve el valor original del LibroDestino el valor "Hola", cuando mi idea es que al sobrescribir el modulo con el nuevo valor de la variable, el último MsgBox me devuelva el valor "Adios". Mi objetivo es poder tener la inicialización de esas variables en un libro que no sea el de trabajo (LibroDestino), ya que según la hoja que importe puedo requerir que las variables tengan un valor u otro. ¿Por que no me coge en el procedimiento el nuevo valor de la variable? ¿Cómo podría conseguirlo? He tenido que activar en VBA  la referencia Microsoft visual basic for applications extensibility 5.3 desde  Herramientas -> Referencias. Creo que es la única manera de poder trabajar con los módulos desde VBA, aunque si se pudiera de otra manera creo que sería mas óptimo. Mil gracias de antemano, un saludo!         Libro1_Prueba.xlsm Libro2_Prueba.xlsm
    • Agradecido Antoni! Tus sugerencias me ayudaron mucho! Como pudiese hacerte llegar el archivo?
    • Prueba este código. Sin el archivo no te puedo ajustar más. Private Sub btnCargaBancos_Click() 'El tipo de dato debe especificase para cada variable Dim TasaCompra As Double, TasaVenta As Double, InvBanesco As Double, InvVzla As Double Dim MontoBanesco As Double, MontoVzla As Double, TasaDiaBan As Double, TasaDiaVzla As Double Dim TasaActual As Double 'Hay que comprobar que los textbox tienen contenido numérico 'Los datos numéricos solo pueden contener números y el separador decimal, cualquier otro caracter dará error al convertir If Not IsNumeric(txtInverBanesco) Or _ Not IsNumeric(txtInverVzla) Or _ Not IsNumeric(txtTasaCompra) Or _ Not IsNumeric(txtTasaVenta) Then MsgBox "Los datos deben ser numéricos", vbCritical Exit Sub End If InvBanesco = CDbl(txtInverBanesco) InvVzla = CDbl(txtInverVzla) TasaCompra = CDbl(txtTasaCompra) TasaVenta = CDbl(txtTasaVenta) 'Los datos de los divisores no pueden ser 0 (Indeterminación matemática) If TasaCompra = 0 Or _ InvBanesco = 0 Or _ InvVzla = 0 Then MsgBox "Los datos no admiten valor cero", vbCritical Exit Sub End If MontoBanesco = (InvBanesco / TasaCompra) * (1 - 0.18 / 100) * (TasaVenta * (1 - 0.18 / 100)) MontoVzla = (InvVzla / TasaCompra) * (1 - 0.18 / 100) * (TasaVenta * (1 - 0.18 / 100)) TasaDiaBan = (MontoBanesco / InvBanesco) * (1 - 0.055) TasaDiaVzla = (MontoVzla / InvVzla) * (1 - 0.055) If TasaDiaBan < TasaDiaVzla Then TasaActual = TasaDiaBan Else TasaActual = TasaDiaVzla End If 'En VBA, los datos numéricos no admiten ser formateados, formatear directamente en las celdas, 'MontoBanesco = FormatNumber(MontoBanesco, 2, True, vbFalse) 'MontoVzla = FormatNumber(MontoVzla, 2, True, vbFalse) 'TasaActual = FormatNumber(TasaActual, 5, True, False) txtBcoBanesco = MontoBanesco txtBcoVenezuela = MontoVzla txtTasaDiaria = TasaActual End Sub  
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.