Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » lorents
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 След.
Объедить столбцы дат в месяц
 
#
17.02.2024 12:44:20
Павел \Ʌ/, artemkau88, большое вам спасибо!
 
Перейти    
Объедить столбцы дат в месяц
 
#
17.02.2024 00:25:29
Добрый вечер!

У меня есть таблица, состоящая из столбца с датами и столбца неких чисел.

Как можно преобразовать такую таблицу, чтобы данные отображались по месяцам и второй столбец = сумма значений чисел за данный месяц.
 
Перейти    
Геокодер (Яндекс Карт API )
 
#
18.07.2023 00:13:26
Игорь,
1) раз в месяц (изменения)
2) Готов с вами обсудить.
3) макрос

Нужно 39000 адресов.
Изменено: lorents - 18.07.2023 15:09:02
 
Перейти    
Геокодер (Яндекс Карт API )
 
#
17.07.2023 19:12:04
Да, все верно.
 
Перейти    
Геокодер (Яндекс Карт API )
 
#
17.07.2023 18:05:06
Но если сделать через JavaScript API (25000 в сутки), то проблем нет.
 
Перейти    
Геокодер (Яндекс Карт API )
 
#
17.07.2023 17:59:31
Добрый день!
87000 адресов.
 
Перейти    
Геокодер (Яндекс Карт API )
 
#
17.07.2023 16:06:32
Здравствуйте!

Есть таблица с адресами, надо получить координаты через Геокодер, используя Яндекс JavaScript API, а не через HTTP запросы.

Вот пример, использует HTTP запросы.
https://excelstore.pro/download-page.html?s=189

Просьба написать, кто может сделать.
Изменено: lorents - 17.07.2023 16:07:06
 
Перейти    
Геокодер (API Яндекс Карт)
 
#
17.07.2023 15:03:53
Поясную, у меня сейчас вопрос не в том, как с помощью Яндекс JavaScript API запустить Геокодер. А можно ли это сделать?
Если можно, то я готов обсудить стоимость услуг.
 
Перейти    
Геокодер (API Яндекс Карт)
 
#
17.07.2023 13:36:08
Спасибо! Видел данное решение, отлично работает. но использует HTTP запросы.
 
Перейти    
Геокодер (API Яндекс Карт)
 
#
17.07.2023 13:13:02
Здравствуйте!
У меня есть таблица с адресами, надо получить координаты объектов (Геокодер) при этом желательно использовать JavaScript API, а не через HTTP. Можно ли это вообще сделать через Excel?
 
Перейти    
Экспорт из json в эксель
 
#
12.07.2023 21:07:52
Здравствуйте!
Хочу экспортировать json файл в эксель. Возникла проблема.

Проблема в том, что у меня есть раздел категория, категорий может быть одна а может быть несколько



И мне надо чтобы категория была добавлялись, как новые столбцы, а не строки



как это можно сделать?
Изменено: lorents - 12.07.2023 21:08:22
 
Перейти    
Проверка синтаксиса email
 
#
03.06.2020 12:32:36
БМВ, сейчас посмотрю, спасибо!
 
Перейти    
Проверка синтаксиса email
 
#
03.06.2020 12:32:18
Цитата
Максим В. написал:
Добрый и Вам. Что значит проверка синтаксиса?
Например, не содержит недопустимых символов. Что это именно email, т.е. названия ящика@домен.доменов верхнего уровня
 
Перейти    
Проверка синтаксиса email
 
#
03.06.2020 12:07:05
Добрый день!
Может у кого есть готовый скрипт проверки синтаксиса email адресов. В интернете ничего не нашел над данную тему.
 
Перейти    
Объединить XML файлы в один Excel
 
#
17.04.2020 16:02:49
Андрей VG
может это покажется нагловатостью, но Изучаст сейчас Power Query у меня нет возможности.
Буду благодарен, если скажите что и как сделать.
 
Перейти    
Объединить XML файлы в один Excel
 
#
17.04.2020 15:49:08
Цитата
Андрей VG написал:
куда сложить файлы из архива
это я понял

Код
C:\Path\xmls

