|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.10.2009, 21:40 | #1 |
Новичок
Джуниор
Регистрация: 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 (цифр) спасибо |
20.10.2009, 23:29 | #2 |
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
|
Помогу написать такой макрос за 35 р. Аська 561986872
|
21.10.2009, 09:37 | #3 |
Регистрация: 16.06.2009
Сообщений: 8
|
200 рублей
обращайтесь |
21.10.2009, 09:57 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,238
|
сергей4, а что ж Вы мой макрос цитируете,
а ко мне сразу не обратились... Тогда я, может быть, и помог бы Вам... p.s. смотрите не переплатите - макрос переделать несложно.. а ещё лучше из него сделать функцию и её задействовать где надо и как надо! |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Цикл для суммирования | 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 |