Arama Kodunda Arapça işaretler revizyonu olabilir mi?

[asdsxx]

" َ” , “ ِ“ , “ ُ ” , “ ٍ “ , “ ً ” , “ ٌ ” , “ ْ ” , “ ّ “ , “ ِّ “ , “ ٍّ “ , “ ”

بَ , بِ , بُ , بْ , بّ , بً , بٍ , بٌ , بِّ , بٍّ Buradaki "ب" harf dışındaki tüm işaretler yok sayılacak

Yukarıdaki tırnak içindeki işaretler Arapçada hareke dediğimiz işaretlerdir. Arama kodunda Arapça olarak aranmak istenen kelimelerdeki harekeler yanlış yazılabiliyor. Bunun için arama koduna aranmak istenen kelime nasıl yazılırsa yazılsın Yani

كُتِبَ yazılan kelimenin yerine كتب şeklinde algılayıp arama yapmasını istiyorum. Bunun bir çözümü var mı?

Türkçe arama kodunda aşağıdaki gibi bir ilave yapılmıştı ve çalışıyor.

For i = 2 To Worksheets(sayf1).Cells(Rows.Count, sut3).End(3).Row
bulunan = LCase(Replace(Replace(Replace(Replace(Worksheets(sayf1).Cells(i, sut3).Value, "â", "a"), "û", "u"), "î", "i"), "'", ""))
If bulunan <> "" Then
If bulunan Like "*" & Aranan & "*" = True Then

Aşağıdaki arama koduna Arapça işaretlerin dikkate alınmaması için tıpkı yukarıdaki Türkçe aramada Türkçe karakterlerin dikkate alınmadığı gibi bu kısım ilave edilebilir mi?

Private Sub CommandButton6_Click()

If Text4.Text = "" Then MsgBox "Arama kutusu boş": Exit Sub

ListBox1.Clear
ListBox2.Clear
ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
TextBox1 = ""
TextBox2 = ""

ComboBox4.Value = "Hadis Külliatı Seç"

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Arama Butonlarını Gizleme-Açma
hadis.Controls("ListBox1" & pir).Visible = True
hadis.Controls("CommandButton17" & pir).Visible = True
hadis.Controls("CommandButton19" & pir).Visible = True
hadis.Controls("TextBox6" & pir).Visible = True
hadis.Controls("SpinButton4" & pir).Visible = True
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim i As Integer
Dim Aranan As String
Text2 = ""
Text3 = ""

TextBox4 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""

ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
'ComboBox4 = ""

ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "0;0;100;0;0" 'lisbox'taki sütunların genişliği

ListBox2.ColumnCount = 4
ListBox2.ColumnWidths = "0;0;100;0;0" 'lisbox'taki sütunların genişliği

say = 0
veri3 = ""
sut3 = Combo2.ListIndex + sut9  '
Aranan = Text4.Text

eskisayf1 = sayf1
If CheckBox3.Value = True Then

Dim sayfa As Worksheet
For Each sayfa In Worksheets
sayf1 = sayfa.Name

If WorksheetFunction.CountA(Worksheets(sayf1).Cells) > 0 Then

sut1 = Worksheets(sayf1).Cells.Find(What:="*" & "*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column '"*" &  ilave edildi
Else
End If

sonsat = Worksheets(sayf1).Cells(Rows.Count, sut3).End(3).Row

With Worksheets(sayf1).Range(SütunAdı & "2:" & SütunAdı & Val(sonsat))
Set d = .Find(Aranan, .Cells(.Cells.Count), xlFormulas, xlPart)
If Not d Is Nothing Then
FirstAddress = d.Address
Do
say6 = say6 + 1
ListBox1.AddItem
ListBox1.List(say, 0) = d.Row
ListBox1.List(say, 1) = sayf1
ListBox1.List(say, 2) = Worksheets(sayf1).Cells(d.Row, sut7).Value & "- " & sayf1 & "; " & Worksheets(sayf1).Cells(d.Row, sut6).Value '& ", Hadis No " & Worksheets(sayf1).Cells(d.Row, sut7).Value 'say6 'Worksheets(sayf1).Cells(d.Row, sut3 - 4).Value
ListBox1.List(say, 3) = d.Column

ListBox2.AddItem
ListBox2.List(say, 0) = d.Row
ListBox2.List(say, 1) = sayf1
ListBox2.List(say, 2) = Worksheets(sayf1).Cells(d.Row, sut7).Value & "- " & sayf1 & "; " & Worksheets(sayf1).Cells(d.Row, sut6).Value '& ", Hadis No " & Worksheets(sayf1).Cells(d.Row, sut7).Value 'say6 'Worksheets(sayf1).Cells(d.Row, sut3 - 4).Value
ListBox2.List(say, 3) = d.Column

say = say + 1

Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address <> FirstAddress
End If
End With

Next sayfa
sayf1 = eskisayf1
Else


If WorksheetFunction.CountA(Worksheets(sayf1).Cells) > 0 Then

sut1 = Worksheets(sayf1).Cells.Find(What:="*" & "*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column '"*" &  ilave edildi
Else
End If

sonsat = Worksheets(sayf1).Cells(Rows.Count, sut3).End(3).Row

With Worksheets(sayf1).Range(SütunAdı & "2:" & SütunAdı & Val(sonsat))
Set d = .Find(Aranan, .Cells(.Cells.Count), xlFormulas, xlPart)
If Not d Is Nothing Then
FirstAddress = d.Address
Do
say6 = say6 + 1
ListBox1.AddItem
ListBox1.List(say, 0) = d.Row
ListBox1.List(say, 1) = sayf1
ListBox1.List(say, 2) = Worksheets(sayf1).Cells(d.Row, sut7).Value & "- " & Worksheets(sayf1).Cells(d.Row, sut6).Value '& ", Hadis No " & Worksheets(sayf1).Cells(d.Row, sut7).Value 'say6 'Worksheets(sayf1).Cells(d.Row, sut3 - 4).Value
ListBox1.List(say, 3) = d.Column

ListBox2.AddItem
ListBox2.List(say, 0) = d.Row
ListBox2.List(say, 1) = sayf1
ListBox2.List(say, 2) = Worksheets(sayf1).Cells(d.Row, sut7).Value & "- " & Worksheets(sayf1).Cells(d.Row, sut6).Value '& ", Hadis No " & Worksheets(sayf1).Cells(d.Row, sut7).Value 'say6 'Worksheets(sayf1).Cells(d.Row, sut3 - 4).Value
ListBox2.List(say, 3) = d.Column

say = say + 1

Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address <> FirstAddress
End If
End With

End If

If ListBox1.ListCount > 0 Then
ListBox1.ListIndex = 0
TextBox6.Text = ListBox1.ListCount & " Adet"

MsgBox ListBox1.ListCount & " Adet Bulundu"

Else
MsgBox "Hiç veri bulunamadı"
End If

CommandButton17.Caption = "Liste Aç"

End Sub