Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Старичок
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 След.
Помогите подтянуть значение перекрестной ячейки ( текст) к найденному наименьшему значению, Просмотр с помощью функций Индекс и Поискпоз и альтернативные решения
 
#
26.12.2025 21:25:34
Цитата
написал:
почему ИНДЕКС с ПОИСКПОЗ не работали
Да оно работали, вот только ПОИСКПОЗ находит первое подходящее значение. А оно как раз в скрытом столбце у которого нет заголовка. вот и выводит значение 0.
Можно немного обмануть эту ситуацию и применить формулу
Код
=ИНДЕКС($F$2:$AP$2;;ПОИСКПОЗ(AR3;F3:AP3;0)+1)
И еще один момент, формулу в столбце AR можно упростить
Код
=МИНЕСЛИ(G3:AP3;G3:AP3;"<>0")
Изменено: Старичок - 26.12.2025 21:34:13
 
Перейти    
Автоматическое выделение ячеек в желтый цвет с помощью макроса
 
#
21.12.2025 14:13:03
Можно это же сделать без макросов, с помощью УФ. Правило такое.
Код
=($C16="ИТОГО с учетом индексации и курсов валют с НДС 22%")*(D16=МИН($D16:$L16))
Диапазон действия правила можно задать с запасом по строкам и по столбцам с учетом возможных добавлений  
 
Перейти    
Формула для заполнения значения если ячейка имеет цвет
 
#
20.12.2025 11:16:54
Добрый день. Можно использовать UDF. Вставить код в общий модуль, вызывается на листе как обычная функция =ЦВЕТЗАЛИВКИ(<адрес ячейки>)  
Код
Function ЦВЕТЗАЛИВКИ(Rng As Range) As Long
 ЦВЕТЗАЛИВКИ = Rng.Interior.Color
End Function
 
Перейти    
Автоматическое выделение ячеек в желтый цвет с помощью макроса
 
#
19.12.2025 21:19:31
Добрый вечер. Для упрощения можно использовать функцию WorksheetFunction.Min, она игнорирует все, кроме чисел.
Код
Sub MinInRow()
  Dim Nmin&, Cmin&, Cl As Range, Lc&, Lr&
  Lc = Cells(14, Columns.Count).End(xlToLeft).Column
  Lr = Cells(Rows.Count, "C").End(xlUp).Row
  For Each Cl In Range("C15:C" & Lr)
    If Cl = "ИТОГО с учетом индексации и курсов валют с НДС 22%" Then
      Nmin = WorksheetFunction.Min(Cl.Offset(, 1).Resize(1, Lc - 3))
      Cmin = Cl.Offset(, 1).Resize(1, Lc - 3).Find(Nmin).Column
      Cl.Offset(, Cmin - 3).Interior.Color = vbYellow
    End If
  Next
End Sub
 
Перейти    
Всплывающая диаграмма, При наведении (нажатии) на ячейку всплывает диаграмма
 
#
18.12.2025 20:08:02
Цитата
написал:
чтобы диаграмма всплывала напротив заданного имени.
Добрый вечер. Вставьте в макрос после строки
Код
ActiveSheet.ChartObjects("Диаграмма 4").Activate
такую строку
Код
ActiveSheet.ChartObjects("Диаграмма 4").Top = Cells(Rw, 3).Top
 
Перейти    
Формула для заполнения значения если ячейка имеет цвет
 
#
16.12.2025 21:00:31
gling, Добрый вечер. У вас небольшая ошибка в макросе в приложенном файле. Тип переменной Yac_kaCvet не должен быть Range, если выбирать цвет ячейки в той же таблице, то в нее будет записан код цвета. Верните, как было у вас ранее тип Variant.  
 
Перейти    
Суммирование значений по уникальным критериям
 
#
16.12.2025 20:32:06
Добрый вечер. Странная у вас таблица. Поступило 1000 кг. яблок, распределили их по трем складам и почему то на каждом складе оказалось по 1000 кг. Путаница какая то. Разделите это количество по складам и голову ломать не придется.
 
Перейти    
Формула для заполнения значения если ячейка имеет цвет
 
#
14.12.2025 09:55:20
Цитата
написал:
Формулой никак нельзя
Дело в том, что формулы могут работать только с значениями (исключением является функция ЯЧЕЙКА, но у нее очень ограниченный функционал), а заливка это формат. Так что это задача для макроса. И не нужно бояться макросов, в нашей конторе многие сотрудники используют макросы совершенно в них не разбираясь, а кое кто даже и не подозревает, что ими пользуется. Добавил в ваш файл макрос, для запуска нажмите кнопку "Клик".  
Изменено: Старичок - 14.12.2025 10:26:44
 
Перейти    
Формула для заполнения значения если ячейка имеет цвет
 
#
13.12.2025 10:11:19
Excaz, Здравствуйте. Для вашего примера можно использовать такой макрос.
Код
Sub Ext()
  Dim Cl As Range, N&
  For Each Cl In Range("A1:A15")
    If Cl.Interior.Color = 65535 Then
      N = N + 1
      Cells(N, "D") = Cl
    End If
  Next
End Sub
Если требуется значения копировать с форматами, то вместо
Код
Cells(N, "D") = Cl
нужно записать
Код
Cl.Copy Range("D" & N)
Изменено: Старичок - 13.12.2025 10:41:27
 
Перейти    
Перебор всех вариантов значений столбцов таблицы 3x3 или 4x2 и т.п, Комбинаторика слишком сложна, возможно ли проще?
 
#
12.12.2025 22:02:17
Добрый вечер. Посмотрите вариант с простым перебором. Это просто набросок. Нужно выделить исходную таблицу и запустить макрос. Результат выводится начиная с ячейки I2.
Код
Sub Comb2()
 Dim Ar0, Nrw&, Ncl&, i&, j&, k&, l&, Se&, SRows&, Koef&, Ms&
 Ar0 = Selection.Value
 Nrw = UBound(Ar0, 1)
 Ncl = UBound(Ar0, 2)
 ReDim Ari(1 To Ncl)
 SRows = 1
 For i = 1 To Ncl
   Se = 0
   For j = 1 To Nrw
     If Ar0(j, i) <> "" Then Se = Se + 1
   Next j
   Ari(i) = IIf(Se = 0, 1, Se)
   SRows = SRows * Ari(i)
 Next i
 ReDim Arv(1 To SRows, 1 To Ncl)
 Koef = 1
 Ms = 1
 For i = Ncl To 1 Step -1
   j = 1
   Koef = Koef * Ari(i)
   While j <= SRows
     For k = 1 To Ari(i)
       For l = 1 To Ms
         Arv(j, i) = Ar0(k, i)
         j = j + 1
       Next l
     Next k
   Wend
   Ms = Ms * Ari(i)
 Next i
 Range("I2").Resize(SRows, Ncl) = Arv
End Sub
 
Перейти    
Сумма данных в ячейках после определенного символа
 
#
06.12.2025 18:23:13
Добрый вечер. Еще варианты.
Код
=СУММ(ФИЛЬТР.XML("<q>"&ПОДСТАВИТЬ(A1:D1;"/";"<w>")&"</w>"&"</q>";"//w"))
=СУММ(--ТЕКСТПОСЛЕ(A1:D1;"/"))
Изменено: Старичок - 06.12.2025 18:29:01
 
Перейти    
Всплывающая диаграмма, При наведении (нажатии) на ячейку всплывает диаграмма
 
#
04.12.2025 22:13:18
Добрый вечер. Посмотрите такой вариант. Макрос один с разными параметрами для каждой кнопки. Диаграмма тоже одна, макрос меняет только исходные данные.
 
Перейти    
Найти и подставить значения в зависимости от цены, Нахождение значения и подставление его в ячейку по нескольким параметрам.
 
#
03.12.2025 20:01:45
Добрый вечер. У вас в одной таблице сразу три схемы работы маркетплейса - FBO, FBS и  RFBS. Какая из них нужна для расчета комиссии?
 
Перейти    
Всплывающая диаграмма, При наведении (нажатии) на ячейку всплывает диаграмма
 
#
03.12.2025 19:43:41
Добрый вечер. Вариант макросом с кнопкой.
 
Перейти    
Удалить строку, включающую строго заданное слово, Написать макрос, который удалит строку целиком, если в ней будет найдено строго заданное слово
 
#
02.12.2025 19:49:49
Цитата
написал:
из позиций на скриншоте ниже нужно удалить строки
Ну если на скриншоте, то можно в фотошопе. А так, согласно правилам форума, нужен пример в формате эксель (весь не требуется, достаточно пары десятков строк)  
Изменено: Старичок - 02.12.2025 19:51:29
 
Перейти    
Шаг в формуле Excel, определенный шаг в формуле
 
#
29.11.2025 18:17:05
Добрый вечер. Два варианта формулы
Код
=ДВССЫЛ("R1C"&СТОЛБЕЦ(A1)*2-1;0)*$B$2+ДВССЫЛ("R1C"&СТОЛБЕЦ(A1)*2;0)*$B$2
или
Код
=ИНДЕКС(1:1;СТОЛБЕЦ(A1)*2-1)*$B$2+ИНДЕКС(1:1;СТОЛБЕЦ(A1)*2)*$B$2
 
Перейти    
[ Закрыто] Определение даты в таблице и перенос в другую таблицу
 
#
27.11.2025 21:21:47
Для новых офисов можно так
Код
 =СОРТПО(ВСТОЛБИК(ФИЛЬТР(Лист1!A2:B15;Лист1!C2:C15<>"");ФИЛЬТР(Лист1!C2:D15;Лист1!C2:C15<>""));ВСТОЛБИК(ФИЛЬТР(Лист1!A2:A15;Лист1!C2:C15<>"");ФИЛЬТР(Лист1!C2:C15;Лист1!C2:C15<>"")))
 
Перейти    
[ Закрыто] Определение даты в таблице и перенос в другую таблицу
 
#
27.11.2025 20:22:57
Добрый вечер. Хотелось бы посмотреть как это должно выглядеть в другой таблице. И как это нужно решить - формулами, макросом, PQ?
 
