-1

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

1 ответ1

2

Я совершенно уверен, что это невозможно без VBA.

Я обычно использую этот код VBA для таких задач:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrHnd
Dim cell As Range

'This is the place where you put cells which are affected (A2 in this case)
If Not Intersect(Target, Me.Range("A2")) Is Nothing Then
    Application.EnableEvents = False
    For Each cell In Target
        cell.Value = cell.Value - 0.5
    Next
End If

ErrHnd:
    Application.EnableEvents = True
End Sub

Есть место для определения ячеек, которые будут затронуты этим кодом. Просто поменяйте часть "A2" . Вы можете поставить там диапазоны и разделить их запятыми, то есть "A2:A3,A5" .

Часть cell.Value = cell.Value - 0.5 - фактическое вычитание дроби. В настоящее время он вычитает 0,5, но вы также можете изменить его.

Вы должны скопировать его в модуль Sheet в VBA Editor. VBA Editor открывается после комбинации клавиш Alt + F11.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .