Помогите пожалуйста написать функцию. Нужно посчитать в одной ячейке поочередно количество букв М, R или T; M умножить на 7, R на 5, T на 4, а потом все сложить и прибавить 18. Формулами могу, но поскольку часто пользуюсь, хотельсь бы иметь функцию, а написать самому не получается.
Если что, есть удобная функция подсчета символов в ячейке:
Пример прикрепляю.
Если что, есть удобная функция подсчета символов в ячейке:
Код |
---|
Function СЧЁТСИМВЛ(ТЕКСТ As String, СИМВОЛ As String) As Long Dim i As Long Dim S As Long S = 0 For i = 1 To Len(ТЕКСТ) If СИМВОЛ = Mid(ТЕКСТ, i, 1) Then S = S + 1 Next СЧЁТСИМВЛ = S End Function |