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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 267 След.
Учёт рабочего процесса. Программа для учёта времени работы активного приложения
 
Цитата
Alemox написал:
Спасибо за потраченное время
Да не за что. Успехов.
Ещё вариант - в третьем столбце имя exe файла, процесс которого является владельцем активного окна. Может так проще будет составлять отчёт. Если будете сохранять отчёт в c:\path\timeReport.txt, то в файл timeReport.xlsx прописан запрос Power Query, который составляет худо-бедно простой отчёт по времени активного окна каждого exe (опять же, если у вас есть power query). Конечно можно было бы и в проекте это сделать - но было лень, если честно :)
Сопоставить количество видов товара у первого поставщика и у остальных, перекрестный анализ
 
Цитата
Knight777 написал:
во второй раз выдает ошибку с источниками...
Где и что выдаёт? У SQL подхода есть жёсткие требования: файл должен находится по строго занному пути, книга должна называться одним и тем же именем, лист источник данных должен иметь одно и тоже имя, используемое в запросе, имена столбцов должны быть точно такими же, как в запросе.
Если что-то из этого поменяли, идёте в свойства подключения и изменяете строку подключения и собственно SQL запрос.
Как правильно использовать Range.Offset, если используемая ячейка объединена с другой?
 
Коллеги, огромное спасибо за исследования и предложения. Правда, пошёл через абсолютную адресацию - unmerge не приемлемо.
Суть более общей задачи. Есть набор карточек ввода, сформированный как листы, созданные из одного листа-шаблона. Естественно, в этом случае, если взять какую-то ячейку за основу (предположим, что это некоторая ячейка, в которой текст стабильно начинается с определённого текста), то требуемые данные относительно этой ячейки будут всё время находится на одном и том же смещении по строкам/столбцам. Тогда для универсализации выгрузки данных с таких карточек и требуется код, который будет собирать данные с листов некоторой книги, используя вспомогательную таблицу Позиции, в которой описаны такие смещения и номера столбцов нормализованной таблицы вывода. Попробовал два варианта с абсолютной адресацией на листе карточки и загрузкой данных в массив. Но, в качестве ячейки-основы может выступить и ячейка, которая объединена с другой ячейкой. Заранее же это не известно.
По скорости оказалось одинаково. 500 листов ввода обрабатываются почти 2 секунды.
Если кому будет интересно, то тестовый образец источник №1 10.07.19 стволовые.xlsx (просто размножил лист в книге до 500 штук.
Сопоставить количество видов товара у первого поставщика и у остальных, перекрестный анализ
 
Доброе время суток.
Цитата
Knight777 написал:
в экселе есть специальная функция под расчет который мне нужен
Есть такая штука - SQL называется, но тоже самое можно сделать и в Power Query.
Вариант на SQL. Файл сохранить в c:\Path. На листе Вывод ПКМ на синей таблице - Обновить.
Успехов.
Копирование не пустых значений и вставка в другую табицу, Необходимо из 1 таблицы скопировать только не пустые и вставить их в другую таблицы
 
Доброе время суток.
Вариант
Код
Public Sub addNewRowsFromTable()
    Dim whishodniy As Worksheet, whBD As Worksheet, lobjDB As ListObject, lngI As Long
    Dim arrData
    Set whishodniy = Worksheets("Таблица исходная"): Set whBD = Worksheets("Таблица для вставки"): Set lobjDB = whBD.ListObjects("ТаблицаЗначений")
    lngI = whishodniy.Cells(whishodniy.Rows.Count, 1).End(xlUp).Row
    arrData = whishodniy.Range(whishodniy.Cells(2, whishodniy.UsedRange.Column), whishodniy.Cells(lngI, whishodniy.UsedRange.Columns.Count + whishodniy.UsedRange.Column - 1)).Value
    If lobjDB.DataBodyRange Is Nothing Then
        lobjDB.HeaderRowRange(1).Offset(1, 0).Resize(UBound(arrData, 1), UBound(arrData, 2)).Value = arrData
    Else
        lobjDB.DataBodyRange.Cells(lobjDB.DataBodyRange.Rows.Count, 1).Offset(1, 0).Resize(UBound(arrData, 1), UBound(arrData, 2)).Value = arrData
    End If
End Sub

ОБъясните, пожалуйста,
Цитата
только не пустые
зачем это требование? Если вы добавляете данные в таблицу
Цитата
met.constr написал:
добавить их как новые строки ниже в "Умную таблицу"
То если в ячейки этих добавленных строк ничего не будет вставлено, то они будут пустые. Тогда если мы вставим пустые значения при копировании - что изменится в их состоянии?
Как правильно использовать Range.Offset, если используемая ячейка объединена с другой?
 
Цитата
RAN написал:
туды, сюды, обратно.
Видимо, да. Но тогда нет и разницы с абсолютной адресацией.
Спасибо, коллеги. Следующий будет про Find :)
Как правильно использовать Range.Offset, если используемая ячейка объединена с другой?
 
