dotNETportal.cz

Dobrý den,

snažím se již druhý den najít příklad funkce hledání, bohužel tuto jednoduchou funkci stále nenacházím. Pracuji s makry a teď začínám s VBA. Funkce by měla vypadat takto:

v tabulce mám seznam objektů v ruzných městech. Já chci najít všechny záznamy kde je napsáno třeba "Studénka". Umím zaznamenat makro filtru pro určitý výraz ale pro libovolný neumím.

ten hledaný výraz by se měl vepsat do textboxu buďto v samostatném okně nebo přímo vv sešitě, to snad zvládnu.

poradíte?

děkuji

A co konkrétně tedy nevíte? Jak nahradit ten určitý výraz nějakým libovolným?

To je jednoduché, vytvořte si proměnnou typu string kterou dosadíte do výrazu místo hledaného textu. A do té proměnné budete ukládat text ze konkrétní buňky v sešitě.

nechci nic nahrazovat.

v listě bude textbox který když bude prázdný bude zobrazovat všechny položky. když do něj začnu vepisovat najde všechny podobné výrazy. napíšu "studénka" zmáčknu enter, najde všechny řádky kde se tento výraz vyskytuje. chci jen hledání, nic jiného.

No však ano, vždyť to tam píšu...a ce tedy konkrétně nevíte? Hoďte sem kus kódu, který jste dal dohromady.

já sem nedal nic dohromady. já s tím teprve začínám.

přes záznam makra jsem si zadal aby se v databázi našly tyto výrazy: "V2(2)" což označuje konstrukci vyhybky druhé generace.

Sub Najdi_2_gen()


' Makro6 Makro
'

'
    ActiveSheet.Range("$A$2:$AH$3000").AutoFilter Field:=34, Criteria1:= _
        "=*V2(2)*", Operator:=xlAnd
    
    Range("A2").Select
End Sub

Příspěvek zřejmě nepatří do kategorie .net,

ale zkuste se také podívat na rozšířený filtr

v Excelu. (AdvancedFilter)

Máte tam oblast, kde jsou kritéria jednotlivých

sloupců, při změně této oblasti zavoláte obnovení

filtru, lze odchytit v události změny v listu

(Worksheet_Change).

Oblast lze umístit mj. přímo nad seznam s daty

a vynechat mezi oblastí kritérií a seznamem řádek.

Filtrovat lze přímo v seznamu nebo do nové oblasti

v listu..

Chcete-li jen hledat bez filtrování, podívejte se

na metodu Find objektu Range. Myslím, že snad také

podporuje zástupné znaky. K tomu asi ještě tlačítka

pro najít předchozí a najít další, snad taky možnost.

Prvotní kód pro 'rozšířený filtr' i 'najít' si nahrajete

záznamníkem, pak si upravte dle vaší potřeby.

Doufám, že Vám tipy budou užitečné.