Question

我的工作表设置如下：

$B$13 = the string "'TopCap'!$C$12"
$D$13 = the string "'TopCap'!$E$12"

Worksheet TopCap单元格$ C $ 12中的单元格具有Goal Seek所需的公式。 TopCap！$ E $ 12是更换电池的地方。

这是我的代码：

Private Sub CommandButton1_Click()

    Range("$B$13").GoalSeek _
        goal:=Range("$C$13").Value, _
        ChangingCell:=Range("$D$13").Value

End Sub

如何在TopCap的单元格中编写代码以使GoalSeek Range显示公式？喜欢Range（＆＃39; TopCap＆＃39;！$ C $ 12）.GoalSeek _

我希望我已经很好地描述了这一点。请问我是否需要更好地描述它。

感谢任何帮助。富

Answer 1

你需要嵌套几个Range object个;一个放置Range.Value property，另一个放置第一个，使用单元格的值来定义范围。

Private Sub CommandButton1_Click()

    Range(Range("B13").Value).GoalSeek _
        Goal:=Range(Range("C13").Value), _
        ChangingCell:=Range(Range("D13").Value)

End Sub

所以Range(Range("D13").Value).Address(external:=True)将解析为TopCap'！$ E $ 12.

我从字符串单元格地址中删除了 $ 绝对锚点。作为字符串，它们不会改变也不必要。这是一个私有子，因此父级工作表参考可能没有必要（例如Range("D13").Value），但将其包含在With ... End With statement中并不是一个坏主意。

引用在另一个单元格中的字符串中定义的单元格

1 个答案: