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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.06.2010, 09:09   #1
PARTOS
Пользователь
 
Регистрация: 24.10.2009
Сообщений: 87
По умолчанию Как посчитать количество знаков

Как посчитать количества:
1. цифр в числе
2. букв в слове
PARTOS вне форума Ответить с цитированием
Старый 04.06.2010, 10:32   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Чем? Формулой? Макросом? Пальцем?

Функция Excel: =ДЛСТР(ячейка)
Функция VBA: Len$(переменная_или_ячейка)

Если цифры и буквы вперемешку, то по другому.
Чем шире угол зрения, тем он тупее.

Последний раз редактировалось SAS888; 04.06.2010 в 10:35.
SAS888 вне форума Ответить с цитированием
Старый 04.06.2010, 10:41   #3
PARTOS
Пользователь
 
Регистрация: 24.10.2009
Сообщений: 87
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Чем? Формулой? Макросом? Пальцем?
Надо было количество цифр в числе посчитать
Я уже через функцию ДЛСТР () посчитал
Но если не трудно, подскажите, как посчитать
количество цифр в числе - формулой

У меня уже другой вопрос – Как развернуть число (текст) зеркально
Пример:
123456 разворачиваем в 654321
PARTOS вне форума Ответить с цитированием
Старый 04.06.2010, 11:02   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

В VBA есть функция StrReverse(ячейка). Посмотрите пример во вложении.
Вложения
Тип файла: rar Книга1.rar (5.5 Кб, 92 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 04.06.2010, 11:14   #5
PARTOS
Пользователь
 
Регистрация: 24.10.2009
Сообщений: 87
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
В VBA есть функция StrReverse(ячейка). Посмотрите пример во вложении.
Спасибо за подсказку
PARTOS вне форума Ответить с цитированием
Старый 04.06.2010, 11:25   #6
PARTOS
Пользователь
 
Регистрация: 24.10.2009
Сообщений: 87
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
В VBA есть функция StrReverse(ячейка). Посмотрите пример во вложении.
Не придумаю как её запустить в своём документе – выдаёт ошибку, пишет, что такой функции нет. Где она находится?
PARTOS вне форума Ответить с цитированием
Старый 04.06.2010, 11:34   #7
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Это функция VBA. Скопируйте ее из программного модуля этого файла в требуемый. После этого, она появится в функциях Excel, в категории "определенные пользователем".
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 04.06.2010, 11:36   #8
PARTOS
Пользователь
 
Регистрация: 24.10.2009
Сообщений: 87
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Это функция VBA. Скопируйте ее из программного модуля этого файла в требуемый. После этого, она появится в функциях Excel, в категории "определенные пользователем".
Ещё раз спасибо
PARTOS вне форума Ответить с цитированием
Старый 04.06.2010, 18:05   #9
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

если речь идет о целых числах, то можно формулой:
Код:
=СУММ(ЗНАЧЕН(ПСТР(A1;ДЛСТР(A1)-СТРОКА(ДВССЫЛ("1:" & ДЛСТР(A1)))+1;1))*10^(ДЛСТР(A1)-СТРОКА(ДВССЫЛ("1:" & ДЛСТР(A1)))))
в А1 Ваше исходное число.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 04.06.2010, 20:27   #10
PARTOS
Пользователь
 
Регистрация: 24.10.2009
Сообщений: 87
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
если речь идет о целых числах, то можно формулой:
Код:
=СУММ(ЗНАЧЕН(ПСТР(A1;ДЛСТР(A1)-СТРОКА(ДВССЫЛ("1:" & ДЛСТР(A1)))+1;1))*10^(ДЛСТР(A1)-СТРОКА(ДВССЫЛ("1:" & ДЛСТР(A1)))))
в А1 Ваше исходное число.
Спасибо за подсказку, но у меня эта формула, что-то, не полностью работает. Она последнюю цифру ставит вперёд, а все остальные за ней заменяет нулями
PARTOS вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как посчитать количество записей в таблице DBGrid Епгений БД в Delphi 12 09.05.2010 16:26
Как ограничить количество вводимых знаков числа после запятой. proggramer Общие вопросы C/C++ 1 24.03.2010 03:15
как посчитать количество файлов в каталоге? помогите плиз older Общие вопросы Delphi 5 23.05.2008 14:22