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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 810 След.
Посчитать выполнение одновременно двух условий
 
да понятно что хочется, только это не решается этой функцией


=СУМПРОИЗВ(('2H2024'!E1:E1000=Свод!B2)*('2H2024'!S1:V1000=""))
но 1000 не зря поставлена
По вопросам из тем форума, личку не читаю.
Запуск макроса по клику на ячейку, с ожиданием ее заполнения
 
Евгений Паршутин, Я там тупанул и никто из макрушников не подправил
Case Else а не Case Other
По вопросам из тем форума, личку не читаю.
Посчитать выполнение одновременно двух условий
 
Цитата
Jenya1980 написал:
В чем может быть ошибка?
в том что диапазоны должны быть одинаковой размерности.
По вопросам из тем форума, личку не читаю.
Вертикальное и горизонтальное отражение
 
vadi61,  оно  не идет быстрее, дело в том что при операции копирования с отображением до определенного момента приложение отображает, а потом встает,  это появилось в какой то из версий и вот пропало в 2021 как минимум.  DoEvents передает управление приложению в приказном порядке и это приводит к обработке  принудительно. Но вот на 2021 процесс при этом медленнее чем без него.
По вопросам из тем форума, личку не читаю.
Вывод данных из массива с учетом ИЛИ
 
=IFERROR(INDEX($C$3:$C$16;SMALL(IF(($A$1=$A$3:$A$16)*ISNUMBER(MATCH(F3:F16;{"магазин 1";"магазин 2";"магазин 3"};));ROW($C$3:$C$16)-2;"");ROW()-2)); "")
По вопросам из тем форума, личку не читаю.
Варианты обход ограничений вложенных функций в функцию "ЕСЛИ".
 
Цитата
Delunarat написал:
Сейчас вроде разобрался и всё более или менее понятно.
для этого пример и есть там же все переведено.
По вопросам из тем форума, личку не читаю.
Вертикальное и горизонтальное отражение
 
ну у меня не воспроизводится на 2021

попробуйте поигратся
Application.ScreenUpdating = True
   DoEvents

Код
Sub HorizontalSpiegeln()
'Application.ScreenUpdating = False
For i = 1 To 40
    With Worksheets("buch 1")
        .Columns(i).Copy
        .Columns(90 - i).PasteSpecial
    End With
    'Application.ScreenUpdating = True
    DoEvents
Next i
'Application.ScreenUpdating = True
End Sub
По вопросам из тем форума, личку не читаю.
Запуск макроса по клику на ячейку, с ожиданием ее заполнения
 
не выбираем диапазон, а определяем ячейки из Target, которые входят в нужный и указанный диапазон.
Если первый раз просто смотрим есть ли что обрабатывать или все за пределами нужного диапазона изменилось, то второй раз уже именно вибираем нужные  при этом если их несколько, а если скопировать и вставит сразу несколько то их будет именно несколько, то они и будут в цикле обработаны.

Этого можно избежать, но стоит ли
Код
Set mcells = Intersect(Target, Range("B6:F8"))
If Not mcells Is Nothing Then 
Application.EnableEvents = False
Application.ScreenUpdating = False
    For Each mcell In mcells


ну и
Код
Private предел_исо As Double ' Множитель предела исо
Private макс_на_пределе As Integer ' максимальное значение на пределе

Private Sub Worksheet_Change(ByVal Target As Range)
Dim mcell As Range
On Error GoTo ErrorHendler
If Not Intersect(Target, Range("B6:F8")) Is Nothing Then ' проверяем что изменения в нужном диапазоне ячеек
Application.EnableEvents = False
Application.ScreenUpdating = False
    For Each mcell In Intersect(Target, Range("B6:F8")) ' перебираем диапазон ячеек что изменились в нужном диаазоне
        If mcell <> "" Then '  проверка на то что стерли данные в ячейке
            If IsNumeric(mcell) Then ' проверяем что число
                Select Case True
                Case mcell <= 0  ' проверяем что > 0
                    MsgBox "Ошибочный ввод. Значение должно быть больше нуля " & mcell.Address(0, 0), 64 ' если  <=0 выдаем предупреждение
                Case mcell > макс_на_пределе  ' проверяем что не превышает максимально допустимое.
                    MsgBox "Ошибочный ввод. Значение выше предела диапазона измерений" & mcell.Address(0, 0), 64
                Case Else
                    mcell = mcell * предел_исо ' умножаем на множитель для исо
                End Select
            End If
        End If
    Next
