Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 767 След.
Как отобразить в ячейке букву со знаком ударения?
 
del
Изменено: Hugo - 28.05.2021 15:04:50
в .CSV файле при открытии в некоторых ячейках вместо цифр дата, файл скачивается в .CSV формате при открытии в некоторых ячейках вместо цифр дата
 
И на что нужно заменить июл.35?
Заблокировать строку при условии, что в столбце F будет прописано "передано"
 
Или так - сперва снять со всех ячеек листа свойство "защищаемая".
Затем пишите макрос на событие изменения ячейки (можно воспользоваться любым уже написанным :) ), который вызывает например такой:
Код
Sub Prot(r As Long)
ActiveSheet.Unprotect
Rows(r).Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
в .CSV файле при открытии в некоторых ячейках вместо цифр дата, файл скачивается в .CSV формате при открытии в некоторых ячейках вместо цифр дата
 
Открывайте файл не доблкликом, а как источник внешних данных из текста, там в мастере можно настроить текстовый формат. Ну или в PQ, если версия 2010 или новее.
Поиск позиций из одного списка в другом с выдачей нескольких совпадений
 
Юзайте фильтр.
Перевести файл из неизвестного формата в xls
 
Макрос - это и есть автоматизация.
Да и PQ тоже в какой-то мере.
Изменено: Hugo - 26.04.2021 14:42:28
Перевести файл из неизвестного формата в xls
 
Включаете запись макроса, импортируете эти данные как из тестового файла, выключаете запись.
Дописываете в этот код цикл перебора всех этих 3000 файлов, ну и чистку от лишних строк.
Ну или аналогичное, но на PQ.
Только вот это "c разными шапками" конечно может весь этот процесс загубить... У меня например помню тоже были текстовые файлы с шапками...
Изменено: Hugo - 26.04.2021 13:37:19
Как спарсить title у сайта с помощью VBA?
 
Привет Сергей!
А теперь ОК, с утра там в верхней части картинка открывалась, сейчас её нет, может поэтому.
Как спарсить title у сайта с помощью VBA?
 
У меня с этого сайта код не возвращает никих титлов...
Сцепить значения ячеек в один порядковый номер
 
Цитата
Ігор Гончаренко написал:
информация получена из открытых источников
- а там обычно не упоминаются самые интересные особенности :)
Сцепить значения ячеек в один порядковый номер
 
Подставишь, если умеешь собирать стрку:
Код
Formula = "=CONCATENATE(" & RowCount & "....
После экспорта базу из CRM файл открывается некорректно
 
Поможет импорт данных.
И это стандартный способ :)
Изменено: Hugo - 21.04.2021 15:45:26
После экспорта базу из CRM файл открывается некорректно
 
Нужно этот исходный csv открывать как источник внешних данных, там и кодировку можно выбрать.
Сравнить даты (с учетом секунд) и определить дату, которой нет во втором столбце
 
Я нашёл какие есть, остальных значит нет. С учётом секунд, а может и миллисекунд, не изучал, с учётом всего.
Сравнить даты (с учетом секунд) и определить дату, которой нет во втором столбце
 
Если учитывать целиком всё что есть - то из первого столбца совпадают только 3 значения:
11.01.2021 9:16
13.01.2021 15:15
13.01.2021 18:06
Сбор наименований заказчиков по номеру заказа в одну ячейку, многократный ВПР
 
Ну можно и мою формулу подпилить под конкретную задачу - чтоб не брать миллион раз миллион строк в миллион массивов, а обойтись одним исходным массивом.
А если написать и использовать как формулу массива - то и обойтись одним массивом и одним словарём на весь лист.
Сбор наименований заказчиков по номеру заказа в одну ячейку, многократный ВПР
 
Цитата
BRP написал:
уходит более 30 мин
- данные в одном файле на разных листах, как в примере? Макросы на событие какие-то есть?
Сбор наименований заказчиков по номеру заказа в одну ячейку, многократный ВПР
 
