Excel金融建模问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

本人在学excel金融建模，下面的代码是调用规划求解，求解有卖空限制的有效投资组合，但是运行时，会出现：Range作用于对象'Global‘时失败，新手不懂，求高人指点呀
Option Explicit
Sub Solve()
    SolverOk SetCell:="$b$27", MaxMinVal:=1, ValueOf:="0", ByChange:="$b$19:$b$22"
    SloverSolve UserFinish:=True
End Sub
Sub doit()
    Dim counter
    Range("Results").ClearContents
    For counter = 1 To 40
        Range("constant") = -0.04 + counter * 0.005
        Solve
        Application.SendKeys ("{Enter}")
        Range("Result").Cells(counter, 1) = ActiveSheet.Range("constant")
        Range("Result").Cells(counter, 2) = ActiveSheet.Range("portfolio_sigma")
        Range("Result").Cells(counter, 3) = ActiveSheet.Range("portfolio_mean")
        Range("Result").Cells(counter, 4) = ActiveSheet.Range("x_1")
        Range("Result").Cells(counter, 5) = ActiveSheet.Range("x_2")
        Range("Result").Cells(counter, 6) = ActiveSheet.Range("x_3")
        Range("Result").Cells(counter, 7) = ActiveSheet.Range("x_4")
    Next counter
End Sub

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：EXCEL xcel exce 金融建模 cel Excel

光看你的程序，只能看出你的SolverSolve拼写错误，你拼成Slo...。其他看上去不一定错，但是你的出错信息表明你的一些range的定义可能没定义好，例如"Results"定义了吗？光看你的图和程序不得而知。还有：EXCEL应该会告诉你错在哪个地方的，你在出错信息出现时点击debug,程序会用黄色标出出错的语句，这样可大大方便你查错。

同意楼上，你可以看看黄色的错误标签出现在哪一行。我怀疑例如Range("x1")，x1 是一个cell，你可以直接用.cell，range+cell的用法一般是range(cell1,cell2),如果只是一个cell可能会出问题。好久不碰VBA基本忘光了，随便留点愚见。

TimeT 发表于 2014-3-29 19:24
光看你的程序，只能看出你的SolverSolve拼写错误，你拼成Slo...。其他看上去不一定错，但是你的出错信息表明 ...

出错的是Range("Results").ClearContents，可是我定义了Results啊

liukuan303 发表于 2014-3-29 20:56
出错的是Range("Results").ClearContents，可是我定义了Results啊

那么要不你把"Results"改成你定义的格子地址试试，例如你把"X1:Y10"定义成Results,你把你那句改成Range("X1:Y100").ClearContents试试。如果成功，就说明你的"Results"没定义，或定义有问题。

鼓励积极讨论