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

Страницы: 1 2 3 4 След.
Как в Word / Excel при сохранении сделать авто-генерацию уникального имени?
 
Наверное что-то вроде этого имеется ввиду?
Код
Sub СохранитьСУникальнымИменем()
    Dim ИмяФайла As String
    ИмяФайла = "Путь\к\вашей\папке\" & Format(Now, "dd-mm-yyyy_hh-mm-ss") & ".docx"
    ActiveDocument.SaveAs ИмяФайла
End Sub
Аллокация расходов
 
Как-то так, если всё правильно понял
Сохранить выбранный диапазон в формате XLSX
 
Олег м,
у вас ошибка на этой строчке? .Range(.PageSetup.PrintArea).ExportAsFixedFormat Type:=xlTypeXLSX, filename:=filename & ".xlsx", Quality:= _
я имел ввиду, что вы используете метод Метод ExportAsFixedFormat. Он используется для публикации книги в формате PDF или XPS .  
А вам нужно просто сохранить xlsx.
Сохранить выбранный диапазон в формате XLSX
 
А зачем вы экспортируете? Нужно же просто сохранить в xslx. У вас Type:=xlTypeXLSX, согласно справке там можно указать либо xlTypePDF, либо xlTypeXPS
Размеры вставляемой и выделенной областей не совпадают., Размеры вставляемой и выделенной областей не совпадают.
 
Попробуйте ещё вот это:
  1. Откройте Excel и перейдите в "Файл" | "Параметры".
  2. В открывшемся окне выберите раздел "Дополнительно".
  3. Прокрутите вниз до раздела "Общие".
  4. Убедитесь, что флажок "Игнорировать другие приложения, которые используют Dynamic Data Exchange (DDE)" не отмечен.
Динамический параметр в URL PQ
 
Код
let
    pathValue = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content]{0}[Столбец2],
    url = "https://mpstats.io/api/wb/get/brand?d1=2023-06-13&d2=2023-06-13&path=" & pathValue,
    data = Web.Contents(url)
in
    data
Добрый день! Попробуйте так.
Удаление строк, если нету в списке VBA, Удалить строки, если нету в списке VBA
 
Код
Sub УдалениеСтрокПоУсловию2()
    Dim ra As Range, delra As Range, ТекстДляПоиска() As String
    Dim i As Integer, found As Boolean
    Application.ScreenUpdating = False    ' отключаем обновление экрана
  
    ТекстДляПоиска = Split("шт,цена", ",")    ' удаляем строки, которые не содержат эти тексты
  
    ' перебираем все строки в используемом диапазоне листа
    For Each ra In ActiveSheet.UsedRange.Rows
        found = False
        ' перебираем все искомые тексты
        For i = 0 To UBound(ТекстДляПоиска)
            ' если в строке найден искомый текст
            If Not ra.Find(ТекстДляПоиска(i), , xlValues, xlPart) Is Nothing Then
                found = True
                Exit For
            End If
        Next i
        ' если ни один из искомых текстов не найден в строке
        If Not found Then
            ' добавляем строку в диапазон для удаления
            If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
        End If
    Next
    ' если подходящие строки найдены - удаляем их
    If Not delra Is Nothing Then delra.EntireRow.Delete
End Sub
Размеры вставляемой и выделенной областей не совпадают., Размеры вставляемой и выделенной областей не совпадают.
 
Навскидку не подскажу. Значит они у вас открываются в разных экземплярах Excel.

Какая у вас версия Excel? какой формат у файлов? Они оба одинаковый формат имеют? насколько они большие?

Вот ещё справка на эту тему:
https://learn.microsoft.com/ru-ru/office/troubleshoot/excel/force-excel-to-open-new-instance
Размеры вставляемой и выделенной областей не совпадают., Размеры вставляемой и выделенной областей не совпадают.
 
