Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 63 След.
Получение данных из интернета по ссылкам, расположенным в ячейках, Получение данных из интернета по ссылкам, расположенным в ячейках
 
А как Вам помочь, если примера с описанием чего есть и чего хочу нет.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
При вытягивании данных с интернет-страницы не могу получить правильный HTML код.
 
Да, всё знать невозможно. Каждый день что-то новое нахожу даже в тех местах где уж вроде всё понятно.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Добавить раздел "Вопросы по Гугл Таблицам"
 
Гугл лишняя конечно ветка. А вот PQ можно и в отдельную вынести.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Делимся..., разным
 
Ну или альтернатива
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
При вытягивании данных с интернет-страницы не могу получить правильный HTML код.
 
doober, спасибо за тестирование. На W7 x64 Office 2013 x64 проверил работает. Дома тоже работает на W7 x86 Office 2010 x86.
Изменено: Alemox - 14 Дек 2019 14:01:02
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Оператор "Is" в VBA возвращает "False" для одинаковых диапазонов
 
Jack Famous, потому что лист один раз только указывать надо. В случае переименования листа (если отталкиваемся от имён листов) один раз только его указать надо. Следовательно вероятность совершить ошибку минимальная из-за "замыленного" глаза.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Оператор "Is" в VBA возвращает "False" для одинаковых диапазонов
 
Jack Famous, в такой записи, которую вы показали в #21, вполне резонно использовать. У меня последнее время в этой строчке такая же запись  :D
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
При вытягивании данных с интернет-страницы не могу получить правильный HTML код.
 
А вообще интересно получается. На работе на W7 x64 Office 2013 x64 запускаю со строчкой
Код
Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")

и всё работает.
Дома на W7 х86 Office 2010 x86 не работает с вышеуказанной строчкой, но работает со строчкой
Код
Set XMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")

Что-то видимо не так происходит.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Оператор "Is" в VBA возвращает "False" для одинаковых диапазонов
 
БМВ, не загонялся по скорости выполнения в именно этом сравнении, но в #13 сообщении отличный пример. Это хорошо, что я последнее время привык к With. Всегда стараюсь его применять.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Откуда взялся излишек?
 
БМВ, Вы сделали мой день.  :D  Под стол соскальзываю.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
При вытягивании данных с интернет-страницы не могу получить правильный HTML код.
 
Кажись разобрался.
Заменил строчку
Код
Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")

на
Код
Set XMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")

вроде заработало. Не знаю на долго ли.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
При вытягивании данных с интернет-страницы не могу получить правильный HTML код.
 
Добрый день. Снова поднимаю тему.
Не могу побороть этот сайт. Снова выдаёт не то, что нужно:
<html><head><script>function set_cookie(){var now = new Date();var time = now.getTime();time += 19360000 * 1000;now.setTime(time);document.cookie='beget=begetok'+'; expires='+now.toGMTString()+'; path=/';}set_cookie();location.reload();;</script></head><body></body></html>
И строчка имеется, которую Игорь советовал добавить, а результата нет. Не могу выгрузить HTML-код правильный.
Скрытый текст
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Загрузка данных с листа в Listbox.
 
ocet p, Показательный пример. Так бы все отвечали.  :)
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Загрузка данных с листа в Listbox.
 
RAN, Это не оно?
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Делимся..., разным
 
Microsoft завершила эру смартфонов на Windows
Наступил конец эпохи для Windows 10 Mobile. 10 декабря 2019 года Microsoft официально прекратила выпуск обновлений системы безопасности и программного обеспечения для своей мобильной операционной системы. Также закрывается техническая поддержка мобильных устройств на Windows 10 Mobile.
Microsoft объявила, что окончание срока действия приложений для Windows 10 Mobile Office будет завершено 12 января 2021 года. Однако обновлений и исправлений ошибок для Word, Excel, PowerPoint и OneNote больше выпускаться не будет. Также в Microsoft уточнили, что офисный пакет хоть и будет работать, но в случае удаления повторно установить его из магазина приложений Windows Store будет невозможно.

Антивирус, который следит за своими пользователями
Avast - одна из крупнейших и самых популярных компаний, занимающихся разработкой программного обеспечения для защиты устройств пользователей по всему миру. Но несмотря на это, как оказалось, производитель защитного ПО не брезгует продажей "онлайн привычек" пользователей, причем делает он это как минимум с 2013 года. В связи с этим, кстати, некоторые инструменты, разработанные Avast, в конечном итоге были отмечены как "шпионские", то есть как тот же тип программ, от которых Avast должен защищать пользователей. Такие большие разработчики браузеров как Mozilla и Opera не могли остаться в стороне от того, что произошло, в связи с чем были вынуждены удалить подобные инструменты Avast из своих магазинов расширений еще в начале этого месяца.
Генеральный директор Avast Ондрей Влчек уверил, что те данные, которые компания продаёт, не могут указывать на конкретного пользователя. Данные анализируются и показывают «представление о том, как пользователи Интернета используют Интернет», куда заходят, что им интересно, какой процент пользователей переходит с одного сайт на другой.

