last_post, $topic[ align= Последние сообщения
Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
25.04.2024, 11:10:06

Войти
Название темы должно отражать её содержание.
Темы типа "ПОМОГИТЕ!!!", "Срочно!", "Не получается сделать", "Нужна помощь" и т.п. будут удаляться без объяснения причин
33 243 Сообщений в 5 458 Тем от 6 763 Пользователей
Последний пользователь: tetrapack
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Последние сообщения
Страниц: 1 [2] 3 4 ... 10

 11 
 : 20.03.2024, 09:38:41 
Автор rick1177 - Последний ответ от rick1177
Ребя, помогите, плиз, немного растерялся.
Прошу прощения за длину файла, не получается сжать
Ссылка на файл на драйве.

Ситуация такая, что есть таблица с данными за определённые годы.
И есть таблица справочник по годам. Они связаны.
Я пытаюсь в текущем году показать данные за предыдущий год, написав такую меру:

Код: (vb) 
Рентабельность собственного капитала (по чистой прибыли):=
VAR CurrentYear = MAX('Годы'[Год])
VAR PrevYear = CALCULATE(MAX('Годы'[Год]); 'Годы'[Год] = CurrentYear - 1)
VAR CurrentSK = CALCULATE(
    SUM('Перечень_балансов'[Значение]);
    FILTER('Перечень_балансов'; [Код строки] = 1300 && 'Годы'[Год] = CurrentYear)
)
VAR LastSK = CALCULATE(
    SUM('Перечень_балансов'[Значение]);
    FILTER('Перечень_балансов'; [Код строки] = 1300 && 'Годы'[Год] = PrevYear)
)
RETURN LastSK


И вроде бы всё правильно. НО! В сводной таблице, построенной в логике: Предприятия по строкам, Годы (из таблицы справочника) по столбцам, не отображается результат.

При этом, если я вывожу в таблицу PrevYear  - всё нормально. Годы показываются.


Я не могу понять, что я делаю не так, что он отказывается показывать значения.

Подскажите, плиз.

Спасибо.

 12 
 : 13.03.2024, 17:10:42 
Автор EUGENE_EKB - Последний ответ от EUGENE_EKB
Спасибо большое, всё понял Строит глазки

 13 
 : 13.03.2024, 10:16:27 
Автор EUGENE_EKB - Последний ответ от Дмитрий Щербаков(The_Prist)
Цитата: EUGENE_EKB от 13.03.2024, 09:24:45
присутствует переменная количества столбцов из C4
Сложно Вам придется  Улыбка
=СЧЁТЕСЛИ((ИНДЕКС(5:5;ПОИСКПОЗ(99^99;$2:$2)-4):ИНДЕКС(5:5;ПОИСКПОЗ(99^99;$2:$2)));ИСТИНА)/$C$1
4 - это кол-во нужных столбцов -1, т.к. найденный тоже должен быть включен в просмотр.
Т.е. по сути можете написать ПОИСКПОЗ(99^99;$2:$2)-$C$4-1

 14 
 : 13.03.2024, 09:24:45 
Автор EUGENE_EKB - Последний ответ от EUGENE_EKB
Цитата: Дмитрий Щербаков(The_Prist) от 13.03.2024, 08:59:40
Так формулу приложил и в файл записал. Вроде бы работает. Как минимум должен быть понятен принцип получения последних n столбцов.
Простите, но всё равно туплю, не совсем понял, в какой части формулы присутствует переменная количества столбцов из C4

 15 
 : 13.03.2024, 08:59:40 
Автор EUGENE_EKB - Последний ответ от Дмитрий Щербаков(The_Prist)
Так формулу приложил и в файл записал. Вроде бы работает. Как минимум должен быть понятен принцип получения последних n столбцов.

 16 
 : 13.03.2024, 08:53:52 
Автор EUGENE_EKB - Последний ответ от EUGENE_EKB
Извините(
"Последние" - имеется ввиду самые правые столбцы, которые добавляются с течением времени (новая дата - новый столбец справа). Т.е. нужен показатель такой: процент посещения N-последних занятий. Число последних занятий, от которого нужен процент значений TRUE вводится в ячейку C4. Можно считать по факту добавления нового столбца, либо по факту обнаружения в этом столбе хотя бы одного значения TRUE

 17 
 : 13.03.2024, 08:33:17 
Автор EUGENE_EKB - Последний ответ от Дмитрий Щербаков(The_Prist)
Вы бы хоть написали, что где смотреть, как должны определяться эти "последние"(по концу таблицы, по датам, по последним посещениям или может еще как-то). На вскидку плохо понятно, что с чем сравнивать. Пример есть - это хорошо. Но было бы удобнее, если бы еще хоть где-то было описано какой ожидается результат. Иначе желающих тратить свое время на плотное изучение вопроса будет в разы меньше, да и времени потратите больше на получение помощи.
Если правильно понял:
=СЧЁТЕСЛИ((ИНДЕКС(5:5;ПОИСКПОЗ(99^99;$2:$2)-4):ИНДЕКС(5:5;ПОИСКПОЗ(99^99;$2:$2)));ИСТИНА)/$C$1

 18 
 : 12.03.2024, 07:52:26 
Автор EUGENE_EKB - Последний ответ от EUGENE_EKB
Добрый день!
Такая задача: необходимо вести график посещаемости и вычленять из него 2 параметра - общий процент посещений (справился сам) и процент посещений определённого числа последних занятий.
Например, для выяснения актуальной вовлечённости спортсмена, посещающего занятия.
Таблица заполняется с течением времени и, следовательно, диапазон расчёта постоянно смещается вправо. Подскажите, пожалуйста, вот ссылка на пример:

https://docs.google.com/spreadsheets/d/1tpRs0lBF5TW7SiQKd7eJlFLvpGyhLSkhJtVYeDW5rDg/edit#gid=1993615614

 19 
 : 11.03.2024, 12:55:52 
Автор Иулия - Последний ответ от Иулия
Здравствуйте!
Помогите, пожалуйста, нужна формула с несколькими условиями (где есть разные текстовые условия и разные сравнительные): 1) если в столбце В есть нужные текстовые условия, 2) а в столбце А числа меньше 1, то одно условие, если больше 1, то другое условие. В остальных случаях 0.
Пример во вложении.

 20 
 : 05.03.2024, 11:49:36 
