всем привет. столкнулся с задачей аггергации на уровне суммирующих строк списка: Необходимо суммировать все что начинается на 1, потом что начинается на 11 и тд до низшего уровня исходных данных. Как если бы была сводная таблица
сорри перепутал SourceCell и TargetCell завелось)) спасибо))
Код
Sub GSA()
Dim sourceRange As Range
Dim targetRange As Range
Dim j As Integer
Set sourceRange = Range("W79:AT79")
Set targetRange = Range("W154:AT154")
For j = 1 To sourceRange.Columns.Count
If sourceRange.Cells(1, j).Value < 0 Then
PerformGoalSeekSub sourceRange.Cells(1, j), targetRange.Cells(1, j)
End If
Next j
End Sub
Sub PerformGoalSeekSub(SourceCell As Range, TargetCell As Range)
SourceCell.GoalSeek Goal:=0, changingCell:=TargetCell
End Sub
Sub GSA()
Dim sourceRange As Range
Dim targetRange As Range
Set sourceRange = Range("W79:AT79")
Set targetRange = Range("W154:AT154")
For j = 1 To sourceRange.Columns.Count
If sourceRange.Cells(1, j).Value < 0 Then
PerformGoalSeekSub sourceRange.Cells(1, j), targetRange.Cells(1, j)
End If
Next j
End Sub
Sub PerformGoalSeekSub(SourceCell As Range,TargetCell As Range)
TargetCell.GoalSeek Goal:=0, ChangingCell:=SourceCell
End Sub
написал: karcevgo, здравствуйте, странно, у меня не пересчитывает при закрытии. Посмотрите файл во вложении. Возможно, в Вашем файле есть какие то макросы, которые срабатывают на закрытые книги и пересчитывают ее?
почему-то слетают настройки пересчета, где галочка убрана. по умлочанию, если открыть пустой эксель без файла, галочка стоит включенной и выбран автомат пересчета.
Всем привет. Столкнулся с проблемой: Эксель делает пересчет таблиц при сохранении. Отключил галочку пересчета при сохранении. Но теперь эксель делает пересчет таблиц при закрытии книги, зависая при этом. Как полность отключить пересчет таблиц, чтобы делать это только по необходимости? Спасибо.
Коллеги, добрый день! Подскажите пожалуйста причину зависания файла. Есть 3 выгрузки из баз данных. В первых двух файлах .xlsx по 26 тысяч строк, в другой папке 200 файлов .xlsx суммарно 26 тысяч строк. Задача - сделать сверку по параметрам, которые есть в одном массиве, но нет в другом, а другие критерии есть в третьем, для выявления расхождений. Через Power Query создаю запрос к файлам и к папке. Все выгружается в виде массивов. Но, как только начинаем прописывать формулы для выверки расхождений, при обновлении данных, Excel вешается и не реагирует до терминации процесса. В чем может быть проблема и как быть с такими большими массивами?
Коллеги, добрый день! Помогите пожалуйста загрузить данные с сайта БКС по валютным парам курса приложения. Парсить не удается, ибо динамические данные. Плохо пока в этом разбираюсь. https://bcs-bank.com/ Обмен валюты в приложении «БКС БАНК»
PowerBi выгружает без проблем, но расчетный файл в экселе. API БКС где взять не знаю. Спасибо.
Добрый день! Начал изучать Скульптор данных в Excel с Power Query. На первом же шаге возник вопрос. При импорте файла примера csv "Отчет" в query импортируется только первый столбец... остальные данные просто обрезаются...
Решил пробелму через код = Csv.Document(File.Contents(+++),[Delimiter=";", Columns=10, Encoding=65001, QuoteStyle=QuoteStyle.None])
Коллеги, добрый день! Подскажите пожалуйста, как можно рассчитать амортизацию на периодически возобновляемые инвестиции. Есть серверное оборудование. Оно служит 4 года. Через 4 года его надо снова покупать. Можно ли амортизацию одной строкой формульно прописать или только каждый актив, приобретаемый отдельно? Спасибо.
Коллеги, помогите пожалуйста с формулой распределения сумм по периодам. Есть этапы работ с датами начала и длительностью в рабочих днях. Если я верно понимаю логику, то мы можем посчитать сумму на 1 раб день для каждого этапа, а затем умножить на количество дней в периоде, на который попадает этап. Спасибо.
то есть, как-то тут поменять? я, к сожалению, не силен в VBA...
Код
'The old file path as a string (the text to be replaced)
oldFilePath = "String of\File Path\To Be Replaced\Excel File.xlsx"
'The new file path as a string (the text to replace with)
newFilePath = "String of\New File Path\Excel File 2.xlsx"
Sub EditPowerPointLinks()
Dim oldFilePath As String
Dim newFilePath As String
Dim pptPresentation As Presentation
Dim pptSlide As Slide
Dim pptShape As Shape
'The old file path as a string (the text to be replaced)
oldFilePath = "String of\File Path\To Be Replaced\Excel File.xlsx"
'The new file path as a string (the text to replace with)
newFilePath = "String of\New File Path\Excel File 2.xlsx"
'Set the variable to the PowerPoint Presentation
Set pptPresentation = ActivePresentation
'Loop through each slide in the presentation
For Each pptSlide In pptPresentation.Slides
'Loop through each shape in each slide
For Each pptShape In pptSlide.Shapes
'Find out if the shape is a linked object or a linked picture
If pptShape.Type = msoLinkedPicture Or pptShape.Type _
= msoLinkedOLEObject Or pptShape.Type = msoLinkedChart Then
'Use Replace to change the oldFilePath to the newFilePath
pptShape.LinkFormat.SourceFullName = Replace(LCase _
(pptShape.LinkFormat.SourceFullName), LCase(oldFilePath), newFilePath)
End If
Next
Next
'Update the links
pptPresentation.UpdateLinks
End Sub
мне не помогло делаю модель оценки и вяжу отчеты в презентацию. но при отправке файла заказчику, меняется путь. как макросом заменить все пути для всех отчетов? Спасибо
Друзья, добрый день! Есть задача построения диаграммы Waterfall с максимальной автоматизацией процесса. Есть формульный формат построения. В нем проблема со столбцом инвестиций, который находится не там, где должен быть. Есть шаблон с ресурса CFI. В нем проблема раскраски отрицательных и положительных столбцов. Подскажите пожалуйста, можно как-то исправить формулу для 1 варианта или автоматом раскрашивать отрицательные столбцы во втором? Спасибо!
Добрый день! Лепил диаграмму Ганта, но некоторые этапы не хотят закрашиваться условным форматированием. Не могу понять, в чем проблема. Что в формуле не так? Спасибо
Sub Макрос1()
'
' Макрос1 Макрос
'
'
Dim Credit As Range, CF As Range
Set Credit = Range("C18:AA18")
Set CF = Range("C30:AA30")
For Each cell In Credit
CF.GoalSeek Goal:=0, ChangingCell:=Credit.
Next
End Sub
Всем привет. Подскажите пожалуйста, как сделать для ячеек строки 18 заемных средств подбор параметра, чтобы CF строки 30 был равен 0 например? Спасибо!