logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
abdelmoniem ismail لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة توزيع المعلمين في جدول الحصص حسب النصاب بشروط اكسيل مشاريع جاهزه



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





24-06-2021 03:18 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
بسم الله والحمد لله والصلاةوالسلام على رسول الله

(اليوم هتكلم عن كود يهدف الى توحيد الكلمات التى لها نفس الغرض لأجل تخفيف العبئ فى تحليل البيانات)

بعد ادخال بيانات بأعداد ضخمه فمثلا الى 50,000 صف ثم لاحظت فى الاخير اختلافات فى المسميات لغرض واحد
فلما نيجى نطلع تقرير بالمسميات الفريده لاسماء شركات مثلا
مش هيطلعوا حاجه واحده بسبب اختلاف حروف زى حرف الياء او مسافات او ..... الى اخره


مثلا الصفوف دى:
اسم الشركة المديونيات

العربى للتكييفات الحديثة 400
العربي للتكييفات الحديثه 500
العربى للتكييفات الحديثه 400
العربي للتكييفات الحديثة 550

لما العدد يبقى ضخم ونكتشف الامر فى الاخر المعالجة وقتها هتكون اشبه بالمستحيل بشكل يدوى

فسريعا سريعا زى ما قولت انسخ الكود دا عندك فى نافذة الاكواد داخل موديول


CODE
Sub Switch_first()
'Developer: Eslam Abdullah
Dim o$, n$, x&, y%, rng: rng = Selection
o = InputBox("Enter the old char (?)", "Switch first character")
If StrPtr(o) = 0 Then GoTo ext Else If Len(o) <> 1 Then GoTo msg
n = InputBox("Enter the new char (?)", "Switch first character")
If StrPtr(n) = 0 Then GoTo ext Else If Len(n) <> 1 Then GoTo msg

With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = "(^|s)" & o
If Not IsArray(rng) Then ReDim rng(1 To 1, 1 To 1): rng(1, 1) = Selection
For x = 1 To UBound(rng, 1): For y = 1 To UBound(rng, 2)
rng(x, y) = LTrim(.Replace(rng(x, y), " " & n)): Next: Next
Selection = rng
End With

MsgBox "Done", 64, "Auditor: Eslam Abdullah"
ext: Exit Sub
msg: MsgBox "Only one char", 16, "Auditor: Eslam Abdullah"
End Sub
'-----------------------------------------------------------------------------
Sub Switch_last()
'Developer: Eslam Abdullah
Dim o$, n$, x&, y%, rng: rng = Selection
o = InputBox("Enter the old char (?)", "Switch last character")
If StrPtr(o) = 0 Then GoTo ext Else If Len(o) <> 1 Then GoTo msg
n = InputBox("Enter the new char (?)", "Switch last character")
If StrPtr(n) = 0 Then GoTo ext Else If Len(n) <> 1 Then GoTo msg

With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = o & "($|s)"
If Not IsArray(rng) Then ReDim rng(1 To 1, 1 To 1): rng(1, 1) = Selection
For x = 1 To UBound(rng, 1): For y = 1 To UBound(rng, 2)
rng(x, y) = RTrim(.Replace(rng(x, y), n & " ")): Next: Next
Selection = rng
End With

MsgBox "Done", 64, "Auditor: Eslam Abdullah"
ext: Exit Sub
msg: MsgBox "Only one char", 16, "Auditor: Eslam Abdullah"
End Sub
'-----------------------------------------------------------------------------
Sub Trim_Spaces()
'Developer: Eslam Abdullah
Dim x&, y%, rng: rng = Selection

If Not IsArray(rng) Then ReDim rng(1 To 1, 1 To 1): rng(1, 1) = Selection
For x = 1 To UBound(rng, 1): For y = 1 To UBound(rng, 2)
rng(x, y) = Application.Trim(rng(x, y)): Next: Next
Selection = rng

MsgBox "Done", 64, "Auditor: Eslam Abdullah"
End Sub


ما هذا ، هذا ماذا
هذا هاخد الاسماء اللى قولتها فوق دى عندى فى شيت اكسيل كمثال
هحدد الخلايا اللى عايز اظبطها
ثم اضغط اختصار Alt+ F8

على طول هيظهر فورم فيه 3 اوامر منتظرين اوامر حضرتك وهما :
Switch_first : ودا عشان توحد اول حرف من كل كلمة فى النطاق المحدد
Switch_last : ودا عشان توحد اخر حرف من كل كلمة فى النطاق المحدد
Trim_Spaces : ودا عشان توحد المسافات الزائدة وتعملهم Trim

زى الصورة دى كدا


34lSy_2021-06-24_150141

حلو قول حلو ، طيب تمام

نجرب تانى واحدة كدا ونحدد النطاق ونضغط على Switch_last ونقوله Run ياحاج (متنساش ياحاج دى مهمة أوى)
هيطلب منك الحرف القديم نقولة مثلاً ي
وهيطلب منك الحرف الجديد نقولة مثلاً ى
هوبا كل الكلمات اللى كانت بتنتهى بحرف ي أصبحت بتنتهى بحرف ى شوفت سهله ازاى