ErrorHendler:
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End Sub
Изменено: БМВ - 18.02.2025 21:52:08
По вопросам из тем форума, личку не читаю.
Победители торгов по возрастанию с повторяющимися ценами
 
уточняем, а если 1 лидер и 3 или более пришли с одинаковым предложением, то тогда сколько показывать? Вероятность мала, но для чистоты лучше сразу предусматривать.
Изменено: БМВ - 17.02.2025 20:50:34
По вопросам из тем форума, личку не читаю.
Вывод данных из массива с учетом ИЛИ
 
не совсем понятно что хочется но ИЛИ в массвных формулах лучше менять на сумму условий
=ИЛИ(F3="магазин 1";F3="магазин 2";F3="магазин 3";)
=(F3="магазин 1")+(F3="магазин 2")+(F3="магазин 3")
По вопросам из тем форума, личку не читаю.
Вертикальное и горизонтальное отражение
 
asesja,  ну в случае со строками миллионов нет.  Мне кажется дело все равно не в этом.
По вопросам из тем форума, личку не читаю.
Excel 2007 + виртуальный com-порт, Помогите, пожалуйста, новичку в теме VBA
 
Цитата
Толян22 написал:
MSComm и Win7
не совместимы разрядности 32 и 64.
По вопросам из тем форума, личку не читаю.
Вертикальное и горизонтальное отражение
 
Тогда нужен пример того что вы там зеркалите.
Изменено: БМВ - 17.02.2025 07:33:24
По вопросам из тем форума, личку не читаю.
Пакетная отправка файлов через CDO
 
Цитата
OlegO написал:
почему не прикрепляется-то?  
не прикрепляется или не отправляются. Если вы удаляете их, то отправлять уже нечего. Но это моё предположение.
По вопросам из тем форума, личку не читаю.
Пакетная отправка файлов через CDO
 
OlegO, давно не использовал CDO, но мне кажется удалять файл до отправки не следует.
По вопросам из тем форума, личку не читаю.
Запуск макроса по клику на ячейку, с ожиданием ее заполнения
 
Для столбцов "A:B,D:E"
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mcell As Range
On Error GoTo ErrorHendler
If Not Intersect(Target, Range("A:B,D:E")) Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = False
    For Each mcell In Intersect(Target, Range("a:b,D:e"))
        If mcell <> "" Then
            If IsNumeric(mcell) Then
                mcell = mcell * 3
            Else
                mcell = mcell & "*3"
            End If
        End If
    Next
ErrorHendler:
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End Sub
По вопросам из тем форума, личку не читаю.
Правильно ли я записал формулу, arctg
 
Цитата
написал:
подушню ))
ну пока см мнимой частью функции не работают . :D  
По вопросам из тем форума, личку не читаю.
Правильно ли я записал формулу, arctg
 
Цитата
написал:
но ответ по этой формуле =3378  
Это ожидаемый ответ? Тогда или формула неверна или размерность данных не та.
просто рассуждаем
квадратный корень не может быть отрицательным, а значит экспонента отрицательного числа и это меньше 1.  3378 ну никак не получить.
По вопросам из тем форума, личку не читаю.
Вертикальное и горизонтальное отражение
 
Код
Sub HorizontalSpiegeln()
Application.ScreenUpdating = False
For i = 1 To 20
    With Worksheets("buch 1")
        .Columns(i).Copy
        .Columns(45 - i).PasteSpecial
    End With
Next i
Application.ScreenUpdating = True
End Sub


Sub VertikalSpiegeln()
Application.ScreenUpdating = False
For i = 1 To 20
    With Worksheets("buch 1")
        .Rows(i).Copy
        .Cells(45 - i, 1).PasteSpecial
    End With
Next i
Application.ScreenUpdating = True
End Sub
По вопросам из тем форума, личку не читаю.
Правильно ли я записал формулу, arctg
 
Правильно но много лишних скобок

