< návrat zpět

MS Excel


Téma: VBA rss

Zaslal/a 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ěď >

#024905
avatar
Třeba takto:
If Sheets("prvni").Cells(1, 1).Value Like ("*" + Mid(Sheets("druhy").Cells(1, 1), 2, 2) + "*") ThenP.citovat
#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
#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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09