Нужно вводить в ячейку значения и чтобы в этой же ячейке показывался результат, можно так сделать? Например есть количество 10, есть значение одной единицы например 1,2, значит в ячейку надо прописать =1,2*10 А можно сделать так чтобы в ячейку вписать некую формулу, где 1,2 будет вводом, а не заранее записанным числом? То есть пишу в ячейке 1,3 нажимаю интер - показывает 13, пишу в ячейке 1,4 нажимаю интер - показывает 14.
Нужно вводить в ячейку значения и чтобы в этой же ячейке показывался результат, можно так сделать? Например есть количество 10, есть значение одной единицы например 1,2, значит в ячейку надо прописать =1,2*10 А можно сделать так чтобы в ячейку вписать некую формулу, где 1,2 будет вводом, а не заранее записанным числом? То есть пишу в ячейке 1,3 нажимаю интер - показывает 13, пишу в ячейке 1,4 нажимаю интер - показывает 14.wolfire
Private Sub Worksheet_Change(ByVal Target As Range) ad_ = "A1" If Target.Address(0, 0) = ad_ Then If IsNumeric(Range(ad_)) Then Application.EnableEvents = 0 Target = Target * 10 Application.EnableEvents = 1 Target.Select 'возврат в эту же ячейку нужно? End If End If End Sub
[/vba]
Так нужно? Для ячейки А1 [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) ad_ = "A1" If Target.Address(0, 0) = ad_ Then If IsNumeric(Range(ad_)) Then Application.EnableEvents = 0 Target = Target * 10 Application.EnableEvents = 1 Target.Select 'возврат в эту же ячейку нужно? End If End If End Sub
Только число 10 это значение другой ячейки, то есть возможно надо записать что-то вроде A2 например, вместо 10. Это макрос? И работает он только для конкретной ячейки, скопировать размножить его не получиться?
Только число 10 это значение другой ячейки, то есть возможно надо записать что-то вроде A2 например, вместо 10. Это макрос? И работает он только для конкретной ячейки, скопировать размножить его не получиться?wolfire