Excel VBA高效办公应用-第五章-销售数据的处理与分析-Part1（自动插入多张图表）

1. 对商品库存的需求分析

代码段1-计算需求量并影藏无关行

Public Sub DemandCalc()
    Application.ScreenUpdating = False
'定义用于循环的整型变量
Dim i As Integer
    For i = 2 To 72
     '判断库存量是否小于订购量
        If Cells(i, 4) < Cells(i, 5) Then
        '如果小于，则计算“需求量”
            Cells(i, 6) = Cells(i, 5) - Cells(i, 4)
            '选择"需求量"单元格
            Cells(i, 6).Select
            '为库存不足的"需求量"单元格设置底色
            Selection.Interior.ColorIndex = 15
        Else
            '选择第i行
            Rows(i).Select
            '把库存剩余的行“隐藏”
            Selection.EntireRow.Hidden = True
        End If
    Next i
    Application.ScreenUpdating = True
End SubPublic Su