Страницы: 1
RSS
Пользовательскую функцию использовать внутри другой пользовательской функции
 
Добрый день!
Сразу скажу, что в файле примере сразу понятно, что не получается. Но попробую тут объяснить, чтобы было по правилам. С горем пополам записал двумерный массив значений (цифры и буквы) в пользовательскую функцию - такая красота, набрал пару букв, вот тебе из модуля все числа с буквами подтянулись, в виде динамического массива. Далее попробовал эту функцию использовать внутри другой тоже пользовательской функции, но что-то не задалось. В VBA вообще ничего не понимаю, подскажите пожалуйста как сделать так, чтобы все работало.
 
Так в ней ведь Range and Cells...

Подправил, но не до конца - поленился сделать выход при отсутствии данных, просто отключил
 
Код
Function Find_Epitopes_Sum_MAX(rngAmin As Range, rngArr As Variant, Optional score As Long = 25, Optional Dop As Long = 0) As String
'https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=162811&TITLE_SEO=162811-poisk-epitopov-v-belkakh
Dim Txt$, kSum#, kSim&, RzPr$, RzZap$, i&, j&
Dim ArByt() As Byte, ArSim() As Integer, ArVih() As Double, kVih&, str$, kSt%, s!
If rngAmin.Cells.Count > 1 Then Exit Function
RzPr = " ": RzZap = ";"
Txt = rngAmin.Value: kSim = VBA.Len(Txt)
arr1 = rngArr: kSt = UBound(arr1, 2) - 1
тно это только для того чтоб запустилось, а так можно еще подправить.
По вопросам из тем форума, личку не читаю.
 
Да я что-то перебдел, первый аргумент ведь так и остался диапазоном ))
 
Спасибо Hugo и БМВ! Все отлично работает!
Страницы: 1
Наверх