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

Страницы: 1 2 3 След.
Повреждение файла Excel в области VBA, Стал вылетать только один файл
 
Относительно регулярно получаю проблемы с макросами в файлах с расширением *.xlsb и почти всегда помогало открытие файл в более новой версии Excel - 2021 или 365.
Excel 2003: Данные - Фильтр - Автофильтр. Как найти несколько слов?
 
ну если вам нужно, чтобы было только точное совпадение
Код
=ИЛИ({"музыка";"Тв"}=A1)
VBA/SQL. С помощью VBA записать данные через SQL, VBA/SQL
 
Вам нужно список с полями разделить на несколько переменных, а потом в строке уже обращаться к переменным
Код
header_1="orderDate,custNumber....,"
header_2="printed..."
mySql = "INSERT INTO orderHeader (" & header_1 & header_2 & ") VALUES (" & todayDate & "," & rowNum & "," & myBool & ")
[VBA] Вставка объекта через VBA
 
Можно сделать по событию изменения на листе в диапазоне B1:B6 и проверкой значения в B7.
Код см. в файле - правой кнопкой на ярылке листа, выбрать Просмотреть код.
Создаем XML на vba, Не могу воспроизвести структуру XML
 
Вот так можно
Код
Dim Unit As Object
    Set Unit = men.appendChild(xml.createElement("Unit"))
    Unit.setAttribute "Name", "Проходная логистический центр ТА посетителей"
    Unit.setAttribute "Phone1", "227"
VBA не подтягивается текс из ячейки
 
У вас ошибка из-за .Range("R12C14").Text, нужно указывать название ячейки по другому .Range("N12").text
Экспорт книги без модели данных (Power Pivot & Power Query), Предоставление книги с множеством сводных таблиц из модели данных, читателям которым нужны только конечные сводные таблицы.
 
Макрос
Код
Sub rr()
Dim pq As Object
For Each pq In ThisWorkbook.Queries
    pq.Delete
Next
On Error Resume Next
For Each pq In ThisWorkbook.Connections
    pq.Delete
Next
On Error GoTo 0
End Sub
Сохранение книги с паролем, Как разрешить сохранять книгу только введя пароль?
 
Excelopfer, можно сделать двумя вариантами.
1) поставить пароль на открытие книги и тогда пользователь сможет только работать с книгой, но не сможет изменить
2) добавить макрос на закрытие и сохранение книги, чтобы ее было невозможно сохранить без пароля
макрос меняющий диапазон дат в сводной таблице, макрос
 
Егор Иванов, при записи на конкретные ячейки не ссылался. Но при записи можно посмотреть в каком формате фильтр использует данные и потом уже указать нужные ячейки с правильным форматом.
макрос меняющий диапазон дат в сводной таблице, макрос
 
Можно же просто записать макрорекордером какой фильтр ставится или попробовать разные форматы самостоятельно.
Вот так отработало.
Код
 With ActiveSheet.PivotTables("Сводная таблица1").PivotFields("Дата")
        .ClearAllFilters
        .PivotFilters.Add2 Type:=xlDateBetween, Value1:=CStr(Range("D4").Value), Value2:=CStr(Range("D5").Value)
    End With
Совместная работа с книгой
 
Вот для примера загрузка данных в базу из рабочего файла.
VBA. Присвоить диапазон для десятков ComboBox через loop
 
seggi, см. в файле все работает.
VBA. Присвоить диапазон для десятков ComboBox через loop
 
Rowsource нужно отдать не диапазон, а адрес диапазона.
И да с горизонтальным диапазоном работать не будет.

Как вариант без rowsource
Код
UserForm1.Controls("ComboBox" & CStr(i)).list = Application.Transpose(Range(Worksheets("menu").Cells(i, 1), Worksheets("menu").Cells(i, 10)).value)
VBA. Макрос на удаление и одновременное копирование
 
Можно вот так:
-один макрос в модуль эта книга, для привязки макроса к клавише Del
-сам макрос на перенос вместо удаления выделенного диапазона

Но я бы не стал делать макрос на стандартную клавишу. Можно же назначить на сочетание CTRL+клавиша
VBA форма с поочередным выводом текстов и пунктов меню при заполнении
 
Если я правильно понял, то так.
Макрос с переносом данных и предварительными вычислениями (цикл), Из одного файла нужно будет переносить данные, делать вычисления
 
А зачем вы новую тему создали по сути с тем же описанием ?

