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

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


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





كود فرز وترتيب بثلاث معايير

السلام عليكم ورحمة الله وبركاته: الملف المرفق أريد كود فرز وترتيب بثلاث معايير متوافقة مع بعضها البعض كالتالي: 1- المع ..



31-10-2021 07:12 صباحا
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 272
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 

السلام عليكم ورحمة الله وبركاته:
الملف المرفق أريد كود فرز وترتيب بثلاث معايير متوافقة مع بعضها البعض كالتالي:

 

1- المعيار الأول ترتيب عمود اسم الطالب أبجدياً وهو عمود C

2- المعيار الثاني ترتيب عمود النوع مع الاحتفاظ بنفس الترتيب الأبجدي لاسم الطالب والترتيب بحيث يكون (ذكر) أولاً ثم الانثى. عمود I

3- المعيار الثالث ترتيب عمود الصف من الأصغر للأكبر مع الابقاء على نفس الترتيبات السابقة (الاسم ابجدياً - ثم الذكور أولاً - ثم الصفوف 001-KG1 أولاً).

4- استبعاد العمود A من عملية الفرز وهو عمود المسلسل حيث أنني في حاجة إلى بقائه بنفس ترتيبه.

4- أن يشتمل الترتيب بقية الأعمدة الأخرى لتعلقها بالبيانات في الشيت

 
 
  فرز وترتيب.xlsx   تحميل xlsx مرات التحميل :(22)
الحجم :(11.108) KB



أفضل إجابة مقدمة من hassona229 وهي:
تفضل اخى الكريم لعله ما تريد
الترتيب هيكون في ورقه عمل مسماه باسم Sheet2
ولابد ان يكون جميع الصفوف بها بيانات حتى لو كان نقط فقط مثل ....

Option Explicit

Sub Sort_Data_WithADO()

    Dim rngInput As Range, rngOutput As Range, varSortedData As Variant
    Dim strWbName As String, strConnection As String, strRangeReference As String, strSql As String
    Dim objConnection As ADODB.Connection, objRecordSet As ADODB.Recordset

    ' set input range - includes header
    Set rngInput = ThisWorkbook.Worksheets("Sheet1").Range("A1:p26")
    ' set output range - just the first cell
    Set rngOutput = ThisWorkbook.Worksheets("Sheet2").Range("a1")
    ' copy the headers over
    rngOutput.Resize(1, 16).Value = rngInput.Rows(1).Value
    ' connection string for ACE OLEDB provider
    strWbName = ThisWorkbook.FullName
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source=" & strWbName & ";" & _
        "Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
    ' make the connection to current workbook (better saved the workbook first)
    Set objConnection = New ADODB.Connection
    objConnection.Open strConnection
    ' get range reference as a string suitable for sql query
    strRangeReference = "[" & rngInput.Parent.Name & "$" & rngInput.Address(False, False) & "]"
    ' get the data ordered by text columns (1 and 2) and values (3)
    strSql = "select * from " & strRangeReference & " order by 13, 9, 3"
    ' populate the recordset
    Set objRecordSet = New ADODB.Recordset
    objRecordSet.Open strSql, objConnection
    ' get the sorted data to the variant
    varSortedData = objRecordSet.GetRows
    ' need to transpose the sorted data
    varSortedData = WorksheetFunction.Transpose(varSortedData)
    ' output the transposed sorted data to target range
    rngOutput.Offset(1, 0).Resize(UBound(varSortedData, 1), UBound(varSortedData, 2)).Value = varSortedData
    ' clean up
    objRecordSet.Close
    Set objRecordSet = Nothing
    objConnection.Close
    Set objConnection = Nothing
End Sub
عرض الإجابة




31-10-2021 06:48 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif كود فرز وترتيب بثلاث معايير
وعليكم السلام ورحمة الله وبركاته 
ما هو الشكل المتوقع للنتائج 
 

