Страницы: 1
RSS
VBA. Не осуществляется поиск ячеек с числовыми значениями, Через Find не могу найти ячейки, в которых содержится заданное число
 
Здравствуйте! Пробовал установить разные форматы ячеек, но ничего не помогает. Текст ищет хорошо, а вот числа нет. Можно ли что-то сделать?
 
Просмотров много, но хотелось бы дельного совета.
 
Цитата
Platon написал:
но хотелось бы дельного совета.
Подождать пока все проснуться, а не только жители Сибири и Урала.

Код
 Set c = .Find(ThisWorkbook.Sheets("Транзакции").Cells(1, 1), LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlPrevious, SearchFormat:=False)
По вопросам из тем форума, личку не читаю.
 
Так Сибирь - самый большой регион! Спасибо большое! Буду пробовать.
 
Цитата
Platon написал:
Сибирь - самый большой регион!
Сибирь - 16 000 000 население
Москва - 13 000 000 , Питер - 6 000 000
Где больше получить ответ вероятность?
По вопросам из тем форума, личку не читаю.
 
из этих трёх - в первом )
 
Platon, у вас половина переменных не объявлена, слишком много названий одного и того же листа в коде. Переменная b вообще не понятно зачем в вашем коде

Код
Private Sub Поиск_транзакций()
    Dim vValueToSearch As Variant
    Dim sFirstResult As String
    Dim lLastRow As Long
    Dim Rng As Range
    
    With ThisWorkbook.Worksheets("Транзакции")
        If .FilterMode = True Then .ShowAllData 'если на листе стоит Автофильтр, то снимаем его
        .Columns(3).NumberFormat = "General"
        lLastRow = .Cells(.Rows.Count, 3).End(xlUp).Row
        vValueToSearch = .Cells(1, 1) 'что будем искать
        With .Range("C2: C" & lLastRow)
            Set Rng = .Find(vValueToSearch, LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlPrevious, SearchFormat:=False)
            If Not Rng Is Nothing Then
                sFirstResult = Rng.Address
                Do
                    Set Rng = .FindNext(Rng)
                    If Rng Is Nothing Then Exit Do
                Loop While Rng.Address <> sFirstResult
            End If
        End With
    End With
End Sub
Изменено: New - 06.07.2024 15:40:21
 
Спасибо за помощь! Коллеги, подскажите, какой формат нужно применить, чтобы числа отражались в ячейках во всю длину без нолей после запятой?
 
Цитата
Platon написал:
Коллеги, подскажите...
Подскажем.
Вопрос не относится к заявленной теме. Один вопрос - одна тема
Согласие есть продукт при полном непротивлении сторон
Страницы: 1
Наверх