Форум АНТИЧАТ - скрипт на VBS или VBA помогите плиз !!!

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - скрипт на VBS или VBA помогите плиз !!! (https://forum.antichat.xyz/showthread.php?t=129574)

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

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

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

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

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

Код:

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

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

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