WhatsApp перестанет работать на миллионах смартфонов
Мессенджер WhatsApp прекращает работать на миллионах смартфонах по всему миру в 2020 году. WhatsApp перестанет работать на телефонах с Windows Mobile после 31 декабря 2019 года. На Android 2.3.7 и iPhone iOS 8 мессенджер станет недоступным с февраля. Кроме того, у клиентов со всеми вышеупомянутыми операционными системами в любое время могут перестать работать некоторые функции приложения, так как WhatsApp больше не занимается разработкой обновлений для этих операционных систем. Компания, принадлежащая Facebook, заявила, что сосредоточит усилия на "мобильных платформах, которые использует подавляющее большинство людей".

В Китае разрабатывают замену Windows
Китайские компании China Standard Software и Kylin Information будут вместе работать над созданием китайской операционной системы.
Разработчики отмечают, что новая операционная система будет построена на уже существующих решениях для серверов.
«Существует срочная необходимость разработать отечественную независимую операционную систему с единой технической системой и экосистемой для обеспечения большего удобства в пользовании», — заявил финансовый директор компании China National Software and Service Хэ Вэньчжэ.
Разработанная компанией China Standard Software операционная система NeoKylin на базе Linux и серверная операционная система Kylin компании TKC являются двумя самыми важными китайскими операционными системами на рынке. Логотип двух систем — Kylin («Цилинь», единорог) — мифический зверь-предвестник счастливых событий в китайской культуре.
«Операционная система NeoKylin на ядре Linux полностью поддерживает как китайские, так и зарубежные основные открытые аппаратные платформы, включает серверную и пользовательскую версии, а также является совместимой с более чем 4 тысяч наименований продукции программного обеспечения и аппаратных средств», — сообщил генеральный менеджер CS2C Хань Найпин.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Немодальная UserForm без шапки, с прозрачностью и возможностью перетаскивания
 
Добавил перемещение за форму мышкой. Без библиотек. На примере первой формы.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Уведомление об открытии файла Excel
 
Макросом. Но не факт, что при открытии их включат. Если не включат, то не запишется.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
HB
 
Михаил Витальевич С, поздравляю с днём рождения. Радуйте и дальше нас своим присутствием на форуме. Всего наилучшего.
Изменено: Alemox - 10 Дек 2019 13:26:42
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Делимся..., разным
 
bedvit, сам не сравнивал только читал. Знаю, что Firefox переписали часть браузера тем самым повысив скорость его работы и уменьшили потребление ресурсов.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
PQ, получить таблицу с сайта
 
Два варианта
1. ПКМ по панели задач/Добавить папку. (скрин 1)
2. При добавлении закладки нажимаете Ещё/ПКМ/новая папка и дальше перемещаете папки как хотите (скрин 2)

много байтиков было [МОДЕРАТОР]
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Делимся..., разным
 
Microsoft перепишет часть Windows на новом языке программирования Rust
Некоторые низкоуровневые компоненты Windows 10 впоследствии будут переписаны на нем, что позволит сделать систему значительно более устойчивой к киберугрозам.
Языки C и C++ в течение десятилетий повсеместно используются в качестве инструмента разработки системного ПО и возлагают на программиста задачу управления оперативной памятью, что неизбежно приводит к возникновению ошибок, таких как обращение к участку памяти после его освобождения или, например, выход за границы буфера. По словам Мэтта Миллера (Matt Miller), специалиста Microsoft по безопасности, около 70% всех уязвимостей, обнаруженных в программных продуктах корпорации за последние 12 лет, связанны с ошибками управления памятью.
В языке Rust (как, видимо, и в Verona), в отличие от C и C++, реализован механизм автоматического управления памятью на основе принципа «владения», который избавляет программиста от необходимости вручную манипулировать памятью, тем самым снижая вероятность возникновения ошибок. Стоит также отметить, что в угоду производительности в Rust не используется так называемый сборщик мусора (Garbage Collector, GC), в задачи которого входит автоматическое удаление из памяти объектов, которые более не востребованы программой.
Microsoft начала экспериментировать с Rust летом 2019 г. Сообщалось, что компания собирается переписать некоторые из своих продуктов с использованием этого языка программирования.
В начале ноября 2019 г. Адам Берч (Adam Burch), программист из команды разработчиков Hyper-V (системы аппаратной виртуализации для x64-систем на основе гипервизора), написал в корпоративном блоге о том, что ему поручили переписать на Rust некий низкоуровневый компонент Windows, назвать который он пока не может. По его словам, несмотря на незавершенность проекта, опыт применения Rust оказался в целом позитивным. Он также отметил, что кодовую базу новых компонентов и уже существующих, но с «чистыми интерфейсами», перевести на Rust не составит большого труда. Кроме того, Берч посетовал на отсутствие некоторых возможностей в языке по сравнению с привычным ему C, но выразил уверенность в том, что Microsoft сможет посодействовать их добавлению.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Анекдот дня, Постим сюда понравившиеся:)
 
Это вам не это...  :D
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Переводчик содержимого ячеек
 
Перевод на что?
Вот тема была перевода с английского на русский.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Анекдот дня, Постим сюда понравившиеся:)
 
