VBA 高手请进

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

VBA 中 scalar * martirx 報错???




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

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：VBA Application worksheet function Integer matrix

norm(i, j) = matrix(i, j) / sum                <--REPORTING ERROR HERE!!!
Next j
Next i

你把 i  j  的循环次序弄反了，改成先next j 后next i就ok了
或者直接next后面不加ij也可以
另外，当sum为0的时候会溢出，建议加个if sum <>0

fftangwen 发表于 2013-6-19 17:33
norm(i, j) = matrix(i, j) / sum

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

x is a matrix
so u can't do x^2 or sqrt(x)
u can change it as : range("a5").value=x

also  u can :
Sub a()
x = Application.WorksheetFunction.MMult(Application.WorksheetFunction.MMult(Range("a2:b2"), Range("D2:E3")), Application.WorksheetFunction.Transpose(Range("A2:b2")))
x=applicatiion.mdeterm(x)
Range("a5") = Sqr(x)   
End Sub