نفس الخطوات مع
Switch_first لكن التغيير هيكون فى بداية الكلمة وبس كدا

ولما تضغط
Run على Trim_Spaces دا مش هيطلب حاجه طريقه صحراوى هيعمل Trim لكلوا دفعه واحده

الهدف من الاوامر الظريفه اللطيفه دى هو توحيد حروف ومسافات اثناء ادخال البيانات
لاى سبب ممكن تكون اخدت البيانات دى من مصدر تانى وملكش ايد فيها وممكن ضعف فى النظام او سهو وقت التصميم او مدفعتش للحاج عبده البقال حق كيس الشيبسى
اياً كان المهم حصل فى نهاية المطاف انك محتاج طريقة لتوحيد تلك الاختلافات للوصول لنتيجة دقيقة
من هنا دى ادوات مساعدة لانقاذ الموقف ومن هنا برضوا اقول لكم من هذا المسرح العريض مسرح الصقر ذو العيون الثاقبة


[مرفق ملف عمل مع العلم أنه تم تحديث الملف بكود إضافى موضح بداخله]

أراكم بخير المرة القادمة إن شاء الله ، دمتم بخير اخوانى الأعزاء
كان معكم أخوكم فى الله إسلام عبدالله والسلام عليكم ورحمة الله وبركاته
 
 
  Switch chars.rar   تحميل rar مرات التحميل :(17)
الحجم :(19.014) KB


أثارت هذه المشاركة إعجاب: محمود ابو الدهب، YasserKhalil، هانى على، السعيد الجزائري، ali mohamed ali، malik، mahmoud ayad، عبد الله السعيد،



look/images/icons/i1.gif توحيد بداية ونهاية كل كلمة
  24-06-2021 04:57 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
تسلم يا سلم وجزاك الله خيرا

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

look/images/icons/i1.gif توحيد بداية ونهاية كل كلمة
  24-06-2021 07:02 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
بارك الله فيك أخي الغالي إسلام ومشكور على الموضوع المميز ويا حبذا لو أرفقت ملف يكون مرجع للموضوع.

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



look/images/icons/i1.gif توحيد بداية ونهاية كل كلمة
  24-06-2021 07:34 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
انت اللى تسلم على مرورك احوووده biggrin2
مشكور مرورك استاذى الغالى ياسر biggrin2
الموضوع دا انت ليك الفضل فيه برضوا انت من علمنى اوبجيكت الريجيكس وحتى فكرة الموضوع نابعه منك انا بس تلميذ حط تاتش بسيط على كود استاذه ، يبقى كدا انت اللى تحط ملف biggrin2
الصراحه لولا ضيق الوقت كنت ظبط كتابة الموضوع عن كدا ودعمته بملف بس انا بحاول قدر الامكان لما قابلتنى مشكله عامه اشارك حلها مع الناس من باب نشر العلم

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



look/images/icons/i1.gif توحيد بداية ونهاية كل كلمة
  24-06-2021 09:20 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
احسنت استاذ اسلام بارك الله فيك وزادك الله من فضله

أثارت هذه المشاركة إعجاب: Eslam Abdullah، YasserKhalil،


توقيع :ali mohamed ali


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
الاخرين لوجه الله وان تحتسب له اجر عند الله

look/images/icons/i1.gif توحيد بداية ونهاية كل كلمة
  25-06-2021 01:45 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 820
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8468
الاعجاب : 12
بارك اله فيك استاذ / اسلام
وزادكم الله علما وفضلا

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،



look/images/icons/i1.gif توحيد بداية ونهاية كل كلمة
  27-06-2021 11:45 صباحاً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 194
الجنس :
تاريخ الميلاد : 29-5-1982
الدعوات : 1
قوة السمعة : 469
الاعجاب : 0
بجد موضوع جميل جدا تسلم ايدك مع اني مش فاهم حاجه من الطريقه ازاي عملتها بس باذن الله احاول افهمها ادعيلي

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،



look/images/icons/i1.gif توحيد بداية ونهاية كل كلمة
  30-06-2021 11:33 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: mahmoud ayad بجد موضوع جميل جدا تسلم ايدك مع اني مش فاهم حاجه من الطريقه ازاي عملتها بس باذن الله احاول افهمها ادعيلي
مشكور مرورك العطر اخى محمود وإن شاء الله تفهم الكود مفيش حاجه صعبه بإذن الله تعالى
ولو عايز تفهم اى حرف فى الكود اسالنى فى اى وقت

أثارت هذه المشاركة إعجاب: YasserKhalil، mahmoud ayad،



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
معادلة لجلب بداية ونهاية الشهر حسين الحمادي
3 1178 حسين الحمادي
جلب بيانات بين تاريخين بداية ونهاية abdellahabuhjaj
7 2104 YasserKhalil
عمل تقرير بداية ونهاية التاريخ VBA رمضان بكري
5 2157 YasserKhalil

الكلمات الدلالية
توحيد ، بداية ، ونهاية ، الكلمة ،









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

الساعة الآن 04:10 PM