Без самих файлов сложно что-то подсказать. Ваша проблема может быть связана с тем, как открываются два файла Excel на вашем новом компьютере. Убедитесь, что оба файла открыты в одном и том же экземпляре Excel. Попробуйте открыть первый файл, а затем открыть второй файл, используя инструмент "Открыть" на панели инструментов или выбрав "Файл" | "Открыть".
Заполнение ячеек исходи из содержимого других
 
Общий артикул всегда начинается на БП-П?
Поиск самого загруженного дня
 
А файл-пример есть?
Код
MaxSessionsPerDirection = 
VAR MaxSessions =
    CALCULATE (
        MAX ( 'Таблица'[Всего сессий] ),
        ALLSELECTED ( 'Таблица'[День месяца] )
    )
RETURN
    IF (
        MAX ( 'Таблица'[Всего сессий] ) = MaxSessions,
        MAX ( 'Таблица'[Всего сессий] ),
        BLANK ()
    )
Копирование значений через определенный шаг, Надо составить таблицу, где будут собраны результаты ответа всех респондентов на 1-ый вопрос, потом ответы всех на 2-ой вопрос
 
Можно сделать через сводную таблицу, только сначала в заголовке убрать объединенные ячейки. И протянуть номера респондентов на каждый блок, удалить пустые строки
Изменено: pantel1987 - 05.06.2023 12:56:44
Добавить путь к конкретной папке в макрос, Добавить конкретный путь в папке в макрос
 
Да, убрать, или закомментировать
Добавить путь к конкретной папке в макрос, Добавить конкретный путь в папке в макрос
 
Вместо
Код
 With Application.FileDialog(msoFileDialogFolderPicker)
       .Title = "Выберите папку или диск"
       .Show
       On Error Resume Next
       Err.Clear
       V = .SelectedItems(1)
       If Err.Number <> 0 Then
           MsgBox "Вы ничего не выбрали!"
           Exit Sub
       End If
   End With
   BrowseFolder = CStr(V)

Код
 BrowseFolder ="\\sbc01\shares\Marketing\Trade Marketing\Фоотчеты LSM\2023\433"
Создание фин отчета из двух таблиц доход\расход
 
Можете выложить файл-пример? тот что в первом посте не подходит, т.к. там расходы только в одном месяце.
Создание фин отчета из двух таблиц доход\расход
 
Добрый день! У вас пример не очень. на листе оплаты у вас всё с 21 по 23 год, а на листе расходы только июнь 22 года. Поэтому на вашем примере сложно показать.

Я бы начал так:
1. Грузим таблицы Доходы и Расходы в PQ.
В запросе Доходы добавляем пользовательский столбец "Вид", со формулой "=Доходы"
В запросе Расходы добавляем пользовательский столбец "Вид", со формулой "=Расходы". И ещё умножаем столбец Сумма на -1
Далее делаем Append (Объединить - добавить запросы). Чтобы Доходы и Расходы оказались в одной таблице. Но сначала переименовать нужные столбцы,
чтобы они одинаково назывались в обоих запросах. Т.е. дата, сумма, вид и тд. Тогда они друг под друга попадут.
Из этого общего запроса вы сможете в сводной кинуть в строки поле Вид - будет разделение на доходы и расходы и далее различную аналитику.
2. Финансовый результат нарастающим итогом можно тоже сделать в PQ, и сделать Append к общей таблице, но это лучше на примере показать. И потом так же кидать в сводную. Остаток денежных средств на конец предыдущего месяца - это по сути будет тот же Финансовый результат, только отталкиваясь от первоначального входящего остатка.

Надеюсь хоть чем-то помог.
макрос для MS Word, сбрасывающий форматирование текста
 
Добрый день! Написал в личку.
Создать word-документы КП из Excel-данных, Есть таблица Excel, надо чтоб данные в таблице переносились в шаблон Word (4 шаблона)
 
Написал в личку.
Подсчет строк умной таблицы vba, Определить последнюю заполненную строку умной таблицы без учета заголовков
 