Перейти    
Отбор сумм из таб, по заданному периоду месяцев с доп условиями, Нужно произвести подбор по критериям и периоду диапазона месяцев
 
#
27.11.2025 20:06:51
Добрый вечер. У вас не даты, а текст. Чтобы заработали условия нужно исправить. Например для января можно так, ввести 1.1.26 (или 01/01/2026, или 1янв26) и установить формат ячеек "ММММ".
 
Перейти    
Удалить значения в строке в соседнем столбце от активной ячейки в умной таблице (VBA)
 
#
26.11.2025 22:47:12
Если вам требуется оперативно переопределять диапазон, то, например  можно где то на листе создать список имен таких диапазонов, на его основе сделать в определенной ячейке выпадающий список и в коде ссылаться на эту ячейку.
Например в ячейке W1 вставлено "Таблица1[Столбец1]". Тогда вторую строку кода можно записать так
Код
If Not Intersect(Target, Range(Range("W1"))) Is Nothing Then
Изменим имя диапазона в W1, макрос будет работать в другом диапазоне. Если нужно, можно сделать так, что макрос будет сразу в нескольких диапазонах.
 
Перейти    
Удалить значения в строке в соседнем столбце от активной ячейки в умной таблице (VBA)
 
#
26.11.2025 21:25:29
Добрый вечер. Вопрос первый. Это можно реализовать макросом. Например так, вставьте в модуль листа этот код
Код
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("Таблица1[Столбец1]")) Is Nothing Then
    If Target.Count = 1 Then Target.Offset(, 1).ClearContents
  End If
End Sub
Второй вопрос к теме не относится, нужна другая тема.
 
Перейти    
Условие для формулы "суммеслимин", Необходимо мнение экспертов
 
#
26.11.2025 19:39:49
Цитата
написал:
на сколько формула корректно отработает
Вообще то вы сами должны это проверить, пример то вы не приложили.
Изменено: Старичок - 26.11.2025 19:40:34
 
Перейти    
[ Закрыто] создание ВПР формулы
 
#
25.11.2025 19:57:23
У вас в формулах идут ссылки на 13, 14 и 15 столбцы. А диапазон объявлен на 12 столбцов. Нужно увеличить их количество, вместо C[-81]:C[-70] записать C[-81]:C[-67]
 
Перейти    
[ Закрыто] создание ВПР формулы
 
#
25.11.2025 18:53:55
Цитата
написал:
что делать?
Приложить пример.
 
Перейти    
Удаление и вставка срок таблицы, в зависимости от другой таблицы.
 
#
24.11.2025 21:07:37
Цитата
написал:
а как сделать
А ничего делать и не нужно. Если формула протянута на весь диапазон, то получаете точную копию первой таблицы. (только значения, без форматов)
Изменено: Старичок - 24.11.2025 21:15:11
 
Перейти    
Удаление и вставка срок таблицы, в зависимости от другой таблицы.
 
#
24.11.2025 20:25:16
Добрый вечер. Если нет каких то дополнительных условий, то решается одной элементарной формулой на другом листе.
Код
=Лист1!A1
 
 
Перейти    
Условие по определенным данным, Если хотя бы в одной строке есть указанный текст - делать это
 
#
24.11.2025 19:37:35
Добрый вечер. Пример вы забыли приложить. А без него может быть так?
Код
=ЕСЛИ(ЕЧИСЛО(ПОИСКПОЗ("ПРОСРОЧЕНА";K6:K1000;0));"НУЖНЫ ДЕЙСТВИЯ";"АКТУАЛЬНО")  
Изменено: Старичок - 24.11.2025 19:37:51
 
Перейти    
Получить реакцию на цвет шрифта, Как получить реакцию на цвет шрифта в ячейках (без VBA)
 
#
23.11.2025 16:14:04
nidef, Добрый день. Формулы не могут определять цвет шрифта. Если это условное форматирование, то можно сделать формулами, а если ручное изменение цвета, то только с использованием VBA. В любом случае нужен пример с пояснениями.  
Изменено: Старичок - 23.11.2025 16:14:57
 
Перейти    
Зеркально перевернуть данные в ячейке
 
#
22.11.2025 17:19:44
Добрый вечер. Для новых офисов можно так.
2 таблица
Код
=ЕСЛИОШИБКА(ТЕКСТПОСЛЕ(J12;"_")&"_"&ТЕКСТДО(J12;"_");J12)
3 таблица
Код
=ЕСЛИОШИБКА(ТЕКСТПОСЛЕ(J12;"_");J12)
и
Код
=ЕСЛИ(ЕЧИСЛО(ПОИСК("_";J12));ТЕКСТДО(J12;"_");"")
 
Перейти    
Макрос скопировать данные из одной книги с выбором в какую книгу
 
#
22.11.2025 09:58:18
Цитата
написал:
скопировать весь лист, кроме определённого диапазона
Проще скопировать весь лист и удалить ненужное.
 
Перейти    
Страницы: 1 2 3 4 5 След.
Наверх