Доброе время суток, коллеги.
Столкнулся в задаче Трансформация форм-карточек в нормализованную построчную ведомость Excel с несколько неожиданным для себя поведением Range.Offset для случая, когда ячейка, относительно которой задаём смещение к нужной ячейке, объединена с другой.
В примере, ячейка А10 для которой вызываем Offset объединена с ячейкой A11.
Если задать смещение -2, 0 (то есть на ячейку А8), то получаем результат -2;0 - как и хотелось.
Но если задать смещение -2, 1 (на ячейку B8), то получаем результат -2;2 - то есть на ячейку С8. Получается, что используется неявно смещение с учётом объединения.
И как в этом случае сослаться на B8? В задаче перешёл к абсолютным ссылкам, но всё же любопытно как в общем случае получать значение по требуемому смещению?
P. S. Про объединённые ячейки - зло, знаю - но стоит ли об этом писать? :)
Дата последнего обновления в ячейке VBA
 
Цитата
Роман написал:
честно я не понимаю даже что там в нем прописано
Тогда зачем вы пишете
Цитата
Роман написал:
Помогите, пожалуйста, подправить код
?
Тогда так и пишите - Пожалуйста, подправьте код, чтобы он делал то и то. В чём помощь, если вы не участник решения?
Дата последнего обновления в ячейке VBA
 
Цитата
Роман написал:
При чем случайное число,
А вы по рассуждайте. Calculate срабатывает на любой пересчёт на листе. Вам же нужно определить был ли пересчёт в конкретной ячейке. Переделаем код. Теперь, если меняется случайное число в А3 - ничего не происходит. Но, вы получаете сообщение, если измените что-то в В3 - что приведёт к пересчёту в А1, которую мы отслеживаем.
Дата последнего обновления в ячейке VBA
 
Доброе время суток.
Вариант
создание word-документов при помощи excel
 
Цитата
RAN написал:
Прикрепление, извлечение файлов из книги Excel
Тёзка, а что так далеко отправили? :D  У нас тоже есть Хранение файлов и файловый менеджер в файле(листе) Excel
Учёт рабочего процесса. Программа для учёта времени работы активного приложения
 
Цитата
bedvit написал:
если вдруг возьмешься за С#
Привет, Виталий.
Скинь на email - посмотрю... Но ничего не обещаю.

По сабжу, в принципе, можно задействовать GetAncestor, чтобы получить указатель окна приложения. По нему и группировать локально диапазоны работы по времени.
Трансформация форм-карточек в нормализованную построчную ведомость Excel
 
Цитата
artyrH написал:
есть
Супер прилежный!!!  :D   ТС так не смог, хотя его и учили.
Привидение содержания двух столбцов к одинаковому виду
 
Цитата
casag написал:
У  вас 56 пар
Ну, так если есть повторы артикулов и в инет таблице и в таблице поставщика, то и получим декартово произведение. Похоже ТС из тех, что и сам не знает что нужно делать :(
Трансформация форм-карточек в нормализованную построчную ведомость Excel
 
Доброе время суток
Цитата
Slava977 написал:
в Power Query
Вы это серьёзно или вы совершенно ничего не знаете про Power Query? Хотелось бы посмотреть на такого не ленивого человека :)  
Версия на VBA.
Изменено: Андрей VG - 20 Июл 2019 19:50:46
Привидение содержания двух столбцов к одинаковому виду
 
Цитата
casag написал:
Какой из трех вариантов
Подозреваю, что такой. ТС видимо чтобы жизнь малиной не казалась объединил таблицу артикулов для интернета и таблицу данных поставщика вместе :)  Вместо того чтобы написать - нужно из таблицы данных поставщика отобрать данные по артикулам, которые есть в таблице для интернета. Как-то так можно расшифровать его логику изложения задачи. Но! Могу и ошибаться. Гуманитарии они такие загадочные :)
Консолидация результатов реализации по индивидуальным значениям
 
Цитата
Kurpatov88 написал:
формула она и в африке формула.
Тогда пользуйтесь поиском по форуму. Вот буквально на этой не деле замечательный медведь утворил. Что он теперь повторяться должен :) ?
Консолидация результатов реализации по индивидуальным значениям
 
Цитата
Kurpatov88 написал:
в основном работу ведем на Мак
Тогда почему вопрос задан не в разделе Вопросы по Excel для Mac? А макрос редизайнера по идее должен работать и на Mac.
Почему файл csv открывается с абркадаброй?
 
Цитата
Vadik_jet написал:
Что делать?
А это уже другой вопрос.
Вопрос темы
Цитата
Почему файл csv открывается с абркадаброй?
исчерпан. Согласно правил - создайте новую.
Консолидация результатов реализации по индивидуальным значениям
 
Доброе время суток.
Преобразуете исходные данные с нормальный вид с помощью Редизайнер таблиц. Не забудьте потом удалить строки с Всего. А далее используете нормализованную таблицу для сводной. Там можно будет и обобщить данные до месяца. Ну или с помощью Power Query сделайте источник данных для сводной.
Почему файл csv открывается с абркадаброй?
 
