اخفاء أعمدة مع الترتيب

[طائع]

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

اريد مع اخفاء الاعمدة ترتيب على الرقم السرى 

 

التوضيح والمطلوب بالمرفق 

SORT.rar

 

[أبوبسمله]

اخى الفاضل

مهو مترتب

وضح ما تريد لان المطلوب غير واضح بالنسبة لى

بالتوفيق

 

 

[طائع]

كيف يكون مرتب وهو يبدأ من رقم 60 الى 70 ثم يبدأ من 50 الى 59  ثم من 40 الى 48 

اريد عند الضغط على زر الرصد على السرى يرتب من أصغر رقم الى أكبر رقم 

فمثلا فى هذا المثال أصغر رقم هو 40 وأكبر رقم هو 70 

[أبوبسمله]

لانه مترتب على المجموعه وباعدين السرى

وضحت الرؤيا ياخى ولا انت عاوز تعكس الترتيب وتخليه على السرى فقط

[طائع]

على السرى فقط

 

[طائع]

اريد الترتيب على السرى فقط 

 

[أبوبسمله]

اتفضل اخى

دى محاوله منى على قد حالى

بالتوفيق

A_SORT.rar

[طائع]

اولا هناك خطأ يظهر عند الضغط على الرصد على السرى

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

أى عند الفرز أو الترتيب يرتب الرقم السرى وأمامه طالبته

[أبوبسمله]

اى طلبات اخرى

ولم يظهر معى خطأ وجربت تانى لم تظهر اخطاء معى

ممكن توضح بشكل اخر

عاوز مثلا خليه ايه وايه ظاهره وايه مخفى ومرتب على عمود الرقم السرى فقط علشان افهم ما تريد

معلهش لانى على قد حالى

بالتوفيق اخى

[طائع]

استاذى 

أشكرك على اهتمامك واريد أن أوضح لك شيئا 

1- عند ترتيب الرقم السرى بالكود الجديد يظهر خطأ  ارفقته ب برنت سكرين على وورد لحضرتك حتى تراه 

2- ليس غرضى هو ترتيب الارقام وتجاهل الاسماء بمعنى أن لكل طالبة رقم جلوس يقابله رقم سرى وعندما اضغط على الرصد على السرى اريد ترتيب الطالبات حسب الرقم السرى 

فمثلا  الطالبة  آية مصطفي عبدالفتاح ابراهيم ابوسيف هى أول طالبة بالترتيب فهى تحمل رقم جلوس 9022 وتحمل سرى 231  ولكن هى تأخذ رقم سرى 252 كيف ؟

 

الخطا   الخطا.rar

عفوا لقد غيرت الارقام السرية 

A_SORT11.rar

[أبوبسمله]

إتفضل

إن شاء الله يكون طلبك

انا اشتغلت على الملف القديم انسخ الاكواد انت على ملفك الجديد وعرفنى النتيجه

بالتوفيق

 

 

 

AE_SORT.rar

[طائع]

نفس الخطأ بيظهر   مشعارف فيه ايه؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[أبوبسمله]

مبيظهرش عاندى اى اخطاء

لما يطلعلك الخطأ اعمل دبج وخد صوره منه وهات السطر اللى متلون بالاصفر نشوف الخطأ فى السطر

بالتوفيق

[ياسر خليل أبو البراء]

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

ويرجى ذكر إصدار الأوفيس لديك

أخي الكريم أحمد .. هل قمت بعملية الترتيب على أساس الرقم السري أم مجرد إخفاء للأعمدة ؟

 

[أبوبسمله]

صباح الفل ابو البراء

انت شاكلك نايم بدرى

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

بس انا عاوز اشوف كود حلو منك برضه ياغالى

جزاك الله كل خير

[ياسر خليل أبو البراء]

أخي الكريم أحمد

أليس هذا هو الكود الذي أرفقته ؟؟

Sub رصد_سرى()

    Columns("D:F").Select
    Selection.EntireColumn.Hidden = False
  
    With ActiveWorkbook.Worksheets("ادخال درجات دور ثان").Sort
       
    End With
    Columns("B:D").Select
    Selection.EntireColumn.Hidden = True
    Range("F9").Select
End Sub

أين الترتيب في الكود ..مجرد كلمة Sort .. من غير أي تحديد للعمود الذي سيتم الفرز والترتيب على أساسه ؟

أعتذر لعدم متابعتي الموضوع من البداية .. وبالفعل أنا من الأمس وأنا متعب ومرهق للغاية ..ونمت بالأمس باكر حتى أستطيع أن أستعيد نشاطي ..

أرجو توضيح المطلوب بدقة مرة أخرى .. هل المطلوب الترتيب على أساس عمود السري وفقط ؟ أم إخفاء لأعمدة محددة وما هي الأعمدة؟

ويا ريت نركز على مطلوب واحد فقط حتى لا أتشتت

 

[أبوبسمله]

جزاك الله كل خير

الترتيب من الصغير للكبير على اساس السرى ولابد من رقم الجلوس ليتم ضبط الفرز

طب الكود شغال معايا ازاى بقا شغل عفاريت ياعمو

دانا هشوف ايام بيضه معاكم ههههههههههههههههه

 

[ياسر خليل أبو البراء]

بصراحة أنا تايه في الملفات المرفقة وأنا مشتت الذهن أصلاً ..

ممكن ترفق ملف أخير يكون فيه عمود السري مش مترتب عشان أقدر أجرب عليه ... معلش تعبتك معايا

[أبوبسمله]

11 ساعات مضت, طائع said:

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

اريد مع اخفاء الاعمدة ترتيب على الرقم السرى 

 

التوضيح والمطلوب بالمرفق 

SORT.rar

 

حمل اول ملف ياغالى

هو ده اللى فيه البيانات مش مترتبه

جزاك الله كل خير يابوالبراء

ومتنساش موضع الحذف انا اضفتلك مرفق به معادله وتسلملى

[ياسر خليل أبو البراء]

جرب الكود التالي لعله يفي بالغرض

Sub SortData()
    Dim LR As Long
    
    With Range("C1", Range("C" & Rows.Count).End(xlUp))
        LR = Evaluate("MAX(IF((" & .Address & "<>"""")*(" & .Address & "<>0),ROW(" & .Address & ")))")
    End With
    
    Range("B9:R" & LR).Sort Key1:=Range("F9:F" & LR), Order1:=xlAscending, Header:=xlNo
End Sub

أعتذر عن عدم المتابعة حيث أنني ما زلت أشعر ببعض التعب والإرهاق

[أبوبسمله]

حبيبى الغالى

فى الكود استثنى من الاخفاء عمود E الخاص بالرقم السرى واخفى بقا عمود رقم الجلوس

جزاك الله كل خير

 

[ياسر خليل أبو البراء]

أخي الكريم أحمد

في الكود الأخير لم أتطرق لموضوع الإخفاء للأعمدة إنما قمت بترتيب البيانات على أساس الرقم السري وقط

يمكن إضافة أسطر للإخفاء ... الموضوع بسيط (سجل ماكرو لتعرف شكل السطر للإخفاء)

[أبوبسمله]

تمام يا ابو البراء

وكده صاحب الموضوع معدلوش حجه

الكود بعد التعديل للاخفاء والتجربه شغال زى الفل

Sub ÑÕÏ_ÓÑì()
 Dim LR As Long
    Columns("D:F").Select
    Selection.EntireColumn.Hidden = False
    With Range("C1", Range("C" & Rows.Count).End(xlUp))
        LR = Evaluate("MAX(IF((" & .Address & "<>"""")*(" & .Address & "<>0),ROW(" & .Address & ")))")
    End With
    Range("B9:R" & LR).Sort Key1:=Range("F9:F" & LR), Order1:=xlAscending, Header:=xlNo
    Columns("B:D").Select
    Selection.EntireColumn.Hidden = True
    Range("F9").Select
End Sub

 

والمرفق

جزاك الله كل خير اخى الغالى

Yaser_SORT.rar

[ياسر خليل أبو البراء]

أخي الكريم الفلاحجي

حاول تبتعد عن تحديد أوراق العمل أو النطاقات باستخدام كلمة Select >>

مثلاً في الكود الأخير المرفق منك

Columns("B:D").Select
    Selection.EntireColumn.Hidden = True

يمكن أن يكون بهذا الشكل بشكل مباشر

Columns("B:D").EntireColumn.Hidden = True

أكمل التعديل .. وملحوظة أخرى عند النسخ من المصنف للمنتدى يراعى أن يكون اتجاه الكتابة باللغة العربية حتى تظهر حروف اللغة العربية بشكل سليم

تقبل تحياتي

[أبوبسمله]

تم التعديل

جزاك الله خيرا

لا تعلم مدى سعادتى وانا بعدل وبحاول احل استفسار

Sub رصد_سرى()
 Dim LR As Long
    Columns("D:F").Select
    Selection.EntireColumn.Hidden = False
    With Range("C1", Range("C" & Rows.Count).End(xlUp))
        LR = Evaluate("MAX(IF((" & .Address & "<>"""")*(" & .Address & "<>0),ROW(" & .Address & ")))")
    End With
    Range("B9:R" & LR).Sort Key1:=Range("F9:F" & LR), Order1:=xlAscending, Header:=xlNo
Columns("B:D").EntireColumn.Hidden = True
    Range("F9").Select

End Sub

تمنياتى لك بالتوفيق والنجاح بارك الله فيك يا ابوالبراء

Yaser_SORT.rar