Макрос, чтобы добавить с отдельной очейки в рядом стоящую

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Макрос, чтобы добавить с отдельной очейки в рядом стоящую (Формулы/Formulas)

fotostudiyaneo

Дата: Вторник, 22.08.2023, 14:57 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 20% ±

10

Добрый день.
Делаю таблицу должников, хочу чтобы добавлять еще сумму к его долгу. Т.е получается у него долг 14000р, чтобы эту сумму заново не водить, хочу рядом в ячейку ввести например 1000р, и эта 1000р прибавилась к той 14000р. Вот что у меня получилось в итоге:
[vba]

Код

If Not Intersect(cell, Range("G2:G10000")) Is Nothing Then
            With cell.Offset(0, -2)
                .Value = cell.Offset(0, -2) + cell.Offset(0, 0)
            End With
            With cell.Offset(0, 0)
                .Value = ""
            End With
End If

[/vba]

Ответить

Oh_Nick

Дата: Вторник, 22.08.2023, 16:19 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

fotostudiyaneo, Так?

К сообщению приложен файл: list_microsoft_excel.xlsm (17.3 Kb)

Ответить

fotostudiyaneo

Дата: Вторник, 22.08.2023, 16:34 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 20% ±

10

Oh_Nick, Да, типа того. Только ячейка в которую добавил долг к сумме чтобы очистилась. То что я сделал приложил файлом. Работает, но выдает ошибку:
Method 'Value' of object 'Range' failed

К сообщению приложен файл: uchet_zakazov_super_novyj.xlsm (85.7 Kb)

Ответить

Oh_Nick

Дата: Вторник, 22.08.2023, 16:41 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

fotostudiyaneo, вроде так

К сообщению приложен файл: 7627285.xlsm (17.1 Kb)

Ответить

fotostudiyaneo

Дата: Вторник, 22.08.2023, 17:28 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 20% ±

10

Oh_Nick, Отлично. Спасибо брат

Ответить

MikeVol

Дата: Вторник, 22.08.2023, 17:45 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 318

Репутация: 64 ±

Замечаний: 0% ±

Excel LTSC 2021 EN

fotostudiyaneo, Здравствуйте. Не смотрел что там в файлах. Ещё как вариант:
[vba]

Код

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then

        If IsNumeric(Target.Value) Then
            Target.Offset(0, -1).Value = Target.Offset(0, -1).Value + Target.Value
            Target.Value = ""
        End If

    End If

End Sub

[/vba]
Диапазон меняйте на свой. Удаччи.

Ученик.

Ответить

Макрос, чтобы добавить с отдельной очейки в рядом стоящую (Формулы/Formulas)

Страница 1 из 1
1