=B4*B7*SQRT(B8/B6)*EXP(-ATAN(SQRT(4*B5^2*B6/B8)-1)/SQRT(4*B5^2*B6/B8-1))

в последних версиях можно укоротить но это не сделает более понятным, а короче не сильно
=LET(A;SQRT(4*B5^2*B6/B8-1);B4*B7*SQRT(B8/B6)*EXP(-ATAN(A)/A))
Изменено: БМВ - 16.02.2025 13:21:45
По вопросам из тем форума, личку не читаю.
Как закрепить несколько строк?, возможно ли это?
 
одна из основных проблем - это отсутствие штатного обработчика события скролинга листа. вариант с бесконечным циклом и проверкой видимой области мне крайне не нравится. Для нескольких областей можно придумать выделения области и скрытие остальных, но если даже шапки не помещаются на экране, то что делать?
По вопросам из тем форума, личку не читаю.
Создать файл под термопринтер
 
78 к 210
По вопросам из тем форума, личку не читаю.
Создать файл под термопринтер
 
nilske, 78x300 по отношению к a4 это не сильно меньше. чуть менее чем в три раза.
По вопросам из тем форума, личку не читаю.
Как закрепить несколько строк?, возможно ли это?
 
Запрос на уровне бреда, сами посудите, что и как должно быть закреплено , если в первой таблице будет количество строк больше чем вмещается на экране! или шапка второй должна дойти до нескрываемой шапки первой и не исчезать?
Изменено: БМВ - 15.02.2025 20:05:24
По вопросам из тем форума, личку не читаю.
Создать файл под термопринтер
 
при рендеренге имеет значение драйвер принтера. Он определяет размеры, а далее  дело техники  установить масштаб для подгонки под размер этикетки.
По вопросам из тем форума, личку не читаю.
Формула по страховым взносам на 30 и 15%, Формула по страховым взносам на 30 и 15%
 
Павел \Ʌ/, ну это полная ставка. А если совместитель и прочее.....  
По вопросам из тем форума, личку не читаю.
Формула по страховым взносам на 30 и 15%, Формула по страховым взносам на 30 и 15%
 
=MIN(72000;33660)*30%+MAX(72000-33660;0)*15%

=MIN(A1;33660)*30%+MAX(a1-33660;0)*15%
Изменено: БМВ - 15.02.2025 19:09:50
По вопросам из тем форума, личку не читаю.
Запуск макроса по клику на ячейку, с ожиданием ее заполнения
 
Цитата
Евгений Паршутин написал:
даже дописывать не нужно
не совсем. Действует на всем листе, что может и ненужно и основное, в случае ошибки, правда не совсем понятно что это может быть, но лучше обработать или её или выйти с возвратом установки обработки событий
Специально сделал деление на 0.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mcell As Range
On Error GoTo ErrorHendler
Application.EnableEvents = False
    For Each mcell In Target
        If mcell <> "" Then
            If IsNumeric(mcell) Then
                mcell = mcell * 3 / 0
            Else
                mcell = mcell & "*3"
            End If
        End If
    Next
ErrorHendler:
Application.EnableEvents = True
End Sub
По вопросам из тем форума, личку не читаю.
Запуск макроса по клику на ячейку, с ожиданием ее заполнения
 
Цитата
DerToDD написал:
боюсь не получится ли у меня бесконечный цикл если пускать его по событию из ячейки А1??
по событию изменения ячейки запускается код который начинается с Application.EnableEvents = False и всегда заканчивается Application.EnableEvents = True. Любые дальнейшие изменений макросом не будут циклить его.

Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mcell As Range
Application.EnableEvents = False
    For Each mcell In Target
        If mcell <> "" Then
            If IsNumeric(mcell) Then
                mcell = mcell * 3
            Else
                mcell = mcell & "*3"
            End If
        End If
    Next
Application.EnableEvents = True
End Su
По вопросам из тем форума, личку не читаю.
Поиск первого числового значения из групп последовательных чисел, Поиск первого числового значения из групп последовательных чисел
 
Цитата
_Boroda_ написал:
Вторая формула полегче должна быть, лучше ее используйте
Привет. Нет первая побыстрее, правда смотрел на 2021
По вопросам из тем форума, личку не читаю.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 810 След.
Наверх