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

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

لم يكتمل التعديل بعد .. يا فرحة ما تمت خدها أبو البراء وطااااااااار

Columns("D:F").Select
    Selection.EntireColumn.Hidden = False

ما هذا ألم تتعلم الدرس الفائت؟

وهذا السطر ما الفائدة منه ؟

Range("F9").Select

ركز يا فلاحجي

[أبوبسمله]

ههههههههههه حبيبى

لما شيلته لاقيته حددلى العمودين بالكامل

فوضعته للتركيز على الحقل f9 بعد الانتهاء من عمل الكود

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

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

كدا أنا أزعل يلا فلاحجي ..جرب التعديل الأول وبعدين شوف هل سيكون التركيز على العموين بالكامل أم لا ...........!!!

التركيز في العمودين سببه إنك استخدمت الكلمة Select .. جرب الكود مرة تانية بعد التخلص من كلمة Select وعمل اللازم وشوف التركيز هيوصلك لفين يا نور العين

[طائع]

أساتذتى ومعلمى 

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

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

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

 Range("B9:R" & LR).Sort Key1:=Range("F9:F" & LR), Order1:=xlAscending, Header:=xlNo

 

الخطأ 

الخطأ 2.rar

[طائع]

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

( امسح البيانات من صفحة بيانات أساسية وأعد ملىء هذه البيانات بأسماء من عندك وسرى كما تحب وانظر ماذا يحدث )

[أبوبسمله]

الان, ياسر خليل أبو البراء said:

كدا أنا أزعل يلا فلاحجي ..جرب التعديل الأول وبعدين شوف هل سيكون التركيز على العموين بالكامل أم لا ...........!!!

التركيز في العمودين سببه إنك استخدمت الكلمة Select .. جرب الكود مرة تانية بعد التخلص من كلمة Select وعمل اللازم وشوف التركيز هيوصلك لفين يا نور العين

ميهونش عليا زعلك

بس لما اطلع بقا بالليل الساعه 9 انفذها

يمكن انا هنجت الصبح لانى مكنتش نمت كويس

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

اخى طائع

انا كل ما بجرب الكود

بشد الاعمده المخفيه وبراجع عليها فركز علشان خاطرى

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

قشطه ياحب

بالتوفيق ياعم الحاج

[طائع]

استاذى 

اليك المرفق والمطلوب بداخله 

Yaser_SORTالجديد.rar

11111 خطأ.rar

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

جرب الكود بهذا الشكل أخي الكريم طائع

ويرجى التركيز على طلب واحد فقط في كل مرة لكي لا أتشتت .. لا أحب كثرة الطلبات في آنٍ واحد

تناول نقطة نقطة حتى إذا انتهيت من نقطة انتقلت لأخرى وهكذا

Sub Rasd_Secret()
    Dim LR As Long
    
    Columns("D:F").EntireColumn.Hidden = False
    With Range("C1", Range("C" & Rows.Count).End(xlUp))
        LR = Evaluate("MAX(IF((" & .Address & "<>"""")*(" & .Address & "<>0),ROW(" & .Address & ")))")
    End With
    
    If LR < 9 Then LR = 9 Else LR = LR
    Range("B9:R" & LR).Sort Key1:=Range("F9:F" & LR), Order1:=xlAscending, Header:=xlNo
    Columns("B:D").EntireColumn.Hidden = True
End Sub

 

 

[طائع]

لم يعد يظهر الخطأ   

يتبقى شىء واحد ولن أطيل

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

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

هل تقصد أن يكون الترتيب بنفس الفكرة كالرقم السري ؟

إذا كان الأمر كذلك حاول تدرس الكود المرفق وشوف ايه اللي ممكن يتغير وغيره

الكود بسيط وسهل ومش محتاج شرح .. حاول أخي الكريم طائع وإن شاء الله تنجح

أراك غداً بإذن الله ..

تقبل تحياتي

[طائع]

نعم كما قلت بالضبط بنفس الفكرة

شكرا استاذى المبجل ياسر لقد غيرت كما نصحتنى ونجحت الفكرة وتم العمل

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

[أبوبسمله]

اخى 

ارفق الملف النهائى حتى يستفيد منه باقى الاعضاء

بالتوفيق

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

أخي العزيز طائع

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

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

تقبل تحياتي

[طائع]

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

 

 

تم تعديل مارس 20, 2016 بواسطه طائع

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

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

لن تصدقني إذا قلت لك أنه ربما تشغلني قضية أو مشكلة لمدة تتعدى أكثر من سنة ولا أنساها وأظل أبحث حتى أجد حلاً لها .. وهذا هو النجاح ..النجاح ليس بالوصول ولكن بعدم الكف عن المحاولات ..

تقبل وافر تقديري واحترامي

[أبوبسمله]

جزاك الله كل خير طائع على هذا التجاهل

[طائع]

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

[ناصر سعيد]

15 ساعات مضت, أحمد الفلاحجى said:

اخى 

ارفق الملف النهائى حتى يستفيد منه باقى الاعضاء

بالتوفيق

ارفق الملف النهائى حتى يستفيد منه باقى الاعضاء

 

لماذا لم ارد على هذه المشاركه الطيبه

[ناصر سعيد]

خلاص .. خلصت طلبك ومابتردش علينا

[أبوبسمله]

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

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

انا لا أقصد التجاهل هنا بالثناء

فالثناء كله لآخى وحبيب قلبى وهو يعلم مدى حبى واحترامى وتقديرى له الذى اتشرف بمنادته اخى الكبير ابوالبراء يعلم الله انى احبه لله

ولكنى قصدت بالتجاهل بطلب الملف بعد التعديل النهائى ليستفيد منه باقى الاعضاء

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

بالتوفيق

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

أخي الحبيب أحمد الفلاحجي

جزيت خيراً على شعورك الطيب تجاهي وبارك الله فيك على كل ما تقدمه .

وإذا كان على شغل العفاريت فإحنا نحضر العفاريت ونصرفهم متاخدش في بالك ولا يهمك منهم طالما إخوانك موجودين

ورفقاً بأخوكم طائع .. لا أحد يعلم ظروفه .. وأعتقد أنه لن يبخل بملف مرفق ..

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

[أبوبسمله]

حبيبى يا ابو البراء

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

جزاك الله كل خير يا ابوالبراء فانت لك فضل عليا بعد ربنا سبحانه وتعالى

ادامك عزا وزخرا وعونا للاسلام والمسلمين اجمعين