Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 97 След.
Разбивание одной ячейки на несколько строк и столбцов
 
Можно Power Query использовать
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Фильтр и его значения, Значения фильтра отображать в строке выше
 
1. С доп. столбцом
2. Значения копируют макросы, а не функции.
3. Если фильтром выбрать >1 значения, то будет ошибка.
   PS
   Если воспользоваться формулой от evgeniygeo, то ошибки не будет. Не будет ли это ошибкой?
Изменено: Михаил Лебедев - 06.03.2024 08:25:45
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Разделить ячейки
 
Power Query
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Разделить ячейки
 
формулами
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Разделить ячейки
 
А с помощью чего разделить: Формулой, макросом, Power Query?
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Excel 2016 - при вводе дробного числа значение меняется, При вводе дробного числа меняется значение
 
У меня 2021, та же "картина маслом".
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
суммесли с диапазоном значений
 
Формула плюс спец. формат ячеек с результатом
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Функция для сверки двух таблиц по нескольким критериям
 
Есть, например приложить файл-пример
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Убрать строки с одним значением, В сводной таблице убрать строки, с пустыми значениями в колонках
 
Цитата
написал(а):
Вот кусок моей таблицы
М.б. проще всё?
В Сводной:
1. Вызвать фильтр на столбце Характеристика номенклатуры
2. Фильтры по значению
3. Цена закупочная       не равно          0
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Убрать строки с одним значением, В сводной таблице убрать строки, с пустыми значениями в колонках
 
С доп. столбцом. Как информация к размышлению.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Нужно прописать такую формулу, чтобы ячейка обратилась соответствующему листу с городом
 
Хуже нет, как вы храните данные с точки зрения их дальнейшей обработки.
Такую задачу лучше решать не формулами, а макросами и/или Power Query.
И при условии, что кол-во и наименование столбцов остаются неизменными и совпадают на всех собираемых листах. Т.е. не как у Вас.
Изменено: Михаил Лебедев - 19.02.2024 09:43:55
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Как можно увеличить размер шрифта в строке состояния Excel.
 
пока никак
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Нужен способ запретить вставлять значения/форматы в ячейки
 
Цитата
написал:
но с Intersect не понял, расскажите???
я имел ввиду, что если кому-то приспичит вставить диапазон ячеек, который только частично принадлежит нужному нам диапазону, то логика рушится. Поэтому по-хорошему надо пробегать в цикле все ячейки из Target. Если ячейка принадлежит диапазону, то проверять ее значение на соответствие требованиям.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myR As Range
    
    Set p = Range("Меню")
    
    Application.EnableEvents = False
        For Each myR In Target.Cells
'            myR = проверка(myR, p)
'            проверка = myR
            If Not Intersect(myR, Range("D:D")) Is Nothing Then
                If WorksheetFunction.CountIf(p, myR) = 0 Then
                    myR = Empty
                End If
            End If
        Next
    Application.EnableEvents = True
End Sub
Изменено: Михаил Лебедев - 12.02.2024 06:40:36
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Нужен способ запретить вставлять значения/форматы в ячейки
 
Цитата
написал:
как вариант,
Как написал создатель темы, при работе с файлом злобствуют копипастеры, а они могут и не по одной ячейке копипастить.
Поэтому вот этот фрагмент в Вашем коде меня смутил:
Код
    If Target.Cells.Count > 1 Then Exit Sub
Тут бы, по хорошему, не Exit Sub надо, а в цикле пробежать по всем ячейкам. С проверкой по Intersect в том числе.
Изменено: Михаил Лебедев - 09.02.2024 11:41:52
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Поставить пробел через каждые 4 символа
 
Цитата
написал:
=CONCAT( MID() & " ")
👍
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Нужен способ запретить вставлять значения/форматы в ячейки
 
Цитата
написал:
но всегда есть шанс, что макросы будут отключены
чтобы этот шанс исключить, надо макросом делать лист видимым при открытии и невидимым - при закрытии книги. В этом случае при отключенных макросах пользователь просто не увидит тот лист, с которым хотел бы поработать в обход макросов. А при включенных макросах - сам этот лист спрячет при закрытии книги.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Нужен способ запретить вставлять значения/форматы в ячейки
 
Цитата
написал:
не помешала бы проверка форматов
Проще было бы где-то спрятать ячейку с нужным форматом и в макросе дописать команду скопировать-вставить формат из спрятанной ячейки в столбец заказов.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Нужен способ запретить вставлять значения/форматы в ячейки
 
Можно же просто проверять содержимое ячеек и, если оно не соответствует содержимому меню, очищать такие ячейки.
Навесить эту проверку можно на событие сохранения файла и/или на событие деактивации листа.
А чтобы человек сразу видел, что вставил какую-то ерунду в ячейку, можно просто использовать условное форматирование, чтобы значения не из списка подкрашивались каким-нибудь агрессивным фоном (красным например).
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Перенос из таблицы в таблицу, Как реализовать перенос формулой ?
 
Цитата
написал:
и как перенести определенные значени
А как Вы определяете, какие значени надо перенести? Как программа узнает, что должно быть в таблице 12125, если она будет изначально пустая?
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Ссылка на фильтр динамической таблицы, Выбрать значение фильтра из динамической таблицы.
 
Цитата
написал:
хорошо что есть этот форум и умные и отзывчивые люли
люлей здесь хватает 🤣
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Преобразование таблицы с исходными данными в Формат длинной таблицы для СТ, нужно решение или направление для Преобразования таблицы, возможно поможет PQ или Макросы
 
