Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос, чтобы добавить с отдельной очейки в рядом стоящую (Формулы/Formulas)
Макрос, чтобы добавить с отдельной очейки в рядом стоящую
fotostudiyaneo Дата: Вторник, 22.08.2023, 14:57 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 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]
 
Ответить
СообщениеДобрый день.
Делаю таблицу должников, хочу чтобы добавлять еще сумму к его долгу. Т.е получается у него долг 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]

Автор - fotostudiyaneo
Дата добавления - 22.08.2023 в 14:57
Oh_Nick Дата: Вторник, 22.08.2023, 16:19 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

Excel 2019
fotostudiyaneo, Так?
К сообщению приложен файл: list_microsoft_excel.xlsm (17.3 Kb)
 
Ответить
Сообщениеfotostudiyaneo, Так?

Автор - Oh_Nick
Дата добавления - 22.08.2023 в 16:19
fotostudiyaneo Дата: Вторник, 22.08.2023, 16:34 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 20% ±

10
Oh_Nick, Да, типа того. Только ячейка в которую добавил долг к сумме чтобы очистилась. То что я сделал приложил файлом. Работает, но выдает ошибку:
Method 'Value' of object 'Range' failed
К сообщению приложен файл: uchet_zakazov_super_novyj.xlsm (85.7 Kb)
 
Ответить
СообщениеOh_Nick, Да, типа того. Только ячейка в которую добавил долг к сумме чтобы очистилась. То что я сделал приложил файлом. Работает, но выдает ошибку:
Method 'Value' of object 'Range' failed

Автор - fotostudiyaneo
Дата добавления - 22.08.2023 в 16:34
Oh_Nick Дата: Вторник, 22.08.2023, 16:41 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

Excel 2019
fotostudiyaneo, вроде так
К сообщению приложен файл: 7627285.xlsm (17.1 Kb)
 
Ответить
Сообщениеfotostudiyaneo, вроде так

Автор - Oh_Nick
Дата добавления - 22.08.2023 в 16:41
fotostudiyaneo Дата: Вторник, 22.08.2023, 17:28 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 20% ±

10
Oh_Nick, Отлично. Спасибо брат
 
Ответить
СообщениеOh_Nick, Отлично. Спасибо брат

Автор - fotostudiyaneo
Дата добавления - 22.08.2023 в 17:28
MikeVol Дата: Вторник, 22.08.2023, 17:45 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 292
Репутация: 51 ±
Замечаний: 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]
Диапазон меняйте на свой. Удаччи.


Ученик.
 
Ответить
Сообщение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]
Диапазон меняйте на свой. Удаччи.

Автор - MikeVol
Дата добавления - 22.08.2023 в 17:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос, чтобы добавить с отдельной очейки в рядом стоящую (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!