Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Абсолютные и относительные ссылки в формулах, прописываемых макросом.
 
Доброе утро.
Макросом проставляю формулу:
Код
Cells(a, 17).FormulaR1C1 = "=SUM(R[1]C:R" & b & "C)"
Получается формула со знаком доллара:
Код
=СУММ(Q16:Q$22)
Мне нужно без этого знака.
Пробовал так:
Код
Cells(a, 17).FormulaR1C1 = "=SUM(R[1]C:R[" & b & "]C)"
получается:
Код
=СУММ(Q16:Q37)
т.е. некорректный нижний предел.
Не пойму как правильно проставить квадратные скобки.
Прошу помощи.
 
То есть макросом я определяю нижнюю границу суммируемого диапазона, "b" и номер этой строки проставляю в формулу.
 
mamalot, Вы бы свой код написали... :)
Изменено: AAF - 16 Апр 2018 09:11:45
 
Написать правильную формулу, встать в ячейку, включить запись, нажать F2 и Enter.
 
Как то так:
Код
Private Sub все_правильные_формулы_итожки()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    Application.DisplayStatusBar = False
    Application.DisplayAlerts = False
    ActiveSheet.Unprotect Password:="1111"
    
    If Left(ActiveSheet.name, 2) = "БЛ" Then
    d = 26
    Else
    d = 15
    End If
    
    lRow1 = Cells(Rows.Count, 12).End(xlUp).Row
    For i = d To lRow1
    
    If Cells(i, 25).Value > 0 And Cells(i + 1, 12).Value > 0 Then
    a = i
    c = i
    End If
    
    For j = 1 To 300
    If Cells(j + c + 1, 12).Value > 0 Then
    Else
    b = j + c
    Exit For
    End If
    Next
    If a = i Then
    Cells(a, 17).FormulaR1C1 = "=SUM(R[1]C:R" & b & "C)"
    
    For u = 32 To 55 Step 2
    If Cells(a, u).HasFormula Then
    Cells(a, u).FormulaR1C1 = "=IF(AND(RC17=0,R[2]C1=""ч"",R1C1>0),R[1]C1,IF(RC17>0,R[1]C1,0))"
    Cells(a, u + 1).FormulaR1C1 = "=IF(AND(RC17=0,R[2]C1=""д"",R1C1>0),R[1]C1,SUM(R[1]C:R" & b & "C))"
    End If
    Next
    End If
    Next
    
    lRow = Cells(Rows.Count, 12).End(xlUp).Row
    For i = d To lRow
    If Cells(i, 25).Value > 0 And Cells(i + 1, 12).Value > 0 Then
    Cells(i, 5).FormulaR1C1 = "=IF(AND(RC[12]=0,R[2]C[-4]=""ч"",R1C1>0),SUM(RC[27]+RC[29]+RC[31]+RC[33]+RC[35]+RC[37]+RC[39]+RC[41]+RC[43]+RC[45]+RC[47]+RC[49]),IF(RC[12]>0,SUM(RC[27]+RC[29]+RC[31]+RC[33]+RC[35]+RC[37]+RC[39]+RC[41]+RC[43]+RC[45]+RC[47]+RC[49]),0))"
    Cells(i, 6).FormulaR1C1 = "=R[0]C[1]+R[0]C[2]+R[0]C[5]"
    Cells(i, 7).FormulaR1C1 = "=IF(AND(RC[10]=0,R[2]C[-6]=""д"",R1C1>0,RC[17]=""" & Range("BG5").Value & """),SUM(RC[26]+RC[28]+RC[30]+RC[32]+RC[34]+RC[36]+RC[38]+RC[40]+RC[42]+RC[44]+RC[46]+RC[48]),IF(RC[17]=""" & Range("BG5").Value & """,RC[-2]*R5C61,0))"
    Cells(i, 8).FormulaR1C1 = "=R[0]C[1]+R[0]C[2]"
    Cells(i, 9).FormulaR1C1 = "=IF(AND(RC[8]=0,R[2]C[-8]=""д"",R1C1>0,RC[15]=""" & Range("BG6").Value & """),SUM(RC[24]+RC[26]+RC[28]+RC[30]+RC[32]+RC[34]+RC[36]+RC[38]+RC[40]+RC[42]+RC[44]+RC[46]),IF(RC[15]=""" & Range("BG6").Value & """,RC[-4]*R6C61,0))"
    Cells(i, 10).FormulaR1C1 = "=IF(AND(RC[7]=0,R[2]C[-9]=""д"",R1C1>0,RC[14]=""" & Range("BG7").Value & """),SUM(RC[23]+RC[25]+RC[27]+RC[29]+RC[31]+RC[33]+RC[35]+RC[37]+RC[39]+RC[41]+RC[43]+RC[45]),IF(RC[14]=""" & Range("BG7").Value & """,RC[-5]*R7C61,0))"
    
    If Cells(i + 1, 23).Value <> "Изоляция" Then
    Cells(i, 11).FormulaR1C1 = "=IF(AND(RC[6]=0,R[2]C[-10]=""д"",R1C1>0,RC[13]=""" & Range("BG8").Value & """),SUM(RC[22]+RC[24]+RC[26]+RC[28]+RC[30]+RC[32]+RC[34]+RC[36]+RC[38]+RC[40]+RC[42]+RC[44]),IF(RC[13]=""" & Range("BG8").Value & """,RC[-6]*R8C61,0))"
    Else
    Cells(i, 11).FormulaR1C1 = "=IF(AND(RC[6]=0,R[2]C[-10]=""д"",R1C1>0,OR(RC[13]=""" & Range("BG8").Value & """,RC[13]=""" & Range("BG9").Value & """)),SUM(RC[22]+RC[24]+RC[26]+RC[28]+RC[30]+RC[32]+RC[34]+RC[36]+RC[38]+RC[40]+RC[42]+RC[44]),IF(RC[13]=""" & Range("BG8").Value & """,RC[-6]*R8C61,IF(RC[13]=""" & Range("BG9").Value & """,RC[-6]*R9C61,0)))"
    End If
    
    Cells(i, 18).FormulaR1C1 = "=R[0]C[-1]+R[0]C[-12]"
    End If
    Next
    
    ActiveSheet.Protect Password:="1111", UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowFiltering:=True
        Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.DisplayStatusBar = True
    Application.DisplayAlerts = True
    Application.Calculation = xlAutomatic
End Sub
Проблема в строке 31.
Изменено: mamalot - 16 Апр 2018 09:20:28
 
mamalot, Просто нужную формулу, записанную как нужно и привычно, посмотреть или в режиме листа, переключив в режим R1C1,  или получить это через VBA , .FormulaR1C1 ,  а после разобраться и прописать что нужно в свой код.
 
mamalot, в квадратных скобках величина относительного смещения, а без них - абсолютная ссылка...
Если Вы используете абсолютную величину для относительной ссылки, то будет косяк! Пересчитайте абсолютное значение на смещение (разность) и будет вам счастье...
 
Код
Cells(a, 17).FormulaR1C1 = "=SUM(R[1]C:R[" & b-a & "]C)"
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Спасибо.
Помогло :) !
Страницы: 1
Читают тему (гостей: 1)