Я моя работает! :)
А что значит "получается слишком длительное заполнение"? Может юзаете что-то из первых версий?
Заполнить таблицу данными из другой таблицы используя справочник условий
 
Я такие не умею.. :(
Заполнить таблицу данными из другой таблицы используя справочник условий
 
Что-то вроде, но не все наименования есть. Суммы/итоги ещё нужно отдельно добавить.
Заполнить таблицу данными из другой таблицы используя справочник условий
 
ВПР
Заполнить таблицу данными из другой таблицы используя справочник условий
 
Можно сперва в 1 actual data подтянуть названия из директори, затем сделать сводную, а уже затем ВПРой тянуть в целевую таблицу.
Заполнить таблицу данными из другой таблицы используя справочник условий
 
Доброго дня.
Такую думаю нужно самому написать.
Можно, но развлечения в этом не вижу, больше гемора...
Как из структуры (один столбец с нумерацией) создать таблицу
 
А вот и посмотрим :)
Как из структуры (один столбец с нумерацией) создать таблицу
 
Если делать макросом - можно словарь с коллекцией в словаре юзать.
Но сейчас все уже на PQ переметнулись, может там попроще код будет (если будет), я пас с PQ.
VBA уникальный hash текстового шаблона
 
Цитата
New написал:
На какой строке выдаёт ошибку?
- на третьей, и это известная проблема, говорят This issue can be solved by installing the .NET Framework 3.5
"обновил компьютер" - от старого остались только видеокарта, память и один SATA шлейф... и 32 бита Эксель, но уже 365.
Цитата
bedvit написал:
Чем не подошло мое решение?
- да мне бы без надстройки, чтоб всё в файле было, мне людям нужно будет в файл внедрять. Там уже все с MD5 налажено, но вот боюсь что кто-то из них обновится и ага...
Цитата
sokol92 написал:
от Robert M. Hubley, 1999
- вот спасибо, думаю то что нужно пошёл внедрять :)
Изменено: Hugo - 31.03.2021 23:16:47
VBA уникальный hash текстового шаблона
 
Доброго всем дня (ну или ночи...)
Обновил тут на днях компьютер, и столкнулся с бедой - не работает получение хэша MD5
Код
Private Function GetHash(ByVal txt$) As String 'MD5
    Dim oUTF8, oMD5, abyt, i&, k&, hi&, lo&, chHi$, chLo$
    Set oUTF8 = CreateObject("System.Text.UTF8Encoding")
    Set oMD5 = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
    abyt = oMD5.ComputeHash_2(oUTF8.GetBytes_4(txt$))
    For i = 1 To LenB(abyt)
        k = AscB(MidB(abyt, i, 1))
        lo = k Mod 16: hi = (k - lo) / 16
        If hi > 9 Then chHi = Chr(Asc("a") + hi - 10) Else chHi = Chr(Asc("0") + hi)
        If lo > 9 Then chLo = Chr(Asc("a") + lo - 10) Else chLo = Chr(Asc("0") + lo)
        GetHash = GetHash & chHi & chLo
    Next
    Set oUTF8 = Nothing: Set oMD5 = Nothing
End Function


Подскажите простую замену этого чем-нибудь нативным, без использования древнего .Net (вот именно потому что теперь новый и не пашет, так говорит интернет...), может есть какой класс не особо мудрёный, чтоб просто его добавить и использовать типа
Код
х = GetHash(строка$)
Выдернуть часть текста из ячейки, Прошу помочь выдернуть часть текста из ячейки
 
К копии столбца применить текст по столбцам, лишнее в процессе исключить.
Не выполняется макрос в файле, открытом в скрытом режиме
 
Я ещё и про Rows.Count говорил, не особо я верю что когда говорят что открывать будут xlsx что это именно так будет всегда...
Не выполняется макрос в файле, открытом в скрытом режиме
 
Добрый день.
1. Для начала оформите код тегами, как положено (форум ведь уже смотрели, есть 6 постов...).
2. В коде нужно всюду явно прописать чьи строки и ячейки (и количество строк!) используете, может тогда и взлетит.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 767 След.
Наверх