Автор UmbertoNuevo - Последний ответ от Борислав
На самом деле Николай. Благодарю за помощь!

Вот что у меня получилось, все работает :

Код: (vb) 
Sub Import_Word()
    
Dim objWrdApp As Object, objWrdDoc As Object, wdRange As Object
Dim IsAppClose As Boolean
                
Application.ScreenUpdating = True
    
'пытаемся подключится к Word
    On Error Resume Next
    Set objWrdApp = GetObject(, "Word.Application")
    If objWrdApp Is Nothing Then
'если приложение закрыто - создаем новый экземпляр
        Set objWrdApp = CreateObject("Word.Application")
'сделать видимым
        objWrdApp.Visible = True
        IsAppClose = True 'Не знаю что это
    End If
    
    On Error GoTo 0
    If objWrdApp Is Nothing Then
        MsgBox "Не удалось подключиться к Word"
        Application.ScreenUpdating = True
        Exit Sub
    End If

'Открываем документ Word - документ "C:\Users\Olef\Desktop\макрос\Шаблон.doc"
'находится в папке с рабочей книгой
Set objWrdDoc = objWrdApp.Documents.Open("C:\Users\Olef\Desktop\макрос\Шаблон.doc")

'сохраняем файл шаблона с как "Расчет+дата.doc"
objWrdDoc.SaveAs ThisWorkbook.Path & "\Расчет " & Format(Now, "dd-mm-yy hh-mm") & ".doc"
    
'Перебираем именованые ячейки книги и сравниваем с метками в шаблоне, производим замену,
'если есть совпадения.
'Например. Значение ячейки с именем "Яч1" заменит метку в шаблоне {Яч1} по всему документу
Dim nName As Name
    For Each nName In ThisWorkbook.Names
    Set wdRange = objWrdDoc.Range
    wdRange.Find.ClearFormatting
    wdRange.Find.Replacement.ClearFormatting
      With wdRange.Find
          .text = "{" & nName.Name & "}"
          .Replacement.text = Range(nName).text
          .Forward = True
          .Wrap = 1 'wdFindContinue 
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
          .Execute Replace:=2 'wdReplaceAll 
      End With
    Next nName
                        
'Аналогичный перебор с листами книги. Таблица из листа {Лист1} должна заменить метку в шаблоне {Лист1} например
Dim List As Worksheet
    For Each List In ThisWorkbook.Worksheets
'Чтобы в переборе участвовали только листы с фигурными скобками
        If InStr(List.Name, "{") > 0 Then
'Поиск и замена
        ThisWorkbook.Worksheets(List.Name).UsedRange.Copy
            With wdRange.Find
                .text = List.Name
                .Replacement.text = "^c"
                .Forward = True
                .Wrap = 1 'wdFindContinue
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
                .Execute Replace:=2 'wdReplaceAll
            End With
        End If
    Next List
'закрываем документ Word с сохранением
objWrdDoc.Close True
'закрываем приложение Word - обязательно!
objWrdApp.Quit
'очищаем переменные Word - обязательно!
Set objWrdDoc = Nothing: Set objWrdApp = Nothing
    
End Sub

Страниц: 1 [2] 3 4 ... 10
Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru