Vba excel is nothing
Автор Ѓмрбек Искандарович задал вопрос в разделе Другие языки и технологии
Excel. VBA. Поиск текста. Ошибка когда не найдет текст и получил лучший ответ
Ответ от Александр[гуру]
ну дык.. . проверяйте сперва -- нашлось ли что-либо -- перед тем как делать что-то с найденным.
ошибку какую выдаёшь? стесняешься сказать?
зачастую текст ошибки даёт готовый ответ на твой вопрос.. .
вы не только в макросах на начинающем.. . вы вообще с середины непонятно чего разбираться вздумали.. .
учите с самого начала...
Ответ от ?????? ????r?????u[гуру]
Sub Fnd()
findText = "тили-тили"
For Each WS In Worksheets
Set c = WS.Cells.Find(What:=findText, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
If Not c Is Nothing Then
Do
c.Value = "трали-вали" ' сдесь дейтсвия которые нужно произвести над найденой ячейкой
Set c = WS.Cells.FindNext(c)
If c Is Nothing Then Exit Do
Loop
End If
Next
End Sub
Sub Fnd()
findText = "тили-тили"
For Each WS In Worksheets
Set c = WS.Cells.Find(What:=findText, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
If Not c Is Nothing Then
Do
c.Value = "трали-вали" ' сдесь дейтсвия которые нужно произвести над найденой ячейкой
Set c = WS.Cells.FindNext(c)
If c Is Nothing Then Exit Do
Loop
End If
Next
End Sub
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Excel. VBA. Поиск текста. Ошибка когда не найдет текст
Как в VBA (Excel 2007) первые листы всех XLS файлов в папке перенести в один XLS файл?
По очереди открываете все листы, копируете лист, вставляете в результирующий файл в новый лист.
подробнее...
Помощь в написание программы на VBA
А не проще из Access подцепить таблицу Excel в качестве источника данных и там уже можно
подробнее...
VBA: получать курс доллара из интернета в Excel
Sub GetDollar()
Dim sURI As String
Dim oHttp As Object
Dim htmlcode, outstr As
подробнее...