Najít příkaz nefunguje přes sešity ve skupině

Překlady článku Překlady článku
ID článku: 124105 - Produkty, které se vztahují k tomuto článku.
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Příznaky

Při použití dialogového okna Najít konkrétní informace vyhledejte uzavřený nalezne první výskyt hodnoty (i Pokud jste vybrali více listů, které obsahují tyto informace).

Pokud informace není umístěn na aktivním listu, i když je umístěn na jiném listu ve skupině, zobrazí se následující zpráva:
Nelze najít odpovídající data
Poznámka: Toto není problém při použití příkazu nahradit. Tento problém projevuje pouze v příkazu Najít.

Příčina

K tomuto problému dochází, protože v příkazu Najít nefunguje přes seskupených listech. Nápověda pro Microsoft Excel je uvedeno, že pokud je vybrána skupinu listů, příkazu find prohledá všechny listy v skupiny kromě modulů jazyka. Toto je skutečné chování. Při výběru více listů a vyhledávání informací na listu pomocí příkazu Najít, pouze první výskyt hodnoty nalezen.

Prohlášení

Společnost Microsoft potvrzuje, že se to být problém v produktech společnosti uvedených na začátku tohoto článku. K tomuto problému dochází již v aplikaci Microsoft Excel 2000.

Jak potíže obejít

Chcete-li tento problém vyřešit, můžete použít Microsoft Visual Basic pro Applications makro (procedura Sub) k vyhledávání každého listu, který je vybrán v režimu skupiny.

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené,. včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele. Chcete-li vytvořit makro, postupujte takto:
  1. Uložte a zavřete všechny otevřené sešity a vytvořte nový sešit.
  2. Pokud používáte aplikaci Microsoft Excel 97, postupujte takto:

    1. V nabídce Nástroje přejděte na příkaz Makro a klepněte na tlačítko spustíte Editor jazyka Visual Basic Editor.
    2. V nabídce Vložit klepněte na modul
    Pomocí aplikace Microsoft Excel 7.0 nebo dřívější, přejděte v nabídce Vložit na příkaz Makro a klepněte na modul.
  3. V modulu zadejte následující kód:
          Sub FindData()
    
         ' This Sub prompts you for a value and searches each worksheet
         ' that is selected in group mode. If it finds the search value,
         ' the routine prompts you to continue the search on the sheet.
         ' If it does not find the value on the sheet, it goes to the
         ' next sheet. You can cancel the search on the sheet by
         ' answering No to "Look for another value..." and then
         ' answering Yes to "Cancel the search ...".
         '
         ' WARNING: When this macro ends, the workbook will no longer be
         ' in group mode.
    
         testValue = InputBox("Enter the value to search for : ")
         For Each x In ActiveWindow.SelectedSheets
             x.Select
             Set foundcell = ActiveSheet.Cells.Find(testValue)
             If foundcell Is Nothing Then
                 MsgBox "The word was not found"
             Else
                 MsgBox "The word was found in cell " & foundcell.Address
                 Range(foundcell.Address).Select
    
          LookAgain:
                 response = MsgBox _
                     ("Look for another value on this sheet?", vbYesNo)
    
                 ' If response = 6, we will not continue searching on
                 ' this sheet.
                 If response = 6 Then
    
                     ' Part2
                     Set foundcell = _
                         ActiveSheet.Cells.FindNext(after:=ActiveCell)
                     Range(foundcell.Address).Select
                     GoTo LookAgain
                 End If
    
                 If response = 7 Then
                     response = MsgBox("Cancel search ? ", vbYesNo)
                     If response = 6 Then End
                     GoTo NextSheet
                 End If
             End If
    
        NextSheet:
            Next x
            MsgBox "Search is complete ....."
    
        End Sub
    						
  4. Pokud používáte aplikaci Microsoft Excel 97, klepněte v nabídce Soubor přepněte do aplikace Microsoft Excel "Zavřít a návrat do Microsoft Excel".
  5. Vyberte listy (režim skupiny), které chcete hledat. Použijte příslušnou metodu pro danou situaci:

    • Pokud chcete vybrat dva nebo více sousedících listů, klepněte na kartu první list a podržte klávesu SHIFT a klepněte na ouško posledního listu. Nebo

    • Pokud chcete vybrat dva nebo více nesousedících listů, klepněte na kartu první list a podržte klávesu CTRL a klepněte na karty jiných listech. Nebo

    • Pokud chcete vybrat všechny listy v sešitu, klepněte pravým tlačítkem myši na ouško listu a v místní nabídce klepněte na příkaz Vybrat všechny listy.
  6. Pokud používáte aplikaci Microsoft Excel 97, postupujte takto:

    • V nabídce Nástroje přejděte na příkaz Makro a potom klepněte na příkaz makra.
    • Klepněte na makro FindData a potom na příkaz Spustit. Postupujte podle pokynů v dialogových oknech, která se zobrazují.
    Pokud používáte aplikace Microsoft Excel 7.0 nebo dřívější, postupujte takto:

    • V nabídce Nástroje klepněte na příkaz makro.
    • Klepněte na tlačítko FindData a klepněte na příkaz Spustit.

Odkazy

Microsoft Excel 97

Další informace o příkazu Najít v nabídce Úpravy klepněte na kartu Rejstřík v nápovědě aplikace Microsoft Excel, zadejte následující text
Hledání dat
a potom poklepejte na vybraný text přejděte na téma "Najít nebo nahradit data".

Microsoft Excel 5.0

Další informace o příkazu Najít (v nabídce Úpravy) klepněte na tlačítko Hledat v nápovědě a typ:
Najít příkaz (nabídka Úpravy)

Vlastnosti

ID článku: 124105 - Poslední aktualizace: 12. února 2014 - Revize: 2.1
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
  • Microsoft Excel 5.0c
  • Microsoft Excel 95a
  • Microsoft Excel 5.0 pro počítače Macintosh
  • Microsoft Excel 5.0a pro počítače Macintosh
  • Microsoft Excel 5.0 Standard Edition
Klíčová slova: 
kbnosurvey kbarchive kbmt kbdtacode kbprb kbualink97 KB124105 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:124105

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com