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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос предыдущих значений в ячейку при заполнении. VBA - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Перенос предыдущих значений в ячейку при заполнении. VBA
Triglav86 Дата: Воскресенье, 14.07.2019, 16:41 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Помогите с кодом.Через VBA. Нужно чтоб при заполнении показаний счётчиков так же брались данные с предыдущих показаний для правильного расчёта расхода.
К сообщению приложен файл: 4728525.xlsm (42.0 Kb) · 4858288.jpg (19.5 Kb)
 
Ответить
СообщениеПомогите с кодом.Через VBA. Нужно чтоб при заполнении показаний счётчиков так же брались данные с предыдущих показаний для правильного расчёта расхода.

Автор - Triglav86
Дата добавления - 14.07.2019 в 16:41
Pelena Дата: Воскресенье, 14.07.2019, 21:51 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19405
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Как-то так
[vba]
Код
        If nomer > 1 Then
            .Cells(nomer, 5).Value = .Cells(nomer - 1, 6).Value
            .Cells(nomer, 8).Value = .Cells(nomer - 1, 9).Value
        End If
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеКак-то так
[vba]
Код
        If nomer > 1 Then
            .Cells(nomer, 5).Value = .Cells(nomer - 1, 6).Value
            .Cells(nomer, 8).Value = .Cells(nomer - 1, 9).Value
        End If
[/vba]

Автор - Pelena
Дата добавления - 14.07.2019 в 21:51
Triglav86 Дата: Четверг, 18.07.2019, 14:15 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо! Решение подошло!
 
Ответить
СообщениеСпасибо! Решение подошло!

Автор - Triglav86
Дата добавления - 18.07.2019 в 14:15
  • Страница 1 из 1
  • 1
Поиск:

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