Excel VBA高效办公应用-第八章-商品销售决策与分析-Part1 （商品销售方式决策）

代码如下：

Public Sub 商品销售方式()
'定义用于循环的整型变量
Dim i As Integer
    '选择“商品销售方式决策”工作表
    Sheets("商品销售方式决策").Select
    '使用For……Next循环语句
    For i = 2 To 7
        '计算“自销毛利润”值
        Cells(10, i) = (Cells(3, i) - Cells(6, i) - Cells(7, i) - _
                Cells(8, i)) * Cells(5, i) - Cells(9, i)
        '计算“代销毛利润”值
        Cells(11, i) = Cells(4, i) * Cells(5, i)
        '判断“代销毛利润”值是否大于“自销毛利润”值
        If Cells(11, i) > Cells(10, i) Then
            '设置“是否采取代销（是/否）”的值为“是”
            Cells(12, i) = "是"
            '设置“是否采取代销（是/否）”对应单元格的底色为“灰色”
            Cells(12, i).Interior.ColorIndex = 15
        Else
            '设置“是否采取代销（是/否）”的值为“否”
            Cells(12, i) = "否"
            '设置“是否采取代销（是/否）”对应单元格的底色为“无色”
            Cells(12, i).Interior.ColorIndex = xlNone
        End If
        '计算“毛利润相等时的数量”值
        Cells(13, i) = Int(Cells(9, i) / (Cells(3, i) - Cells(4, i) - _
                Cells(6, i) - Cells(7, i) - Cells(8, i)))
        '计算“毛利润相等时的毛利润”值
        Cells(14, i) = Cells(13, i) * Cells(4, i)
    Next i
    Charts.Add    '插入"商品销售方式决策"图表
    '定义图表类型
    ActiveChart.ChartType = xlColumnClustered
    '为图表指定数据源
    ActiveChart.SetSourceData Source:=Sheets("商品销售方式决策"). _
                Range("A2:G2,A10:G11"), PlotBy:=xlRows
    '指定插入图表的位置
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
        '使图表的标题属性为真
        .HasTitle = True
        '设置图表的标题
        .ChartTitle.Characters.Text = "商品销售方式决策"
    End With
End Sub