Cümle içindede geçen ve standart olmayan birimlerini almak

[adigeturklim]

Merhaba,
Ekli dosyada izah etmeye çalıştım. Bir stünda cümle içinde manuel yazılmış ve standart olmayan ölçüler var. Ölçüler yazılırken örnek: 15*100 yerine 15x100 olarak yazılmış ve bir sürü farklı ölçü mevcut. Cümle içindeki bu ölçü birimlerini ayırmak istiyorum. Yardımlarınızı rica ederim.

 

[Ali]

Aşağıdaki formül işinizi görür mü ?

=EĞERHATA(SOLDAN(DEĞİŞTİR(B3;1;MİN(MBUL({0;1;2;3;4;5;6;7;8;9};B3&"0123456789"))-1;"");MBUL(" ";DEĞİŞTİR(B3;1;MİN(MBUL({0;1;2;3;4;5;6;7;8;9};B3&"0123456789"))-1;""))-1);"")

bazılarında mm bitişik yazılmış. Ona dikkat edersiniz.

 

[Haluk]

Libre Office'de "RegEx" fonksiyonuyla ile alternatif;





.

 

[adigeturklim]

Sayın Ali, teşekkür ederim. Yazdığınız formül ile bahsettiğiniz bitişik yazılan harfler hariç büyük ölçüde çözüm oldu. elinize sağlık.

 

[adigeturklim]

Sayın Haluk, Libre Office denemek isterim. Bilgi için teşekkür ederim.

 

[Korhan Ayhan]

Alternatif (KTF);

Ofis sürümlerine yerleşik olarak REGEXP fonksiyonu gelene kadar idare edeceğiz artık.

=Get_Unit(A1) şeklinde kullanabilirsiniz.

Option Explicit

Function Get_Unit(My_Rng As Range) As String
    Application.Volatile True
   
    With CreateObject("VbScript.RegExp")
        .Pattern = "([0-9\,(x|X)]+)"
        .Global = True
        If .Test(My_Rng.Value) Then
            Get_Unit = .Execute(My_Rng.Value)(0)
        End If
    End With
End Function

 

[adigeturklim]

Sayın Korhan teşekkür ederim. Çözüm yolunuz gayet başarılı oldu.

Ayrıca (Ofis sürümlerine yerleşik olarak REGEXP fonksiyonu gelene kadar idare edeceğiz artık. ) sözünüze katılmamak mümkün değil

Sağlıkla kalın..