vba如何快速赋值
答案:2 悬赏:0 手机版
解决时间 2021-03-24 00:40
- 提问者网友：
- 2021-03-23 13:03
vba如何快速赋值
最佳答案
- 五星知识达人网友：轻雾山林
- 2021-03-23 14:21
直接数组赋值就行了。
a(i,j)=range(cells(1,1),cells(i,j))
比如ij都等于4，这句的意思就是把A1:D4的数据赋给a
a(i,j)=range(cells(1,1),cells(i,j))
比如ij都等于4，这句的意思就是把A1:D4的数据赋给a
全部回答
- 1楼网友：刀戟声无边
- 2021-03-23 15:10
你这么问，我猜这个代码不是你写的吧？当然可以直接读取excel数据了。数组还一个个由用户输入，不得累死。
从代码看来，需要n的平方那么多个数字输入。假设这些数字事先已经在excel中输入了，
数字位于：第3行第8列起
那么用以下代码
a(i, j) = Cells(3 + i - 1, 8 + j - 1).Text
代替
a(i, j) = Val(InputBox("a(" & i & "," &j & ")=", "Value of aij"))
就可以。
从代码看来，需要n的平方那么多个数字输入。假设这些数字事先已经在excel中输入了，
数字位于：第3行第8列起
那么用以下代码
a(i, j) = Cells(3 + i - 1, 8 + j - 1).Text
代替
a(i, j) = Val(InputBox("a(" & i & "," &j & ")=", "Value of aij"))
就可以。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