Поиск поизиции для массива в коде
fanat1k90
Дата: Суббота, 02.05.2020, 20:34 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация:
0
±
Замечаний:
0% ±
Всем здравствуйте!
{=ПОИСКПОЗ(1;--(A1:C1 <=0,33);0)}
Application.CutCopyMode = False 6 ).Cells.ClearContentsFor k = 8 To 9 For i = 1 To ActiveWorkbook.Worksheets(5 ).Cells(k, 51 ) - 1 For j = 1 To ActiveWorkbook.Worksheets(5 ).Cells(k, 51 )5 ).Cells(k, 42 ) = i5 ).Cells(k, 43 ) = j6 ).Cells(i + 1 + (k - 8 ) * 21 , 1 ) = k6 ).Cells(i + 1 + (k - 8 ) * 21 , 2 ) = i6 ).Cells(1 + (k - 8 ) * 21 , 21 - j + 4 ) = j6 ).Cells(1 + i + (k - 8 ) * 21 , ActiveWorkbook.Worksheets(5 ).Cells(k, 51 ) - j + 4 ) = CDbl (Trim (ActiveWorkbook.Worksheets(5 ).Cells(k, 49 )))6 ).Cells(1 + i + (k - 8 ) * 21 , 25 ) = Application.CountIfs(Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 )), ">=0" , Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 )), "<=0.33" )Next j6 ).Cells(1 + i + (k - 8 ) * 21 , 3 ).FormulaArray = Application.Match(1 , --(Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 ) <= 0.33 )), 0 )Next iNext kEnd Sub
Всем здравствуйте!
{=ПОИСКПОЗ(1;--(A1:C1 <=0,33);0)}
Application.CutCopyMode = False 6 ).Cells.ClearContentsFor k = 8 To 9 For i = 1 To ActiveWorkbook.Worksheets(5 ).Cells(k, 51 ) - 1 For j = 1 To ActiveWorkbook.Worksheets(5 ).Cells(k, 51 )5 ).Cells(k, 42 ) = i5 ).Cells(k, 43 ) = j6 ).Cells(i + 1 + (k - 8 ) * 21 , 1 ) = k6 ).Cells(i + 1 + (k - 8 ) * 21 , 2 ) = i6 ).Cells(1 + (k - 8 ) * 21 , 21 - j + 4 ) = j6 ).Cells(1 + i + (k - 8 ) * 21 , ActiveWorkbook.Worksheets(5 ).Cells(k, 51 ) - j + 4 ) = CDbl (Trim (ActiveWorkbook.Worksheets(5 ).Cells(k, 49 )))6 ).Cells(1 + i + (k - 8 ) * 21 , 25 ) = Application.CountIfs(Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 )), ">=0" , Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 )), "<=0.33" )Next j6 ).Cells(1 + i + (k - 8 ) * 21 , 3 ).FormulaArray = Application.Match(1 , --(Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 ) <= 0.33 )), 0 )Next iNext kEnd Sub
fanat1k90 Сообщение отредактировал fanat1k90 - Суббота, 02.05.2020, 20:35
Ответить
Сообщение Всем здравствуйте!
{=ПОИСКПОЗ(1;--(A1:C1 <=0,33);0)}
Application.CutCopyMode = FalseActiveWorkbook.Worksheets(6).Cells.ClearContentsFor k = 8 To 9For i = 1 To ActiveWorkbook.Worksheets(5).Cells(k ; 51) - 1For j = 1 To ActiveWorkbook.Worksheets(5).Cells(k ; 51)ActiveWorkbook.Worksheets(5).Cells(k ; 42) = iActiveWorkbook.Worksheets(5).Cells(k ; 43) = jActiveWorkbook.Worksheets(6).Cells(i + 1 + (k - 8) * 21; 1) = kActiveWorkbook.Worksheets(6).Cells(i + 1 + (k - 8) * 21; 2) = iActiveWorkbook.Worksheets(6).Cells(1 + (k - 8) * 21; 21 - j + 4) = jActiveWorkbook.Worksheets(6).Cells(1 + i + (k - 8) * 21; ActiveWorkbook.Worksheets(5).Cells(k ; 51) - j + 4) = CDbl(Тrim(ActiveWorkbook.Worksheets(5).Cells(k ; 49)))ActiveWorkbook.Worksheets(6).Cells(1 + i + (k - 8) * 21; 25) = Application.CountIfs(Range(Cells(1 + i + (k - 8) * 21; 4); Cells(1 + i + (k - 8) * 21; 25)); ">=0"; Range(Cells(1 + i + (k - 8) * 21; 4); Cells(1 + i + (k - 8) * 21; 25)); "<=0.33")Next jТут ошибка :ActiveWorkbook.Worksheets(6).Cells(1 + i + (k - 8) * 21; 3).FormulaArray = Application.Match(1; --(Range(Cells(1 + i + (k - 8) * 21; 4); Cells(1 + i + (k - 8) * 21; 25) <= 0,33)); 0)Next iNext kEnd Sub
Автор - fanat1k90 02.05.2020 в 20:34
Dmitriy_37
Дата: Суббота, 02.05.2020, 21:05 |
Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация:
4
±
Замечаний:
0% ±
здравствуйте!
.FormulaArray = Evaluate("=ПОИСКПОЗ(1;--(A1:C1<=0,33);0)")
здравствуйте!
.FormulaArray = Evaluate("=ПОИСКПОЗ(1;--(A1:C1<=0,33);0)")
Dmitriy_37
Ответить
Сообщение здравствуйте!
.FormulaArray = Evaluate("=ПОИСКПОЗ(1;--(A1:C1<=0,33);0)")
Автор - Dmitriy_37 02.05.2020 в 21:05
Hugo
Дата: Суббота, 02.05.2020, 21:12 |
Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация:
814
±
Замечаний:
0% ±
.FormulaArray = "=MATCH(1,--(" & Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 )).Address & "<=0.33), 0)"
.FormulaArray = "=MATCH(1,--(" & Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 )).Address & "<=0.33), 0)"
Hugo webmoney: E265281470651 Z422237915069
Сообщение отредактировал Hugo - Суббота, 02.05.2020, 21:14
Ответить
Сообщение [vba]
.FormulaArray = "=ПОИСКПОЗ(1,--(" & Range(Cells(1 + i + (k - 8) * 21; 4); Cells(1 + i + (k - 8) * 21; 25)).Address & "<=0.33), 0)"
Автор - Hugo 02.05.2020 в 21:12
fanat1k90
Дата: Суббота, 02.05.2020, 22:22 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация:
0
±
Замечаний:
0% ±
.FormulaArray = "=MATCH(1,--(" & Range(Cells(1 + i + (k - 8) * 21, 4), Cells(1 + i + (k - 8) * 21, 25)).Address & "<=0.33), 0)"
.FormulaArray = "=MATCH(1,--(" & Range(Cells(1 + i + (k - 8) * 21, 4), Cells(1 + i + (k - 8) * 21, 25)).Address & "<=0.33), 0)"
fanat1k90
Ответить
Сообщение .FormulaArray = "=MATCH(1,--(" & Range(Cells(1 + i + (k - 8) * 21, 4), Cells(1 + i + (k - 8) * 21, 25)).Address & "<=0.33), 0)"
Автор - fanat1k90 02.05.2020 в 22:22
Pelena
Дата: Суббота, 02.05.2020, 22:36 |
Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19511
Репутация:
4620
±
Замечаний:
±
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Автор - Pelena 02.05.2020 в 22:36
Hugo
Дата: Суббота, 02.05.2020, 22:52 |
Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация:
814
±
Замечаний:
0% ±
У меня ошибки нет, но для чистоты - нужно Address(0, 0)
У меня ошибки нет, но для чистоты - нужно Address(0, 0) Hugo webmoney: E265281470651 Z422237915069
Ответить
Сообщение У меня ошибки нет, но для чистоты - нужно Address(0, 0) Автор - Hugo 02.05.2020 в 22:52
fanat1k90
Дата: Суббота, 02.05.2020, 23:42 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация:
0
±
Замечаний:
0% ±
Файл на рабочем компьютере.
.FormulaArray = Application.Match(1 , --(Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 ) <= 0.33 )), 0 )
(Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 )
Файл на рабочем компьютере.
.FormulaArray = Application.Match(1 , --(Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 ) <= 0.33 )), 0 )
(Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 )
fanat1k90 Сообщение отредактировал fanat1k90 - Суббота, 02.05.2020, 23:49
Ответить
Сообщение Файл на рабочем компьютере.
.FormulaArray = Application.Match(1, --(Range(Cells(1 + i + (k - 8) * 21, 4), Cells(1 + i + (k - 8) * 21, 25) <= 0.33)), 0)
(Range(Cells(1 + i + (k - 8) * 21, 4), Cells(1 + i + (k - 8) * 21, 25)
Автор - fanat1k90 02.05.2020 в 23:42
Hugo
Дата: Воскресенье, 03.05.2020, 10:03 |
Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация:
814
±
Замечаний:
0% ±
В Вашем варианте ошибка в том, что это будет не формула массива, а значение, и в том, что в выражении со скобками промахнулись, но это не имеет значения...
For Each c In Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 ))1 If c <= 0.33 Then MsgBox x: Exit For Next
"MATCH(1,--(" & Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 )).Address(0 , 0 ) & "<=0.33), 0)" )
В Вашем варианте ошибка в том, что это будет не формула массива, а значение, и в том, что в выражении со скобками промахнулись, но это не имеет значения...
For Each c In Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 ))1 If c <= 0.33 Then MsgBox x: Exit For Next
"MATCH(1,--(" & Range(Cells(1 + i + (k - 8 ) * 21 , 4 ), Cells(1 + i + (k - 8 ) * 21 , 25 )).Address(0 , 0 ) & "<=0.33), 0)" )
Hugo webmoney: E265281470651 Z422237915069
Сообщение отредактировал Hugo - Воскресенье, 03.05.2020, 10:04
Ответить
Сообщение В Вашем варианте ошибка в том, что это будет не формула массива, а значение, и в том, что в выражении со скобками промахнулись, но это не имеет значения...
For Each c In Range(Cells(1 + i + (k - 8) * 21, 4), Cells(1 + i + (k - 8) * 21, 25)) x = x + 1 If c <= 0.33 Then MsgBox x : Exit For Next
MsgBox Evaluate("ПОИСКПОЗ(1,--(" & Range(Cells(1 + i + (k - 8) * 21; 4); Cells(1 + i + (k - 8) * 21; 25)).Address(0; 0) & "<=0.33), 0)")
Автор - Hugo 03.05.2020 в 10:03 
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
