Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » olom
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 След.
Power BI. Написать меру выполнения плановых показателей
 
#
05.06.2021 08:56:23
Добрый день, файл загрузил в экселе, меру надо написать в power bi.

Суть в том, что в файле во вложении, есть сводная таблица, которая строится на данных источника. Мне нужно написать меру выполнения плана, в месяцах, где есть факт - факт / план, где нет факта, но есть план - прогноз / план.
Суть в том, что в итоговой строке мера работает точно также. То есть, например, в 2х месяцах из 10ти есть факт, Соответственно мера делит сумму 2 месяцев факта на сумму 10 месяцев прогноза и получается некорректные итоги.

Подскажите, пожалуйста, как написать эту меру, чтобы итоги считались верно
Изменено: vikttur - 05.06.2021 15:14:35
 
Перейти    
Выгрузка определенных столбцов из Power BI
 
#
25.03.2021 18:04:55
PooHkrd, нужно выгрузить таблицу из визуального элемента, в котором присутствуют лишние колонки. Соответственно, нужно, чтобы лишние колонки не выгружались
 
Перейти    
Выгрузка определенных столбцов из Power BI
 
#
22.03.2021 07:04:18
Всем привет, я никогда не работал с pbi, поэтому нет понимания, что делать и где искать, подскажите пожалуйста

Задача такая, что в pbi есть некая таблица, которую нужно экспортировать в эксель в определённом формате (автоматический экспорт не подходит, там много лишних данных выгружается).

Подскажите куда копать, можно ли через vba обратиться к pbi, чтобы выгрузить определённые колонки, которые мне нужны?
И что вообще можно почитать по этому поводу, я не понимаю, что мне написать в гугле, чтобы он выдал ту информацию, которая мне нужна)
 
Перейти    
Поиск совпадения по части с текста в ячейчках
 
#
11.05.2018 08:01:02
Александр П.,работает, большое спасибо вам!)
 
Перейти    
Поиск совпадения по части с текста в ячейчках
 
#
11.05.2018 07:46:25
Сергей, суть в том, что есть две текстовые ячейки, неизвестного количества символов. В одной из этой ячеек справа есть ещё дополнительный текст, но, грубо говоря, первое слово всегда одинаковое. Нужно, чтобы они были равны. Я постарался достаточно ясно объяснить это выше.
Просто не ожидал, что такая проблема будет, думал также, как при открытии файла, можно будет прописать звёздочку, но не вышло
Изменено: olom - 11.05.2018 07:46:50
 
Перейти    
Поиск совпадения по части с текста в ячейчках
 
#
11.05.2018 07:42:11
Александр П.,сейчас попробую, спасибо)
 
Перейти    
Поиск совпадения по части с текста в ячейчках
 
#
11.05.2018 06:26:37
Александр П., ну дату можно прописать как текст, в каких-то случаях это просто текст будет. Ну если знаете, как формулами, то напишите) Формулы тоже можно на вба прописать. Просто сравнение по определённому количеству символов не подойдёт, поскольку их постоянно разное количество
 
Перейти    
Поиск совпадения по части с текста в ячейчках
 
#
11.05.2018 06:24:51
Сергей, да это я просто тестовый файл создал, пытался в другом) Так можно, но не всегда речь идёт о датах, поэтому сравнение фиксированного количества символов не подойдёт
 
Перейти    
Поиск совпадения по части с текста в ячейчках
 
#
11.05.2018 06:08:20
Добрый день, друзья. Ситуация такая, например, есть две ячейки, в одной "апр.18", во второй "апр.18 га", какой код на vba нужно написать, чтобы эти ячейки считались равны и в ячейке C1 выводился "+". У меня что-то посредством попыток вставить звёздочки в разные места ничего не получилось
 
Перейти    
VBA. Изменить источник данных сводной таблицы
 
#
05.12.2017 13:28:15
Всем здравствуйте, вот код, который определяет источник данных сводной таблицы:
Код
ActiveSheet.PivotTables("СводнаяТаблица1").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "P:\а\аа\ааа\life\расчёт\[life_05.12.2017.xlsx]maxjv!R1C1:R104543C21" _
        , Version:=xlPivotTableVersion14)
Мне интересно, можно каким-то образом прописать
Код
maxjv!R1C1:R104543C21
не через RC

Например,
Код
maxjv!"a1:t" & cells(rows.count,1).end(xlup).row

Что-нибудь в этом духе, то есть чтобы можно было прописать изменение источника данных в зависимости от количества строк на листе
 
Перейти    
Подтянуть значения ячеек по совпадению наименований
 
#
13.10.2017 11:34:31
Пытливый, да, то что нужно, дальше под себя сам допишу, спасибо вам большое
 
Перейти    
Подтянуть значения ячеек по совпадению наименований
 
#
13.10.2017 09:33:41
Всем доброго времени. Не могу додумать, как прописать код в VBA. Есть два листа, на листе 1 есть список поставщиков, к которым накопительно копируются значения. На втором листе есть список тех же поставщиков, но они расположены не по порядку. Нужно подтянуть на лист один в следующий пустой столбец значения по каждому поставщику со второго листа

