Visual Basic Использование циклов

[melani]

Помогите, пожалуйста=)
Задание: В ячейки D3:D24 произвольно ввели числа. Найти сколько раз среди указанных чисел встретилась любая приятная Вам цифра?

[EducatedFool]

Sub test1()
    'В ячейки D3:D24 произвольно ввели числа.
    'Найти сколько раз среди указанных чисел
    'встретилась любая приятная Вам цифра?
    ПриятнаяЦифра = 3
    For Each cell In [D3:D24].Cells
        txt = txt & cell.Text
    Next
    КоличествоПриятныхЦифр = Len(txt) - Len(Replace(txt, ПриятнаяЦифра, ""))
    MsgBox "Количество Приятных Цифр = " & КоличествоПриятныхЦифр, vbInformation, "Результат"
End Sub

Или так:

Sub test2()
    ПриятнаяЦифра = InputBox("Введите приятную цифру")
    If Not ПриятнаяЦифра Like "#" Then MsgBox "Надо было ввести одну цифру": Exit Sub
    For Each cell In [D3:D24].Cells
        txt = txt & cell.Text
    Next
    КоличествоПриятныхЦифр = Len(txt) - Len(Replace(txt, ПриятнаяЦифра, ""))
    MsgBox "Количество Приятных Цифр = " & КоличествоПриятныхЦифр, vbInformation, "Результат"
End Sub

[melani]

EducatedFool, спасибо Вам большое!=)