如何获取函数自变量单元格的地址并写入

13466575268

比如一个函数sub test（input_range as range）

end sub
怎么获取input_range单元格的地址，并在函数中向input_range单元格写入值

liulang0808

input_range.address
具体写入值，看楼主要怎么写了

13466575268

比如在这个单元格里面写入1，是[input_range.address].value=1吗？

13466575268

我的程序是一个迭代
Sub Iteration_Self(Val_Input_Range As Range, Val_Output_Range As Range)
   Dim Val_Input, Val_Output
   Dim Val_input_adr As Range
   Do
       Val_Input = [Val_Input_Range].Value
       Val_Output = [Val_Output_Range].Value
       Val_Input = (Val_Input + Val_Output) / 2
       [Val_Input_Range].Value = Val_Input
   Loop Until Abs(Val_Output - Val_Input) < 0.1
End Sub
运行无结果

山菊花

Sub Iteration_Self(Val_Input_Range As Range, Val_Output_Range As Range)
   Dim Val_Input, Val_Output
   Dim Val_input_adr As Range
   Do
       Val_Input = Val_Input_Range.Value
       Val_Output = Val_Output_Range.Value
       Val_Input = (Val_Input + Val_Output) / 2
       Val_Input_Range.Value = Val_Input
   Loop Until Abs(Val_Output - Val_Input) < 0.1
End Sub

13466575268

山菊花 发表于 2019-12-18 21:44
Sub Iteration_Self(Val_Input_Range As Range, Val_Output_Range As Range)
   Dim Val_Input, Val_Outpu ...

版主，我一句一句调试，运行到Val_Input_Range.Value = Val_Input时就自动退出了程序，也没有结果

山菊花

13466575268 发表于 2019-12-18 22:21
版主，我一句一句调试，运行到Val_Input_Range.Value = Val_Input时就自动退出了程序，也没有结果

问题也许不在代码，猜不到是什么原因。