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

Страницы: 1 2 3 4 5 След.
Подсчет дат в правильном формате
 
Переписал одиночную UDF на массив, вроде работает.
Код
Public Function ЕДАТА2(ЯЧЕЙКА As Range)
For Each cell In ЯЧЕЙКА
If IsDate(cell) = True Then ЕДАТА2 = ЕДАТА2 + 1
Next
End Function
Изменено: Laider - 05.09.2018 20:14:49
Подсчет дат в правильном формате
 
vikttur, UDF парочка есть, но их надо тянуть на весь массив. А так бы как-то одной строчкой это вычислить :oops:  
Подсчет дат в правильном формате
 
Всем привет. Прошу подсказать по решению во вложении, как определенном диапазоне подсчитать сколько в нем встречается дат в нормальном формате (05.09.2018, не беря во внимание строки, где дата записана в преобразованном числовом формате (43348). Т.е. чтобы решение вернуло 1 вместо 2 в формуле справа.
Скачивание папки с ftp на локальный диск VBA
 
Коллеги, люди всегда ищут решение проблемы. Способы ее достижения вторичны. Уж простите нас, людей с заочным экономическим образованием, что мы не разбираемся в IT-терминологии :)  
Скачивание папки с ftp на локальный диск VBA
 
Андрей VG, спасибо за инфо. У меня вот тоже была мысль -  раз руками дает скопировать папку с ftp на локалку целиком, значит есть вариант как-то это нестандартно обработать, типа посыла комбинации сочетаний клавиш.
Скачивание папки с ftp на локальный диск VBA
 
Всем привет. Знаю что тема не нова, но в прогуленных решениях идет показ реализации скачивания максимум одного файла с ftp на локальный. Возник вопрос. а можно ли скачать целиком папку со всеми подпапками и содержащимися в них файлами без их перебора. Может есть соот. команда?
Подсчет комплектов файлов в папке
 
Они не  в подпапках, а в одной. Вообще появилась мысль, поскольку из-за сбоя нумерации в цикл их завернуть не получится, проще сгенерировать типовую коллекцию, т.к. всего файлов всегда одинаково должно быть а их имена известны. И сравнить эту коллекцию со всем списком файлов  в папке, выводя того что нет.
Подсчет комплектов файлов в папке
 
Регионов 8, но они идут не по порядку, есть пропуски и отсчет начинается  с 0. На самом деле регионы идут с нумерацией  - P00 - P09
Изменено: Laider - 23.08.2018 20:13:03
Подсчет комплектов файлов в папке
 
Юрий, сделал шаблонно, а там переложу
Розница_Отчет1_Регион1Опт_Отчет1_Регион1
Розница_Отчет2_Регион1Опт_Отчет2_Регион1
Розница_Отчет3_Регион1Опт_Отчет3_Регион1
Розница_Отчет1_Регион2Опт_Отчет1_Регион2
Розница_Отчет2_Регион2Опт_Отчет2_Регион2
Розница_Отчет3_Регион2Опт_Отчет3_Регион2
Розница_Отчет1_Регион3Опт_Отчет1_Регион3
Розница_Отчет2_Регион3Опт_Отчет2_Регион3
Розница_Отчет3_Регион3Опт_Отчет3_Регион3
Подсчет комплектов файлов в папке
 
Всем привет. Прошу помочь с реализацией одной замысловатой на первый взгляд задачи. Таких у меня много будет, потом переложу код и на другие. Мне бы только увидеть концепцию. В папке содержится ряд файлов по Рознице и Опту, Регионам и Типам отчетов. В каждом комплекте региона, как по опту, так и по рознице должно быть три отчета.
Если в каких-то наборах Розница-Регион или Опт-Регион не хватает файлов, вывести это в итоговое консолидированное сообщение в таких-то наборах не хватает файлов.
Подсчитать кол-во ячеек, содержащих только текст
 
И на пустых не косячит. Замечательно. Спасибо!
Подсчитать кол-во ячеек, содержащих только текст
 
Всем привет. Подскажите пожалуйста, как наиболее производительно посчтать кол-во ячеек в определенном столбце. содержащих только текстовые значения. Текст может быть разным, но всегда встречается либо текст, либо числа, смешанных не бывает. Пример в файле. Мысль -  может регулярками?
Изменено: Laider - 20.08.2018 21:45:39
Скопировать открытый файл VBA
 
Да, Scripting.FileSystemObject я почему-то упустил, хотя рядом по коду он делал копирование папки. У меня был FileCopy. Спасибо всем.
Скопировать открытый файл VBA
 
Всем привет. Форумчане, подскажите как скопировать открытый файл (файл Excel), файл открыт другим пользователем. Копирование кодом VBA. Все прогугленные методы дают ошибку 76. Интересно что, через проводник они копируются без проблем.
Добавить подпись в сообщение через Outlook
 
БМВ. то что нужно. Спасибо!
Добавить подпись в сообщение через Outlook
 
БМВ, ок. Буду благодарен.
Добавить подпись в сообщение через Outlook
 
