نجوم المشاركات

من أروع ما قرأت في موضوع رضا الناس هذه القصيدة التي لم أقف على صاحبها ولا حتى عنوانها ضحكتُ فقالوا ألا تحتشـم؟ ........ بكيت فقالوا ألا تبتسم؟ بسمت فقالوا يرائـــــــــي ........ عبست فقالوا بدا ما كتم صمتّ فقالوا كليل اللسان ........ نطقت فقالوا كثير الكلم حلمت فقالوا صنيع الجبان ........ ولو كان مقتدرا لانتقم بسلت فقالوا لطيشٍ بــــه ........ وما كان مجترئا لو حكم يقولون شـــذٌ إذا قلـــت لا ........ وإمّعةٌ حين وافقتـــــهم فأيقنتُ أني مهــــــما أُرِدْ ....... رضا الناس لابد من أن أُذَم طبعا هذا يخص الناس الذين ليس لهم همٌ سوى تتبع أخطاء الناس وإظهار أخطائهم حتى وإن لم يخطئوا أما باقي المعتدلين من الناس فيستسحنون الفعل الحسن ويستقبحون الفعل القبيح

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

تفضل أخى Sub ragab() Dim cl As Range Dim arr() As Variant LR = [A1000].End(xlUp).Row T = 2: x = 2 '==================================== On Error Resume Next For Each cl In Range("A1:A" & LR) If IsDate(cl) Then Cells(1, T) = cl: T = T + 1 End If Next '==================================== For Each cl In Range("A2:A" & LR) If Not IsDate(cl) Then i = i + 1 ReDim Preserve arr(i) arr(i - 1) = cl Else Cells(2, x).Resize(i) = Application.WorksheetFunction.Transpose(arr) x = x + 1: Erase arr: i = 0 End If Next Cells(2, x).Resize(i) = Application.WorksheetFunction.Transpose(arr) End Sub نسخ متعدد.rar

هل نجيب نحن ام ننتظر الاجابة من طرفكم ؟!