Следующее решение на основе макросов. Поместите следующий макрос событий в область кода рабочего листа:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim BC As Range, t As Range, v As Variant
Dim r As Long
Set t = Target
Set BC = Range("B:C")
If Intersect(t, BC) Is Nothing Then Exit Sub
Application.EnableEvents = False
r = t.Row
v = t.Value
If v = "" Then
Range("B" & r & ":C" & r).Value = ""
End If
If IsNumeric(v) Then
If Intersect(t, Range("C:C")) Is Nothing Then
t.Offset(0, 1).Value = v * 1.2
Else
t.Offset(0, -1).Value = v / 1.2
End If
End If
Application.EnableEvents = True
End Sub
Поскольку это код рабочего листа, его очень легко установить и использовать автоматически:
- щелкните правой кнопкой мыши имя вкладки в нижней части окна Excel
- выберите View Code - откроется окно VBE
- вставьте материал и закройте окно VBE
Если у вас есть какие-либо проблемы, сначала попробуйте на пробную версию.
Если вы сохраните книгу, макрос будет сохранен вместе с ней.
Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx
Чтобы удалить макрос:
- вызвать окна VBE, как указано выше
- очистить код
- закройте окно 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
Макросы должны быть включены, чтобы это работало !