كريم الامين قام بنشر أبريل 27, 2021 مشاركة قام بنشر أبريل 27, 2021 السلام عليكم كيف استطيع بسط الكلمة حرفيا بالاكسل اي مثلا كلمة احمد نبسطها هكذا الف حا ميم دال عليك برفع ملف موجود به المطلوب بكل دقة رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر أبريل 27, 2021 مشاركة قام بنشر أبريل 27, 2021 وعليكم السلام المقصود من تجزئة الكلمة بنفس الحروف احمد تظهر على نفس الحروف بهذا الشكل ا - ح - م -د او تظهر الحروف كما ذكرت الف و حا و ميم و دال فضلا التوضيح مع الشكر 1 رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أبريل 27, 2021 مشاركة قام بنشر أبريل 27, 2021 السلام عليكم ورحمة الله جرب هذه الدالة المخصصة 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 3 رابط هذا التعليق شارك More sharing options...
كريم الامين قام بنشر أبريل 27, 2021 الكاتب مشاركة قام بنشر أبريل 27, 2021 الاخ نزار المطلوب هو أ= الف , ب = با ,ج = جيم , د = دال وهكذا الاخ ابراهيم جزاكم الله خيرا واحسن اليكم وحبذا لو تتحفنا بملف فيه هذا المثال نكون لك من الشاكرين رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر أبريل 27, 2021 أفضل إجابة مشاركة قام بنشر أبريل 27, 2021 السلام عليكم ورحمة الله تفضل SpllingWord.xlsb 1 رابط هذا التعليق شارك More sharing options...
كريم الامين قام بنشر أبريل 28, 2021 الكاتب مشاركة قام بنشر أبريل 28, 2021 شكرا لكم استاذ ابراهيم انا ممنون منكم اشد الامتنان رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.