Всё просто, если воспользоваться функцией ВПР, но проблема в том, что на каждом листе значения формируются накопительно. То есть в следующий раз на первом листе будет 4 столбца значений, а на втором 2 (при этом значения на втором листе всегда сортируются по последнему столбцу в порядке возрастания, поэтому 1-я колонка с наименованиями каждый раз в разном порядке)

В общем, если кто подскажет, как сделать так, чтобы искать по совпадению наименований в массивах на каждом листе, буду очень благодарен
 
Перейти    
Задать массив наименований листов
 
#
04.10.2017 10:40:26
Hugo, спасибо большое, ошибки нет, всё работает)
 
Перейти    
Задать массив наименований листов
 
#
04.10.2017 10:40:09
SAS888, спасибо большое, исправил)
 
Перейти    
Задать массив наименований листов
 
#
04.10.2017 10:21:13
Всем добра, подскажите, как правильно задать массив наименований листов, чтобы использовать его в цикле. Вот кусок кода (ошибка в строке задавания переменной s=..)
Цель - чтобы не прописывать одинаковый порядок действий для разных листов, записать это циклом

Код
Dim s() As String, i As Long
Workbooks.Open ThisWorkbook.Path & "\pharmacies\pharmacies.xlsx"
s = Array("adv", "vapt", "edel", "mapt+", "tonus", "mapt")
Set pharm = Workbooks("pharmacies.xlsx")
For i = 0 To UBound(s)
pharm.Sheets(s).Activate
Range("a2:j" & Cells(Rows.Count, 1).End(xlUp).Row).Copy
app.Activate
Range("a" & Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial xlPasteValues
Next i
 
Перейти    
Отправить несколько вложений в одном письме
 
#
29.09.2017 07:24:31
Всем доброго времени суток, подскажите, можно ли подобным образом отправить несколько файлов одним письмом?
Код
Attachments.Add "C:\out\test.xlsx"
 
Перейти    
Убрать знак "$" из адреса ячейки
 
#
27.09.2017 09:50:22
vikttur, не знал о таком приёме, спасибо. Почему-то вылетела ошибка "type mismatch", но суть я понял.
Файл с примером я на скорую создал и ошибся в ссылке на ячейку, извиняюсь

PS ошибку исправил, забыл задать переменные значениями. Теперь буду знать, что так можно делать)
Изменено: olom - 27.09.2017 10:02:43
 
Перейти    
Убрать знак "$" из адреса ячейки
 
#
27.09.2017 09:39:51
Илья Демид, большое спасибо за ответ)
 
Перейти    
Убрать знак "$" из адреса ячейки
 
#
27.09.2017 09:39:25
vikttur, большое спасибо, работает. И я не понял вопроса, как обойтись без формулы?
 
Перейти    
Убрать знак "$" из адреса ячейки
 
#
27.09.2017 09:29:49
Всем доброго времени суток, наткнулся на проблему, никак не получается от неё уйти. Когда я задаю адрес ячейки переменной и вставляю переменную в формулу, адреса ячеек закрепляются знаком "$". При протягивании формулы вниз, формула во всех ячейках остаётся одинаковой. Подскажите, как задать адрес ячейки, чтобы он не закреплялся

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

Код
Sub test()
Dim lr As Long, lc As Long, k As Variant, l As Variant, p As Variant, b As String, a As String, wlr As Long, wlc As Long
lc = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
b = Cells(2, lc).Address
a = Cells(2, lc - 1).Address
ActiveSheet.Cells(2, lc).FormulaLocal = "=" & b & "-" & a
ActiveSheet.Range(Cells(2, lc), Cells(lr - 1, lc + 1)).FillDown
End Sub
Изменено: olom - 27.09.2017 09:30:36
 
Перейти    
Поиск файла по неполному имени, Вывести максимальную дату изменения файла из папки, если известно только часть имени файла
 
#
26.09.2017 12:57:48
tolstak,большое спасибо за помощь)
 
Перейти    
Поиск файла по неполному имени, Вывести максимальную дату изменения файла из папки, если известно только часть имени файла
 
#
26.09.2017 08:31:38
Добрый день всем, подскажите пожалуйста, как вывести дату изменения файла, если неизвестно полное имя файла.