Добрый вечер всем.Напишу в старую тему.Надеюсь Дмитрий увидит, услышит. Макрос класс -  работает как нужно. Одна проблема - в корпоративной подписи есть картинка, которая упорно не желает вставляться вместе с остальной подписью, пишет что невозможно отобразить объект, хотя формат и html. Как можно обойти проблему?
Определить разные значения у однотипного показателя VBA
 
_Igor_61, заказчик в итоге сказал залить все. Что и где разное еще и от кол-ва зависит - каких больше, а это оказалось не нужно. Все решения должны быть одинаковыми и отметить нужно весь показатель.
Определить разные значения у однотипного показателя VBA
 
Как-то так получилось:
Код
Sub test()
lr = Cells(Rows.Count, 6).End(xlUp).Row
For i = 2 To lr
a = Application.WorksheetFunction.CountIf(Range("F:F"), Cells(i, 6)) - Application.WorksheetFunction.CountIfs(Range("F:F"), Cells(i, 6), Range("G:G"), Cells(i, 7))
If a <> 0 Then
Cells(i, 7).Interior.Color = 255
End If
Next
End Sub
Изменено: Laider - 27.06.2018 20:27:46
Определить разные значения у однотипного показателя VBA
 
Как же все таки кодом задачу решить? УФ вещь хорошая, но макрос обрабатывает файлы пачками, не оставляя открытыми и сохраняя под другим именем если есть ошибки. А проверить цвет ячейки УФ целая история.
Определить разные значения у однотипного показателя VBA
 
Bema, спасибо! То что нужно!
Определить разные значения у однотипного показателя VBA
 
Как-то так. Но можно чтобы не считать, залить значения напротив всех пятерок. По данному показателю есть разные комментарии.
Определить разные значения у однотипного показателя VBA
 
Всем привет. Что-то понедельник, деть тяжелый. Застрял на простой задачке. Как определить уникальный ли комментарий(решение) содержит показатель, либо же есть разные. Пример в файле. Повторы кодов могут идти не порядку, сортировать их нельзя. Решение может иметь разное обозначение (не только да/нет) - важно чтобы у одного кода было одинаковое решение. Если нет - отличие(я) залить заливкой.
Попарное сравнение файлов в цикле
 
Nordheim, спасибо за универсальное решение. Занесу в копилку. Решил на работе немного другим способом,  т.к. уже начал с другой стороны. Выложить к сожалению не могу, на работе нет доступа к форуму.
Попарное сравнение файлов в цикле
 
Всем привет. Прошу помочь составить правильно цикл. Суть задачи  - в двух разных папках Папка 1 и Папка 2 лежат несколько файлов. Их число в обоих папках одинаково. Файлы сравниваются по последней цифре в имени файла, одинаковых имен нет. Например в Папке 1 нужно окрыть Реестр 1, в папке 2 открыть Реестр согласованный 1 (идет код сравнения - здесь я сам), Затем открывается Реестр 2 и сравнивается с Реестром согласованным 2  ит.д.
Быстрое открытие файлов по гиперссылам
 
Всем привет. Подскажите самое эффективное решение задачи. Есть ряд файлов хранящихся на сетевом диске и гиперссылки на них зашиты в  коде, в надстройке, вызываются по нажатию кнопки в ленте. Файлы в основном Word и Excel. Тут такая проблема - их нельзя открывать напрямую (занимать эти файлы). Как лучше сделать, открытие  в новом документе, копирование с известного пути в новое место и открытие оттуда? Может еще варианты, интересует самый быстрый конечно.
Заполнить диапазон ячеек из строчного массива VBA
 
Юрий М, такой вариант возможен, но это как я уже говорил раздувает размер надстройки. Шаблонов много. есть многострочные. Да и как-то не солидно. На внутренних листах есть листы персональных настроек, и когда пользователь открывает настройку и видит все эти лишние сторонние сопли.....Да и запрос с листа будет помедленней.
С другой стороны в этом варанте проще вносить изменения, если они будет необходимо, причем менее квалифицированным персоналом. Гибкость. По пока придерживаюсь философии запиши все в коде.
Заполнить диапазон ячеек из строчного массива VBA
 
Ух сколько вариантов, всем спасибо! Igor, все просто - есть сторонние шаблоны. Много шаблонов заголовков. Хранить их в надстройке не правильно, будет раздувать ее размер. А макрос делает с чистого листа отчет по шаблону из совсем непохожих на него выгрузок. Поэтому эти строки из шаблонов проще собрать один раз, занести в программный массив и все. Тем более у меня есть функции множественного сцепления с разделителями. Делов на 2 секунды.
Заполнить диапазон ячеек из строчного массива VBA
 
Всем привет. Часто по работе нужно набросить заголовки длинных таблиц в Excel непосредственно из кода VBA. Обычно их можно представить  в виде строки с запятыми, например Дата, Сумма, Регион, Наряд, Срок выполнения. Как это строчку из кода можно быстро поместить последовательно в первую строку с ячейки a1, каждый в последующую ячейку?
RegExp сколько слов и сколько цифр в строке
 
Всем спасибо за помощь! vikttur, строки с адресами. Там редко бывают слэши, а умножения нет совсем :)  
Страницы: 1 2 3 4 5 След.
Наверх