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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 345 След.
Вытащить нужные данные с ячейки
 
Цитата
benel написал:
как я вижу решение данных задач:
решения вы огласили, хорошо...
А о самой задаче можно что ни будь узнать?
Вставить пустые строки ниже при определенном условии, Необходимо вставить ниже пустые строки при определенном условии
 
Код
Sub Rows_Insert()
    Dim i
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        Select Case True
            Case Cells(i, 1) Like "*совм./1*"
                Cells(i + 1, 1).Resize(2).EntireRow.Insert
            Case Cells(i, 1) Like "*совм./2*"
                Cells(i + 1, 1).Resize(5).EntireRow.Insert
            Case Cells(i, 1) Like "*/1*"
                Cells(i + 1, 1).Resize(5).EntireRow.Insert
            Case Cells(i, 1) Like "*/2*"
                Cells(i + 1, 1).Resize(11).EntireRow.Insert
        End Select
    Next
End Sub


можно в модуль листа
Изменено: Михаил Витальевич С. - 21 сен 2020 19:16:53
Вставить пустые строки ниже при определенном условии, Необходимо вставить ниже пустые строки при определенном условии
 
Юси, Показали б результат, который должны получить.
Строк у вас не много и, вроде, все понятно, но не люблю гадать...
Изменено: Михаил Витальевич С. - 21 сен 2020 18:43:54
Условное форматирование: Изменение цвета ячейки в зависимости от ОСГ
 
Цитата
Mikhail76 написал:
если дата уже в прошлом (просрочено), то формула <3 не работает
В формуле
=РАЗНДАТ(СЕГОДНЯ();B3;"m")<3
СЕГОДНЯ должно быть меньше В3, если срок просрочен, СЕГОДНЯ больше В3, формула дает ошибку.
При протягивании формулы пропал выбор "только значения" или "только формат", Вместо этого теперь мини-окно с выбором варианта условного форматирования
 
Где-то в параметрах это есть, где - не помню, надо искать. НО есть точно - находил.
Marienhof, найдете - отпишитесь.
Формула переноса значений по нескольким условиям
 
Цитата
Vladimir K написал:
Попробуйте вариант формулой массива
Vladimir K, Сообщений: 19
сразу видно - новичок!
а уже лет пять не берусь угадывать без Файла, чего там ТС хочет. Зачастую и файлом не сразу понятно, пока не расспросишь...
Условное форматирование: Изменение цвета ячейки в зависимости от ОСГ
 
как-то так, см файл.
формулы:
=ДАТАМЕС(СЕГОДНЯ();3)>B3
=ДАТАМЕС(СЕГОДНЯ();6)>B3
=ДАТАМЕС(СЕГОДНЯ();6)<=B3


и смотрите, в каком они порядке и галка "остановить, если истина"
Изменено: Михаил Витальевич С. - 21 сен 2020 12:11:20 (Чуть изменил последнюю формулу и замени файл)
Менять текст одной ячейки в зависимости от выбранного результата из списка
 
Цитата
Macvaer написал:
через ИНДЕКС и ПОИСКПОЗ.
а можно и через ВПР()
Условное форматирование: Изменение цвета ячейки в зависимости от ОСГ
 
Через условное форматирование.
Управление шириной отдельной ячейки независимо от изменения ширины всего столбца
 
Цитата
Пупер написал:
То есть кондуктор должен, если ему так хочется, помыть автобус после меня, а не отказывать мне в допуске в этот автобус.
а я, как пассажир, должен просто выкинуть вас из автобуса, что б вы меня не испачкали.
Управление шириной отдельной ячейки независимо от изменения ширины всего столбца
 
Пупер, что за привычка ругаться с модераторами? Слово модератора - закон, на любом форуме.
Во-первых, Вам здесь ни кто ни чем не обязан, в этой ветке мы все здесь волонтеры на добровольной основе. Хотим - помогаем, не хотим - не помогаем; от вас только просят соблюдать несложные правила.
Поиск совпадений в двух таблицах по году выпуска и номеру детали., не срабатывает так как нужно
 
Цитата
Айра написал:
при несовпадении,  можно сделать Ложь?
В вашем файле этого не было
Просчет сдельной заработной платы, Как выполнить расчет сделки
 
Esaul7, в этом разделе правило: "одна тема - один вопрос"; у вас, как минимум, пять реальных вопросов.
Либо разбивайте задачу на отдельные вопросы, либо в платный раздел - там решат комплексно.
Формула для автоматического вывода данных из последней строки группы
 
Там формулы массива, нужно ввести в первую ячейку и потом скопировать в верх каждой группы.
Макрос для экспорта из xls в xml
 
