Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 62 След.
Минимум в сводной по Вычисляемому полю
 
грустно конечно... но спасибо за ответы:)
Минимум в сводной по Вычисляемому полю
 
хм... это конечно вариант - надо подумать в этом направлении. Спасибо!
но интересно - можно ли решить задачу непосредственно в сводной :)
Минимум в сводной по Вычисляемому полю
 
Всем добрый день!

Столкнулся с неразрешимой (надеюсь пока) для меня задачей. Суть в следующем: есть таблица с исходными данными, в которой ставки записаны в виде 50,23 (при этом имеется ввиду 50,23%). На основании этой таблицы надо построить сводную, в которой поле значений - минимальная ставка, но уже в "нормальном виде", т.е. 0,5023. И вот тут для меня загадка - если я в сводную таблицу добавляю поле =Ставка/100 и вывожу минимум по этому полю, то в сводной все-равно выходит сумма...

Что я не так делаю?
Проблема в том, что исходные данные трогать нельзя.

Спасибо
Записать в одну строку макросом
 
Добрый день
А в столбе а должны быть названия заполненных столбцов или числа из них?
Извлечь данные из примечания, Извлечь данные из примечания
 
Добрый день
А пример можно?
На вскидку - сделайте дополнительный столбец, куда при помощи указанной функции добавьте примечания, ну а потом - также через ВПР
Изменено: webley - 13 Сен 2018 18:11:03
Парсинг данных в ячеке по заданной маске, Нужен макрос (или формула, но лучше макрос), который будет из ячейки по маске вытягивать данные в столбцы
 
Я конечно могу ошибаться, но мне кажется, что конечная цель такая (см.файл)
Парсинг данных в ячеке по заданной маске, Нужен макрос (или формула, но лучше макрос), который будет из ячейки по маске вытягивать данные в столбцы
 
Цитата
Денис Голуб написал:
чтоб разделить по двум  разделителям пока ничего поделать не смог кроме как руками
что-то я как-то потерялся - о чем идет речь в данном случае?
Парсинг данных в ячеке по заданной маске, Нужен макрос (или формула, но лучше макрос), который будет из ячейки по маске вытягивать данные в столбцы
 
Цитата
Денис Голуб написал:
только не все ссылки может нормально декодить
ну тут нужен конкретный пример
Остаток по месяцам уловие по столбцам, Остаток по месяцам уловие по столбцам
 
еще вариант:
Код
=СУММПРОИЗВ((МЕСЯЦ($C$2:$N$2)=МЕСЯЦ(V$2))*$C3:$N3)-СУММПРОИЗВ((МЕСЯЦ($O$2:$U$2)=МЕСЯЦ(V$2))*$O3:$U3)+V3
Преобразование построчных данных в таблице в столбцы, решение через Power Query
 
Цитата
PooHkrd написал:
да ладна-а-а, тут задачки такого типа раз в месяц всплывают регулярно
ну... мое присутствие на форуме в последнее время достаточно эпизодично и нерегулярно, поэтому данное решение всё-равно кажется мне эффектным - сколько бы ни было подобных :)
Парсинг данных в ячеке по заданной маске, Нужен макрос (или формула, но лучше макрос), который будет из ячейки по маске вытягивать данные в столбцы
 
Добрый день.
Как вариант - UDF
PS для декодирования использована найденная в интернете функция - ссылка в коде
Преобразование построчных данных в таблице в столбцы, решение через Power Query
 
PooHkrd, абсолютно согласен с Dyroff - действительно круто :)
Пытался сам сделать, но... не вышло
Преобразование построчных данных в таблице в столбцы, решение через Power Query
 
Цитата
Dyroff написал:
Но надеюсь что появится решение на PQ
я бы на самом деле тоже посмотрел такой вариант  
Преобразование построчных данных в таблице в столбцы, решение через Power Query
 
Добрый день

