logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
صلاح الصغير لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة Yasser Elaraby نظام ادارة شؤون الموظفين اعداد ياسر العربي اكسيل اسئله واجابات



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





09-12-2017 10:15 صباحاً
بسم الله الرحمن الرحيم

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

وهذه الطريقة تتميز بالدقة وسرعة التنفيذ حتى مع البيانات الكبيرة جدا

اليكم الكود التالي
CODE
Sub doaa_m()
    Dim x As Long, rw
    Dim arr
    'وضع النطاق المرادا لتعديل عليه داخل المصفوفة
    arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    'انشاء مصفوفة جديدة بالابعاد المطلوبة
    ReDim y(1 To UBound(arr), 1 To 9)
    'حلقة تكرارية من بداية المصفوفة الى اخرها
    For x = LBound(arr) To UBound(arr)
        'اذا تحقق الشرط وتشابهت الكلمة مع الموجودة داخل المصفوفة يتم جلب البيانات وتنظيمها
        If arr(x, 1) Like "اللهم" Then
            'اضافة صف جديد داخل المصفوفة الفارغة
            rw = rw + 1
            'هنا نقوم بترتيب البيانات حسب رغبتنا او حسب الترتيب الاصلي لها
            'لتصبح جملة مفيدة ومفهومة
            'وتصلح هذه الطريقة للكثير من البيانات التى يتم جلبها من مواقع الانترنت او من اي برامج اخري وتكون غير منتظمة
            y(rw, 1) = arr(x, 1)
            y(rw, 2) = arr(x + 3, 1)
            y(rw, 3) = arr(x + 2, 1)
            y(rw, 4) = arr(x + 4, 1)
            y(rw, 5) = arr(x + 6, 1)
            y(rw, 6) = arr(x + 5, 1)
            y(rw, 7) = arr(x + 7, 1)
            y(rw, 8) = arr(x + 9, 1)
            y(rw, 9) = arr(x + 8, 1)
        End If
    Next
    ' هنا اذا كان المتغير Rw يحمل ارقام اكبر من الصفر دليل على وجود بيانات داخل المصفوفة الجديدة
    'ويتم عمل ريسايز اعادة ضبط حجم الخلايا مع حجم المصفوفة الجديدةووضع النتائج بها
    If rw > 0 Then Sheet2.Range("A1").Resize(UBound(arr), 9).Value = y()
    MsgBox "الحمد لله"
End Sub


وهذه صورة البيانات غير منتظمة وبجانبها الارقام التوضيحية لترتيب كل كلمة داخل المصفوفة الجديدة بما يقابلها من المصفوفة القديمة
OTY5NDgx13132
وبعد تنفيذ الكود يصبح هذا الشكل هو الترتيب النهائي للبيانات
NzkyMDAx123132

الملف بالمرفقات
attachالحمد لله.zip

ملحوظة : الكود دا هيتكرر معانا في اغلب شغلنا لانه كود تقريبا مرن لكل شئ ويصلح لكل شئ
ترحيل - بحث واستدعاء - تعديل - ترتيب وتنظيم - سرعة - دقة والكثير والكثير
Mzg5MDMx1011162_540141342690311_1726053628_n
والسلام عليكم
81
 
 
  الحمد لله.zip   تحميل zip مرات التحميل :(92)
الحجم :(19.634) KB




توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif افضل طريقة لترتيب بيانات غير منتظمة
  09-12-2017 10:30 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
رصيد العضو : 0
الجنس :
الدعوات : 21
قوة السمعة : 20078
الاعجاب : 18
موقعي : زيارة موقعي

جزاكم الله خيرا يا عربى فى ميزان حسناتك يارب



اللهمّ إنّا نسألك بكل اسمٍ لك أن تشفيها


81




توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


look/images/icons/i1.gif افضل طريقة لترتيب بيانات غير منتظمة
  09-12-2017 11:21 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
رصيد العضو : 0
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
بارك الله فيك استاذ ياسر

وربنا يشفيها ان شاء الله



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

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

