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

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

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.10.2009, 21:40   #1
сергей4
Новичок
Джуниор
 
Регистрация: 09.10.2009
Сообщений: 2
По умолчанию цикл для счета

помогите написать цикл для макроса:
есть макрос

Sub TestKolDigit ()
Dim c As Range, s As String
Dim Cnt As Integer, i As Integer
s = ""
For Each c In Selection
If TypeName(c.Value) = "Double" Then
s = s + Trim(CStr(c.Value))
End If
Next

Cnt = 0
For i = 0 To 9
If InStr(s, CStr(i)) > 0 Then Cnt = Cnt + 1
Next i
MsgBox "Разных цифр в числовых ячейках : " & Str(Cnt)
End Sub

считает кол-во цифр в строке.
как сделать для него цикл,чтобы он считал для следующеей(может быть 50-100строк и
значение записывал рядом в столбце
пример строка:12 14 16 22 25 - 5 (цифр)
спасибо
сергей4 вне форума Ответить с цитированием
Старый 20.10.2009, 23:29   #2
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

Помогу написать такой макрос за 35 р. Аська 561986872
motorway вне форума Ответить с цитированием
Старый 21.10.2009, 09:37   #3
xNut
 
Аватар для xNut
 
Регистрация: 16.06.2009
Сообщений: 8
По умолчанию

200 рублей
обращайтесь
xNut вне форума Ответить с цитированием
Старый 21.10.2009, 09:57   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

сергей4, а что ж Вы мой макрос цитируете,
а ко мне сразу не обратились... Тогда я, может быть, и помог бы Вам...

p.s. смотрите не переплатите - макрос переделать несложно.. а ещё лучше из него сделать функцию и её задействовать где надо и как надо!
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Цикл для суммирования ruavia3 Microsoft Office Excel 10 22.04.2009 09:24
Как привести к виду для счета? Диагностик Microsoft Office Excel 11 10.04.2009 14:57
цикл для ttimer Evgenii Общие вопросы Delphi 10 08.02.2009 14:03
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until) Mr.User Помощь студентам 9 23.11.2007 01:34