MatizBest Опубликовано 20 октября, 2018 Жалоба Share Опубликовано 20 октября, 2018 Вегнер он. Чё нам ограждения. Завези что-нибудь по существеннее Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
Кот Опубликовано 20 октября, 2018 Жалоба Share Опубликовано 20 октября, 2018 Нахрен эти старушачьи сплетни тут? 1 Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
vaygach Опубликовано 20 октября, 2018 Жалоба Share Опубликовано 20 октября, 2018 23 часа назад, T501 сказал: Может и не в тему и не сюда, но кто-то спрашивал про старые огражления с Байновского моста. Если ещё актуально-скиньте текстовку для депутатского запроса. Завезу в понедельник в приемную Венгера. Он всем в Каменске интересуется. ответят что нибудь типа "ограждения были физически изношены, представляли опасность. вот акт в котором это определено, вот акт на списание со всеми подписями назначенной администрацией комиссии." Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
лена Опубликовано 21 октября, 2018 Автор Жалоба Share Опубликовано 21 октября, 2018 как же тупость бесит... Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
Hollden Опубликовано 21 октября, 2018 Жалоба Share Опубликовано 21 октября, 2018 1 час назад, лена сказал: как же тупость бесит... Своя, или чья-то? 1 Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
MasterHome Опубликовано 21 октября, 2018 Жалоба Share Опубликовано 21 октября, 2018 6 часов назад, лена сказал: как же тупость бесит... ИМХО обычно любая, но возможны варианты Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
gang Опубликовано 29 октября, 2018 Жалоба Share Опубликовано 29 октября, 2018 В 21.10.2018 в 23:54, MasterHome сказал: ИМХО обычно любая, но возможны варианты C-c-combo! 1 Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
T501 Опубликовано 8 ноября, 2018 Жалоба Share Опубликовано 8 ноября, 2018 Это что за мемориал выстроили. Не могли проекты в других городах посмотреть? Осталось только цветы возложить....ТО страшное кафе у администрации, теперь этот .... 2 Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
Bo_ Опубликовано 9 ноября, 2018 Жалоба Share Опубликовано 9 ноября, 2018 читать как я ..опа каменск Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
Вовка Опубликовано 9 ноября, 2018 Жалоба Share Опубликовано 9 ноября, 2018 В ленте у меня не отображаются новые сообщения в теме "старые фото Каменска" В ленте тут, на форуме Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
MatizBest Опубликовано 11 ноября, 2018 Жалоба Share Опубликовано 11 ноября, 2018 Возможно ли достать видео аварии на кольце у администрации вечером 8.11.18 просто этот человек на светофоре нагрубил знакомой,сказал чтобы в зеркало смотрела лучше и рванул попав в ДТП . Просто хочу поржать.... Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
MatizBest Опубликовано 11 ноября, 2018 Жалоба Share Опубликовано 11 ноября, 2018 Возможно ли достать видео аварии на кольце у администрации вечером 8.11.18 просто этот человек на светофоре нагрубил знакомой,сказал чтобы в зеркало смотрела лучше и рванул попав в ДТП . Просто хочу поржать.... Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
sergeypassat Опубликовано 17 ноября, 2018 Жалоба Share Опубликовано 17 ноября, 2018 Доброго всем , а вдруг есть знающие люди на КТ Форуме , по VBA . Есть код , он работает на одну ячейку , как поправить код что бы получить три таких ячейки . Собственно сам код. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ' Если изменения произошли не на Листе1, то ничего не делать If Sh.Name <> Лист1.Name Then Exit Sub ' Если изменения произошли не в [B2], то ничего не делать If Target.Address <> [B1].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) = Target ' Переопределить именованный диапазон [БД] Sh.Names.Add Name:="БД", RefersTo:="=" & rng.CurrentRegion.Address ' Переопределить диапазон данных диаграммы Sh.ChartObjects(1).Chart.SetSourceData Source:=Sh.Range("БД") End Sub Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
idro Опубликовано 17 ноября, 2018 Жалоба Share Опубликовано 17 ноября, 2018 Что бы что ? Чтобы отслеживало изменение трех ячеек ? 1 Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
wasp Опубликовано 17 ноября, 2018 Жалоба Share Опубликовано 17 ноября, 2018 Приветствую, скажите есть ли смысл после кнопочного телефона (доп трубка для звонков и просто резервная) брать смартфон в пределах 2 т.р. +300 руб с т.х. 4 дюйма экран с тн матрицей, 1200/1500 мач батарея, 4 ядерный проц спредрум/мтк, 512 оперативной памяти? или брать обычный кнопочник за эту же сумму (коих одинаковых полно на убогом ПО). на симке инета нет, нет 3g, Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
idro Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 6 часов назад, wasp сказал: Приветствую, скажите есть ли смысл после кнопочного телефона (доп трубка для звонков и просто резервная) брать смартфон в пределах 2 т.р. +300 руб с т.х. 4 дюйма экран с тн матрицей, 1200/1500 мач батарея, 4 ядерный проц спредрум/мтк, 512 оперативной памяти? или брать обычный кнопочник за эту же сумму (коих одинаковых полно на убогом ПО). на симке инета нет, нет 3g, У смарта появиться такая фича как синхронизация контактов. Если этого не надо, то точно смысла нет 1 Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
sergeypassat Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 прям в цель , чтобы отслеживало изменение трех ячеек, данные поступают по DDE . Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
idro Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 А разве добавление исключения не помогло ? If Target.Address <> [B1].Address or Target.Address <> [B2].Address or Target.Address <> [B3].Address Then Exit Sub 1 Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
sergeypassat Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 Только что, idro сказал: А разве добавление исключения не помогло ? If Target.Address <> [B1].Address or Target.Address <> [B2].Address or Target.Address <> [B3].Address Then Exit Sub Вот если в этом понимаешь то может и поможет , методом тыка не фига не получилось . Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
sergeypassat Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 Если возможно , подправить , сделайте пожалуйста . 3146_Автоматическое_копирование_значения_по_времени.xls Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
idro Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 А разве добавление исключения не помогло ? If Target.Address <> [B1].Address or Target.Address <> [B2].Address or Target.Address <> [B3].Address Then Exit Sub Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
sergeypassat Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 2 минуты назад, idro сказал: А разве добавление исключения не помогло ? If Target.Address <> [B1].Address or Target.Address <> [B2].Address or Target.Address <> [B3].Address Then Exit Sub нет Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
wasp Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 Честно сказать к кнопкам пока возвращаться не охотно из-за убогости их ПО и косякам. А ноклы и филипсы дорого, но чуть лучше китайсав, но тоже не вызывают. Касаемо ультра бюджетных смартов можно приложения воткнуть какие надо, те же звонки, музыка, какие то игры, ютюб и инет как приятное дополнение скажем так. Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
idro Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 47 минут назад, wasp сказал: Честно сказать к кнопкам пока возвращаться не охотно из-за убогости их ПО и косякам. А ноклы и филипсы дорого, но чуть лучше китайсав, но тоже не вызывают. Касаемо ультра бюджетных смартов можно приложения воткнуть какие надо, те же звонки, музыка, какие то игры, ютюб и инет как приятное дополнение скажем так. Увы с 512 оперативы ну совсем грустно. По факту будет простая звонилка. 1 Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
idro Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 5 часов назад, sergeypassat сказал: Если возможно , подправить , сделайте пожалуйста . 3146_Автоматическое_копирование_значения_по_времени.xls Не качается. Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
sergeypassat Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 В архиве может . 3146_Автоматическое_копирование_значения_по_времени.rar 57 минут назад, idro сказал: Не качается. 3146_Автоматическое_копирование_значения_по_времени.rar Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
idro Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 Я как понял дополнительный ячейки это С1 и D1 ? Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
sergeypassat Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 3 минуты назад, idro сказал: Я как понял дополнительный ячейки это С1 и D1 ? Так точно . Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
idro Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 Я тупанул, надо было If Not (Target.Address = [B1].Address Or Target.Address = [D1].Address Or Target.Address = [C1].Address) Then Exit Sub 3146_Автоматическое_копирование_значения_по_времени.zip 1 Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
wasp Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 Ну есть вариант с 1 гигом оперы, тут уже повеселее при той же цене, понятно что если брать то дороже, но нужна то звонилка и выходить за 2 т.р. Нет желания. Была нокла на симбе, но износилась за годы тем более б/у с рук. С барахолки брать так деньги на ветер скок трубка проживёт х.з. Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
sergeypassat Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 Они будут сохранятся в одном столбце B . А надо что бы сохранялись каждая в своём столбце . 6 минут назад, idro сказал: Я тупанул, надо было If Not (Target.Address = [B1].Address Or Target.Address = [D1].Address Or Target.Address = [C1].Address) Then Exit Sub 3146_Автоматическое_копирование_значения_по_времени.zip Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
idro Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 так 3146_Автоматическое_копирование_значения_по_времени.zip 3146_Автоматическое_копирование_значения_по_времени.zip 1 Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
sergeypassat Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 2 минуты назад, idro сказал: так 3146_Автоматическое_копирование_значения_по_времени.zip 3146_Автоматическое_копирование_значения_по_времени.zip Нет , они всё ровно сохраняются в столбце B , надо что бы каждое значение в своём столбце сдвигала данные в низ Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
idro Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 Возми нижнюю ссылку. Чето корявит форум . В нижнем файле все нормально. Дата файла 19:00 3146_Автоматическое_копирование_значения_по_времени.zip 3146_Автоматическое_копирование_значения_по_времени.zip 1 Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
sergeypassat Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 Нижний не качается 6 минут назад, idro сказал: Возми нижнюю ссылку. Чето корявит форум . В нижнем файле все нормально. Дата файла 19:00 3146_Автоматическое_копирование_значения_по_времени.zip 3146_Автоматическое_копирование_значения_по_времени.zip Скачал , блин огромное спасибо , ковыряю уже неделю . Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
sergeypassat Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 Форум что то совсем зависает . 6 минут назад, idro сказал: Дата изменения файла 19:00 ? 3146_Автоматическое_копирование_значения_по_времени.zip 3146_Автоматическое_копирование_значения_по_времени.zip Спасибо , большое .Всё работает как надо . Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
sergeypassat Опубликовано 18 ноября, 2018 Жалоба Share Опубликовано 18 ноября, 2018 3 часа назад, idro сказал: Возми нижнюю ссылку. Чето корявит форум . В нижнем файле все нормально. Дата файла 19:00 3146_Автоматическое_копирование_значения_по_времени.zip 3146_Автоматическое_копирование_значения_по_времени.zip 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 Чутка подправил , что бы сдвиг был равномерным . Может кому пригодится . Ещё раз спасибо. Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
gang Опубликовано 15 декабря, 2018 Жалоба Share Опубликовано 15 декабря, 2018 Был пару дней в Каменске - дороги стали получше, цены пониже. Как то очень даже все неплохо. Либо я тоскую по родине) Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
лена Опубликовано 31 декабря, 2018 Автор Жалоба Share Опубликовано 31 декабря, 2018 С наступающим всех! Приятностей и интересностей, воспоминаний и желаний, свершений и благодарностей. Здоровья, успехов, встреч с близкими, каникул позитивных и активных, вкусностей! Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
лена Опубликовано 31 декабря, 2018 Автор Жалоба Share Опубликовано 31 декабря, 2018 С наступающим всех! Приятностей и интересностей, воспоминаний и желаний, свершений и благодарностей. Здоровья, успехов, встреч с близкими, каникул позитивных и активных, вкусностей! Цитата Ссылка на комментарий Поделиться на другие сайты More sharing options...
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.