63、股票投资组合优化应用的VBA实现

股票投资组合优化应用的VBA实现

1. 工作簿打开事件

当工作簿打开时，会执行以下代码：

Private Sub Workbook_Open()
    With wsExplanation
        .Activate
        .Range("F4").Select
    End With
    frmSolver.Show
End Sub

此代码的作用是激活 wsExplanation 工作表，并选中该工作表的 F4 单元格，然后显示 frmSolver 用户窗体。

2. 用户窗体设计与功能

2.1 frmStocks 窗体

frmStocks 窗体包含常见的“确定”和“取消”按钮、一个解释标签以及一个名为 lbCompanies 的列表框。在设计时，需要对列表框的三个属性进行更改：
- MultiSelect 属性设置为选项 2，这样可以选择多个公司。
- ColumnCount 属性设置为 2。
- RowSource 属性设置为 Stocks ，该名称对应 Stocks 工作表中包含公司列表和股票代码的范围。

以下是该窗体的事件处理代码：