https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=152785&...
Сложный макрос с несколькими переносами данных и вычислениями, Из одного исходного файла нужно будет переносить данные, делать вычисления в ещё 3 файла
 
Вот это Вы, конечно, нагородили.
См. вложение - лист в макросе используется как шаблон и из него создается новый файл.
Макрос и файл Первый нужно разместить в одной папке.
Настройка верхнего блока меню
 
Вкладка Файл - пункт Параметры, в открывшемся окне пункт - Панель быстрого доступа и там стрелками справа можно перемещать команды.
Перенос среза, Перенос среза из сводной таблицы на другой лист
 
Можно же просто скопировать срез и вставить его на другой лист и он будет нормально работать.
Вычисление среднего значения по дням месяца
 
Сравниваем нужный нам месяц со всеми данными в таблице
На выходе получаем список значений - ИСТИНА, ЛОЖЬ, ИСТИНА и т.д.
Код
(МЕСЯЦ(L4)=МЕСЯЦ($R$3:$R$14)
Для получения списка суммы умножаем этот список на суммы
Код
МЕСЯЦ(L4)=МЕСЯЦ($R$3:$R$14))*$S$3:$S$14
На выходе получим список с суммой за нужный нам месяц, там где при проверке было ИСТИНА
После чего суммируем все значения и получаем суммы всего за месяц.
Код
СУММ((МЕСЯЦ(L4)=МЕСЯЦ($R$3:$R$14))*$S$3:$S$14)

Делаем аналогично для количества, но умножаем не на сумму, а на количество уникальных дат
Код
*1/СЧЁТЕСЛИ($R$3:$R$14;$R$3:$R$14))

Вы можете увидеть сам расчет, если зайдете в Формулы - Вычислить формулу
Изменено: Roman M - 05.10.2022 22:49:14
Вычисление среднего значения по дням месяца
 
Можно сделать как-то так.
Формула не считает значения ниже или равные 5, для значений до 5 включительно формула не работает, с 6 и до 24 формула работает
 
Более подробно про работу ВПР можно посмотреть здесь

https://www.planetaexcel.ru/techniques/25/106/
Формула не считает значения ниже или равные 5, для значений до 5 включительно формула не работает, с 6 и до 24 формула работает
 
У вас блок в формуле, который определяет скидки засунут в основой расчет и не будет учитываться если меньше 5.
Я переделал в таком виде - отдельно таблицу со стоимостью занятий и тогда формула будет проще и проще ее будет модифицировать, если стоимость будет меняться.
Создание фильтра на смежные умные таблицы, Добавление фильтра на умные таблицы друг под другом
 
Можно сделать с помощью макроса.
Как вариант см. во вложении.

Если без макроса, то можно в промежуточных.итогах брать на одну строку снизу больше чем есть в таблице, тогда добавление/удаление строк не должно влиять.
VBA - Поиск уникальных значений ячеек в одном столбце
 
Если там сильно больше 100 тыс. идущих после ***, то может быть быстрее на несколько секунд если переделать на коллекцию. Если там всего 120 тыс., то это вообще не проблема.
VBA - Поиск уникальных значений ячеек в одном столбце
 
См. вложение.
[VBA] Поиск и перенос уникальных данных
 
Ну в первом сообщении было наоборот )
Цитата
написал:
ВПР-ом подтянуть данные по "Статусу" и "Кол-ву поставщиков" из "Книги 1" в "Книгу 2" для всех существующих строк. Вставить как значения.

Во вложении обновленный файл.
[VBA] Поиск и перенос уникальных данных
 
Поправил, см.вложение.
Пробный период для Книги Excel, защитить книгу паролем по условию
 
В некоторой степени можно ограничить с помощью макросов и если поставить видимость листов в очень скрытые.

На открытие фала будет проверятся когда файл открывали с неправильным значением и сколько прошло времени, если больше чем нужно, то рабочие листы будут скрыты, если меньше или там стоит правильный код, то все будет работать как нужно.
Перед закрытием файла - будут скрываться все листы, кроме заглушки "Включите макросы или обратитесь к разработчику".

Но если пользователи знают макросы, то это не будет работать.
[VBA] Поиск и перенос уникальных данных
 
Если я правильно понял, то можно сделать вот так.

Поменяйте путь к файлу из которого планируете брать данные.
И сейчас для подсветки новых строк ИД красится в красный, но это только для тестирования.
Страницы: 1 2 3 След.
Наверх