Доброе время суток
Цитата
Vadik_jet написал:
Почему файл вот так криво открывается, в csv???
Потому что в формате Utf-8, а Excel считает, что csv по умолчанию в ANSI.
Учёт рабочего процесса. Программа для учёта времени работы активного приложения
 
Доброе время суток.
Вариант, для такой программы, которая собирает информацию по именам активных окон и дате/времени, когда они стали активными. В принципе, если составить список используемых программ, то по значению заканчивается на одну из программ из этого списка можно отфильтровать, когда конкретная программа стала активной и по разнице во времени с другой активной вычислить сколько её пользовались (висела на переднем плане). Ну, или как вариант, пойти дальше в WinAPI и проверять не является ли ставшее активным окно дочерним к основному.
Сделал на C#, а то Виталий BedVit пристыдил как-то, что я совсем C# забросил. И в прямь, после двух лет отсутствия практики, еле-еле наваял. Кое что костыльно, признаюсь сразу... Идеи из этого обсуждения Detect active window changed using C# without polling
P. S. В файле demo.txt результат прослушивания программы.
В архиве ActiveWindowListener.zip проект и в ActiveWindowListener\ActiveWindowListener\bin\Debug собственно исполняемый файл.
Изменено: Андрей VG - 20 Июл 2019 13:50:02
доработка "Удобный поиск в выпадающем списке", малость доработать
 
Доброе время суток.
Цитата
Irbis_evs написал:
Я просто жду когда автор сам ее малость допилит.
Автор GIG_ant был последний раз на форуме чуть меньше двух лет тому назад. Вы уверены, что дождётесь?
Изменено: Андрей VG - 20 Июл 2019 08:55:47
Печать выделенного диапазона по условию ячейки
 
Цитата
DenisShiych написал:
Сейчас попробовал ваш пример выходит пустой лист.
Потому что нарушаете условие использования, заданное вами же
Цитата
Печать выделенного диапазона по условию ячейки
Задача в Power Query
 
Цитата
Salta-301 написал:
все трое)
Третий, если правильно понимаю - это Зеленский. Хотя он начинал там работу. А у меня компетенций в той области знаний, что требуется Salta-301, с комариный нос... Потому и отказался, хотя человек она не вредный и хороший.
Изменено: Андрей VG - 19 Июл 2019 22:24:25
Привидение содержания двух столбцов к одинаковому виду
 
Доброе время суток
Можно узнать, почему вы считаете, что это
Цитата
Judgin написал:
Т.е из столбца "Артикул2" удалить те артикулы, которых нет в столбце "Артикул1"
эквивалентно этому
Цитата
Judgin написал:
чтобы содержимое столбца "Артикул1" четко соответствовало содержимому столбца "Артикул2".
Ну, и так и не понял про порядок
Цитата
Judgin написал:
а также порядок расположения артикулов в обоих столбцах должен быть одинаков.
Чтобы это значило с учётом столбца кол-во? Приведите пример.

Пока решение на Power Query для первой процитированной постановки задачи.
P. S. Прошу пояснить, как количество может быть 0,5 - это же счётное значение.
Разделение текста на составляющие в Power Query
 
Цитата
PooHkrd написал:
Заодно запрос будет не чувствителен
Но стал очень медленным. На 271000 записей персон почти 208 секунд. Мой предложенный вариант через декартово произведение, впрочем, не лучше.
Более быстрые варианты на List.Generate (требует упорядоченности по невозрастанию длины фразы должности) 21 секунда
Скрытый текст

С List.Accumulate не требует упорядоченности, но 39 секунд (почти по классике - в два раза больше просмотров. Что в общем-то странно, как-будто остальной код ничего не весит. Впрочем, List.Accumulate всегда был не быстрым)
Скрытый текст
Уменьшение объёма и увеличения быстродействия файла с запросами PQ, Необходимо произвести уменьшения объёма файла и увеличить быстродействие
 
Цитата
kaa700 написал:
все таки есть какие либо варианты?)
Два железных
Цитата
kaa700 написал:
увеличить его быстродействие.
использовать более быстрые алгоритмы и требуемые для них структуры данных. Перейти на более производительное hardware.
Цитата
kaa700 написал:
уменьшить объём файла
нормализовать хранимую в файле структуру данных. Если используется power pivot, то не создавать вычисляемые столбцы, а всё считать в мерах.
Уменьшение объёма и увеличения быстродействия файла с запросами PQ, Необходимо произвести уменьшения объёма файла и увеличить быстродействие
 
Доброе время суток
Столь общий вопрос, по моему мнению, лучше в курилке задавать :)
Печать выделенного диапазона по условию ячейки
 
Доброе время суток.
Пожалуйста
Код
Public Sub printSheet2()
    Dim outSheet As Worksheet
    
    Set outSheet = ThisWorkbook.Worksheets("Лист2")
    outSheet.Activate
    If ThisWorkbook.Worksheets("Лист1").Range("A1").Value = 1 Then
        outSheet.PageSetup.Zoom = 100
    Else
        outSheet.PageSetup.Zoom = 75
    End If
    Selection.PrintOut
End Sub
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 267 След.
Наверх