Кот, ну ты бы хоть "причесал" слегка свой файл прежде чем его выкладывать как "Есть решение..." Убрал бы лишние и не работающие ява-скрипты, подправил и добавил где нужно описания...
Кот, ну ты бы хоть "причесал" слегка свой файл прежде чем его выкладывать как "Есть решение..." Убрал бы лишние и не работающие ява-скрипты, подправил и добавил где нужно описания... Alex_ST
С данной формулой мне помог Serge 007 за что ему спасибо но я считаю что она может пригодиться многим. Формула производит выбор значений из диапазона по двум критериям (в отличие от ВПР), причем можно использовать как ссылки на диапазоны так и именованные диапозоны. Вот три варианта формулы: использованы ссылки на диапазоны
P.S. кстати а можно ли сделать что то подобное в UDF мне помогали с кодом но он так долго считает что я от него отказался [vba]
Код
'усовершенствованная версия ВПР(VLOOKUP2), но выбор по трем критериям Function VLOOKUP4(Диапазон_поиска As Range, N_столбца_результата As Integer, _ N_столбца_поиска_1 As Integer, Искомое_значение_1 As Variant, _ N_фхождения As Integer, _ Optional N_столбца_поиска_2, Optional Искомое_значение_2, _ Optional N_столбца_поиска_3, Optional Искомое_значение_3) Application.Volatile True Dim I As Integer Dim iCount As Integer Dim z_ As Boolean, x_ As Boolean, c_ As Boolean If IsMissing(N_столбца_поиска_2) Then N_столбца_поиска_2 = N_столбца_поиска_1: Искомое_значение_2 = Искомое_значение_1 If IsMissing(N_столбца_поиска_3) Then N_столбца_поиска_3 = N_столбца_поиска_1: Искомое_значение_3 = Искомое_значение_1 For I = 1 To Диапазон_поиска.Rows.Count z_ = Диапазон_поиска.Cells(I, N_столбца_поиска_1) = Искомое_значение_1 x_ = Диапазон_поиска.Cells(I, N_столбца_поиска_2) = Искомое_значение_2 c_ = Диапазон_поиска.Cells(I, N_столбца_поиска_3) = Искомое_значение_3 If z_ * x_ * c_ Then iCount = iCount + 1 End If If iCount = N_фхождения Then VLOOKUP4 = Диапазон_поиска.Cells(I, N_столбца_результата) Exit For End If Next I End Function
[/vba]
С данной формулой мне помог Serge 007 за что ему спасибо но я считаю что она может пригодиться многим. Формула производит выбор значений из диапазона по двум критериям (в отличие от ВПР), причем можно использовать как ссылки на диапазоны так и именованные диапозоны. Вот три варианта формулы: использованы ссылки на диапазоны
P.S. кстати а можно ли сделать что то подобное в UDF мне помогали с кодом но он так долго считает что я от него отказался [vba]
Код
'усовершенствованная версия ВПР(VLOOKUP2), но выбор по трем критериям Function VLOOKUP4(Диапазон_поиска As Range, N_столбца_результата As Integer, _ N_столбца_поиска_1 As Integer, Искомое_значение_1 As Variant, _ N_фхождения As Integer, _ Optional N_столбца_поиска_2, Optional Искомое_значение_2, _ Optional N_столбца_поиска_3, Optional Искомое_значение_3) Application.Volatile True Dim I As Integer Dim iCount As Integer Dim z_ As Boolean, x_ As Boolean, c_ As Boolean If IsMissing(N_столбца_поиска_2) Then N_столбца_поиска_2 = N_столбца_поиска_1: Искомое_значение_2 = Искомое_значение_1 If IsMissing(N_столбца_поиска_3) Then N_столбца_поиска_3 = N_столбца_поиска_1: Искомое_значение_3 = Искомое_значение_1 For I = 1 To Диапазон_поиска.Rows.Count z_ = Диапазон_поиска.Cells(I, N_столбца_поиска_1) = Искомое_значение_1 x_ = Диапазон_поиска.Cells(I, N_столбца_поиска_2) = Искомое_значение_2 c_ = Диапазон_поиска.Cells(I, N_столбца_поиска_3) = Искомое_значение_3 If z_ * x_ * c_ Then iCount = iCount + 1 End If If iCount = N_фхождения Then VLOOKUP4 = Диапазон_поиска.Cells(I, N_столбца_результата) Exit For End If Next I End Function
Дата: Воскресенье, 24.04.2011, 20:05 |
Сообщение № 7
Группа: Гости
Здравствуйте господа! Вопрос по файлу 6681712: Как это сделано (Пример 1) - при выделении ячейки "Город" появляется "Стрелочка" при нажатии которой появляется список? Простите за некрректный текст! Начинающий пользовотель! Заранее благадарю!
Здравствуйте господа! Вопрос по файлу 6681712: Как это сделано (Пример 1) - при выделении ячейки "Город" появляется "Стрелочка" при нажатии которой появляется список? Простите за некрректный текст! Начинающий пользовотель! Заранее благадарю!Гость
=ЕСЛИ(C4=1;C4*S1) и дальше нужно что б было: а если это ячейка =2, то C4*T1, а если эта ячейка равна 3, то C4*I1 и так далее. А то не очень шарю.
Здраствуйте, мне нужно элементарное, помогите.
=ЕСЛИ(C4=1;C4*S1) и дальше нужно что б было: а если это ячейка =2, то C4*T1, а если эта ячейка равна 3, то C4*I1 и так далее. А то не очень шарю.Amfibiya
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