Заказ свободен, не берусь.  :(
Поиск совпадений в двух таблицах по году выпуска и номеру детали., не срабатывает так как нужно
 
Тема, наверное: Сравнить два файла.
Под.тема - Мои формулы срабатывают не так, как нужно.
Айра, см. файл
Макрос для экспорта из xls в xml
 
Не гарантирую, что возьмусь, хотелось бы посмотреть файлы-примеры.
Контакты в профиле, ну и в личку отправлю, на всякий случай.
Включение и выключение итоговой строки в умных таблицах
 
Framed, а зачем (почему) вы используете "умные таблицы"?
Вопрос по подстановке переменных в формулу в VBA
 
Уже 8 (восемь!) постов по несущественной теме, а можно и до 50-60 дотянуть..
nikbot24k, покажите небольшой файл-пример, и в решится в одном ответе.
Собрать данные в массив по условию и найти максимальное/минимальной значение в массиве
 
Цитата
narod svs написал:
если так?
можно, но я б сделал немного по другому:
Код
If DatMin < Date Then Cel.Offset(0, 10) = DatMin Else Cel.Offset(0, 10) = Empty
If DatMax > CDate("1/1/1900") Then Cel.Offset(0, 11) = DatMax Else Cel.Offset(0, 11) = Empty

мало чем отличается от вашего варианта; но в любом случае Empty (пустая ячейка) лучше, чем "" (текст длиною ноль символов)
Формула для автоматического вывода данных из последней строки группы
 
Цитата
dom23 написал:
может есть возможность сделать ее непрерывной, что бы не вводить отдельно для каждой группы
для дат (столбец D):
=ЕСЛИОШИБКА(ЕСЛИ(СЧЁТЕСЛИ(D6:ИНДЕКС(D6:D12;ПОИСКПОЗ(ЛОЖЬ;ЕПУСТО(A6:A12);0)-1;1);"<>"&"")>0;ИНДЕКС(D6:D12;ПОИСКПОЗ(ЛОЖЬ;ЕПУСТО(A6:A12);0)-2;1);"");ЕСЛИ(ЕПУСТО(ИНДЕКС(D6:D12;СЧЁТЗ(B6:B12);1));"";ИНДЕКС(D6:D12;СЧЁТЗ(B6:B12);1)))
для для "B" и "С" измените диапазоны аналогично
Цитата
dom23 написал:
Что бы можно было вставить потянуть вниз, а не вводить для каждой группы отдельно.
Протянуть вниз не получится, т.к. у вас в нижних ячейках используемые значения; только копирование формулы в верх каждой группы. Проверяемые диапазоны сместятся автоматически.
Создать табличку для отображения номеров заказа, табличку для отображения номеров заказа
 
Антиспам последнее время за_колебал  :evil:
Автор, продублируйте сообщение и файл-пример  :excl:
Собрать данные в массив по условию и найти максимальное/минимальной значение в массиве
 
только надо проверки добавить, на случай если совпадений нет
Собрать данные в массив по условию и найти максимальное/минимальной значение в массиве
 
посмотрите файл; макрос в Module2
в файле макрос чуть изменил, в сообщении выше - тоже
Цитата
narod svs написал:
Надо чтобы для каждой строки находил отдельно наибольшее и наименьшее значение из диапазона
ну так и ищет
Изменено: Михаил Витальевич С. - 19 сен 2020 18:11:50
Какие возможные причины не "срабатывания" условного форматирования., Условное форматирование по формуле не работает.
 
Цитата
Михаил написал:
форматирование дат по воскресенью
=ДЕНЬНЕД(I1)=1
Цитата
Михаил написал:
Формула примитивная ... =ПРАВСИМВ(ТЕКСТ(I1; "ДД.ММ.ГГГГ ДДДД");4)="енье"
не очень. Много лишнего
Изменено: Михаил Витальевич С. - 19 сен 2020 17:31:02
Выпадающий список (проверка данных) - создать макросом, В списке имеются запятые и точки с запятой
 
tolikt, ну если очень нужно в макросе, создайте список так:
"Красное;розовое,Синее;голубое,Зелёное,Белое;чёрное;серое".
получите в виде:
Красное;розовое
Синее;голубое
Зелёное
Белое;чёрное;серое

если в списке запятые принципиальны - давайте ваш файл - пример; мне составлять лень.
Собрать данные в массив по условию и найти максимальное/минимальной значение в массиве
 
По тому, что я понял из файла, как-то так:
Код
Sub Data_Find()
    Dim DatMin As Date, DatMax As Date, Arr()
    Dim Cel As Range, Rn As Range, i&, C1&, C2&
    With Sheets("DATA_REPORT")
        Arr = .Range(.Cells(7, 4), .Cells(Rows.Count, 4).End(xlUp).Offset(0, 51 - 4)).Value
    End With
    C1 = 18 - 4 + 1
    C2 = 51 - 4 + 1
    With Sheets("Sponge_Test_Pipe")
        Set Rn = .Range(.Cells(4, 3), .Cells(Rows.Count, 3).End(xlUp))
        For Each Cel In Rn
            DatMin = Date
            DatMax = CDate("1/1/1900")
            For i = 1 To UBound(Arr)
                If Arr(i, 1) Like "*" & Cel.Value & "*" Then
                    If Arr(i, C1) < DatMin Then DatMin = Arr(i, C1)
                    If Arr(i, C2) > DatMax Then DatMax = Arr(i, C2)
                End If
            Next
            Cel.Offset(0, 10) = DatMin
            Cel.Offset(0, 11) = DatMax
        Next
    End With
End Sub
Изменено: Михаил Витальевич С. - 19 сен 2020 18:10:01
Отображение окон Excel
 
BEBL, неправда ваша.
Собрать данные в массив по условию и найти максимальное/минимальной значение в массиве
 
Цитата
narod svs написал:
Нужно сабрать в массив данные по условию:
Какую задачу вы решаете? А то, может, по ходу, никаких массивов собирать и не нужно?
Умная таблица. Формула в заголовке столбца, Необходимо вычислять имя столбца для умной таблицы
 
Цитата
ivanka написал:
имеется ли какой-то приём
нет, не имеется.
Заголовки столбцов в умных таблицах всегда имеют текстовый формат.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 345 След.
Наверх