Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
在excelrc引用中使用变量_Excel_Vba - Fatal编程技术网

在excelrc引用中使用变量

在excelrc引用中使用变量,excel,vba,Excel,Vba,我不熟悉VBA/宏编码。试图在RC引用中插入变量,但该变量无效。我不确定我在哪里犯了错误,请给予指导 Dim var1 As Integer Dim var2 As Integer var1 = 1 'this changes dynamically in my actual program var2 = 2 'this changes dynamically in my actual program Range("A2").Select 'following doesn't work Ac

我不熟悉VBA/宏编码。试图在RC引用中插入变量,但该变量无效。我不确定我在哪里犯了错误,请给予指导

Dim var1 As Integer
Dim var2 As Integer
var1 = 1  'this changes dynamically in my actual program
var2 = 2  'this changes dynamically in my actual program
Range("A2").Select
'following doesn't work
ActiveCell.FormulaR1C1 = "=RC[var1]/RC[var2]"
'following works
ActiveCell.FormulaR1C1 = "=RC[1]/RC[2]"

使用字符串连接(
&
):


变量不会在字符串文本中展开。您应该显式构建字符串:

ActiveCell.FormulaR1C1 = "=RC[" & CStr(var1) & "]/RC[" &CStr(var2) & "]"
ActiveCell.FormulaR1C1 = "=RC[" & CStr(var1) & "]/RC[" &CStr(var2) & "]"