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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 80 След.
Запрет заполнения ячейки, если две других не заполнены
 
Предположу, что
Код
=И(RC>=СУММ(RC3:RC4);СЧЁТ(RC3:RC4)=2;ОСТАТ(RC;1)=0)

Цитата
poiuyt написал:
можно было бы ввести только целое число
Запрет заполнения ячейки, если две других не заполнены
 
(На ленте) Данные
Проверка данных
Проверка данных
Параметры
Тип данных: - Другой
Формула:
Код
=И(C1>=(A1+B1);ОСТАТ(C1;1)=0)
Подтянуть данные из другой таблице
 
Какова драматургия! Два слова, а сколько скрыто! И завязка сюжета, и конфликт, и противостояние характеров. :)
Повернуть текст в горизонтальное положение
 
Код
Sub ПовернутьИпокрасить()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange.Cells
        If c.Orientation <> -4128 Then
            c.Orientation = -4128
            c.Interior.Color = 255
        End If
    Next
End Sub
Массовая замена значений, согласно окончанию
 
Код
Sub ДваМинусСто()
    Dim c As Range
    For Each c In Selection.Cells
        c.Cells(1, 2).Value = "2-100-0" & Right(c.Value, 1)
    Next
End Sub

Массовая замена значений, согласно окончанию
 
Код
="2-100-0"&ПРАВСИМВ(A2;1)
Подскажите сортировку из 2 столбцов в 2 других, Сортировка
 
Код
в А2 и протянуть вниз                    =A1--((B2+C2)>0)
в Е1 и протянуть вниз и вправо           =ВПР(СТРОКА();$A:$C;СТОЛБЕЦ(B:B);0)
Перенос данных из производственного календаря в график работы персонала
 
Код
=ИНДЕКС('производственный календарь'!C$2:C$13;ПОИСКПОЗ($HY$17;'производственный календарь'!$E$2:$E$13;0))
Сумма цифр из даты
 
Код
=ПСТР(ПРАВСИМВ("0"&ДЕНЬ(A1);2);1;1)+ПСТР(ПРАВСИМВ("0"&ДЕНЬ(A1);2);2;1)+ПСТР(ПРАВСИМВ("0"&МЕСЯЦ(A1);2);1;1)+ПСТР(ПРАВСИМВ("0"&МЕСЯЦ(A1);2);2;1)+ПСТР(ГОД(A1);1;1)+ПСТР(ГОД(A1);2;1)+ПСТР(ГОД(A1);3;1)+ПСТР(ГОД(A1);4;1)
Событие програмного изменения ячейки
 
Цитата
Artmasterpro написал:
а событие Worksheet_Change(ByVal Target As range) работает только при изменении пользователем
Это не так.
Заполнение диапазона макросом из другого листа
 
Может так?
Код
Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E2:E10000")) Is Nothing Then
        Dim c As Range
        For Each c In Target.Cells
            If Range("E" & c.Row) <> "" Then   '???
               i = Cells(Split(c.Address, "$")(2), 2)
               With Sheets("Лист1")
                    For s = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
                        If .Cells(s, 2) = i Then
                           .Cells(s, 5) = "Гараж"
                           .Cells(s, 3) = ""
                           .Cells(s, 4) = ""
                        End If
                    Next
              End With
            End If
        Next
    End If
End Sub

Отчет проходок, Подсчет и поиск по нескольким значениям
 
Пишу в личку.
В работе.
Выполнил.
Оплату получил.
Изменено: МатросНаЗебре - 25 апр 2020 18:31:49
Определить, какому диапазону принадлежит число
 
Если #14 ещё актуально, то в красной ячейке должна быть формула.
Код
=ОСТАТ((СУММ($D15:G15)+1);30)

В сообщении #12 есть формула. Вставьте её и копируйте в остальные диапазоны.
Макрос (формула?) сбора данных в т.ч. с ещё не существующих листов.
 
Код
sub aaa()
Range("F4").FormulaR1C1 = "=SUM('*'!R4C5)"
end sub
Определить, какому диапазону принадлежит число
 
В ячейку F6  и можно протянуть в E6.
Код
=ЦЕЛОЕ((СУММ($D6:E6)+1)/30)+1
Расчет уровня жидкости в горизонтальном цилиндре по заданному объёму, расчет для изготовления мерной шкалы
 
Вот такой вариант.
Находим аналитически зависимость площади сечения заполненной части от уровня.
Создаём таблицу зависимости. Таким образом получаем значения обратной функции, а именно зависимость уровня от площади заполненной части.
Из полученной таблицы ВПР-им с неточным соответствием.
Уровень найден.
Заполнение листов файла данными из таблицы по условию, Сформировать файлы из сформированной таблицы
 
