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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 307 След.
Позиция искомого значения в массиве данных
 
=ПОИСКПОЗ(-1;МУМНОЖ({1;1;1;1};-(E1:N4=A2));0)
В фигурных скобках единиц столько, сколько строк в массиве.
Или
=ОСТАТ(ПОИСКПОЗ(1;ЧАСТОТА(A2;E1:N4);0);ЧИСЛСТОЛБ(E1:N4))
=ОСТАТ(ПОИСКПОЗ(1;ЧАСТОТА(A2;E1:N4);0);ЧИСЛСТОЛБ(E1:N4)+1)+1
Изменено: Михаил С. - 14 Май 2018 11:11:18
Условное (?) форматирование последней измененной ячейки
 
БМВ, интересный вариант, но... если начинать заполнять не с первой строки, то новые ячейки выше будут желтыми, а не красными :(
Построение списка уникальных значений с суммированием в ListBox
 
Покажите не в листбоксе, а на листе в таблице, какой результат вам нужен.
Сумма в определеннове время
 
Цитата
DiVel написал:
Надеюсь все понятно изложил
понятно - это когда есть файл-пример.
Сцепить данные в столбце по условию повторения данных в соседнем
 
Цитата
radmirka666 написал:
работать как и в 2013 офисе так и 2016
Наверно иеется ввиду 365 офис, а не 2016. В 2016 СЦЕП() тоже нет.
Или это UDF?
Найти последнюю ячейку, содержащую ""
 
Цитата
kolka0000 написал:
Есть массив ячеек,
Где?
Получить значение ячейки через функцию ПРОСМОТР
 
=ДВССЫЛ(ПРОСМОТР(D5;{0,5;0,8;1;1,2;1,5;2;2,5;3;4;5;6;8;10;12};{"M4";"M5";"M6";"M7";"M8";"M9";"M10";"P4";"P5";"P6";"P7";"P8";"P9";"P10"}))
Но я делал бы по-другому...
Изменено: Михаил С. - 27 Фев 2018 11:30:05
Временной интервал в поиске ListBox
 
Как пример
Поиск значения по трем параметрам
 
Цитата
serhiy.pikalov написал:
не могу понять в чем проблема
может быть в этом?
Цитата
Wiss написал:
Вот формула массива:
Изменено: Михаил С. - 26 Фев 2018 18:14:31
Запретить переход в края таблицы по двойному клику на рамку ячейки.
 
Цитата
hiddenpool написал:
Указанный макрос Worksheet_BeforeDoubleClic не нашел. Excel 2016.
Как вывести данные из Массива
 
надо
Код
Var_Array = ActiveCell.Resize(9, 1).Value
либо
Код
Set Range("D4").Resize(UBound(Var_Array)) = Var_Array
Изменено: Михаил С. - 12 Янв 2018 09:25:45
Небходимо упорядочить таблицы
 
А разве Москва и Санкт-Петербург относятся к Московской и Ленинградской областям соответственно?
Создание системы расчета и металлоконструкций на базе excel.
 
Я тоже получил, по причине занятости в задачу еще не вникал.
По срокам явно не успею.
Копирование из листа на лист по нескольким критериям
 
Цитата
Hugo написал:
если Sheets(2) .UsedRange.Value не влезет в массив (что возможно),
Да. Для 2 Г памяти где-то около 10 000 000 ячеек ограничение для массива.
Копирование из листа на лист по нескольким критериям
 
ну раз уж сделал, выложу:
Код
Sub Karamantak()
    Dim i&, ii&, Arr(), MyArr()
    Dim MySum As Object, Kei$
    Set MySum = CreateObject("Scripting.Dictionary")
    Arr = Sheets(1).UsedRange.Value
    For i = 2 To UBound(Arr)
        Kei = Arr(i, 1) & "|" & Arr(i, 2) & "|" & Arr(i, 3)
        MySum(Kei) = MySum(Kei) + Arr(i, 4)
    Next
    With Sheets(2)
        MyArr = .UsedRange.Value
        For i = 3 To UBound(MyArr)
            For ii = 3 To UBound(MyArr, 2)
                Kei = MyArr(i, 1) & "|" & MyArr(i, 2) & "|" & MyArr(2, ii)
                If MySum.exists(Kei) Then
                    MyArr(i, ii) = MySum(Kei)
                Else
                    MyArr(i, ii) = Empty 'в этом случае ячеки будут пустыми
'                    MyArr(i, ii) = 0 ' если нужны нули - тогда эта строчка
                End If
            Next
        Next
        .UsedRange.ClearContents
        .Range("A1").Resize(UBound(MyArr), UBound(MyArr, 2)).Value = MyArr
    End With
End Sub
Код Hugo, по ссылке не смотрел, может тоже самое.
Изменено: Михаил С. - 5 Ноя 2017 14:38:08
Поиск адресов при их различном написании в разных таблицах
 
Астрахань г., микрорайон 6, д. 2а и Астрахань мкр 6 2
для Excel ни как не совпадают
Реестр заявок, Создание реестра заявок на закупку с помощью VBA
 
Каков ваш бюджет на эту работу и сроки?
Отправил сообщение.
В процессе обсуждения.
Изменено: Михаил С. - 30 Окт 2017 12:10:47
Как на VBA создать выпадающий список полей "умной таблицы"
 
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim a, s$
    a = Sheets(2).Range("Таблица1[#Headers]").Value
    With WorksheetFunction
        a = .Transpose(.Transpose(a))
    End With
    s = Join(a, ",")
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=s
    End With
End Sub
Изменено: Михаил С. - 25 Окт 2017 01:24:55
Анализ служебной нагрузки, Создание таблицы
 
Сделано, оплачено.
Анализ служебной нагрузки, Создание таблицы
 
Попробуем.
Отправьте мне какое нибудь сообщение на E-mail, ибо через личку файлы не передаются.
Постараюсь сегодня к вечеру или завтра к утру.
Только нужно будет разрешить макросы.

Есть ли перерыв на обед и в какое время?
Изменено: Михаил С. - 23 Окт 2017 07:48:24
Анализ служебной нагрузки, Создание таблицы
 
Цитата
SVladS написал:
а вообще решаема ли задача в Excel
Решаема. Просто решение занимает некоторое время.
По удобству использования - не хуже, чем в любой другой программе, если хоть чуть умеете работать с excel.
ps/ буквально сегодня видел пару подобных тем в общем форуме.
ps.ps По данным в первом столбце решение формулами затруднительно, хотя и возможно.
Лучше использовать макросы или UDF.
Изменено: Михаил С. - 22 Окт 2017 16:14:07
Анализ служебной нагрузки, Создание таблицы
 
Как минимум - в 10 раз дороже.
зы. и я не уверен, возьмусь ли... сегодня еще много дел по дому.
Вставить предложение в объединенную строку с переносом в следующую
 
Ivan.kh, UDF не умеет скрывать/показывать строки...
Учёт товара на складе
 
Цитата
TheBestOfTheBest написал:
Встану за Михаилов в очередь.
Уступлю... эта тема мне знакома чисто теоретически; практически по ней не работал.
Учёт товара на складе
 
Честно говоря, мне не очень понятно, что вам надо. Обычно это решается просто: первый пришел - первый ушел.
Анализ служебной нагрузки, Создание таблицы
 
Цитата
SVladS написал:
Хочу уложиться в (100-200 рублей)
Нереально,
Цитата
SVladS написал:
Сделать нужно желательно сегодня.
тоже мало реально, даже если повысить оплату.
На форуме много подобных тем, поищите, посмотрите объем работы.
Учёт товара на складе
 
Цитата
FIRST написал:
АКТУАЛЬНО
А RAN, что, отказался?
Вставить предложение в объединенную строку с переносом в следующую
 
Цитата
alex1210 написал:
а просто udf((((
Цитата
Ivan.kh написал:
а разница в чем?
Разница в том, что udf этого не умеет. Макрос умеет.
Поиск ближайшего большего значения по списку
 
=ПОИСКПОЗ(ИСТИНА;$A1:$A$66>B1;0)
Поиск ближайшего большего значения по списку
 
Примерно так
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 307 След.