Попробуйте через
Код
Worksheets(1).ListObjects(1).Listrows.Count
Он считает количество строк в умной таблице без заголовков
PQ как сделать выборку по месяцам.
 
Если правильно понял
Код
= Table.SelectRows(#"Измененный тип", each Date.IsInNextMonth([Дата]) or Date.IsInCurrentMonth([Дата]) or [Дата] = Date.From(Date.AddMonths(Date.StartOfMonth(DateTime.LocalNow()), -11)))
Извлечение данных из "плавающего" диапазона сводной таблицы
 
Добрый день! Попробуйте и вниз протяните
Код
=ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ("[Measures].[Сумма по столбцу сумма]";$J$5;"[Диапазон].[месяц]";"[Диапазон].[месяц].&["&B22&"]")
Изменено: pantel1987 - 27.10.2021 13:51:57
Power Query ошибка "Аргументы 2 были переданы функции, которая ожидает 1"
 
Добрый день! Попробуйте отсюда обновить офис.
PQ. Отобразить значение в зависимости от разности дат
 
Добрый день! Так?
Копирование цены с сайта в ячейку
 
добрый день!

Возможно надо будет поковыряться в настройках безопасности Internet Explorer
Код
Sub Kurs()
    Dim IE As Object
    Dim html As Object
    Dim t As String
    Dim holdings As Variant
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = 0
    IE.Navigate2 "https://ru.investing.com/currencies/eur-usd"


    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop

    Set html = IE.document
    Set holdings = html.getElementByID("last_last")
    t = holdings.textContent
    
    Range("A1").Value = CDec(t)
    Range("A1").NumberFormat = "General"

    IE.Quit
    Set IE = Nothing

End Sub


Изменено: pantel1987 - 10.08.2021 13:55:40
Power Query. Загрузка ставок с сайта ЦБ
 
Понял, вот так попробуйте
Код
= Web.Page(Web.Contents("https://www.cbr.ru/hd_base/mosprime/?UniDbQuery.Posted=True&UniDbQuery.so=1&UniDbQuery.mode=1&UniDbQuery.From=31.07.2019&UniDbQuery.To=07.08.2021"))
Power Query. Загрузка ставок с сайта ЦБ
 
Я вот таким запросом выгружаю, вроде работает
Код
= Web.Page(Web.Contents("http://www.cbr.ru/currency_base/dynamics/?UniDbQuery.Posted=True&UniDbQuery.mode=1&UniDbQuery.date_req1=&UniDbQuery.date_req2=&UniDbQuery.VAL_NM_RQ=R01235&UniDbQuery.From=23.07.2020&UniDbQuery.To=06.08.2021"))
Исключение нулей и отрицательных значений из рядов данных
 
Здравствуйте! Вот так работает как вам нужно?
Код
=ИНДЕКС(ЛИНЕЙН($H4:$J4;ВЫБОР({1:2};ЕСЛИОШИБКА(LN($B4:$D4););ЕСЛИОШИБКА(LN($E4:$G4);));0;1);1;2)
Добавление расчетного поля в сводную таблицу с выводом текста
 
Проще всего в исходной таблице сделать доп. столбец где бы указывался этот текст, а потом вывести это поле в сводной.
Составление рейтинга продуктов по категориям и группам
 
а сводные таблицы не подходят для решения?
В массиве данных нужно найти только переводы сотрудников из одного подразделения в другое
 
Попробуйте такой макрос
Код
Sub sidorova()
Dim r As Range
For Each r In Range("B2", Range("B2").End(xlDown))
If r.Offset(0, -1).Value = r.Offset(-1, -1).Value _
And r.Value <> r.Offset(-1, 0).Value Then
r.Interior.Color = vbYellow
r.Offset(-1, 0).Interior.Color = vbYellow
End If
Next r
End Sub
Страницы: 1 2 3 4 След.
Наверх