sergeypassat
Старички-
Публикаций
65 -
Зарегистрирован
-
Посещение
Посетители профиля
655 просмотров профиля
sergeypassat's Achievements
2
Репутация
-
Ребёнку надо было новую карту , он всеми правдами и не правдами пытался вытянуть её , зачем он её сдавал в сервис , ну наверное хотел что бы ему написали что она старая уже .
-
Замазано , не причина , а имя , фамилия , того кто сдавал , так что попрошу извинится , не кого за лохов не считаю , что за наезды ?
-
Просто так , не я сдавал , карта с гаджета сына , ему чёт приспичило .
-
Карту сдавал на тест , есть заключение
-
Сам предложу первую ставку , 2500 , кто больше?
-
Продам , Sapphire AMD Radeon RX 550 PULSE , предлагайте цену , если устроит , продам .
-
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 Чутка подправил , что бы сдвиг был равномерным . Может кому пригодится . Ещё раз спасибо.
- 13 538 ответов
-
- закипанки с винчиком
- ищу гамак
- (и ещё 4 )
-
Форум что то совсем зависает . Спасибо , большое .Всё работает как надо .
- 13 538 ответов
-
- закипанки с винчиком
- ищу гамак
- (и ещё 4 )
-
Нижний не качается Скачал , блин огромное спасибо , ковыряю уже неделю .
- 13 538 ответов
-
- закипанки с винчиком
- ищу гамак
- (и ещё 4 )
-
Нет , они всё ровно сохраняются в столбце B , надо что бы каждое значение в своём столбце сдвигала данные в низ
- 13 538 ответов
-
- закипанки с винчиком
- ищу гамак
- (и ещё 4 )
-
Они будут сохранятся в одном столбце B . А надо что бы сохранялись каждая в своём столбце .
- 13 538 ответов
-
- закипанки с винчиком
- ищу гамак
- (и ещё 4 )
-
Так точно .
- 13 538 ответов
-
- закипанки с винчиком
- ищу гамак
- (и ещё 4 )
-
В архиве может . 3146_Автоматическое_копирование_значения_по_времени.rar 3146_Автоматическое_копирование_значения_по_времени.rar
- 13 538 ответов
-
- закипанки с винчиком
- ищу гамак
- (и ещё 4 )
-
нет
- 13 538 ответов
-
- закипанки с винчиком
- ищу гамак
- (и ещё 4 )
-
Если возможно , подправить , сделайте пожалуйста . 3146_Автоматическое_копирование_значения_по_времени.xls
- 13 538 ответов
-
- закипанки с винчиком
- ищу гамак
- (и ещё 4 )