Как в модуле, менять значение переменной в зависимости от выбранного Листа

[EugeneS]

напишите так и все будет в порядке, например, ячейка "А1":

[a1].FormulaR1C1 = "=(R[-4]C[1]-R[4]C[1])": [a1]=[a1]*процент

Если все же необходимо вписать сразу в формулу, можно сделать так, например:

процент = 0.3
ActiveWorkbook.Names.Add Name:="процент", RefersToR1C1:=процент
[a1].FormulaR1C1 = "=(R[3]C[0]-R[3]C[1])*процент"

[valerij]

Сообщение от EugeneS

например, ячейка "А1":

У меня же так

With Cells(dat * 44 + 39, 7)
        .FormulaR1C1 = "=(R[-4]C[1]-R[4]C[1])* " & процент
            .NumberFormat = "0"
        .Value = .Value
End With

[EugeneS]

процент = 0.3
With Cells(dat * 44 + 39, 7)
        .FormulaR1C1 = "=(R[-4]C[1]-R[4]C[1])"
        .Value = .Value * процент
        .NumberFormat = "0"
        .Value = .Value
End With

[valerij]

Сообщение от EugeneS

процент = 0.3
With Cells(dat * 44 + 39, 7)
        .FormulaR1C1 = "=(R[-4]C[1]-R[4]C[1])"
        .Value = .Value * процент
        .NumberFormat = "0"
        .Value = .Value
End With

Ну, наконец- то, фу....
Спасибо!

Но все равно, когда то, было решение, умножение формулы на ~

[motorway]

Когда вы наводите мышку на переменную на строке, отмеченной желтым (с ошибкой), то там должно показаться Empty, если это так и есть на самом деле. И тогда уж точно можно понять, что стало причиной ошибки. Если это переменная "процент", надо лишь посмотреть, почему она пустая. Если это-то что-то другое, там будет видно

[valerij]

Сообщение от motorway

Когда вы наводите мышку на переменную на строке, отмеченной желтым (с ошибкой), то там должно показаться Empty, если это так и есть на самом деле. И тогда уж точно можно понять, что стало причиной ошибки. Если это переменная "процент", надо лишь посмотреть, почему она пустая. Если это-то что-то другое, там будет видно

Не, "процент", не пустой, показывает = 0,039

А может само умножение надо связать, через & ?

[VictorM]

Вот так работает

Sub ПроверкаЗарПлаты()
    Application.EnableEvents = False: Application.ScreenUpdating = False
    If (ActiveSheet.Name = "Лист1") Then Procent = "0.039"
    If (ActiveSheet.Name = "Лист2") Then Procent = "0.042"
    If (ActiveSheet.Name = "Лист3") Then Procent = "0.0465"
    For dat = 0 To 30
        With Cells(dat * 44 + 39, 7)
            .FormulaR1C1 = "=R[-4]C[1]-R[4]C[1]* " & Procent
            .NumberFormat = "0"
            .Value = .Value
        End With
    Next
    Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

[valerij]

Сообщение от VictorM

Вот так работает

Не правильно работает, у тебя формула имеет такой вид

=H35-H43* 0,039

надо
=(H35-H43) * 0,039
но это ладно, в пустой, новой, книги работает, а в моей, нет, ищу...
Хотя вот так, все ОК!!

Sub ПроверкаЗарПлаты()
Dim процент#
Application.EnableEvents = False: Application.ScreenUpdating = False
If (ActiveSheet.Name = "ЛЕН") Then процент = 0.039
If (ActiveSheet.Name = "КИЕВ") Then процент = 0.042
If (ActiveSheet.Name = "ДЕНИС") Then процент = 0.0465
    For dat = 0 To 30
        Cells(dat * 44 + 39, 7) = (Cells(dat * 44 + 35, 8) - Cells(dat * 44 + 43, 8)) * процент
        Cells(dat * 44 + 39, 7).NumberFormat = "0"
    Next
Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

[VictorM]

Не правильно работает, у тебя формула имеет такой вид
Код:

=H35-H43* 0,039

надо

=(H35-H43) * 0,039

Согласен, пока код копал, скобки куда-то делись)))
И тем не менее, работает и со скобками:

Sub ПроверкаЗарПлаты()
    Application.EnableEvents = False: Application.ScreenUpdating = False
    If (ActiveSheet.Name = "Лист1") Then Procent = "0.039"
    If (ActiveSheet.Name = "Лист2") Then Procent = "0.042"
    If (ActiveSheet.Name = "Лист3") Then Procent = "0.0465"
    For dat = 0 To 30
        With Cells(dat * 44 + 39, 7)
            .FormulaR1C1 = "=(R[-4]C[1]-R[4]C[1])* " & Procent
            .NumberFormat = "0"
            .Value = .Value
        End With
    Next
    Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

И формула имеет нужный вид =(H35-H43) * 0,039

[valerij]

Сообщение от VictorM

И тем не менее, работает

Да, работает, перехожу в свою книгу, не работает!!
Я фигею, ни чего не делал, все заработало.