В папке есть файлы, названия которых: pr_2017_9_26_10_10_22_AM.txt ; pr_2017_9_26_10_14_01_AM.txt и т.п.
Код
Sub proverka()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("\\go-file01\папка1\папка2\папка3\11111\1" & "\" & "pr_" & Format(Date, "yyyy_m_dd") & "_*" & ".txt")
mStr = mStr & "Дата последней модификации мой файл - " & File.DateLastModified & vbCrLf
MsgBox mStr
End Sub
То есть мне необходимо найти файл с сегодняшней датой, которая пишется в формате "_2017_9_26", при этом, файлов с этой датой может быть несколько, либо вывести самую крайнюю дату изменения любого из файлов, находящихся в этой папке. У всех файлов из папки в наименовании неизменно только "pr" и формат .txt
Изменено: olom - 26.09.2017 09:09:48
 
Перейти    
Продлить источник данных на графике
 
#
19.09.2017 13:41:43
Karataev, спасибо большое вам за помощь, работает
 
Перейти    
Продлить источник данных на графике
 
#
19.09.2017 13:09:31
Всем доброго времени суток. Не получается продлить программно источник данных для графика. У меня написан код, который открывает книгу с графиком и копирует рассчитанные значения в первый пустой столбец справа. То есть, сейчас источник данных выглядит так: ='для графиков'!$A$1:$M$9. Сегодня я запускаю расчёт и по его окончанию в стобец N скопируются значения. После чего нужно, чтобы источник данных продлился на один столбец правее
Код
Sub graph()
ActiveWorkbook.Sheets("для графиков").Cells(2, lastcol + 1).PasteSpecial
Cells(1, lastcol + 1).FormulaR1C1 = "=TODAY()"
ActiveWorkbook.Sheets("графический").Select
'lastdia = kr.Sheets("для графиков").Cells(1, Columns.Count).End(xlToLeft).Column
ActiveSheet.ChartObjects("Диаграмма 1").Activate
ActiveChart.PlotArea.Select
'ActiveChart.SetSourceData Source:=Sheets("для графиков").Range("A1" & lastdia)
End Sub
 
Перейти    
Выполнить формат по образцу в цикле
 
#
14.09.2017 07:17:29
Александр П., спасибо большое вам за ответ, то что нужно
 
Перейти    
Выполнить формат по образцу в цикле
 
#
13.09.2017 13:48:58
Прошу прощения, если тему назвал непонятно, не могу придумать адекватное название

Всем доброго здравия, имеется код, который при выполнения цикла последовательно вставляет таблицу ("a1:g") с одного листа на другой отступая от каждой предыдущей вставки две строки вниз. Не получается прописать, чтобы после каждой вставки таблицы, макрос выполнял для только что скопированной таблицы "формат по образцу"
Код
Sub mcrs1()
Dim i As Long
    
For i = 5 To 12 Step 1
    lstr = Worksheets("copy").Cells(Rows.Count, 1).End(xlUp).Row + 2
    [w2] = Worksheets("ras").Cells(i, 29)
    [x2] = Worksheets("ras").Cells(i, 30)
    Call fltr2
    Worksheets("dinc").Activate
    Range("a1:g10").Copy
    ActiveWorkbook.Sheets("copy").Activate
        If Worksheets("copy").Range("a1") <> "" Then
            Worksheets("copy").Range("A" & lstr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            Worksheets("copy").Range("A1").PasteSpecial Paste:=xlPasteFormats
        End If
        If Worksheets("copy").Range("a1") = "" Then
            Worksheets("copy").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            Worksheets("copy").Range("A" & lstr).PasteSpecial Paste:=xlPasteFormats
   
        End If
    ActiveWorkbook.Worksheets("ras").Activate
Next i
End sub

В моём случае формат по образцу делается только для первой таблицы, которая вставляется в ячейку "a1". Остальные таблицы просто вставляются на другой лист значениями, формат по образцу для них не выполняется
 
Перейти    
Цикл перебора фильтров в сводной таблице
 
#
06.09.2017 06:17:53
tolstak, спасибо) Тут всё же не то, выбирается всё, что указано в диапазоне. А у меня есть сводная выгрузка в которой есть клиенты и поставщики. Рядом со сводной прописаны вычисления, итог того, что мне нужно выводится в таблицу на другом листе. То есть мне нужно, чтобы выбирался клиент 1 - поставщик 1, затем копировалась таблица с итогами на отдельный лист; далее клиент 1 - поставщик 2, копируется таблица с итогами ниже первой и так далее до клиент 4 - поставщик 7 (условно). Я, конечно, могу вручную прописать выбор поставщиков для каждого клиента, но это не слишком удобно, если вдруг нужно будет добавить или убрать клиента/поставщика

Вам в любом случае большое спасибо, что потратили время и попытались помочь
 
Перейти    
Цикл перебора фильтров в сводной таблице
 
#
05.09.2017 14:02:24
Андрей VG, я в vba то не особо разбираюсь, в sql вообще ничего практически не понимаю. К тому же sql это совсем другой лес, у меня нет доступа к редактированию sql запросов. У меня есть таблица, которая есть. И на основе неё я и делаю свою задачу
 
Перейти    
Цикл перебора фильтров в сводной таблице
 
#
05.09.2017 14:00:31
Inexsu, изменил на это, суть в том, что не работает перебор фильров!)
Код
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
Перейти    
Цикл перебора фильтров в сводной таблице
 
#
05.09.2017 13:32:46
tolstak, и я так понимаю, ваш макрос выдаёт результат только если в сводной выбраны все поставщики и все клиенты. В моём случае это всё не поместиться на одном листе
 
Перейти    
Страницы: 1 2 3 След.
Наверх