Цитата
БМВ написал:
и кто ж это?
Это я.
Определить, какому диапазону принадлежит число
 
Код
=ЦЕЛОЕ((СУММ(A1:A2)+1)/30) - Это номер страницы
=ОСТАТ((СУММ(A1:A2)+1);30) - Это номер строки
Вместо А1:А2 - поставьте сумму предыдущих распределённых номеров.
Заполнение листов файла данными из таблицы по условию, Сформировать файлы из сформированной таблицы
 
Пишу в личку.

Поправьте меня, если я не прав,
в этой ветке исполнитель пока не найден.

В работе.
Выполнил.
Оплату получил.
Изменено: МатросНаЗебре - 23 апр 2020 07:48:29
Найти через значение в одном массиве и суммировать если даты повторяются
 
Код
=СУММЕСЛИМН($H$9:$H$11;$G$9:$G$11;$J$10;$F$9:$F$11;K9)
Предложить решение по работе умной таблицы
 
Пишу в личку.
Формула для подстчета знаков между определенными символами
 
Код
=НАЙТИ("A";$A$4;E1+1)  в E2 и протянуть вниз
=E2-E1-1               в F2 и протянуть вниз
Как сделать чтобы дата и время работали перетягиванием на каждую ячейку 1 секунда
 
Код
=ТЕКСТ(ДАТА(2019;1;1)+ВРЕМЯ(9;0;СТРОКА(1:1));"гггг-ММ-ддTчч:мм:сс")
График отпусков: выделить интервал дат, при помощи УФ, Помогите с формулой условного форматирования графика отпусков.
 
Вариант названия темы
Отображение графика отпусков с помощью условного форматирования
Перенос данных с одного листа в другой (с фильтром)
 
Цитата
Юрий М написал:
обычно таблица на листе, а не наоборот ))И где эта таблица?
:)))) да, прикольно.
А таблица, автор же написал, она над листом :)
Перенос данных с одного листа в другой (с фильтром)
 
Код
Sub КопированиеСфильтром()
    If ActiveWorkbook.Sheets.Count = 1 Then
        MsgBox "Должно быть не менее двух листов.", vbExclamation
        Exit Sub
    End If
    
    Dim y As Long
    Dim u As Long
    Dim x As Integer
    Dim a As Variant
    Dim b As Variant
    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    
    Set sh1 = ActiveSheet   'Лист откуда копируем
    Set sh2 = Sheets(2)     'Лист куда копируем
    
    With sh1.UsedRange
        x = .Column + .Columns.Count - 1
        y = .Row + .Rows.Count - 1
        If y = 1 Then y = 2
        a = .Range(.Cells(1, 1), .Cells(y, x))
    End With
    ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
    
    For y = 1 To UBound(a, 1)
        If a(y, 1) = "Иванов" Then 'Это то, что вы назвали "делать фильтр по столбцу желаемого"
        If a(y, 3) = 1 Then '"...по цифровому значению."
        If Not sh1.Rows(y).Hidden Then
            u = u + 1
            For x = 1 To UBound(a, 2)
                b(u, x) = a(y, x)
            Next
        End If
        End If
        End If
    Next
    
    If u > 0 Then
        With sh2
            y = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
            .Cells(y, 1).Resize(u, UBound(b, 2)) = b
        End With
        MsgBox "Скопировано " & u & " строк.", vbInformation
    End If
End Sub
График отпусков: выделить интервал дат, при помощи УФ, Помогите с формулой условного форматирования графика отпусков.
 
Код
=((ДАТА($B$3;$C$3;F$1)>=$AL8)*(ДАТА($B$3;$C$3;F$1)<=$AM8)+(ДАТА($B$3;$C$3;F$1)>=$AN8)*(ДАТА($B$3;$C$3;F$1)<=$AO8))>0
Подсчет одинаковых пар в списке
 
:) Это маленький шаг к решению задачи.
Подсчет одинаковых пар в списке
 
Код
=СЧЁТЕСЛИМН(A:A;A:A;B:B;B:B)
- сколько раз встречается пара.
Варианты округления в VBA, Поиск самого быстрого
 
Цитата
Jack Famous написал:
кто какие ещё методы/способы округления знает? Протестирую на своих данных
Как вариант, ещё есть функции Int() и CInt(), которые можно использовать для округления.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 80 След.
Наверх