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

Вход

Регистрация

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

 

= Мир MS Excel/Два столбца взаимосвязь - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Два столбца взаимосвязь
Вирусолог Дата: Понедельник, 13.08.2018, 11:38 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
стоит простая задача: есть два столбца - резерв и отгружено. в резерв значения мы пишем произвольные. в отгружено тоже произвольные, НО! при записи в отгружено цифра из отгружено должна вычитаться из резерва.
Как это сделать?
 
Ответить
Сообщениестоит простая задача: есть два столбца - резерв и отгружено. в резерв значения мы пишем произвольные. в отгружено тоже произвольные, НО! при записи в отгружено цифра из отгружено должна вычитаться из резерва.
Как это сделать?

Автор - Вирусолог
Дата добавления - 13.08.2018 в 11:38
китин Дата: Понедельник, 13.08.2018, 11:42 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
макросом. при наличии файла-примера


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениемакросом. при наличии файла-примера

Автор - китин
Дата добавления - 13.08.2018 в 11:42
Вирусолог Дата: Понедельник, 13.08.2018, 11:51 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
поможете с написанием макроса
К сообщению приложен файл: 5584568.xlsx (9.2 Kb)


Сообщение отредактировал Вирусолог - Понедельник, 13.08.2018, 11:51
 
Ответить
Сообщениепоможете с написанием макроса

Автор - Вирусолог
Дата добавления - 13.08.2018 в 11:51
китин Дата: Понедельник, 13.08.2018, 12:20 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
на коленке
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim ttt As Long
ttt = Range("E" & Rows.Count).End(xlUp).Row
    If Not Intersect(Target, Range("G2:G" & ttt)) Is Nothing Then
      
        If IsNumeric(Target.Value) Then
            Application.EnableEvents = False
            Target.Offset(0, -1).Value = Target.Offset(0, -1).Value - Target.Value
            Application.EnableEvents = True
        End If
     
    End If
    
End Sub
[/vba]
К сообщению приложен файл: 8021093.xlsm (14.8 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениена коленке
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim ttt As Long
ttt = Range("E" & Rows.Count).End(xlUp).Row
    If Not Intersect(Target, Range("G2:G" & ttt)) Is Nothing Then
      
        If IsNumeric(Target.Value) Then
            Application.EnableEvents = False
            Target.Offset(0, -1).Value = Target.Offset(0, -1).Value - Target.Value
            Application.EnableEvents = True
        End If
     
    End If
    
End Sub
[/vba]

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

Excel 2016
Спасибо! Очень выручили!
 
Ответить
СообщениеСпасибо! Очень выручили!

Автор - Вирусолог
Дата добавления - 13.08.2018 в 12:27
  • Страница 1 из 1
  • 1
Поиск:

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