Цитата
Dyroff написал:
Через макрос тоже вариант.
Собственно, вариант через макрос :)
гиперссылки на 100 листов автоматом, гиперссылки
 
добрый день
Цитата
max-aziat написал:
как можно быстро "указать" гиперссылки с листов
запустить макрос:
Код
Sub HyperlinksAdd()
    Dim r As Long
    For r = 8 To 107
        With Sheets("Дебиторы")
            .Hyperlinks.Add .Cells(r, 5), ThisWorkbook.Name, .Cells(r, 4) & "!A1"
        End With
    Next r
End Sub

или с помощью формул Гиперссылка()

Преобразование во временной формат VBA, Не срабатывает макрос для преобразования из общего формата в число
 
И вот это почитайте - мне кажется Ваш случай:
https://www.planetaexcel.ru/techniques/7/1091/
Преобразование во временной формат VBA, Не срабатывает макрос для преобразования из общего формата в число
 
Добрый день
Формула массива: =МИН(--A2:A3)
PS и файл лучше прикладывать
Обучение VBA
 
Добавлю свои пять копеек - записывайте макросы, смотрите что получилось и пробуйте вносить изменения в код. Например, записываете последовательность действий: Выделить ячейку А1, закрасить ее в красный цвет - получаете такой код:
Код
Sub Макрос1()
    Range("A1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Смотрите что получилось и переписывайте примерно в таком виде - результат будет тот же :)
Код
Sub Макрос1()
    Range("A1").Interior.Color = 255
End Sub

В общем, надо эксперементировать. Ну и ко всем остальным советам (особенно про реальные задачи и решение вопросов на форуме) я конечно тоже присоединяюсь :)  
Редизайнер многоуровневой таблицы, Адаптация примера Николая Павлова
 
Добрый день
Еще вариант
В перечне с функциями непонятные значки, что это за Excel-сущность
 
Формулы -> Диспетчер имен
Как выделить определенные столбцы в таблицы (Show Details) из сводной таблицы?, Как выделить определенные столбцы в таблицы (Show Details) из сводной таблицы?
 
Добрый день. В модуль листа "Сводная":
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim pc As PivotCell
    Dim sc As Integer, r As Long
    Dim sh As Worksheet
    
    On Error Resume Next
        Set pc = Target.PivotCell
        If Err Then Exit Sub
        sc = ThisWorkbook.Sheets.Count
        Target.ShowDetail = True
        If Err Then Exit Sub ' если нельзя выполнить ShowDetail
    On Error GoTo 0
    
    If ThisWorkbook.Sheets.Count > sc Then 'если добавился лист
        Set sh = ActiveSheet
        r = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row
        sh.Range(sh.Cells(1, 1), sh.Cells(r, 6)).Copy Destination:=sh.Cells(r + 6, 1)
        sh.Cells(r + 6, 7).Formula = "=формула_1"
        sh.Cells(r + 7, 7).Formula = "=формула_2"
        sh.Cells(r + 5, 8).Formula = "=формула_3"
        sh.Cells(r + 7, 8).Formula = "=формула_4"
    End If
    Cancel = True
End Sub
Блокировка только что редактируемых ячеек после сохранения
 
Добрый день
Наверное как-то так
Извлечь числа из текста одинакового формата
 
Добрый день. Ну в итоге я себе это вижу примерно так
Заменить символы в ячейке из списка
 
добрый день. UDF
Код
Public Function CodeReplace(st As String, rn As Range)
    Dim j As Integer, arr()
    arr = rn
    If InStr(1, st, "xxxx=") > 0 Then
        st = Mid(st, InStr(1, st, "xxxx=") + 5, Len(st))
    End If
    For j = 1 To UBound(arr)
        st = Replace(st, arr(j, 2), arr(j, 1))
    Next j
    CodeReplace = st
End Function
Очистить содержимое ячеек с повторяющимися значениями, В таблице на 5 000 строк необходимо очистить содержимое ячеек с повторяющимися значениями. Оставить уникальное значение. Пример Было-Стало во вложении
 
