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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل عرض الأرقام كنسبة مئوية بالليست بوكس داخل الفورم اكسيل اسئله واجابات


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


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

Preview




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

الرجاء المساعدة في ارسال دالة جديدة لفصل الارقام عن النصوص 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
المشاركات : 9001
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26668
الاعجاب : 673
 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
المشاركات : 9001
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26668
الاعجاب : 673
 offline 
look/images/icons/i1.gif دالة جديدة لفصل الارقام عن النصوص
يمكن مراسلة الأخ عماد غازي للحصول على الملف

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




26-05-2019 11:22 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9001
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26668
الاعجاب : 673
 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




26-05-2019 11:25 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9001
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26668
الاعجاب : 673
 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




02-02-2020 03:39 مساء
مشاهدة مشاركة منفردة [6]
Excelawy
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 30
المشاركات : 378
الجنس : ذكر
تاريخ الميلاد : 9-12-1989
الدعوات : 2
يتابعهم : 7
يتابعونه : 10
قوة السمعة : 631
الاعجاب : 9
 offline 
look/images/icons/i1.gif دالة جديدة لفصل الارقام عن النصوص
جزاك الله كل خير أ. ياسر خليل

و لاثراء الموضوع
'لاستخراج الارقام
Function LetterOut(rng As Range)
Dim i As Integer
For i = 1 To Len(rng)
Select Case Asc(Mid(rng.Value, i, 1))
Case 0 To 64, 123 To 197
LetterOut = LetterOut & Mid(rng.Value, i, 1)
End Select
Next i
End Function

'لاستخراج النص
Function NumberOut(rng As Range)
Dim i As Integer
For i = 1 To Len(rng)
Select Case Asc(Mid(rng.Value, i, 1))
Case 0 To 64, 123 To 197
Case Else
NumberOut = NumberOut & _
Mid(rng.Value, i, 1)
End Select
Next i
End Function








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


 







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

الساعة الآن 11:40 مساء

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