Поизвращаемся?)) )
Кидаем в модуль VBA:
Function СЧЕТ_СИМВОЛОВ (ДИАПАЗОН As Range, К_ВО_СИМВОЛОВ As Integer)
For Each cell In ДИАПАЗОН
If Len(cell.Value) = К_ВО_СИМВОЛОВ Then СЧЕТ_СИМВОЛОВ = СЧЕТ_СИМВОЛОВ + 1
Next
End Function
Находим нашу функцию в "пользовательских":
Вводим данные:
Смотрим результат:
Кирилл ПоповЗнаток (402)
11 лет назад
что-то у меня не получается, когда создается функция, в "определенные пользователем", ее название" Средний балл.xls'!Module1.СЧЕТ_СИМВОЛОВ, выбираем ее, выходит окно, где написано "У данной функции нет аргументов"