excel vba 如何把算好的变量赋值给一整列

发布网友发布时间：2022-04-20 19:12

共3个回答

热心网友时间：2023-08-17 06:01

将a.xls工作薄vba标准模块中的变量“aa”设为全局变量，设一个带参数的赋值过程，在b.xls的代码中调用这个过程，参数用你要赋给aa的值。具体如下：
'a.xls工作薄中vba标准模块中代码：
public
aa
sub
setaa(x)
aa
=
x
end
sub
'b.xls工作薄中的代码：（括号中的8就是要赋给aa的值）
run
"'a.xls'!setaa(8)"

热心网友时间：2023-08-17 06:01

Private
Sub
Worksheet_Change(ByVal
Target
As
Range)
'当某个单元格内容发生改变时，触发该事件，用Target表示该单元格
If
Target.Column
=
1
Then
'当Target的为第一列，也就是A列时
Cells(Target.Row,
2)
=
"表达式"
'给相应的第二列赋值
End
If
End
Sub

热心网友时间：2023-08-17 06:02

For
i
=1
to
100
cells(i,2)=cells(i,1)+2
Next
i
以上是指B列=A列+2，直到100行。不知道你怎么语句计算，只能如此简单假设，但愿您能明白。