Ошибка 9 во время выполнения, субиндекс вне диапазона

Private Sub CommandButton5_Click()
    CommandButton5.BackColor = 12713921

    '===========================================================================================
    '                                    VARIABLES
    '===========================================================================================
    'i = 1000
    'Do Until Cells(i, 2) = ""
    'If i < 10 Then
    'End If
    Dim py, pb, veltestactual, NFD, API, Tfondo, BSW, GravAgua, Pcasing, ViscoFluido, ProfBomba, PMP, Caudaltestactual, rppmoper, PIPtomado, Diametro As Double
    Dim THP, Voltaje, Corriente, FactorPotencia, LongitudCable, EffMotor, NumSellos, EffBomba As Double
    Dim n As Double
    Dim X1, X2, Y1, Y2, x As Double

    case1 = ActiveCell.Row
    cases = Selection.Rows.Count
    lastcase = case1 + cases - 1

    'Return
    For n = case1 To lastcase

    'Pwf = Cells(n, 24)
    py = Cells(n, 17)
    pb = Cells(n, 9)
    veltestactual = Cells(n, 35)
    NFD = Cells(n, 23)
    API = Cells(n, 6)
    Tfondo = Cells(n, 10)
    BSW = Cells(n, 8)
    GravAgua = 1
    Pcasing = Cells(n, 50)
    ViscoFluido = Cells(n, 13)
    ProfBomba = Cells(n, 29)
    PMP = Cells(n, 28)
    Caudaltestactual = Cells(n, 48)
    rpmoper = Cells(n, 34)
    PIPtomado = Cells(n, 40)
    Diametro = Cells(n, 31)
    THP = Cells(n, 51)
    Voltaje = Cells(n, 41)
    Corriente = Cells(n, 37)
    FactorPotencia = Cells(n, 47)
    LongitudCable = Cells(n, 42)
    EffMotor = Cells(n, 43)
    NumSellos = 2

    '=================================================================
    '               CALCULO DEL CAUDAL ACTUAL
    '=================================================================

    Caudalactual = Caudaltestactual * (rpmoper / veltestactual)
    '==================================================================
    '              EFFICIENCIA DE LA BOMBA
    '==================================================================
    Select Case Caudalactual

    Case Is < 500
    X1 = 0
    X2 = 500
    Y1 = 0
    Y2 = 30
    x = Caudalactual
    EffBomba = (((x - X1) * (Y2 - Y1) / (X2 - X1)) + Y1) / 100

    Case 500.01 To 1000
    X1 = 500.01
    X2 = 1000
    Y1 = 30
    Y2 = 46
    x = Caudalactual
    EffBomba = (((x - X1) * (Y2 - Y1) / (X2 - X1)) + Y1) / 100  aqui se presenta el error.

Я не нахожу, что нужно сделать, чтобы устранить ошибку и иметь возможность продолжить, я объявил переменные как удвоенные десятичные и целые числа, и ничего, я был бы признателен за вашу помощь

0
задан 28.11.2019, 08:31
1 ответ

Иногда, когда ты заявляешь:

Dim var1, var2 as Double 

Последует за тем, что var2 Double, но var1 variant, потом ты распределяешь стоимость var1 и определяют возможного несовершеннолетнего, например в байт.

Я Думаю, что это вирус .

-1
ответ дан 01.12.2019, 10:48