Question

如果单元格的值不等于0，那么它会加起来，X = X + 1，这样我就可以看到需要打印多少页面。我不确定这是否是最好的方法，但这是我到目前为止所做的。需要一切帮助！这只是一个工作的副项目，所以时间不是问题。我也是在Excel中创建它。

    Sub Find_Pages_to_Print()

    Sheets("Invoice").Select

    Dim X As Integer
    If Not Range("D9").Value = 0 Then
    X = X + 1



    If Not Range("D41").Value = 0 Then
    X = X + 1


       If Not Range("D70").Value = 0 Then
        X = X + 1


            If Not Range("D100").Value = 0 Then
            X = X + 1
            Else:
            X = X + 0



                If Not Range("D131").Value = 0 Then
                X = X + 1


                    If Not Range("D161").Value = 0 Then
                    X = X + 1


                        If Not Range("191").Value = 0 Then
                        X = X + 1
                        Else:
                        X = X + 0



                            If Not Range("D221").Value = 0 Then
                            X = X + 1


                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
End If

MsgBox "Sets to Print: " & X
End Sub

Answer 1

问题在于：

If Not Range("191").Value = 0 Then

你可能想要

If Not Range("D191").Value = 0 Then

对象_global的VBA运行时错误1004范围失败

1 个答案: