< návrat zpět

MS Excel

Téma: VBA rss

Zaslal/a vary 12.5.2015 6:30

Zdravím,
narazil jsem na problém. Mám:
sheets("první").cells(1, 1) = ahoj
sheets("druhy").cells(1, 1) = *ah*
potřebuju však:
sheets("druhy").cells(1, 1) = ah
a hvezdičky zapsat do kódu:
if sheets("první").cells(1, 1).Value Like sheets("druhy").cells(1, 1) then
zkouším:
if sheets("první").cells(1, 1).Value Like sheets("druhy").cells("*"1, 1"*") then
TO JE ALE BLBOST.
Nevíte někdo jak má zápis vypadat díky :-)

Zaslat odpověď >
Pavlus(12.5.2015 6:53)#024905
avatar
Třeba takto:
If Sheets("prvni").Cells(1, 1).Value Like ("*" + Mid(Sheets("druhy").Cells(1, 1), 2, 2) + "*") ThenP.citovat
vary(12.5.2015 7:02)#024906
avatar
vyzkoušel jsem a funguje to Díky.
a kdybys mi to mohl i vysvětlit? co znamená to mid a pak co znamena to 2,2 jestě jednou díkycitovat
elninoslov(12.5.2015 10:16)#024907
elninoslov
MID vyberie z textu nejakú časť.
MID("fero",2,3) urobí to, že z textu "fero" vyberie text, ktorý začína na znaku 2 a dĺžka vybraného textu bude 3.
Čiže výsledok = "ero"
V Tvojom prípade ale potrebuješ ešte pred a za touto vybranou časťou textu "*". Tak ich pred fnc aj za fnc MID prirátaš.
Na "prirátanie" (zlučovanie) textu by sa mal ale používať "&" a nie "+".

EDIT: Po opätovnom prečtaní dotazu si ale myslím, že dotaz bol myslený tak, že v liste "druhy" máš to čo chceš hľadať v "prvni". V tomto prípade nepotrebuješ fnc MID, ale iba pridáš "*"
If Sheets("prvni").Cells(1, 1).Value Like ("*" & Sheets("druhy").Cells(1, 1) & "*") Thencitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje