MS Excel

Dobré ráno,

dá se prosím hledání ve VBA nějak rozšířit o podmínku OR?

děkuji za inspiraci

Private Sub CommandButton14_Click()
With Sheets("wsNabidka").Range("A:A")
Set rng = .Find(What:="*supplier*" Or "*Lieferant*" Or "*dodavatel* or "*Fournisseur*", _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not rng Is Nothing Then

gama = rng.Row

Else

Exit Sub
End If
MsgBox gama
End With
End Sub

Zaslat odpověď >

elninoslov(25.4.2019 11:31)#043243

To pomocou Find možné nieje. Použil by som InStr() v cykle nad poľom. Ak si nebudete vedieť rady, pozriem na to ak bude čas.

1. Ide iba o nájdenie prvej spĺňajúcej bunky ?
2. Počet parametrov je dynamický či statický ?
3. Parametre sa berú z premenných, alebo to chcete dostať do nejakej bunky pomocou UDF a parametre sú odkazy na bunky ?citovat

Imh0tep(26.4.2019 12:12)#043257

díky za ochotu

1.ano
2.statický
3.Hodnoty buněk (supplier, Lieferant atd.) jsou načítány z jiného listu pomocí rozbalovacího menu.

Nějak si to řešení pomocí InStr nedokážu představit

citovat

elninoslov(26.4.2019 18:15)#043262

Zatiaľ som urobil jeden príklad tak, že sa hľadané hodnoty proste iba pridávajú a uberajú počtom oddelených parametrov funkcie. Dalo by sa to prerobiť aj na oblasť hodnôt ako jeden parameter. Popis je v makre. Je tam príklad v makre "Priklad" aj ďalší na použitie ako UDF v liste.
Pozrite si popis, doplňte požiadavky, a najlepšie priložte aj prílohu.

Napr. neviem, čo to má vracať, ak nenájde nič, čo má urobiť pri chybe parametrov, pole horizontálne/vertikálne, čo ak bude oblasť viacoblastná (multiareas), ...

Příloha: zip

43262_find_or-priklad-1.zip (17kB, staženo 23x)

citovat

elninoslov(28.4.2019 18:54)#043272

Riešením by mohol byť aj takýto vzorec:
=IFERROR(MATCH(TRUE;MMULT(COUNTIF(OFFSET(OBLAST;ROW(OBLAST)-2;;1);TRANSPOSE("*"&HLADAJ&"*"));--(ROW(HLADAJ)>0))>0;0);"")

=IFERROR(POZVYHLEDAT(PRAVDA;SOUČIN.MATIC(COUNTIF(POSUN(OBLAST;ŘÁDEK(OBLAST)-2;;1);TRANSPOZICE("*"&HLADAJ&"*"));--(ŘÁDEK(HLADAJ)>0))>0;0);"")

Příloha: xlsx