vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest sobota, 18 maja 2024 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

 Funkcja Find dla ukrytych wierszy


otwartyotwarty rozpoczął: aj postów: 4


napisał: aj
postów: 28


umieszczony:
7 lutego 2006
11:53

  
Dziekuję Wam bardzo, dzieki Treborowi odkryłam, że tak naprawdę trzeba było tylko zmienić xlValues na xlFormulas. Jeszcze raz dzięki.
napisał: Trebor
postów: 1209


umieszczony:
6 lutego 2006
19:37

  
Witam!!
Takie coś wyszukuje w ukrytych wierszach
Range("B1:B20").Select
    a = Selection.Find(What:="5", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Address()



chociaż to mało eleganckie i trzeba jeszcze obsłużyć błąd "nieznalezienia".
Pozdrawiam
napisał: pil
postów: 154


umieszczony:
6 lutego 2006
10:00

  
Nie wiem, czy to najmądrzejszy pomysł, ale można jakoś tak :
Sub Wyszukaj()

Dim kolumna As Range
Dim WordToFind As String
Dim komorka As Object

WordToFind = InputBox("Podaj text do wyszukania : ")

Set kolumna = Range("B:B")

For Each komorka In kolumna
    
    If komorka.Value = WordToFind Then
        MsgBox "jest : " & WordToFind & " w wierszu : " & komorka.Row
    End If
    
Next komorka

Set kolumna = Nothing

End Sub


lub spróbować wykorzystać Find na kopii Arkusza, np. tak:
Sub Wyszukaj()

Dim tempArkusz As Worksheet
Dim kolumnaA1 As Range
Dim kolumnaA2 As Range
Dim WordToFind As String
Dim komorka As Object

WordToFind = InputBox("Podaj text do wyszukania : ")

Set kolumnaA1 = Worksheets("Users").Range("B:B")
kolumnaA1.Copy

Set tempArkusz = Worksheets.Add
tempArkusz.Paste

Set kolumnaA2 = tempArkusz.Range("A:A")

With kolumnaA2
        Set komorka = .Find(UCase(WordToFind), LookIn:=xlValues)
        '...
        '...
End With

Set kolumnaA1 = Nothing
Set kolumnaA2 = Nothing

Application.DisplayAlerts = False
tempArkusz.Delete
Application.DisplayAlerts = True

End Sub


Ciekawe co będzie wydajniesze w dużym arkuszu?
A może ktoś ma lepszy pomysł?
Powodzenia.
napisał: aj
postów: 28


umieszczony:
3 lutego 2006
12:33

  
Wkorzystuję, w swoim programie fragment kodu:
With Worksheets("Users").Range("B2:B" & NextRow)
    Set c = .Find(UCase(WordToFind), LookIn:=xlValues)


ale funkcja nie przeszukuje mi schowanych wierszy (o wartości Hidden równej True). Czy jest jakaś funkcja, która i te wiersze weźmie mi pod uwagę?

Wierszy jest zbyt dużo aby je chować i odkrywać non stop.

Dzięki


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z
Zarejestrowanych użytkowników: 6380 free counters
© A. Szarek 2003-2024