بسم الله والحمد لله والصلاة والسلام على رسول الله
أهلا ومرحبا بكم أخوانى الكرام من جديد
موضوع النهارده عن دالة معرفة جديدة
شكلى زهقتكم من مواضيع الدوال المعرفة معلش استحملونى
إن شاء الله ننوع المره الجايه 
دالة اليوم ببساطة لو عندى نص وعايز أضيف فى أوسطه نص أو فاصل بناء على تسلسل رقمى محدد
ودا بالضبط عمل الدالة Addin
أولاً ما هو بناء الدالة :
سيدى القاضى والسادة المستشارين إن الدالة التى أمامكم اليوم تتكون من 5 باراميترات
أول باراميتر فقط هو الإجبارى والباقى اختيارى اجل الباقى اختيارى
وها هو دليل قولى متمثل أمامكم
CODE
=Addin(text,[break],[length],[start_num],[num_chars])<br />
| .1 |
text |
اجبارى: النص المراد دمجه |
|
|
|
| .2 |
[break] |
اختيارى: الفاصل بين الأحرف ، الإفتراضى مسافة |
|
| .3 |
[length] |
اختيارى: طول السلسلة النصية لكل فاصل ، الإفتراضى 1 |
|
| .4 |
[start_num] |
اختيارى: بداية الحرف داخل النص لإضافة الفاصل ، الإفتراضى 1 |
|
| .5 |
[num_chars] |
اختيارى: عدد الأحرف التى يضاف فيها الفاصل ، الإفتراضى طول السلسلة النصية |
وكما ترا أيها القاضى ان المتهم برئ برئ برائة الذئب من دم بن يعقوب
واليك مثال على ما اقول
| النص |
النتيجة |
| Eslam Abdullah |
E s l a m A b d u l l a h |
| Hossam Khatab |
Ho-ss-am- K-ha-ta-b |
| Yasser Khalil |
Yasser- Khalil |
| Yasser Alaraby |
Yasser Ala-r-a-b-y |
| 01095814458 |
0109 581 4458 |
| Example |
E-x-a-m-p-l-e |
فهل يختلط الزيت مع الماء ياسيدى القاضى ، لا يختلط الزيت مع الماء اكرر لا يختلط الزيت مع الماء
والان لا اطلب منكم سوى برائة موكلى وتحميل ملف العمل من هنا
واليكم الكود الذى استخدم فى القضية أقصد الدالة
CODE
Function Addin(txt As String, Optional break As String = " ", Optional length As Integer = 1, Optional s As Integer = 1, Optional n As Variant) As String
'Programming by Eslam Abdullah
Dim i%
If IsMissing(n) Then n = Len(txt) Else n = Application.Min(Len(txt), (n + s - 1) * -(n <> 0))
If length < 1 Or s < 1 Or s > Len(txt) Or n < 0 Then Addin = IIf(txt = "", "", CVErr(xlErrNum)): Exit Function
Addin = Left(txt, (s - 1) * -(n > 0))
For i = s To n Step length
If i - 1 < n - length Then Addin = Addin & Mid(txt, i, length) & break Else Addin = Addin & Mid(txt, i)
Next i
End Function
كان معكم المحامى اسلام عبدالله من محكمة أكاديمية الصقر
والسلام عليكم ورحمة الله وبركاته
الدالة المعرفة Addin
