Matriz Dinámica en vba
Creado por daniel
Hola amigos, tengo el siguiente código, cuya intención es multiplicar una matriz por un vector con mmult. La idea es que el rango de la matriz sea dinámico. Cuando corro el código me genera error diciendome que no se puede obtener la propiedad MMULT de la clase WorkSheetFunction. Sub EvaluarMatriz() Dim n As Double Dim rango1, rango2 As Range n = 3 " para cambiar el tamaño de la matriz, la idea es que el usuario defina n Set rango1 = Worksheets("Matriz Base (2)").Range(Cells(6, 3), Cells(6 + n, 3 + n)) " rango de la matriz Set rango2 = Worksheets("Matriz Base (2)").Range(Cells(21, 13), Cells(21 + n, 13)) " rango del vector Worksheets("Matriz Base (2)").Range(Cells(35, 12), Cells(35 + n, 12)) = Application.WorksheetFunction.MMult(rango1 ...
Escrito por Abraham
1- En las matrices (ambas) no deben existir espacios en blanco 2- Ambas matrices deben ser de las mismas dimensiones Me late que alguna de las 2 cosas no se cumplen Abraham ver debate
Escrito por ALEJANDRO
Te envio esta macro. Nota: logicamente la matriz debe ser cuadratica. A la hora que el inputbox te solicita introducir los rangos hazlos en esta notacion, ejemplo: B2:D4 Sub Multiplicar() mirango = Application.InputBox(prompt:="Rango de la Matriz Cuadratica", Type:=64) mivector = Application.InputBox(prompt:="Rango del Vector", Type:=64) tipomatriz = Application.InputBox("Numero de filas que tiene el vector", "Numero de filas") ActiveCell.Resize(tipomatriz, 1).Select ActiveWorkbook.Names.Add Name:="MIRANGO", RefersToR1C1:=mirango ActiveWorkbook.Names.Add Name:="MIVECTOR", RefersToR1C1:=mivector Selection.FormulaArray = "=MMULT(mirango,mivector)" End Sub sUERTE ver debate