look/images/icons/i1.gif افضل طريقة لترتيب بيانات غير منتظمة
  09-12-2017 11:36 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 241
رصيد العضو : 0
الدولة : مصر
الجنس :
قوة السمعة : 324
الاعجاب : 0
السلام عليكم
سلمت يداك بكل خير

اللهم اشفها شفاء لا يغادر سقما
اللهم اشفها شفاء لا يغادر سقما
اللهم اشفها شفاء لا يغادر سقما




look/images/icons/i1.gif افضل طريقة لترتيب بيانات غير منتظمة
  09-12-2017 12:02 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 2-2-1990
قوة السمعة : 657
الاعجاب : 0
جزاك الله خيرا وبارك فيك استاذ ياسر العربي




look/images/icons/i1.gif افضل طريقة لترتيب بيانات غير منتظمة
  09-12-2017 12:17 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10536
رصيد العضو : 5
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36792
الاعجاب : 201
بارك الله فيك أخي وحبيبي في الله ياسر العربي وأسأل الله العظيم أن يشفي والدتك شفاء لا يغادر سقماً




look/images/icons/i1.gif افضل طريقة لترتيب بيانات غير منتظمة
  09-12-2017 02:12 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 122
المشاركات : 69
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 21-2-1975
قوة السمعة : 109
الاعجاب : 0
جزاك الله خيرا استاذ ياسر العربي وجعله في ميزان حسناتكم


تم تحرير المشاركة بواسطة :mohammed_ali بتاريخ:09-12-2017 02:20 مساءً





look/images/icons/i1.gif افضل طريقة لترتيب بيانات غير منتظمة
  09-12-2017 08:13 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 834
رصيد العضو : 0
الدولة : الاردن
الجنس :
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 988
الاعجاب : 0
استاذ ياسر كيف ممكن يفيدني بتعديل البيانات وترحيلها
ممكن شرح للكود




look/images/icons/i1.gif افضل طريقة لترتيب بيانات غير منتظمة
  09-12-2017 08:27 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 25-11-2017
رقم العضوية : 1913
المشاركات : 93
رصيد العضو : 4
الدولة : فلسطين
الجنس :
تاريخ الميلاد : 28-3-1975
قوة السمعة : 83
الاعجاب : 4
جزاك الله خيرا وبارك فيك استاذ ياسر العربي




look/images/icons/i1.gif افضل طريقة لترتيب بيانات غير منتظمة
  09-12-2017 11:40 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 416
المشاركات : 177
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 1-1-1970
قوة السمعة : 99
الاعجاب : 0
متميز كالعادة

شفاه الله الوالدة وعافاها من كل سوء




look/images/icons/i1.gif افضل طريقة لترتيب بيانات غير منتظمة
  10-12-2017 09:30 صباحاً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-11-2017
رقم العضوية : 1785
المشاركات : 196
رصيد العضو : 13
الجنس :
تاريخ الميلاد : 20-8-1989
قوة السمعة : 244
الاعجاب : 0
جزاك الله خيرا




look/images/icons/i1.gif افضل طريقة لترتيب بيانات غير منتظمة
  10-12-2017 10:17 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 107
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 23-10-1984
قوة السمعة : 754
الاعجاب : 2
اللهم أنت الشافي لا شفاء إلا شفاؤك اللهم اني أسألك بإسمك الأعظم أن تشفي والدة أخونا وأستاذنا ياسر العربي وجميع والدينا يارب العالمين



توقيع :Kamel meraghni

<big> الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى </big>


142

look/images/icons/i1.gif افضل طريقة لترتيب بيانات غير منتظمة
  09-12-2018 03:51 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-11-2018
رقم العضوية : 9298
المشاركات : 119
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 27-6-1985
قوة السمعة : 110
الاعجاب : 0
جزاك الله خيرا




اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 2 < 1 2 >





الكلمات الدلالية
افضل ، طريقة ، لترتيب ، بيانات ، منتظمة ،









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

الساعة الآن 09:19 PM