أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





دالة جديدة لفصل الارقام عن النصوص

الرجاء المساعدة في ارسال دالة جديدة لفصل الارقام عن النصوص alsqrnumtexلعمل فصل الأرقام عن النصوص من ملف أكسل



25-05-2019 11:52 مساء
Bo-Jassem
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 25-05-2019
رقم العضوية : 13155
المشاركات : 2
الجنس : ذكر
تاريخ الميلاد : 8-11-1984
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
الاعجاب : 0
 offline 

الرجاء المساعدة في ارسال 

دالة جديدة لفصل الارقام عن النصوص 
alsqrnumtex
لعمل فصل الأرقام عن النصوص من ملف أكسل 








26-05-2019 12:09 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif دالة جديدة لفصل الارقام عن النصوص
فضلاً ضع ملف مرفق ببعض البيانات وبعض النتائج المتوقعة





26-05-2019 12:31 صباحا
مشاهدة مشاركة منفردة [2]
Bo-Jassem
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 25-05-2019
رقم العضوية : 13155
المشاركات : 2
الجنس : ذكر
تاريخ الميلاد : 8-11-1984
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif دالة جديدة لفصل الارقام عن النصوص
الأستاذ الكريم 
انا وجدت في قناة اليوتيوب عن دالة alsqrnumtex  لأستخراج الأرقام من النصوص 
وهذه الدالة سوف تساعدني كثيرا في ملفات الأكسل التي اود ان استخرج الأرقام عن الحروف في عامود منفصل 
الرجاء الإطلاع على الرابط التالي 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب





26-05-2019 11:17 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif دالة جديدة لفصل الارقام عن النصوص
يمكن مراسلة الأخ عماد غازي للحصول على الملف

أو قم بإرفاق ملفك مع وضع بعض النتائج المتوقعة وإن شاء الله تجد حلول للمشكلة





26-05-2019 11:22 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif دالة جديدة لفصل الارقام عن النصوص
ويمكن من خلال الفيديو كتابة الدالة من الفيديو نفسه بدون الرجوع للملف
Function AlsqrNumTex(cell As String, t As Long) As Variant
Dim i As Long, r As String, l As String, ll As String

For i = 1 To Len(cell)
r = Mid(cell, i, 1)
If Not IsNumeric(r) = False Then l = l & r Else ll = ll & r
Next i
If t = 0 Then AlsqrNumTex = l Else AlsqrNumTex = ll
End Function

أثارت هذه المشاركة إعجاب: ali mohamed ali،




26-05-2019 11:25 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif دالة جديدة لفصل الارقام عن النصوص
وهذه دالة أخرى تفي بالغرض
Sub Test_AlphaNum_UDF()
MsgBox AlphaNum("Yasser1978Khalil10", False)
MsgBox AlphaNum("Yasser1978Khalil10", True)
End Sub

Function AlphaNum(txt As String, Optional numOnly As Boolean = True) As String
With CreateObject("VBScript.RegExp")
.Pattern = IIf(numOnly = True, "\D+", "-?\d+(\.\d+)?")
.Global = True
AlphaNum = .Replace(txt, "")
End With
End Function

أثارت هذه المشاركة إعجاب: ali mohamed ali،






الكلمات الدلالية
النصوص ، الارقام ، لفصل ، جديدة ، دالة ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 02:55 صباحا

أعلن هنا
أعلن هنا
أعلن هنا