скрипт на VBS или VBA помогите плиз !!!

[formatC:vt]

Привет ! ВСЕМ !!! Мужики я прошу прощения за может быть глупый вопрос ,
но очень прошу помочь и отнестись с пониманием ! т.к. блин c VBS и VBA нифига
не приходилось заниматься , а для работы СРОЧНО нужно !!! help !


Есть выгрузка бызы с проги в формате xls Excel так вот как мне написать скрипт в Excel на VBA (по моему там при помощи маркросов можно как то сделать )
чтоб при запуске скрипта мне показывала все сторочки именно строчки содержащие определённые слова
например Microsoft

или скрипт на VBS чтоб при запуске выводил данные (строчки) содержащие слово Microsoft из файла *.xls в табличку
или в другой файл *.xls

Как это риализовать Помогите плиз !!!

[FireFenix]

Public Sub Button1_Click()
Dim All() As String 'Объявление динамического массива найденных значений
ReDim All(0) 'Установка размерности массива в 1 элемент

Dim Column As Integer 'Столбец
Column = 1 'Поиск в 1 столбце

If (Len(Trim(Sheets(1).TextBox1.Text)) > 0) Then 'Проверяем TextBox1 на наличие текста
For i = 1 To 1000 'Перебираем с 1 по 1000 строку
If (InStr(Sheets(1).Cells(i, Column).Value, Sheets(1).TextBox1.Text) > 0) Then 'Проверяем ячейку на наличие текста
All(UBound(All)) = i & "," & "A" 'Присваиваем значение последнему элементу массива

ReDim Preserve All(UBound(All) + 1) 'Добавляем элемент в массив без удаления элементов
End If
Next

Dim Text As String 'Переменная для вывода текста на экран

For i = 0 To UBound(All) 'Обход всего массива найденных значений
If (Len(Text) > 0) Then Text = Text & vbCrLf
Text = Text & All(i)
Next

MsgBox Text 'Вывод сообщения с найденными позициями
Else
MsgBox ("Не введён текст для поиска") 'Вывод сообщения об ошибке
End If
End Sub

На листе должна быть кнопка и TextBox
При нажатии на кнопку - скрипт ищет в столбце A с 1 по 1000 ячейку, где содержится текст из TextBox

http://www.megaupload.com/?d=75LJTP6R

[formatC:vt]

спасибо ! надо протестить ! это я так понял VBA !?

[FireFenix]

Да
VBS - Visual Basic Script - Выполняется в браузерах как JavaScript
VBA - Visual Basic for Application - Выполняется в приложениях, как макрос