— Пап, я посижу за компом?
— Конечно... Только не включай.
-----------------------------------------
При проектировании локальной сети клиента важную роль играет ГРАМОТНАЯ РАЗВОДКА
-----------------------------------------
Ливень. Стук в дверь. Мужчина открывает, а там теща стоит. Он говорит ей:
— Что вы в такую погоду на улице делаете? Идите домой!!!
-----------------------------------------
Объяснительная:
Опоздала на работу потому, что утром перелазила через мужа и немного задержалась...
-----------------------------------------
Кум просит кума:
— Слышь, кум, последи за самогонным аппаратом, мне тут надо в город съездить.
— А как за ним следить?
— Да проще простого — вот сюда под змеевик надо банки подставлять, а внутрь два ведра воды нальешь.
Сел кум за аппарат, поменял пару банок, а потом взял два ведра и за водой пошел.
Возвращается с полными ведрами — а в доме два мента:
— Ну что, будем, значится, протокол составлять?
— Пишите: "Шел по улице, смотрю — из дома кума дым идет. Я подумал, что пожар и пришел с двумя ведрами воды тушить, а там, оказывается, сидят два мента и самогонку гонят!!! "...
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
VBA: сохранить свойства объекта\переменной
 
Я думаю, что скопировав в текстовый или ещё какой документ вы не облегчите себе работу, а только больше запутаетесь.
Я обычно присваиваю через Set объект или что мне нужно и уже через окно Locals Window смотрю нужный параметр. Ну или через F2. Но через Locals Window быстрее получается.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Подкраска совпавшего текста по регистру
 
Очень интересный вопрос. Если за выходные никто не ответит, то может возьмусь на следующей неделе. Сейчас времени к сожалению нет.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Перевод текста в Google через VBA
 
Код
Option Explicit

Sub GOOGLE_PEREVOD()
Dim OBJHTTP As Object
Dim URL$, STR$, TXT$, PEREVOD$
Dim N&, K&
TXT = InputBox("ВВЕДИТЕ ПЕРЕВОДИМЫЙ ТЕКСТ", "ALEMOX")
If TXT = "" Then Exit Sub
TXT = Replace(LTrim(RTrim(TXT)), " ", "%20")
Set OBJHTTP = CreateObject("MSXML2.XMLHTTP")
URL = "https://www.google.ru/async/translate?vet=12ahUKEwiKgq2y4YnmAhVCw4sKHXwUArIQqDgwAHoECAsQHw..i&ei=QBfeXYriG8KGrwT8qIiQCw&yv=3"
With OBJHTTP
    .Open "POST", URL, False
    .setRequestHeader "content-type", "application/x-www-form-urlencoded;charset=UTF-8"
    .send "async=translate,sl:en,tl:ru,st:" & TXT & ",id:1574836225475,qc:true,ac:true,_id:tw-async-translate,_pms:s,_jsfs:Ffpdje,_fmt:pc"
    If .Status = 200 Then
        STR = .ResponseText
        N = InStr(1, STR, "target-text"">") + 13
        K = InStr(N, STR, "</span>")
        PEREVOD = Mid(STR, N, K - N)
        'Debug.Print PEREVOD
        MsgBox PEREVOD, , "ПЕРЕВОД"
    Else
        MsgBox "НЕ СМОГ ПЕРЕВЕСТИ ЭТУ ЧУШЬ", vbExclamation, "ОШИБКА"
    End If
End With
Set OBJHTTP = Nothing
End Sub

Переводит, но иногда не с первого раза. По крайней мере у меня. Можно вводить слова, можно текст.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Делимся..., разным
 
В мире закончились IP-адреса самого популярного протокола
В России, на Ближнем Востоке и в Европе закончились IP-адреса самого распространенного протокола IPv4 (Internet Protocol version 4).
Отмечается, что исчерпание IPv4 ожидалось давно. По словам экспертов, на работе сайтов это никак не скажется. Адреса будут восстанавливаться с помощью поступлений от организаций, прекративших свою деятельность. Восстановленные адреса распределят в соответствии со списком ожидания.
В Европе уже начал использоваться протокол нового поколения IPv6. Отмечается, что его адресов хватит на несколько сотен миллиардов клиентов.
IPv4 — первая широко используемая версия интернет протокола. IPv4 использует 32-битные адреса, ограничивающие адресное пространство 4,3 миллиардами возможными уникальными адресами. Уже в 1980-е годы стало очевидно, что распределение адресного пространства происходит более быстрыми темпами, чем было заложено в архитектуру IPv4. Это привело сначала к появлению классовой адресации, позднее бесклассовой адресации, и в конечном итоге к разработке нового протокола IPv6, который со временем должен решить кризис израсходования адресов.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
PQ, получить таблицу с сайта
 
Цитата
Lari написал:
подскажете, как вы получили адрес из 4-й строки #5
Добрый вечер.
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Анекдот дня, Постим сюда понравившиеся:)
 
Знания и технологии принадлежат человечеству, и каждый сам решает делиться ими или исчезнуть вместе с ними.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 63 След.
Наверх