Excel VBA 的一个疑问

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

比如我想算 x = inverse(A)*b, VBA中该怎样打?

这是我的代码, 但不成功, 求高手指点:

Sub a()
WorkSheet(1).Cells(1, 6) = "x"
WorkSheet(1).Range("F2:F3").Value = Application.WorksheetFunction.MMult(Application.WorksheetFunction.MInverse("A2:B3"), "D2:D3")
End Sub

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL exce xcel cel VBA Excel

怎么没人理我?

controlpanel 发表于 2013-6-18 13:29
Sub a()
Worksheets(1).Cells(1, 6) = "x"
Worksheets(1).[F2:F3] = WorksheetFunction.MMult(WorksheetF ...

下面这个又怎么不行?

Function abc(x As Range)
Dim m As Integer, n As Integer
m = x.Rows.Count
n = x.Columns.Count

Dim matrix()
Redim matrix(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
matrix(i, j) = x(i, j)
Next j
Next i

Dim sum As Single
sum = Application.WorksheetFunction.sum(matrix)

Dim norm()
ReDim norm(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
norm(i, j) = matrix(i, j) / sum                <==REPORTING ERROR HERE!!!
Next i
Next j

abc = norm
End Function

controlpanel 发表于 2013-6-19 11:37
Next i
Next j
顺序倒了

How about the following one?
Actually, x = A*B*Transpose(A) should be a scalar, but I can't do something likes 5*x, x^2, sin(x), ...
What is the problem?




Sub a()
x = Application.WorksheetFunction.MMult(Application.WorksheetFunction.MMult(Range("a2:b2"), Range("D2:E3")), Application.WorksheetFunction.Transpose(Range("A2:b2")))
Range("a5") = Sqr(x)       <-- Reporting Error Here!!!
End Sub