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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос содержимого ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос содержимого ячеек (Формулы/Formulas)
Перенос содержимого ячеек
NewWen Дата: Пятница, 13.03.2015, 20:47 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Создаю таблицу - показания водопроводных счетчиков. Как содержимое в столбце "старые показатели" заменились на содержимое ячеек столбца "новые показатели". Т.е. новые стали старыми, чтобы можно было ввести новые показатели. Пробовала через макрос записать и создать кнопку "Перенос данных". Но когда ввожу новые данные, они тут же обновляются без нажима на кнопку.
 
Ответить
СообщениеСоздаю таблицу - показания водопроводных счетчиков. Как содержимое в столбце "старые показатели" заменились на содержимое ячеек столбца "новые показатели". Т.е. новые стали старыми, чтобы можно было ввести новые показатели. Пробовала через макрос записать и создать кнопку "Перенос данных". Но когда ввожу новые данные, они тут же обновляются без нажима на кнопку.
Автор - NewWen
Дата добавления - 13.03.2015 в 20:47
buchlotnik Дата: Пятница, 13.03.2015, 20:52 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
NewWen, а файлик можно посмотреть?
 
Ответить
СообщениеNewWen, а файлик можно посмотреть?
Автор - buchlotnik
Дата добавления - 13.03.2015 в 20:52
Kuzmich Дата: Пятница, 13.03.2015, 21:51 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 715
Репутация: 157 ±
Замечаний: 0% ±

Excel 2003
По всей видимости вам нужно вести историю показаний счетчиков,
когда были сняты показания (дата), счетчики для холодной воды и горячей,
для одного потребителя или для группы?
Нужен ваш файл с более подробными пояснениями
 
Ответить
СообщениеПо всей видимости вам нужно вести историю показаний счетчиков,
когда были сняты показания (дата), счетчики для холодной воды и горячей,
для одного потребителя или для группы?
Нужен ваш файл с более подробными пояснениями
Автор - Kuzmich
Дата добавления - 13.03.2015 в 21:51
NewWen Дата: Суббота, 14.03.2015, 23:47 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Kuzmich, buchlotnik,спасибо за внимание. Лист задание - это для учеников моих.
К сообщению приложен файл: --.xlsm (24.8 Kb)


Сообщение отредактировал NewWen - Суббота, 14.03.2015, 23:49
 
Ответить
СообщениеKuzmich, buchlotnik,спасибо за внимание. Лист задание - это для учеников моих.
Автор - NewWen
Дата добавления - 14.03.2015 в 23:47
AlexM Дата: Воскресенье, 15.03.2015, 00:12 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

Excel 2003
Вариант.
Ваша задача вводить только конечные показания. Остальное делает макрос
К сообщению приложен файл: NewWen_1.xls (49.5 Kb)


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Воскресенье, 15.03.2015, 01:09
 
Ответить
СообщениеВариант.
Ваша задача вводить только конечные показания. Остальное делает макрос
Автор - AlexM
Дата добавления - 15.03.2015 в 00:12
_Boroda_ Дата: Воскресенье, 15.03.2015, 00:16 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16906
Репутация: 6615 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
    Range("D6:D11") = Range("E6:E11").Value
     Range("G6:G11") = Range("H6:H11").Value
     Range("E6:E11").ClearContents
     Range("H6:H11").ClearContents
[/vba]
К сообщению приложен файл: 8798797_1.xlsm (24.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
    Range("D6:D11") = Range("E6:E11").Value
     Range("G6:G11") = Range("H6:H11").Value
     Range("E6:E11").ClearContents
     Range("H6:H11").ClearContents
[/vba]
Автор - _Boroda_
Дата добавления - 15.03.2015 в 00:16
Kuzmich Дата: Воскресенье, 15.03.2015, 00:35 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 715
Репутация: 157 ±
Замечаний: 0% ±

Excel 2003
Для одного счетчика макрос, для остальных аналогично
[vba]
Код

Sub Кнопка9_Щелчок()
Dim Tabl As Worksheet
Dim NachDan As Integer
Dim KonDan As Integer
   Set Tabl = ThisWorkbook.Worksheets("Таблица")
     With Tabl
         NachDan = .Range("D6")
         KonDan = .Range("E6")
       .Range("D6") = .Range("E6")
       .Range("E6") = Application.InputBox("Введите конечные показания по ХВС для счетчика 1073487", 1)
         If .Range("E6") < .Range("D6") Then
           MsgBox "Конечные показанич не могут быть меньше начальных"
           .Range("D6") = NachDan
           .Range("E6") = KonDan
         End If
     End With
End Sub
[/vba]
 
Ответить
СообщениеДля одного счетчика макрос, для остальных аналогично
[vba]
Код

Sub Кнопка9_Щелчок()
Dim Tabl As Worksheet
Dim NachDan As Integer
Dim KonDan As Integer
   Set Tabl = ThisWorkbook.Worksheets("Таблица")
     With Tabl
         NachDan = .Range("D6")
         KonDan = .Range("E6")
       .Range("D6") = .Range("E6")
       .Range("E6") = Application.InputBox("Введите конечные показания по ХВС для счетчика 1073487", 1)
         If .Range("E6") < .Range("D6") Then
           MsgBox "Конечные показанич не могут быть меньше начальных"
           .Range("D6") = NachDan
           .Range("E6") = KonDan
         End If
     End With
End Sub
[/vba]
Автор - Kuzmich
Дата добавления - 15.03.2015 в 00:35
Kuzmich Дата: Воскресенье, 15.03.2015, 00:39 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 715
Репутация: 157 ±
Замечаний: 0% ±

Excel 2003
AlexM
Вы уверены, что приложили нужный файл?
 
Ответить
СообщениеAlexM
Вы уверены, что приложили нужный файл?
Автор - Kuzmich
Дата добавления - 15.03.2015 в 00:39
AlexM Дата: Воскресенье, 15.03.2015, 01:09 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

Excel 2003
Kuzmich, Спасибо. Ошибочка вышла. Файл заменил.


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеKuzmich, Спасибо. Ошибочка вышла. Файл заменил.
Автор - AlexM
Дата добавления - 15.03.2015 в 01:09
NewWen Дата: Воскресенье, 15.03.2015, 13:56 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
AlexM, Kuzmich, _Boroda_, Спасибо большое, столько вариантов. Все покажу ученикам, пусть учатся. hands
 
Ответить
СообщениеAlexM, Kuzmich, _Boroda_, Спасибо большое, столько вариантов. Все покажу ученикам, пусть учатся. hands
Автор - NewWen
Дата добавления - 15.03.2015 в 13:56
NewWen Дата: Воскресенье, 15.03.2015, 14:04 | Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, не совсем так, новые показатели перенести в старые , и очистить ячейки новых показателей для введения новых данных (конечных) показателей счетчиков.
 
Ответить
Сообщение_Boroda_, не совсем так, новые показатели перенести в старые , и очистить ячейки новых показателей для введения новых данных (конечных) показателей счетчиков.
Автор - NewWen
Дата добавления - 15.03.2015 в 14:04
NewWen Дата: Воскресенье, 15.03.2015, 14:08 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Kuzmich, yes hands
 
Ответить
СообщениеKuzmich, yes hands
Автор - NewWen
Дата добавления - 15.03.2015 в 14:08
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос содержимого ячеек (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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