< návrat zpět

MS Excel


Téma: VBA Porovnání rss

Zaslal/a 13.5.2015 9:49

zdravím,

listprvní (1,1) = Ahoj jak se máš
listdruhý (1,1) = máš

mám podmínku
If Sheets("prvni").Cells(1, 1).Value Like ("*" + Sheets("druhy").Cells(1, 1) + "*") then
nyní je podmínka splněna

Potřebuju
listdruhý 1,1 = mas (Aby to porovnání ignorovalo diakritiku a podmínka tím pádem bude splněna)

díky :-)

Zaslat odpověď >

#024925
elninoslov
If UCase(Sheets("prvni").Cells(1, 1).Value) Like UCase("*" + Sheets("druhy").Cells(1, 1) + "*") Then

A načo zakladáš nové vlákno ? To si mal napísať do toho predošlého.citovat
#024926
avatar
jo díky už jsem na to přišel a nevíš jak udělat to samé na diakritiku?citovat
#024927
avatar
napríklad takto
text = Replace(Text, "á", "a")citovat
#024930
elninoslov
Tvoj riadok upravený na volanie funkcie, ktorá ruší diakritiku a zároveň predpripraví texty na veľké písmená
If BezDiakritiky(Sheets("prvni").Cells(1, 1).Value) Like BezDiakritiky("*" + Sheets("druhy").Cells(1, 1) + "*") Then

samotná funkcia - počíta s CZ a SK znakmi (ak som na nejaký zabudol, doplň si, ale veľké písmeno !)
Function BezDiakritiky(text As String) As String
Dim i As Integer
Const Diak = "ÁÄČĎÉĚÍĹĽŇÓÔŔŘŠŤÚŮÝŽ"
Const bDiak = "AACDEEILLNOORRSTUUYZ"
If IsNull(text) Then text = ""
If text = "" Then Exit Function
BezDiakritiky = UCase(text)
For i = 1 To Len(Diak)
BezDiakritiky = Replace(BezDiakritiky, Mid(Diak, i, 1), Mid(bDiak, i, 1))
Next i
End Function

Ešte raz opakujem, táto fnc je šitá na mieru presne pre Tvoj prípad, keď potrebuješ aj zmenu na veľké písmená (kvôli Like) aj zrušenie diakritiky. Ak by si chcel univerzálnu funkciu, musíš vynechať UCase a doplniť konštanty o malé písmená = 2x tak dlhý výpočet.citovat
#024932
avatar
Díky moc chlapi funguje to přesně jak má :-) Díky.citovat

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

Oddělovač polí

Milan-158 • 1.3. 16:01

Oddělovač polí

Whooocak • 1.3. 15:14

Vkládání dat z formuláře na zamknutém listu.

Milan-158 • 1.3. 15:12

Vlastne planovanie zmien

Anonym • 1.3. 7:56

Vkládání dat z formuláře na zamknutém listu.

Začátečník • 28.2. 19:34

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:05

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:00