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

Страницы: 1 2 След.
Объедить столбцы дат в месяц
 
#
17.02.2024 00:25:29
Добрый вечер!

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

Как можно преобразовать такую таблицу, чтобы данные отображались по месяцам и второй столбец = сумма значений чисел за данный месяц.
 
Перейти    
Геокодер (Яндекс Карт 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 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:07:05
Добрый день!
Может у кого есть готовый скрипт проверки синтаксиса email адресов. В интернете ничего не нашел над данную тему.
 
Перейти    
Объединить 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
 
Перейти    
Цифры прописью (формула)
 
#
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
 
Перейти    
Получить точную ссылку из короткой
 
#
21.08.2018 19:32:50
Добрый день!

Есть ссылка https://vk.com/wall-106809808_73453 при ее переходе браузер перевод https://vk.com/wall-106809808_73432?reply=73453
Можно ли как-то автоматически получить новую ссылку автоматически. У меня таких ссылок 117 шт.
 
Перейти    
Как не удалять значения из скрытых ячеек
 
#
23.07.2018 16:26:55
Добрый день!

когда выделяешь несколько строк и удаляешь ячейки значения, то удаляются значения из скрытых ячеек. как этого избежать?
можно использовать "выделить группу ячеек", но это не удобно
Изменено: lorents - 24.07.2018 08:55:15
 
Перейти    
Быстро сравнить два столбца и получить результат кол-во совпадений.
 
#
04.07.2018 15:00:37
Добрый день!

Подскажите, как можно сравнить два файла и узнать результат кол-во совпадений.
Понимаю, вопрос много раз обсуждался. Но у меня вопрос, как это сделать оперативно? у меня бывают случаи, когда загружаешь файл, а там 500 тыс строк.
 
Перейти    
Сравнить два xml-файла
 
#
03.06.2018 16:27:04
Добрый вечер!
Подскажите, как можно сравнить два XML файла в Excel? может есть готовое решение?
Дополнительно есть файл XSD для проверки файлов.
 
Перейти    
Установить PadegUC в Windows, что использовать через Excel
 
#
22.05.2018 01:12:04
доброй ночи!

Подскажите, пожалуйста, как установить PadegUC в Windows, что использовать через Excel?

библиотеку я зарегистрировал
Код
regsvr32.exe PadegUCA.dll

Но при запуске SampleMacros

Мне выдает, что PadegUC.dll не найден

Код
RetVal = GetPadeg(StrConv(cFIO, vbUnicode), nPadeg, tmpS, nLen) ' с переводом ASC - Unicode
Изменено: lorents - 22.05.2018 13:21:23
 
Перейти    
Склонение ФИО
 
#
13.05.2018 00:17:40
Доброго дня!

Подскажите, пожалуйста, как можно в склонять ФИО в Excel? В интернете. достаточно много способов и из-за это возникает какой способ лучше и надежней?

Видел вариант с padeg.dll. Сто можете сказать?
Изменено: lorents - 13.05.2018 00:21:25
 
Перейти    
Конструктор документов по анкете
 
#
12.05.2018 14:37:03
Доброго дня!

Необходимо сделать конструктор документов по анкете по одному документу.
Пользователь отвечает по анкете на вопросы, и тем самым формирует документ.

Главная особенность - не линейность вопросов, т.е. в зависимости, что ответил пользователь в предыдущем вопросе, влияет какой вопрос будет следующим.
Документ - просто текстовой документ в ворде.

Просьба указать, как Вы вообще это видите сделать. Я накидал анкету, но мне не нравится такая анкета, т.к. вопросы линейные.


Просьба стоимость писать в личный сообщениях.
Изменено: lorents - 12.05.2018 14:37:28
 
Перейти    
Конструктор документов
 
#
12.05.2018 01:40:17
Доброй ночи!

Подскажите, пожалуйста, как можно сделать конструктор документов по опроснику.
Т.е. пользователь отвечает на простые вопросы (как тест) и таким образом создается его документ.
 
Перейти    
Сохранять положение курсора при редактировании значения в TextBox
 
#
05.05.2018 23:18:13
добрый вечер!

Подскажите, почему позиция курсора перемещается всегда в конец?

Код
Private Sub TextBox1_Change()
Dim sStr As String
    sStr = Replace(TextBox1.Text, " ", "")
     
    Select Case Len(sStr)
    Case 21: TextBox1.Text = Format(Left(sStr, 20), "##### ### # #### #######")
    Case Is > 13: TextBox1.Text = Format(Left(sStr, 13), "##### ### # #### ") & Mid$(sStr, 14)
    Case Is > 9: TextBox1.Text = Format(Left(sStr, 9), "##### ### # ") & Mid$(sStr, 10)
    Case Is > 8: TextBox1.Text = Format(Left(sStr, 8), "##### ### ") & Mid$(sStr, 9)
    Case Is > 5: TextBox1.Text = Left$(sStr, 5) & " " & Mid$(sStr, 6)
    Case Else: TextBox1.Text = sStr
    End Select
End Sub
Изменено: lorents - 06.05.2018 10:38:13
 
Перейти    
Ввод банковского счета в Textbox
 
#
05.05.2018 19:42:31
Добрый день!

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

Код
40817 810 1 00000000000
 
Перейти    
Проверка XML по XSD
 
#
05.05.2018 17:22:13
Добрый день!

Подскажите, пожалуйста, можно ли в Excel сделать проверку XML по XSD?
 
Перейти    
Парсер XML
 
#
18.04.2018 21:05:33
Добрый день!

Помогите сделать:
1. парсер XML. Перенести из NO_NDFL3_7725_7725_772578652046_20180414_849CEBAC-2C95-48AD-BB75 в UT_ZVIUN_7725_7725_772578652046_20180418_2F73536B-C86A-764D-BE3C данные
2. добавить банковские реквизиты. Скрипт должен запросить БИК и Номер смета. Сделать базу чтобы подтянуть по БИКу: название банка, К/С
3. Сохранить XML. В названии указать Фамилию и ИНН и №
4. Опправить XML на печать через программу Библиотечный модуль печати двумерного штрих-кода (PDF417) (есть инструкция) https://www.gnivc.ru/software/software_ul_fl/pdf417/. Без штрих кода.

Должно получится https://www.nalog.ru/cdn/form/5563300.pdf
Изменено: lorents - 18.04.2018 21:07:49
 
Перейти    
Парсер для сайта
 
#
12.04.2018 21:04:54
Добрый день!

Сделать парсинг для страниц, на подобии этой:
https://order.nalog.ru/appointment/Ra93ff07d178c44afba04d1d5543750b0/

Данные с сайта надо занести в таблицу в Word (данные отмечены желтым цветом)
Сделать следующим образом, вызываем некое окно, вставляем ссылку и нажимаем на кнопку "Ок" и парсер заносит данные.

Цена договорная
Изменено: lorents - 12.04.2018 22:11:00
 
Перейти    
Копирование данных из таблицы
 
#
26.01.2018 01:06:49
Добрый вечер!

Есть файл статистики ФНС 5-ДДК (Пример во вложении)
Хочу сделать новую таблицу использую данные статистики 5-ДДК.

В файле "svodnii na 01.01.2017.XLS" отметил оранжевым цветом отметил данные которые надо перенести. Желтым цветом - коды этих данных для поиска в файле. Зеленным цветом - столбцы в которых находятся данные.

Книга1.xlsx - пример как хочу сделать

Помогите пожалуйста реализовать данную возможность, в вручную копировать каждый регион будет достаточно проблематично.
 
Перейти    
Автоматизация расчета процентов по кредиту
 
#
06.01.2018 00:01:04
Добрый вечер!

Помогите, пожалуйста, решить одну проблему.
Пытаюсь сделать небольшой кредитный калькулятор, который можно рассчитать сумму процентов выплаченных за последние 5 лет.
 
Перейти    
Сумма процентов за кредит
 
#
29.08.2017 20:57:19
Добрый день!

Подскажите, пожалуйста, как можно в excel рассчитать, без необходимости строить таблицу по кредиту:
1. сумму процентов за весь период по кредиту
2. сумма процентов за определенный промежуток времени, допустим за один год.
Изменено: lorents - 29.08.2017 21:14:01
 
Перейти    
Расчет сложных процентов с ежегодным пополнением
 
#
28.08.2017 18:19:56
Добрый день!

Подскажите, как сделать в excel расчет сложных процентов с ежегодным пополнением?

первоначальная сумма - 1 млн.
Ежегодное пополнение - 1 млн.
Срок - 3 года
Ставка - 30%
% начисляется раз в год.

в конце третье года у меня должно получится
Внесенная сумма - 3 млн.
% - 2 197 000 рублей.

Подскажите, как сделать расчет одной формулой?
 
Перейти    
Удалить повторяющиеся значения в столбце
 
#
16.12.2016 20:41:43
Добрый день!
Подскажите, как удалить все повторяющиеся значения в столбце? таблица достатьочно большая 26 тыс. строк.
 
Перейти    
Сбор данных с сайта
 
#
11.12.2016 11:53:11
Доброе утро!
Есть некая таблица где указаны ИНН компаний, необходимо заполнить пустые столбцы использую данные сайта https://sbis.ru/contragents/

Пример:
ИНН 7712040126 - ссылка на сайт https://sbis.ru/contragents/7712040126

в открывшейся страницы есть строчка:
Скрытый текст

В данной строчке есть вся необходимая информация:
  • УставнойКапитал
  • Статус
  • ВыручкаСтатистика
  • ПрибыльСтатистика
  • Выручка
  • Прибыль
  • ЧисленностьСотрудников
Подскажите, как получить данную информацию из данной строчки?
Как я понимаю, разделитель - %22

Строк в таблице может быть много, например 100.

Благодарю за помощь!
Изменено: lorents - 11.12.2016 15:43:51
 
Перейти    
Перебор возможных комбинаций
 
#
24.01.2016 21:34:34
Как сделать перебор и вывод всех возможных комбинаций на основе имеющихся символов? Количество символов 4 (u,d,l,r)

Например:
Скрытый текст

Мне необходим только список этих значений? Подскажите, как это сделать.
 
Перейти    
Автоматическое создание листов в Excel
 
#
30.10.2015 22:55:14
Добрый вечер!
у меня есть один макрос. Суть макроса в следующем, он делает определенные расчеты и записывает их в отдельный пустой лист. Подскажите, как сделать, чтобы макрос автоматически перед запиванием данных создавал для себя пустой дист?

Код
Sub ikki()
  Const n = 21, nn = 5
  Dim a(), b(), x%(1 To nn), y#(1 To nn)
  Dim i&, j&, k&, lr&, dSum#
       
  lr = Cells(Rows.Count, 1).End(xlUp).Row
  a = Cells(1, 1).Resize(lr, n).Value
  ReDim b(1 To Application.Combin(n, nn), 1 To nn + 1)
   
  For i = 1 To nn: x(i) = i: Next
   
  For i = 1 To Application.Combin(n, nn)
    dSum = 0
    For k = 1 To lr
      For j = 1 To nn: y(j) = a(k, x(j)): Next j
      dSum = dSum + Application.Min(y)
    Next k
    For j = 1 To nn: b(i, j) = x(j): Next
    b(i, nn + 1) = dSum
     
    j = nn: f = True
    Do While f And j
      If x(j) < n - (nn - j) Then
        x(j) = x(j) + 1
        If j < nn Then
          For k = j + 1 To nn: x(k) = x(k - 1) + 1: Next
        End If
        f = False
      Else
        j = j - 1
      End If
    Loop
  Next
  Sheets(2).Cells.Clear
  Sheets(2).[a1].Resize(UBound(b), UBound(b, 2)).Value = b
End Sub
 
Перейти    
Страницы: 1 2 След.
Наверх