а вот что делать с кодом нет :(
Изменено: lorents - 17.04.2020 15:49:43
 
Перейти    
Объединить XML файлы в один Excel
 
#
17.04.2020 15:45:55
Андрей VG
Благодарю! Не подскажите, куда ставить код?
Я просто с макросами не дружу.
 
Перейти    
Объединить XML файлы в один Excel
 
#
17.04.2020 14:34:33
Цитата
Андрей VG написал:
Если разобрались, то зачем создали тему?
т.е. НЕ разобрался.

Цитата
Андрей VG написал:
Там не база, а простая интернет страница. И причём тогда Excel?
https://data.nalog.ru/opendata/7707329152-sshr2019/data-20200408-structure-20200408.zip
вот сама база.
 
Перейти    
Объединить XML файлы в один Excel
 
#
17.04.2020 14:02:48
Добрый день!

У меня есть файлы XML (около 12 000 файлов). Подскажите, пожалуйста, как можно Объединить XML файлы в один Excel?
Смотрел в сторону Power Query, но НЕ разобрался, как это сделать.

Мне надо объединить вот эту базу https://www.nalog.ru/opendata/7707329152-sshr2019/
Изменено: lorents - 17.04.2020 14:33:11
 
Перейти    
Парсер ВК: скрипт преобразования ссылок
 
#
20.02.2019 00:13:16
Добрый вечер!

У меня есть скрипт:
Код
Option Explicit
Sub SearchURL()
Dim XMLHTTP As Object
Dim Txt$, n&, k&, i%
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Txt = Cells(i, 1)
    XMLHTTP.Open "POST", Txt, False
    XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.99 Safari/537.36"
    XMLHTTP.send
    If XMLHTTP.Status = 200 Then
        Txt = XMLHTTP.responsetext
        n = InStr(1, Txt, "vk.com/wall")
        If n > 0 Then
            k = InStr(n, Txt, "?")
            Txt = "https://" & Mid(Txt, n, k - n)
            Cells(i, 2) = Txt
        Else
            Cells(i, 2) = Cells(i, 1)
        End If
    Else
        MsgBox "Отсутствует соединение..."
    End If
Next i
Set XMLHTTP = Nothing
MsgBox "Всё", vbInformation, "Конец"
End Sub
Скрипт преобразовывает ссылки типа https://vk.com/wall-118635415_56464 на https://vk.com/wall-118635415_56369

У обработки данной ссылки https://vk.com/wall-57867786_6591157 у скрипт проблема:
Скрытый текст

Не могу пончть, почему так происходит?
 
Перейти    
Автоматическое создание гиперссылок
 
#
17.11.2018 01:43:26
Добрый вечер!

Подскажите, пожалуйста, как можно сделать, чтобы после окончания работы скрипта (до вывода сообщения "Все")
1. вопрос о дублях удален [МОДЕРАТОР]
2. полученный результат автоматически создавался в виде гиперсылок?

Код
Sub SearchURL()
Dim XMLHTTP As Object
Dim Txt$, n&, k&, i%
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Txt = Cells(i, 1)
    XMLHTTP.Open "POST", Txt, False
    XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.99 Safari/537.36"
    XMLHTTP.send
    If XMLHTTP.Status = 200 Then
        Txt = XMLHTTP.responsetext
        n = InStr(1, Txt, "vk.com/wall-")
        If n > 0 Then
            k = InStr(n, Txt, "?")
            Txt = "https://" & Mid(Txt, n, k - n)
            Cells(i, 2) = Txt
        Else
            Cells(i, 2) = Cells(i, 1)
        End If
    Else
        MsgBox "Отсутствует соединение..."
    End If
Next i
Set XMLHTTP = Nothing
MsgBox "Всё", vbInformation, "Конец"
End Sub

Спасибо!
Изменено: lorents - 17.11.2018 12:50:06
 
Перейти    
Получить точную ссылку из короткой
 
#
17.10.2018 11:37:39
Вот сам код макроса:

Код
Sub SearchURL()
Dim XMLHTTP As Object
Dim Txt$, n&, k&, i%
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Txt = Cells(i, 1)
    XMLHTTP.Open "POST", Txt, False
    XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.99 Safari/537.36"
    XMLHTTP.send
    If XMLHTTP.Status = 200 Then
        Txt = XMLHTTP.responsetext
        n = InStr(1, Txt, "vk.com/wall-")
        k = InStr(n, Txt, "?")
        Txt = "https://" & Mid(Txt, n, k - n)
        Cells(i, 2) = Txt
    Else
        MsgBox "Отсутствует соединение..."
    End If
Next i
Set XMLHTTP = Nothing
MsgBox "Всё", vbInformation, "Конец"
End Sub


При загрузке данной ссылки https://vk.com/wall-110509118_12947, макрос выдает ошибку. Подскажите, пожалуйста, как решить проблему?
 
Перейти    
Получить точную ссылку из короткой
 
#
16.10.2018 22:23:16
Как я понял, ошибка в этой строчке
Код
k = InStr(n, Txt, "?")

то что сточка https://vk.com/wall-110509118_12947 не содержит знака ?
 
Перейти    
Получить точную ссылку из короткой
 
#
16.10.2018 20:49:49
Подскажите, пожалуйста.
Если в файле (во вложении) указана ссылка https://vk.com/wall-110509118_12947, то система выдает ошибку.
Изменено: lorents - 16.10.2018 22:13:59
 
Перейти    
Цифры прописью (формула)
 
#
28.09.2018 14:14:39
Ts.Soft, думаю, это из моих макросов. Поймите они не секретные, просто не могу выложить. они компании.
 
Перейти    
Цифры прописью (формула)
 
#
28.09.2018 14:13:22
БМВ, Спасибо, все работает!
 
Перейти    
Цифры прописью (формула)
 
#
28.09.2018 13:58:46
БМВ, возможно вы правы, лучше название я не придумал.
 
Перейти    
Цифры прописью (формула)
 
#
28.09.2018 13:57:10
Ігор Гончаренко, Спасибо!

а можно сделать, если значение B16=0, то пишет B18=ноль руб. 00 коп., а если B16 пусто, то пишет B18 тоже пусто.
 
Перейти    
Цифры прописью (формула)
 
#
28.09.2018 13:23:45
У меня файл с макросами, выслать не могу. Подскажите, Как можно решить мой вопрос, из предложенной информации.
Изменено: lorents - 28.09.2018 13:24:01
 
Перейти    
Цифры прописью (формула)
 
#
28.09.2018 13:14:42
Добрый день!

Просьба подсказать.

Код
B17=ЕСЛИ(ЕПУСТО(B16);"";СЦЕПИТЬ(ТЕКСТ(ЦЕЛОЕ(B16);"# ##0");" руб. ";ТЕКСТ(ЦЕЛОЕ(ОСТАТ(B16*100;100));"00");" коп."))
В18=ЕСЛИ(B16=0;"ноль руб. 00 коп.";ЕСЛИ(ЕОШ(1/B16);"";СЦЕПИТЬ(СУММАПРОПИСЬЮ(B16/1);ПРАВСИМВ(B18;12))))


Как сделать так, есть поле B16 пустое, то B18 тоже пустое, сейчас Если B16=0, B18=ноль руб. 00 коп.
Изменено: lorents - 28.09.2018 13:57:38
 
Перейти    
Страницы: 1 2 3 4 5 6 7 След.
Наверх