VPF::Посчитать кол-во ячеек, текст которых начинается

Ki11eR0k

Дата 6.3.2007, 11:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 2.11.2006

Репутация: нет
Всего: нет

Пользовательская функция с параметром диапазонов.Посчитайте количество ячеек, текст которых начинается и заканчивается на одну и ту же букву. Как выглядит такой код???

Naghual

Дата 6.3.2007, 11:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49

Скорее всего тебе в раздел Программирование, связанное с MS Office.

А код такой выглялит примерно так-же, как и люблой другой код. smile

Ты расскажи что ты сделал и что не получается - тогда и будет тебе помощь.

--------------------

Я желаю всем Счастья!

bilya

Дата 6.3.2007, 17:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 112
Регистрация: 3.1.2007

Репутация: 1
Всего: 1

Naghual, да Бог с ним - товарищу надо. Праздники на носу - после них вообще тяжко соображать smile

Код


Private Sub CommandButton1_Click()
Dim MyValue As String
With ActiveSheet.Range("a1:l40")
    MyValue = TextBox1.Text
    Set foundvalue = .Find(MyValue, LookIn:=xlValues)
    If Not foundvalue Is Nothing Then
        firstAddress = foundvalue.Address
        Do
            If Right(foundvalue, 1) = Left(foundvalue, 1) Then Count = Count + 1
            Set foundvalue = .FindNext(foundvalue)
        Loop While Not foundvalue Is Nothing And foundvalue.Address <> firstAddress
        MsgBox "Ячейки с текстом начиниющимся и заканчивающимся на " & MyValue & " встречаются " & Count & " раз(а)"
    End If
End With
End Sub

(автора оригинала не помню)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »