MS Excel

Téma: VBA Porovnání

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

elninoslov(13.5.2015 11:48)#024925

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

vary(13.5.2015 11:51)#024926

jo díky už jsem na to přišel a nevíš jak udělat to samé na diakritiku?citovat

marjankaj(13.5.2015 12:05)#024927

napríklad takto
text = Replace(Text, "á", "a")citovat

elninoslov(13.5.2015 12:45)#024930

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

vary(13.5.2015 14:21)#024932

Díky moc chlapi funguje to přesně jak má :-) Díky.citovat

Téma: VBA Porovnání

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje