主题：列类型不同，绘制单元格计算占比

Select Case e.Col.name
    Case "1月", "2月"
        If e.Row("项目") = "达成率" Then
            Dim ia1 As Double
            Dim ia2 As Double
            Dim ia3 As  Double
           
            ia1 = DataTables("开模总分析").Compute("sum(" & e.Col.name & ")","项目 = '量产模' and 年份 = '" & e.Row("年份") & "'")
            ia2 = DataTables("开模总分析").Compute("sum(" & e.Col.name & ")","项目 = '目标' and 年份 = '" & e.Row("年份") & "'")
            ia3 = round2(ia1/ia2,4)
           
            If ia2 < 0.0001 Then
                e.text = "0.00%"
            Else
                e.Text = ia3 * 100 & "%"
            End If
        End If
End Select