如何解决尝试使用 vba 执行目标搜索,目标为可变值
我的按钮出现问题。我想创建一个按钮,单击它时执行目标搜索分析。 目标寻求函数是一个简单的反向 DCF 计算,它应该找到当前股票价格的隐含增长率。p>
Private Sub CommandButton1_Click()
Dim Price As String,ImpliedPrice As String
Set ws = Sheet2
Set ws1 = Sheet6
ws.Select
Price = Range("C11")
ws1.Select
ws1.Range("G39").Select
ActiveCell.Value = Price
ws1.Select
Range("G38").GoalSeek Goal:=Price,ChangingCell:=("G8")
End Sub
变量如下: Sheet2 是我从中获取当前价格的地方,Sheet6 是 DCF 模型所在的地方,应该执行目标搜索。
G38 = 对隐含股价的引用,在引用的单元格中,我简单地将股权价值除以流通股,以便也能够以正常方式使用 DCF。
G8 = 收入增长率假设
执行代码时出现 1004 运行时错误,但我不确定为什么? 如果有人能帮我弄清楚为什么会出现这个运行时错误,那就太好了。 已经谢谢了
解决方法
如果您为您选择的工作表设置工作表变量?
试试下面。
Private Sub CommandButton1_Click()
Dim Price As String,ImpliedPrice As String
Set ws = thisworkbook.worksheets(Sheet2.name)
Set ws1 = thisworkbook.worksheets(Sheet6.name)
Price = ws .Range("C11")
ws1.Range("G39") = Price
ws1.Range("G38").GoalSeek Goal:=Price,ChangingCell:=ws1.range("G8")
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。