كيف أتجاهل الألف المهموزة إلى ألف عادية و ( ة) إلى ( ه ) وكذلك (ي) الى ( ى) في جميع أحرف الحقل ؟

السلام عليكم اخي الكريم

كل عام وانت بخير

لاستبدال حروف ( آ إ أ ) الي الحرف ا بدون همزة

يجب ان تعرف الاسكي كود بتاع كل حرف سواء عربي او انجليزي ( مرفق استعلام يستعرض لك كل الاسكي كود ) راجع مشاركة الاخ محمد فؤاد حول الاسكي بالبحث فى المنتدي درس في الآسكي كود

مرفق مثال لحرف الاف فقط

بالترتيب آ إ أ اسكي 194 195 197

الحرف المطلوب هو ا بدون همزة

اذا اول خطوة نعمل Scan لرقم اللوحة ونستبدل الحرف اذا كان الاسكي بتاعة 194 او 195 او 197 الي حرف " ا "

بالله التوفيق

ZaAsci.rar

السلام عليكم

وهذا حل أخر .... مع تقديري واعجابي بالحل المقدم من الاخ ahamied

هذا مثال للوصول لنفس النتيجة باستخدام دالة الاستبدال Replace

كل عام وانتم بخير

EK_EX2.rar

أخي : ekseer

السلام عليكم

أولاً : كل عام وأنتم بخير ، تقبل الله منا ومنكم صيام وقيام هذا الشهر

ثانياً : شكراً الف شكر ... هذا هو المطلوب ، بارك الله فيك

وكذلك أشكر Ahamied على محاولته الرائعة .

السلام عليكم

اخي اكسير الحياة حلك اجمل وابسط واعتقد انه اسرع فى التنفيذ نظرا لبطئ For Next

وفعلا انا مكنتش اعرف دالة Replace

بارك الله فيك وكل سنة وانت طيب

اخوكم فى الله

بسم الله الرحمن الرحيم

بارك الله فيكم اخواني

فعلا دالة جديدة ومميزة

أخي الكريم حسان تحية طيبة وبعد ...

أولاً رمضان مبارك وكل عام وأنتم بخير بمناسبة حلول شهر رمضان المبارك أعاده الله علينا وعليكم بالصحة والعافية إن شاء الله ..

أخي الكريم إليك هذا الكود :

Function changesearch(Mytxt) As String

Dim tempstr As String
Dim tempend As String
tempstr = Nz(Mytxt, "")

If Me.ch1 = -1 Then
tempend = ""
	   If tempstr Like "*[أآاإ]*" Then

		   For B = 1 To Len(tempstr)
			   If Mid(tempstr, B, 1) = "ا" Or Mid(tempstr, B, 1) = "إ" Or Mid(tempstr, B, 1) = "أ" Or Mid(tempstr, B, 1) = "آ" Then
				   tempend = tempend & "[أآاإ]"
			   Else
				   tempend = tempend & Mid(tempstr, B, 1)
			   End If
		   Next
	   tempstr = tempend
	   End If
 End If

 If Me.Ch2 = -1 Then
 tempend = ""
	   If tempstr Like "*[ةه]*" Then
		   For B = 1 To Len(tempstr)
			   If Mid(tempstr, B, 1) = "ة" Or Mid(tempstr, B, 1) = "ه" Then
				   tempend = tempend & "[ةه]"
			   Else
				   tempend = tempend & Mid(tempstr, B, 1)
			   End If
		   Next
	   tempstr = tempend
	   End If
End If


If Me.Ch3 = -1 Then
	 tempend = ""
	   If tempstr Like "*[ىي]*" Then
		   For B = 1 To Len(tempstr)
			   If Mid(tempstr, B, 1) = "ى" Or Mid(tempstr, B, 1) = "ي" Then
				   tempend = tempend & "[ىي]"
			   Else
				   tempend = tempend & Mid(tempstr, B, 1)
			   End If
		   Next
	   tempstr = tempend
	   End If
End If

changesearch = tempstr
'MsgBox tempstr
 Me.Refresh
End Function

وشكراً

أخوك بالله SANDANET

بارك الله فيكم جميعاً

حل هايل لاخ الغالي اكسير

وانت كمان يا أبو حميد حلولك رائعة

كل عام وانتم بخير

أخي SANDANET

السلام عليكم

شكراً بارك الله فيك

وشكرا لجميع الاعضاء .