Расчет ячейки Excell

Question

Могу ли я установить ячейку в Excel, чтобы в ней была формула, чтобы при записи фигуры в эту ячейку она автоматически применяла формулу и вместо нее печатала вычисленную фигуру.

то есть; если в ячейке A1 я хочу написать число, скажем, 10; но я хочу, чтобы ячейка (A1) вычисляла 125% от 10. Результат 12,5; показано в ячейке A1

Answer 1

Поместите следующий макрос события рабочего листа в область кода рабочего листа:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rINT As Range
    Set rINT = Intersect(Target, Range("A1"))
    If rINT Is Nothing Then Exit Sub
    Application.EnableEvents = False
        Range("A1").Value = 1.25 * Range("A1").Value
    Application.EnableEvents = True
End Sub

Поскольку это код рабочего листа, его очень легко установить и использовать автоматически:

1. щелкните правой кнопкой мыши имя вкладки в нижней части окна Excel
2. выберите View Code - откроется окно VBE
3. вставьте материал и закройте окно VBE

Если у вас есть какие-либо проблемы, сначала попробуйте на пробную версию.

Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx

Чтобы удалить макрос:

1. вызвать окна VBE, как указано выше
2. очистить код
3. закройте окно VBE

Чтобы узнать больше о макросах в целом, смотрите:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

а также

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Чтобы узнать больше о макросах событий (код листа), см .:

http://www.mvps.org/dmcritchie/excel/event.htm

Макросы должны быть включены, чтобы это работало!

EDIT # 1:

Чтобы сделать это для блока ячеек, скажем, от A1 до A10, замените предыдущий макрос на:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rINT As Range, r As Range
    Set rINT = Intersect(Target, Range("A1:A10"))
    If rINT Is Nothing Then Exit Sub
    For Each r In rINT
        Application.EnableEvents = False
            r.Value = 1.25 * r.Value
        Application.EnableEvents = True
    Next r
End Sub