Перейти к содержанию

sergeypassat

Старички
  • Публикаций

    65
  • Зарегистрирован

  • Посещение

1 Подписчик

Посетители профиля

655 просмотров профиля

sergeypassat's Achievements

2

Репутация

  1. Ребёнку надо было новую карту , он всеми правдами и не правдами пытался вытянуть её , зачем он её сдавал в сервис , ну наверное хотел что бы ему написали что она старая уже .
  2. Замазано , не причина , а имя , фамилия , того кто сдавал , так что попрошу извинится , не кого за лохов не считаю , что за наезды ?
  3. Просто так , не я сдавал , карта с гаджета сына , ему чёт приспичило .
  4. Карту сдавал на тест , есть заключение
  5. Сам предложу первую ставку , 2500 , кто больше?
  6. Продам , Sapphire AMD Radeon RX 550 PULSE , предлагайте цену , если устроит , продам .
  7. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ' Если изменения произошли не на Листе1, то ничего не делать If Sh.Name <> Лист1.Name Then Exit Sub ' Если изменения произошли не в [B2], то ничего не делать If Not (Target.Address = [B1].Address Or Target.Address = [D1].Address Or Target.Address = [C1].Address) Then Exit Sub ' ===== Записать историю изменения значений ячейки [B2] ===== Dim rng As Range, СтрокаДляЗаписи As Range ' Задать диапазон таблицы данных Set rng = [A3].CurrentRegion ' Отпределить последнюю строку для записи Set СтрокаДляЗаписи = rng.Rows(1).Offset(rng.Rows.Count).Cells ' Добавить в конец дату+время и значение СтрокаДляЗаписи(1, 1) = Now СтрокаДляЗаписи(1, 2).Resize(, 3).Value = Range("$B$1:$D$1").Value ' Переопределить именованный диапазон [БД] Sh.Names.Add Name:="БД", RefersTo:="=" & rng.CurrentRegion.Address ' Переопределить диапазон данных диаграммы Sh.ChartObjects(1).Chart.SetSourceData Source:=Sh.Range("БД") End Sub Чутка подправил , что бы сдвиг был равномерным . Может кому пригодится . Ещё раз спасибо.
  8. Нет , они всё ровно сохраняются в столбце B , надо что бы каждое значение в своём столбце сдвигала данные в низ
  9. В архиве может . 3146_Автоматическое_копирование_значения_по_времени.rar 3146_Автоматическое_копирование_значения_по_времени.rar
  10. Если возможно , подправить , сделайте пожалуйста . 3146_Автоматическое_копирование_значения_по_времени.xls
×
×
  • Создать...