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

Страницы: 1 2 След.
Свод данных в одну таблицу с разных листов, Есть ли способ собрать динамическую таблицу сводных данных из нескольких таблиц (листов excel) с разным количеством строк без Power Query
 
#
21.01.2024 14:51:24
Бахтиёр, Cпасибо! Но если строки удалять или добавлять на отдельных листах (Склады), то сводная таблица ломается (#ИМЯ)
 
Перейти    
Свод данных в одну таблицу с разных листов, Есть ли способ собрать динамическую таблицу сводных данных из нескольких таблиц (листов excel) с разным количеством строк без Power Query
 
#
20.01.2024 12:09:24
Добрый день!

Проблема следующая: есть несколько листов (склады - Колпино, Столбовая, Купавна), на которых таблицы с одинаковыми столбцами, но разным количеством строк, при этом строки могут добавляться в будущем.
Необходимо в этом же файле отдельном листе собрать сводную таблицу из этих листов (с такими же столбцами), но проблема в том, что количество строк на отдельных листах (склады) разное и может меняться.
Есть ли формульный способ собрать такую динамическую таблицу (чтобы например в ней сначала шли строки с таблицы склада №1, потом строки с таблицы склада №2 и тд)?
(В интернете находил способ только через Power Query), но он не совсем подходит в данной ситуации.

Заранее благодарю за помощь!
 
Перейти    
Вставка значений в столбцы по нужному критерию (номер компании)
 
#
10.05.2019 22:01:06
Stics, большое спасибо!
 
Перейти    
Вставка значений в столбцы по нужному критерию (номер компании)
 
#
10.05.2019 21:29:45
Добрый День!
Возникла проблема: необходимо заполнить столбцы C и D с помощью формул в приложенном файле для каждой компании (соответствует её номеру) на основе данных из столбцов G-L (для примера 5 компаний). Однако  сразу же не удалось это сделать стандартными способами индекс-поискпоз, но интуитивно понимаю, что скорее всего это прописывается довольно просто и изящно формульно. Сможете подсказать, пожалуйста?
 
Перейти    
Восстановление данных к графику из excel
 
#
04.03.2019 17:26:03
Mershik, подскажите, пожалуйста, как можно адаптировать данный код под тот pp, который представлен в другой ветке:
Чт здесь понимать под МойОбъект и к создать библиотеку Microsoft Excel  # Object Library ?
Код
Sub GET_XL_FROM_PPT()
     Dim XLObj As Excel.Workbook
     Set XLObj = ActivePresentation.Slides(1).Shapes("МойОбъект").OLEFormat.Object
     With XLObj
         MsgBox .Worksheets(1).UsedRange.Address
         .SaveAs ActivePresentation.Path & "\Test"
     End With
 End Sub
 
Перейти    
Восстановление данных к графику из excel
 
#
04.03.2019 15:44:57
К примеру вот простой график, но по графикам есть более сложные
Изменено: Albert933 - 04.03.2019 15:46:34
 
Перейти    
Восстановление данных к графику из excel
 
#
04.03.2019 15:13:35
Добрый День, коллеги!
Так получилось, что данные excel к презентации PP, в которой делались графики, не сохранился, но сами графики были привязаны к данному источнику данных. Есть ли возможность обратным счетом восстановить данные excel к графику по имеющемуся графику и цифрам на нем?
Заранее спасибо.
 
Перейти    
Макрос для монтекарло симуляции
 
#
28.02.2019 09:28:45
Спасибо. Действительно лишняя функция. Но теперь после её удаления макрос остался нерабочим,  выводит ошибку 400.
 
Перейти    
Макрос для монтекарло симуляции
 
#
28.02.2019 08:30:06
Добрый День, Коллеги! Столкнулся с такой проблемой, что не работает созданный макрос. Пишет в ошибке, что Sub or function not defined. Подскажите, пожалуйста, что неправильно в макросе я делаю? Работать он должен следующим образом. У меня курс USDRUB на каждую дату случайно генерится, дат около 20, результирующее значение - это средний сгенерированный курс по этим датам. Я хочу провести допустим 10 симуляций, и из каждой симуляции вывести результирующий курс в столбец, т.е. для 10 итераций должно быть 10 значений в столбце. В данном случая я сделал макрос для 3 курсов, т.к. необходимо будет вывести 3 таких столбца, но для простоты пока ограничился одним результирующим значение в столбец - Rate_MonteCarlo
Код
Sub Monte_Carlo()
' Choosing number of simulations
k = Range("Number_of_Simulations").Value
    
    '
' Inserting links on random variables and making Monte-Carlo Calculations
   
    
     Sheets("Rates").Select
    Range("USDRUB_Link").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    
        Sheets("Rates").Select
    Range("EURUSD_Link").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        Sheets("Rates").Select
    Range("EURJPY_Link").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    For i = 1 To k
    
        Sheets("Rates").Select
    Range("MC_USDRUB").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Rates").Select
    Range("USDRUB_Link").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        Sheets("Rates").Select
    Range("MC_EURUSD").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Rates").Select
    Range("EURUSD_Link").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
         Sheets("Rates").Select
    Range("MC_EURJPY").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Rates").Select
    Range("EURJPY_Link").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
        
        
   
    Sheets("Rates").Select
    Range("Rate_MonteCarlo").Select
    Selection.Copy
  Range("MC").Item(i, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
  Application.StatusBar = i
        Next
        
        
        
    
    ' Inserting old links after procedure
Sheets("Rates").Select
 
       
          Range("USDRUB_Link").Offset(-1, 0).Select
    Selection.Copy
    Range("USDRUB_Link").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
          Selection.Offset(-1, 0).Select
         Selection.ClearContents
        
       Range("EURUSD_Link").Offset(-1, 0).Select
    Selection.Copy
    Range("EURUSD_Link").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
          Selection.Offset(-1, 0).Select
         Selection.ClearContents
        
           Range("EURJPY_Link").Offset(-1, 0).Select
    Selection.Copy
    Range("EURJPY_Link").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
          Selection.Offset(-1, 0).Select
         Selection.ClearContents
        
     
    

End Sub
Изменено: Albert933 - 28.02.2019 09:35:26
 
Перейти    
Вставка строк таблицы html в несколько строк excel
 
#
07.02.2019 13:16:57
Добрый день, Коллеги!
Возникла проблема, что когда хочу скопировать сразу несколько строк таблицы в формате html, при вставке их в excel, они вставляются в одну строку, а не в то количетво строк, в которых они скопированы. Можете подсказать выход из данной проблемы? При этом у товарища при копировании нескольких строк в excel файл они вставляются также в несколько строк, а не в одну.
Заранее спасибо!
Изменено: Albert933 - 07.02.2019 13:23:25
 
Перейти    
удаление и перенесение имен строк по полю в сводной таблице
 
#
13.09.2018 10:53:21
Добрый День! При формировании отчета по сводной таблице возникла следующая проблема: остается пустая со страной (первый столбец) Russia/US, которые необходимо перенести на строку , где позиция А1 и позиция B1 соответственно. Не могу найти , как это сделать в excel. Подскажите, пожалуйста. Ниже приведена вторая таблица, в которой как необходимо, что отчет выглядел.
 
Перейти    
Сводные таблица
 
#
13.09.2018 10:44:35
Добрый День! При формировании отчета по сводной таблице возникла следующая проблема: остается пустая со страной (первый столбец) Russia/US, которые необходимо перенести на строку , где позиция А1 и позиция B1 соответственно. Не могу найти , как это сделать в excel. Подскажите, пожалуйста. Ниже приведена вторая таблица, в которой как необходимо, что отчет выглядел.
 
Перейти    
Название продукта с наибольшими затратами
 
#
06.09.2018 14:07:36
Здравствуйте! Имеется следующая проблема:
номенклатура товаров с более чем 5000 строк, товары повторяются, по каждому товару даны затраты. Необходимо вывести товар (наименование), по которому суммарные траты наибольшие. Ниже пример того, как все выглядит, и что нужно вывести. Как это можно сделать с помощью формул? Был вариант это сделать с функцией ИНДЕКС и МАКС, но в этом случае возникают промежуточные значения (сумма по товару), и ей ни одна ячейка не соответствует.
 
Перейти    
Подсчет количества непустых ячеек при условий
 
#
04.12.2017 16:39:28
Большое спасибо!
 
Перейти    
Подсчет количества непустых ячеек при условий
 
#
04.12.2017 16:24:37
Друзья, возникла неообходимость посчитать количество непустых ячеек (количество протоколов) в столбце B для конкретного кода из столбца А. Проблема в том, что функция Cчётз не имеет счётзесли, как сумм, а сумм считает только ячейки с числами, а не текстовые.
 
Перейти    
Сохранение гиперссылки протокола при применении функции индекс
 
#
04.12.2017 14:43:25
Добрый День! Возникла следующая проблема: согласно коду проекта необходимо вывести протоколы (которые заданы гиперссылкой). После применения функции Индекс необходимые протоколы по коду выводятся, однако гиперссылка пропадает. Подскажите, пожалуйста, как её сохранить, чтобы выведенные протоколы сохранялись не текстом, а гиперссылкой.
 
Перейти    
Вывести перечень протоколов, соответствующих номеру проекта.
 
#
04.12.2017 14:19:43
Спасибо Всем за ответы!
По второму вопросу нашел макрос, однако у меня он оказался неработоспосбен и выдается значение "ИМЯ". Может кто-нибудь знает, с чем это связано?
Код
Public Function GetUrlFromHyperlink(ByVal range As Range) AsString
If (range.Hyperlinks.Count > 0) Then
GetUrlFromHyperlink = range.Hyperlinks(1).Address
Else
GetUrlFromHyperlink = ""
End If
End Function
Изменено: Ruslan966 - 04.12.2017 14:20:19
 
Перейти    
Вывести перечень протоколов, соответствующих номеру проекта.
 
#
04.12.2017 12:45:35
Добрый День! Возникла такая проблема, как выцепить все протоколы встреч под конкретный проект (код проекта указан). В файле указал пример. Проблема в том, что стандартный Индекс и Поискпоз вытаскивает только один из протоколов, а если их например два или больше (как для проекта в файле - Протокол 1 и 3). Есть ли возможность это реализовать в Excel?
И еще вопрос, протоколы у меня представлены гиперссылками, а на выходе по Индекс и ПоискПоз я получаю текстовые значения. Как мне сохранить исходную гиперссылку?
 
Перейти    
Установление связи между графиком в PPT и данными
 
#
23.08.2017 13:10:06
Добрый День! Возникла такая потребность редактировать графики в PPT, но связи с данными нет. Нашел макрос, который получает данные из графиков (выбирая необходимый график), он приведен ниже. Однако проблема в том, что он копирует данные только буфер обмена. Есть ли возможность или у кого-то код, как по имеющимся данным заменить данные графики на аналогичные, но уже с привязкой к получаемым данным? Спасибо!
Код
Sub copy_series_values_to_clipboard()Dim ss As Variant, n As Long, txt As String, se, sh As Shape, ChartList As String, res
Dim mydata As DataObject
Set mydata = New DataObject

txt = "X Values" & Chr(13)
ChartList = ""
res = ""

For Each sh In ActiveWindow.Selection.SlideRange.Shapes
If sh.Type = 3 Then
ChartList = ChartList & Chr(13) & sh.Id & " " & sh.Name
If res = "" Then res = sh.Name
End If
Next sh

If ChartList = "" Then
MsgBox "no chart found"
End
End If

res = InputBox("enter the name of the shape to extract data from" & Chr(13) & Chr(13) & ChartList, "enter number", res)

chartshape = res

ss = ActiveWindow.Selection.SlideRange.Shapes(chartshape).Chart.SeriesCollection(1).XValues
For n = 1 To ActiveWindow.Selection.SlideRange.Shapes(chartshape).Chart.SeriesCollection(1).Points.Count
txt = txt & ss(n) & Chr(13)
Next n

For Each se In ActiveWindow.Selection.SlideRange.Shapes(chartshape).Chart.SeriesCollection
txt = txt & Chr(13) & se.Name & Chr(13)
ss = se.Values
For n = 1 To se.Points.Count
txt = txt & ss(n) & Chr(13)
Next n
Next se

mydata.SetText txt
mydata.PutInClipboard

MsgBox "Copied to clipboard:" & Chr(13) & txt
mydata.Clear

End Sub
Изменено: Ruslan966 - 23.08.2017 13:31:09
 
Перейти    
ВПР по нескольким критериям
 
#
27.04.2017 16:39:57
CrazyRabbit, Cпасибо большое за оперативность!
 
Перейти    
ВПР по нескольким критериям
 
#
27.04.2017 16:29:44
Добрый День! Формировал панельные данные и возникла проблема:
в панельных данных есть пустой столбец Beta, в который нужно вставить данные по каждой компании по beta в течении 6 лет. При этом столбцы beta стоят отдельно, и они конкретно по годам. Т.е. нужно распределить столбец beta_2010 для всех компаний (их 119, но привёл для примера только первые) по 2010 году, аналогично по 2011, 2012 и т.д. Попробовал обычным ВПР,не получилось. Помогите плз.
 
Перейти    
Преобразовать данные по ценам акций в панельные данные
 
#
08.04.2017 17:33:51
Михаил Лебедев, Классно! Спасибо большое за помощь
 
Перейти    
Отразить обратную последовательность значений в ячейках
 
#
08.04.2017 16:42:50
JeyCi,Cпасибо, но если проще, то создаем дополнительный столбик, в котором нумеруем каждую строку 1,2,3.... и так до низу, далее оформляем всё как таблицу, а в свой таблице в этом столбце сортировку организуем по убыванию, то есть с последнего номера, в итоге отсортируется вся таблица и мы уже имеем нужный вид
 
Перейти    
Преобразовать данные по ценам акций в панельные данные
 
#
08.04.2017 16:33:35
Добрый День! Необходимо преобразовать исходные данные (цены акций компаний) в панельные данные, то есть чтобы сначала шли цены акции A, за ними ниже цены акции B  и т..д. Вручную очень муторно копировать-вставлять, когда 200 акций и много дат. Как нибудь можно автоматизировать или облегчить этот процесс?
 
Перейти    
Отразить обратную последовательность значений в ячейках
 
#
08.04.2017 12:18:54
Проблема решилась.
 
Перейти    
Отразить обратную последовательность значений в ячейках
 
#
08.04.2017 11:45:37
Добрый День! Возникло небольшое затруднение. Есть массив данных в столбце, но необходимо, чтобы самая нижняя ячейка (ее значение) оказалось вверху и т.д., а самая верхняя - внизу. Какой функцией это можно сделать?
 
Перейти    
Удаление строк по заданным критериям
 
#
02.04.2017 16:34:53
copper-top, gling, Cпасибо, помогли!
 
Перейти    
Удаление строк по заданным критериям
 
#
02.04.2017 15:26:04
Добрый День! Возникла необходимость произвести удаление строк по заданному критерию: удалить те строки, где для колонки цены Price_Close отсутствуют данные, т.е. #НД. При этом ориентироваться следует только на колонку Price_Close для 'A Equity", т.е. удаление строки произвести по критерию, что удаляем строку только тогда, когда в колонке Price_Close для 'A Equity' (идет в столбце B) отсутствуют данные (#НД). C помощью какой формулы это можно сделать,подскажите плз?
 
Перейти    
Счет недоступных значений по массиву компаний для каждого фактора
 
#
01.04.2017 19:24:25
gling,Спасибо огромное!!!
 
Перейти    
Счет недоступных значений по массиву компаний для каждого фактора
 
#
01.04.2017 18:42:34
gling,практически так, только как модифицируется формула, если надо конкретно по годам это просчитать, т.е. например,для строки 30.12.2015 посчитать по каждому фактору (NI, Sales...) количество фирм, где данных нет на этот год по этому фактору, для 30.12.2016 тоже самое и т.д.?
 
Перейти    
Страницы: 1 2 След.
Наверх