Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.08.2018, 11:02   #1
евгенийqwer
Новичок
Джуниор
 
Регистрация: 23.08.2018
Сообщений: 2
Печаль Вопрос по программированию

(Здравствуйте.
Есть такая задача в Экселе:

Необходимо чтобы было видно содержимое ячейки (числа через запятую или через пробел), но при суммировании данной ячейки она должна равняться количеству чисел перечисленных в ней.

Пример: (1,5,158,45) + (13,65,40) =(7)
евгенийqwer вне форума Ответить с цитированием
Старый 30.08.2018, 07:05   #2
alex777555
Пользователь
 
Регистрация: 30.07.2018
Сообщений: 19
По умолчанию

Код:
Function Считать_цифры(Выражение)
    Dim s, u
    s = Replace(Выражение, "(", "")
    s = Replace(s, ")", "")
    s = Replace(s, "+", ",")
    s = Replace(s, "-", ",")
    s = Replace(s, " ", "")
    u = Split(s, ",")
    Считать_цифры = UBound(u) + 1
End Function
Изображения
Тип файла: jpg UDF.jpg (16.0 Кб, 144 просмотров)
alex777555 вне форума Ответить с цитированием
Старый 30.08.2018, 10:06   #3
svsh2016
Форумчанин
 
Регистрация: 16.06.2015
Сообщений: 100
По умолчанию

вариант функции в C1

Код:
Function aaa&(t$)
With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = "\d+"
 aaa = .Execute(t).Count
End With
End Function
Вложения
Тип файла: xls example_30_08_2018_progr_digits.xls (33.5 Кб, 9 просмотров)
svsh2016 вне форума Ответить с цитированием
Старый 30.08.2018, 10:55   #4
евгенийqwer
Новичок
Джуниор
 
Регистрация: 23.08.2018
Сообщений: 2
По умолчанию

Огромное спасибо за столь профессиональную помощь!
евгенийqwer вне форума Ответить с цитированием
Старый 30.08.2018, 11:45   #5
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

евгенийqwer,
какое практическое использование в этом?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос по программированию С++ loveyou1337 Помощь студентам 1 09.12.2015 18:35
Вопрос по программированию с# BlackShoter Visual C++ 0 11.10.2012 21:32
Вопрос по программированию Mister Been Свободное общение 13 01.06.2008 20:23
Вопрос по программированию Mister Been Помощь студентам 0 31.05.2008 13:32