через доп столбец.
PS а дальше отфильтровать и удалить руками
Изменено: webley - 2 Авг 2018 12:25:24
Извлечь числа из текста одинакового формата
 
Код
Public Function TimeSum(rn As Range, rnmark As Range, Optional oper As String)
    Dim st As String, j As Integer, k As Integer
    If rn.Cells.Count <> rnmark.Cells.Count Then Exit Function
    TimeSum = 0
    For j = 1 To rn.Cells.Count
        If rnmark.Cells(j) <> "" Then
            st = rn.Cells(j)
            k = k + 1
            If st <> "" Then
                st = Replace(st, "сут.", "+")
                st = Replace(st, "час.", "/24+")
                st = Replace(st, "мин.", "/24/60")
                st = Replace(st, " ", "")
                If Right(st, 1) = "+" Then st = Left(st, Len(st) - 1)
                TimeSum = TimeSum + Application.Evaluate(st)
            End If
        End If
    Next j
    If oper = "avg" Then TimeSum = TimeSum / k
    TimeSum = Int(TimeSum) & " сут. " & Format(TimeSum, "h час. m мин.")
End Function
Извлечь числа из текста одинакового формата
 
Ну тогда так:
Код
Public Function TimeSum(rn As Range, Optional oper As String)
    Dim c As Range, st As String
    TimeSum = 0
    For Each c In rn
        st = c.Value
        If st <> "" Then
            st = Replace(st, "сут.", "+")
            st = Replace(st, "час.", "/24+")
            st = Replace(st, "мин.", "/24/60")
            st = Replace(st, " ", "")
            If Right(st, 1) = "+" Then st = Left(st, Len(st) - 1)
            TimeSum = TimeSum + Application.Evaluate(st)
        End If
    Next c
    If oper = "avg" Then TimeSum = TimeSum / rn.Cells.Count
    TimeSum = Int(TimeSum) & " сут. " & Format(TimeSum, "h час. m мин.")
End Function
Извлечь числа из текста одинакового формата
 
Вариант udf, которая сразу сумму считает:
Код
Public Function TimeSum(rn As Range)
    Dim c As Range, st As String
    For Each c In rn
        st = c.Value
        st = Replace(st, "сут.", "+")
        st = Replace(st, "час.", "/24+")
        st = Replace(st, "мин.", "/24/60")
        st = Replace(st, " ", "")
        TimeSum = TimeSum + Application.Evaluate(st)
    Next c
    TimeSum = Int(TimeSum) & " сут. " & Format(TimeSum, "h час. m мин.")
End Function
Копирование строки на другую страницу, если в первой ячейке определенный текст
 
Цитата
fefil написал:
Как то можно этого избежать
можно перед строкой    
Код
For r = 1 To sh.Cells(sh.Rows.Count, 2).End(xlUp).Row
добавить
Код
    ThisWorkbook.Sheets("ам").Cells.Clear
    ThisWorkbook.Sheets("ат").Cells.Clear
тогда при каждом запуске макроса данные на этих листах будут очищаться
Копирование строки на другую страницу, если в первой ячейке определенный текст
 
Добрый день
Цитата
fefil написал:
Помогите подобрать формулу, если возможно
насчет формулы не знаю, а вот макросом можно примерно так:
Код
Sub test()
    Dim r As Long
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Общий")
    For r = 1 To sh.Cells(sh.Rows.Count, 2).End(xlUp).Row
        If sh.Cells(r, 2) Like "*ам*" Or sh.Cells(r, 2) Like "*ат*" Then
            With ThisWorkbook.Sheets(IIf(sh.Cells(r, 2) Like "*ам*", "ам", "ат"))
                sh.Rows(r).Copy Destination:=.Rows(.Cells(.Rows.Count, 2).End(xlUp).Row + 1)
            End With
        End If
    Next r
    sh.Range("A1").Select
    MsgBox "Done"
End Sub
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 62 След.
Наверх