Привет ! ВСЕМ !!! Мужики я прошу прощения за может быть глупый вопрос , но очень прошу помочь и отнестись с пониманием ! т.к. блин c VBS и VBA нифига не приходилось заниматься , а для работы СРОЧНО нужно !!! help ! Есть выгрузка бызы с проги в формате xls Excel так вот как мне написать скрипт в Excel на VBA (по моему там при помощи маркросов можно как то сделать ) чтоб при запуске скрипта мне показывала все сторочки именно строчки содержащие определённые слова например Microsoft или скрипт на VBS чтоб при запуске выводил данные (строчки) содержащие слово Microsoft из файла *.xls в табличку или в другой файл *.xls Как это риализовать Помогите плиз !!!
Code: 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
Да VBS - Visual Basic Script - Выполняется в браузерах как JavaScript VBA - Visual Basic for Application - Выполняется в приложениях, как макрос
