البسط الحرفي للكلمة

[كريم الامين]

السلام عليكم 

كيف استطيع بسط الكلمة حرفيا بالاكسل اي مثلا كلمة احمد نبسطها هكذا الف حا ميم دال

عليك برفع ملف موجود به المطلوب بكل دقة

[نزار سليمان عيد]

وعليكم السلام

المقصود من تجزئة الكلمة بنفس الحروف

احمد تظهر على نفس الحروف بهذا الشكل

ا - ح - م -د

او تظهر الحروف كما ذكرت الف و حا و ميم و دال

فضلا التوضيح

مع الشكر

 

[ابراهيم الحداد]

السلام عليكم ورحمة الله

جرب هذه الدالة المخصصة

Function SepLetrs(Cel As Range) As String
Dim Arr, Tmp, Word, Strg
Dim i As Long, j As Long
Arr = Array("ا", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", _
"ض", "ع", "غ", "ط", "ظ", "ف", "ق", "ك", "ل", "م", "ن", "ه", "و", "ي", "ى", "ة")
Tmp = Array("الف", "باء", "تاء", "ثاء", "جيم", "حاء", "خاء", "دال", "ذال", _
"راء", "زين", "سين", "شين", "صاد", "ضاد", "عين", "غين", "طاء", "ظاء", _
"فاء", "قاف", "كاف", "لام", "ميم", "نون", "هاء", "واو", "ياء", "ياء", "تاء مربوطة")
For i = 1 To Len(Cel)
Word = Mid(Cel, i, 1)
For j = LBound(Arr) To UBound(Arr)
If Word = Arr(j) Then
Strg = Strg & " " & Replace(Word, Arr(j), Tmp(j))
End If
Next
Next
SepLetrs = Strg

End Function

 

[كريم الامين]

الاخ نزار المطلوب هو أ= الف , ب = با ,ج = جيم , د = دال وهكذا

 

الاخ ابراهيم 

جزاكم الله خيرا واحسن اليكم وحبذا لو تتحفنا بملف فيه هذا المثال نكون لك من الشاكرين

[ابراهيم الحداد]

السلام عليكم ورحمة الله

تفضل

SpllingWord.xlsb

[كريم الامين]

شكرا لكم استاذ ابراهيم انا ممنون منكم اشد الامتنان