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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 19 След.
Требуется макрос (макросы) для разделения отчета на разные файлы и сшивания обработанных файлов в один отчет
 
Цитата
Юрий М написал:
Рекорд (40 секунд) пока не побит )
Бывало и 25" :)
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=7&TID=125332
Получение по API посредством Power Query (BI)
 
Доброго времени суток!

Пишу в ЛС.

Не претендую...
Изменено: Апострофф - 24 Мар 2020 08:55:21
Макрос для Excel, XML to csv
 
xamius, Добрый день.

Пишу в ЛС...

В работе...

Сделано, оплачено.
Изменено: Апострофф - 5 Мар 2020 00:48:17
Excel не может открыть гиперссылку
 
Strizh, проблема в русских буквах, скорее всего...
И зачем делать ошибки в адресе (Моковск­ая)? Чтобы запутать dadata?
попробуйте такую интерпретацию запроса -
Код
https://suggestions.dadata.ru/suggestions/api/4_1/rs/suggest/address?token=ca7356669e8a76db6d8091f49588068c19350b57&query=%D0%9C%D0%BE%D1%81%D0%BA%D0%BE%D0%B2%D1%81%D0%BA%D0%B0%D1%8F%20%D0%BE%D0%B1%D0%BB%D0%B0%D1%81%D1%82%D1%8C%20%D0%B3.%20%D0%92%D0%BE%D0%BB%D0%BE%D0%BA%D0%BE%D0%BB%D0%B0%D0%BC%D1%81%D0%BA
Определение номера недели и дня и запись в имя файла
 
Breathe of fate, перекопируйте код с включённой RU-раскладкой.
Генерация случайных чисел и цифр по заданному шаблону
 
Ігор Гончаренко,  Int(17 * Rnd()) возвращает значения от 0 до 16 (всего 17 штук) . Поверьте, я немного знаю матчасть.

эксперимент
Генерация случайных чисел и цифр по заданному шаблону
 
А вот это
Цитата
Ігор Гончаренко написал:
a = Int(17 * Rnd())
может ещё и "G" вернуть :)  (17-я цифра 17-тиричной СС?)
Генерация случайных чисел и цифр по заданному шаблону
 
Цитата
Ігор Гончаренко написал:
Нех при небольших Rnd() не вернет лидирующих 0
А Format$(Hex - вернет.
Код
?Format$(Hex(0), "0000")
0000
;)
Можно и так записать (в ущерб скорости, наверно?)
Код
Function Rnd32$()
  Dim i&
  For i = 1 To 32
    Rnd32 = Rnd32 & Hex(Int(16 * Rnd()))
  Next
End Function
Изменено: Апострофф - 15 Фев 2020 19:44:43
Генерация случайных чисел и цифр по заданному шаблону
 
вариант -
Код
  Dim i&
  
  For i = 1 To 8
    Rnd32 = Rnd32 & Format$(Hex(Int(65536 * Rnd())), "0000")
  Next
Изменено: Апострофф - 15 Фев 2020 15:44:30 (& format)
Путиводитель в Excel, работа с папками и файлами., Нужно завершить проэкт
 
Цитата
ramil484 написал:
я все сделал сам
Не прошло и 19-и лет. Бурные аплодисменты!!!
создание таблицы, Формирование таблицы зависимого выбора с автоматическим подтягиванием фото и стоимости
 
"Или "питьница" так действует?"?
вопрос риторический, как я понял?
Без вашего файла разговор ни о чём...
Путиводитель в Excel, работа с папками и файлами., Нужно завершить проэкт
 
Или зайчиками?
Нужен макрос для форматирования прайса
 
Пишу в ЛС...

Задача в работе...
Изменено: Апострофф - 5 Фев 2020 14:14:51
Динамическая ссылка на файл. Макрос
 
egorkaqwerty, я обычно делаю так -
Код
Workbooks.Open Filename:="C:\папка\важная папка\" & [A1] & "\файл.xlsx"
[ Закрыто] Как можно взломать пароль в excel файл
 
Faf, вам бы с правилами https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=rules ознакомиться для начала стоило...

"3.9 ... Все темы, прямо или косвенно касающиеся взлома любых паролей будут удаляться без предупреждения."
А отвечающие в таких темах могут и по шапке получить, наверно? Так что Апострофф - первый кандидат 8-0  
работа по преобразование текста в таблице, и поиск по определенным параметрам
 
Kent_hd777, здравствуйте.
Пишу в ЛС...
Где что? Search, Изменение/удаление темы.
 
А про рейтинг? На всех форумах это есть. Плюсик почему не могу дать?
Макрокрос по кнопке,выгрузка данных в новую книгу..., Макрокрос по кнопке,выгрузка данных в новую книгу листы с условием + справочник с проверкой данных
 
:oops:  
Макрокрос по кнопке,выгрузка данных в новую книгу..., Макрокрос по кнопке,выгрузка данных в новую книгу листы с условием + справочник с проверкой данных
 
Пишу в ЛС...

Заказ в работе...
Изменено: Апострофф - 15 Янв 2020 11:41:51
Макрос как удалить папку по пути из ячейки
 
История этих макросов как то мимо меня проскочила. :oops:
А поменять ActiveCell на [C4] Voltz сумеет?
Макрос как удалить папку по пути из ячейки
 
Voltz, попробуйте такую строку для адреса папки
Код
        sFolder = ThisWorkbook.Path & "\" & ActiveCell.Hyperlinks(1).Address 'путь к папке, которую надо удалить
возможно, придется ещё "/" на "\" заменить. Справитесь?
Просуммировать числа между собой
 
[Alt+F11] - подсказка.
Скрытый текст
Изменено: Апострофф - 13 Янв 2020 22:53:18
Просуммировать числа между собой
 
Найдёте теперь, куда вставить :)
Код
Sub main()
Dim E&, I&, R&, J&, D&, S$
E = 2
For I = 2 To 512 Step 2
  If I = E Then
    E = E + E
  Else
    R = R + 1
    Cells(R, "A") = I
    J = I
    D = 256
    S = ""
    While J
      If J >= D Then
        S = "+" & D & S
      End If
      J = J Mod D
      D = D \ 2
    Wend
    'Mid$(S, 1, 1) = "="
    Cells(R, "B") = S
  End If
Next I
End Sub
Просуммировать числа между собой
 
См. вложение.
Кстати - разложение на слагаемые нужно?
Просуммировать числа между собой
 
Наверно так?
Код
Sub main()
Dim E&, I&, R&
E = 2
For I = 2 To 512 Step 2
  If I = E Then
    E = E + E
  Else
    R = R + 1
    Cells(R, "A") = I
  End If
Next I
End Sub
Просуммировать числа между собой
 
Хотя погорячился. Из этих чётных нужно исключить сами числа ряда - их суммой не представить.
Сейчас нарисуем.
Просуммировать числа между собой
 
Rdaz,
от 6 до 510 с шагом 2.
Могу макросом, надо?
Поиск значения (Cells.Find) VBA
 
TCPakko,
Код
Sheets("Лист1").Cells.Find(What:=znach, LookAt:= xlWhole, _
                            SearchFormat:=False)
Изменено: Апострофф - 13 Янв 2020 00:00:39
Игра. Квадратная рулетка
 
Заказчик слился.
Игра. Квадратная рулетка
 
Пишу в лс.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 19 След.
Наверх