Это зависит оттого, какой вид Вы хотите иметь на выходе.
Кроме того. Завтра Вы захотите добавить/удалить еще что-нибудь.
Мой пример - это не готовое (универсальное) решение, а только один из вариантов, как можно сделать.
Он не идеален.
Поэтому Вам стоит поизучать работу с Power Query. Для решения данной задачки с лихвой хватит прочитать книжку Николая Павлова "Скульптор данных в Excel с Power Query". Она написана очень лёгким и доступным языком, да с кучей примеров - загляденье, в общем :)
По поводу Вашей задачки.
1. Не нужно менять названия столбцов.
2. Нужно, чтобы исходная таблица была вся видна Power Query. Поэтому она либо должна быть "умной", либо иметь собственное имя (как в моем примере решения Вашей задачи).
Когда Вы добавили новые столбцы и изменили название старых, Вы этого не заметили и не учли.
3. Номер недели и название месяца Power Query может определить сам по введенной дате.
Изменено: Михаил Лебедев - 09.02.2024 05:32:38
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Преобразование таблицы с исходными данными в Формат длинной таблицы для СТ, нужно решение или направление для Преобразования таблицы, возможно поможет PQ или Макросы
 
Можно, например, так (Power Query)
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Подстановка формулы по умолчанию в редактируемую ячейку
 
Вводите значение в соседнюю ячейку, а в формуле пропишите условие: Если соседняя ячейка пустая, тогда считать по формуле. иначе - бери из сосед. яч. значение
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Сбор информации по вкладкам, Сведение продолжительности работ по таблице ганта в одну строку
 
Можно, например, вот так.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Сбор информации по вкладкам, Сведение продолжительности работ по таблице ганта в одну строку
 
Хотите быстрее помощи - пришлите файл ексель.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Извлечь адрес электронной почты из текстовой строки
 
Цитата
написал:
но  так как их несколько не могу их потом разбить на столбцы
я взял наобум 2 email и объединил в строку через пробел:
"info@akademia-excel.ru news@news.ozon.ru"
А как в строке один адрес от другого отделен в Вашем случае?
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Макрос для печати в зависимости от условий в ячейках
 
Тогда так
Код
Sub SaveNapravlen()
    Dim shName  As String
    Dim Cell    As Range, _
        r       As Long
    Dim K       As Long, _
        L       As Long, _
        I       As Long
    Dim ПОМО(2) As String
        
          
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationAutomatic
     
    ПОМО(0) = "МО"
    ПОМО(1) = "ПО"
     
    With ThisWorkbook.Worksheets("Заполнить")
        r = .Cells(Rows.Count, 2).End(xlUp).Row
        If r > 2 Then
            For I = 2 To r
                .Cells(I, "A").Value = "+"
                Select Case UCase(.Cells(I, "J").Value)
                Case "V"
                    K = 2
                Case "0"
                    K = 1
                End Select
                For L = 1 To K
                    shName = "Направление" & L
                    With Worksheets(shName)
                        .Range("M28:M34").EntireRow.AutoFit
                        a = .Range("A11").Value
                        b = .Range("M14").Value
                        .ExportAsFixedFormat Type:=xlTypePDF, _
                                             Filename:="C:\Apps\Med\" & a & " " & b & " " & ПОМО(L - 1) & ".pdf", _
                                             Quality:=xlQualityStandard, _
                                             IncludeDocProperties:=True, _
                                             IgnorePrintAreas:=False, _
                                             OpenAfterPublish:=False
                    End With
                Next L
                .Cells(I, "A").Value = Empty
            Next I
        End If
    End With
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
End Sub
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Макрос для печати в зависимости от условий в ячейках
 
Уважаемый Denchik1983, я не стал менять логику Вашего макроса. Но поскольку на листе "Заполнить" предполагается всего один "+", то строка кода
Код
        r = .Cells(Rows.Count, 1).End(xlUp).Row
уже даст Вам номер строки нужной Вам ячейки с "+". И поэтому цикл становится не нужен.
Гораздо интереснее, если бы "+" было несколько, и макрос все их обнаруживал в цикле и сохранял столько пдф-файлов, сколько нашел "+".
Изменено: Михаил Лебедев - 30.09.2023 20:21:45
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Макрос для печати в зависимости от условий в ячейках
 
Код
Sub SaveNapravlen()
    Dim i       As Long
    Dim shName  As String
    Dim Cell    As Range, _
                r As Long
          
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationAutomatic
     
    With ThisWorkbook.Worksheets("Заполнить")
        r = .Cells(Rows.Count, 1).End(xlUp).Row
        If r > 2 Then
            For i = 2 To r
                If .Cells(i, "A").Value = "+" Then
                    Select Case .Cells(i, "J").Value
                    Case "V"
                        shName = "Направление1"
                    Case "0"
                        shName = "Направление2"
                    End Select
                    With Worksheets(shName)
                    .Range("M28:M34").EntireRow.AutoFit
                    a = .Range("A11").Value
                    b = .Range("M14").Value
                    .ExportAsFixedFormat Type:=xlTypePDF, _
                                         Filename:="C:\Apps\Med\" & a & " " & b & " МО" & ".pdf", _
                                         Quality:=xlQualityStandard, _
                                         IncludeDocProperties:=True, _
                                         IgnorePrintAreas:=False, _
                                         OpenAfterPublish:=False
                    'Cell.ClearContents
                    End With
                End If
            Next
        End If
    End With
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
End Sub
Изменено: Михаил Лебедев - 30.09.2023 20:26:21
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Сумма значений по заданному условию
 
Код
="Петров Петр: "&СУММЕСЛИМН(Таблица13[@[1]:[31]];Таблица13[@[1]:[31]];">30";Таблица13[@[1]:[31]];"<=39")
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 97 След.
Наверх