31-10-2021 07:47 مساء
مشاهدة مشاركة منفردة [2]
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 272
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 
look/images/icons/i1.gif كود فرز وترتيب بثلاث معايير
استاذنا الاستاذ  hassona229  جزاكم الله خيراً على حسن المتابعة، والنتائج المتوقعة كما هو واضح في الشرح:
أنا محتاج الترتيب أولاً: يبدأ بترتيب الأسماء أبجدياً (أ ب ... وهكذا، ثم ينتقل بعد ذلك ليرتب النوع ومحتاج الذكور أولاً: بحيث يظهر الشكل كالتالي مثلاً: ابراهيم - احمد - اسر - ابرار - اسماء....هكذا، ثم بعد ذلك الصف: 001-KG1 -  بما يحويه من أسماء مرتبة أبجدياً الذكور أولاً ثم الاناث وبعد ذلك 002-KG2    بما يحويه من أسماء مرتبة أبجدياً الذكور أولاً ثم الاناث   

31-10-2021 07:49 مساء
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif كود فرز وترتيب بثلاث معايير
ياريت شرح في الشيت 
في ورقه عمل ثانيه اجعل فيها النتائج التى تريدها يدويا

31-10-2021 08:23 مساء
مشاهدة مشاركة منفردة [4]
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 272
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 
look/images/icons/i1.gif كود فرز وترتيب بثلاث معايير
هذا هو ما أريده استاذنا مشروح بالملف ورقة 2
 
 
  فرز وترتيب.xlsx   تحميل xlsx مرات التحميل :(16)
الحجم :(14.857) KB


01-11-2021 04:12 مساء
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif كود فرز وترتيب بثلاث معايير
تفضل اخى الكريم لعله ما تريد
الترتيب هيكون في ورقه عمل مسماه باسم Sheet2
ولابد ان يكون جميع الصفوف بها بيانات حتى لو كان نقط فقط مثل ....

Option Explicit

Sub Sort_Data_WithADO()

    Dim rngInput As Range, rngOutput As Range, varSortedData As Variant
    Dim strWbName As String, strConnection As String, strRangeReference As String, strSql As String
    Dim objConnection As ADODB.Connection, objRecordSet As ADODB.Recordset

    ' set input range - includes header
    Set rngInput = ThisWorkbook.Worksheets("Sheet1").Range("A1:p26")
    ' set output range - just the first cell
    Set rngOutput = ThisWorkbook.Worksheets("Sheet2").Range("a1")
    ' copy the headers over
    rngOutput.Resize(1, 16).Value = rngInput.Rows(1).Value
    ' connection string for ACE OLEDB provider
    strWbName = ThisWorkbook.FullName
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source=" & strWbName & ";" & _
        "Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
    ' make the connection to current workbook (better saved the workbook first)
    Set objConnection = New ADODB.Connection
    objConnection.Open strConnection
    ' get range reference as a string suitable for sql query
    strRangeReference = "[" & rngInput.Parent.Name & "$" & rngInput.Address(False, False) & "]"
    ' get the data ordered by text columns (1 and 2) and values (3)
    strSql = "select * from " & strRangeReference & " order by 13, 9, 3"
    ' populate the recordset
    Set objRecordSet = New ADODB.Recordset
    objRecordSet.Open strSql, objConnection
    ' get the sorted data to the variant
    varSortedData = objRecordSet.GetRows
    ' need to transpose the sorted data
    varSortedData = WorksheetFunction.Transpose(varSortedData)
    ' output the transposed sorted data to target range
    rngOutput.Offset(1, 0).Resize(UBound(varSortedData, 1), UBound(varSortedData, 2)).Value = varSortedData
    ' clean up
    objRecordSet.Close
    Set objRecordSet = Nothing
    objConnection.Close
    Set objConnection = Nothing
End Sub

05-11-2021 01:02 صباحا
مشاهدة مشاركة منفردة [6]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif كود فرز وترتيب بثلاث معايير
لتجنب الخطأ في الكود يمكنك اضافه هذه المكتبه كما بالصورة

IBFUA_Untitled
 
 





الكلمات الدلالية
بثلاث ، وترتيب ، معايير ،


 










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

الساعة الآن 06:22 صباحا