VBNet - Форум - Помогите пожалуйста первокурснику !!!

Вопрос: Помогите пожалуйста первокурснику !!! Добавлено: 23.12.10 15:50

Автор вопроса: BadJocker

задали курсовую :написать на vba программу , которая ищет записи на всех листах книги excell по названию фирмы и выводит их на форму vba и в таблицу access.
вот что имею я :
Sub commandbutton1_click()
Dim Finded As Range 'найденная ячейка
Dim FindCount As Long
Dim Message As String ' сообщение для вывода на экран

Message = ""
FindCount = 0

For i = 1 To 3 ' смотреть на первых трех листах книги
With Worksheets(i)
'найти ключевое слово
Set Finded = .Cells.Find(What:= textbox1.text, LookIn:=xlValues, LookAt:=xlPart)
If Not Finded Is Nothing Then
FAddress = Finded.Address ' запомнить адрес первого найденного слова
Do
FindCount = FindCount + 1
Message = Message + Finded.Value + vbCrLf 'дополнить сообщение для вывода
Set Finded = .Cells.FindNext(after:=Finded) 'найти следующее слово
Loop While Not Finded Is Nothing And FAddress <> Finded.Address ' искать пока ищется и не происходит поиск с начала
End If
End With
Next i
label1= "Найдено строк со словом " & textbox.text & ": " & FindCount & vbCrLf & Message ' вывод собщения
End Sub

программа работает не верно , в плане что выдает результат поиска само слово , а не всю строку где упоминалось оно.
и как вывести в таблицу access ?

очень прошу помогите =)
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #1	Добавлено: 24.12.10 03:41
	Я-то удивляюсь, почему в конце декабря и в конце мая так активность поднимается на форуме?.. Ответить

Номер ответа: 2 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #2	Добавлено: 24.12.10 09:57
	Я думаю, люди хотят дипломы и не хотят при это ничего делать.. Ответить

Номер ответа: 3 Автор ответа: Николай ICQ: 643222346 Вопросов: 1 Ответов: 6	Профиль \| \| #3	Добавлено: 24.12.10 20:53
	Дак этого не может получить если ты не заведешь переменную равнаявсей длине строки... Если хотишь СДАТЬ подумай)) Ответить

Страница: 1 |