من هنا وهناك : نافذة للجميع لإضافة كل جديد وطريف في عالم الإكسيل

[هشام شلبى]

السلام عليكم

===========

احبابى واحباب المصطفى "عفاريت الاكسيل" ومعلميه.

انتظر دائماالاسئلة من الاعضاء بلهف "لافوز بالثواب والدعاء" واحيانا يطول الانتظار " لكلا منا ظروفه"

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

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

الفيرس عبارة عن فكره"وليس سؤال " ايا كان من يضعها انا او غيرى "

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

ونشارك جميعا فى الحل "

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

واتمنى ان تلقى الفكرة من احبائى القبول

وسأبدأ بنفسى

الفكرة كيف تصطف البيانات فى الصفوف المتتالية كما فى B1 فى مسلسل 1و2و3و4 وهكذا

ثم يبدأ الصف التالى من الخلية A2

ثم يبدأ الصف التالى من الخلية A3 وهكذا

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

كما بالصورة

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

السلام عليكم يا أخ هشام يا أبو الأفكار الفيروسية

فكرة جميلة مما لها من أثر في تنشيط الأدمغة النايمة

أيوا كدا صحصحنا يا معلم هشام

إليك الملف التالي

أخوكم أبو البراء

Baraa_Solution.rar

[هشام شلبى]

السلام عليكم

==========

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

فى انتظار مزيد من الحلول

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

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

هل من مزيد؟؟؟؟

شوقتنا وخلتنا ندمن الأفكار (الفيروسات)اللي إنت زرعتها بالمنتدى

[هشام شلبى]

هل من مزيد؟؟؟؟

شوقتنا وخلتنا ندمن الأفكار (الفيروسات)اللي إنت زرعتها بالمنتدى

السلام عليكم

===========

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

الفكرة من الموضوع الاستفادة باكثر من حل و عامل التشويق فى الانتظار حتى الغد

" او بالاتفاق نجعل كل يوم فكرة جديدة"

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

فى الانتظار لحلول اخرى

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

إن كنت ناسي أفكرك

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

أخوك أبو البراء

[هشام شلبى]

السلام عليكم

===========

اخى ابو البراء عفوا الامتحانات والمراجعات

اليك الحل ولاحقا اليوم "فكرة اليوم بعد قليل"

مع انى كنت اتمنى ان يلاقى الموضوع افكارا كثيرة

تجربة.rar

[هشام شلبى]

السلام عليكم

===========

فكرة اليــــــــــــوم

شاهد المرفق

HH.rar

[أبوعبد الله]

أخي الحبيب / هشام

أولاً : أشكرك على الأفكار الجميلة المنعشة للعقول والتي نحن بحاجة ماسة ودائمة إليها .

ثانياً : أعذرني على تأخري في الرد على هذه المشاركة القيمة لظروف الانشغال التي لا يخلو منها أحد .

ثالثاً : أشكرك مرة أخرى على ضم هذه الفكرة تحت مظلة مشاريع المشاركات التفاعلية الجماعية المفتوحة .

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

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

والحل الثاني بكود حدثي يحقق المطلوب أيضاً وهو موجودبالمرفق الثاني .

أرجو أن تنال الحلول رضا الجميع وورضاك ياحضرة الناظر .

مع حبي وتقديري

أبو عبدالله

معادلة إدمج ياعم هشام.rar

دمج خاص.rar

[هشام شلبى]

السلام عليكم

===========

اخى الحبيب ابو عبدالله

أشكرك مرة أخرى على ضم هذه الفكرة تحت مظلة مشاريع المشاركات التفاعلية الجماعية المفتوحة .

لا تنسى انك صاحب المشروع والان انت "بتلم الغلة يابختك ياعم"

أعذرني على تأخري في الرد على هذه المشاركة القيمة لظروف الانشغال التي لا يخلو منها أحد .

مسامحك والله "سامحتك سامحتك"

أقترح عليك تغيير عنوان المشاركة لعنوان راودني كثيراً أن أعمل عليه وهو في نفس إطار فكرتك وهو " من هنا وهناك : نافذة مفتوحة للجميع لإضافة كل جديد ومفيد وطريف في عالم الإكسيل "

انا موافق وانا ليس لى حق تغير العنوان غيره حضرتك "يا عم هشام"

انت تعلم أن مستواي في المعادلات بالضبط كمستواي في اللغة اليابانية

ياباشا انت استاذ وياااااااااما اتعلمنا منك لغات

أرجو أن تنال الحلول رضا الجميع وورضاك ياحضرة الناظر .

النتيجة ظهرت " هشام السعيد ناجح فى جميع المواد وله دور ثانى فى اللغة اليابانية"

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

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

[امان]

السلام عليكم ورحمة الله

اشكر استاذنا هشام على الموضوع الجميل

مرفق ملف قد يقوم بنفس النتيجة والله اعلم

hh.rar

[هشام شلبى]

السلام عليكم

===========

استاذ امان بجد بجد فكرتك روعة

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

واتمنى ان اراك كثيرا واتمنى ان تطرح علينا فكرة قريباولكن" ملتزما بفواعد نشر الافكار فى بداية المشاركة حفاظا علينا من الصدمات الدماغية"

[هشام شلبى]

السلام عليكم

===========

اليكم حل فكرة اليوم" الفكرة الثانية" وهى لا تختلف كثيرا عن فكرة اخى عبدالله

والفكرة استخدام دالة "TextGlue" وهى من النوع UDF

شاهد المرفق

دوالى21.rar

تم تعديل مايو 16, 2010 بواسطه هشام شلبى

[هشام شلبى]

السلام عليكم

============

فكرة اليــــــــوم " الفكرة الثالثة"

الساعة قربت على الثانية عشر ولا احد اضاف اى فكرة "من حقى ان اضيف"

شاهدوا المرفق "فكرة هايلة"

1111111.rar

[أبوعبد الله]

أخي الحبيب / هشام

اتفضل الإجابة ياحضرة الناظر .

تحياتي

أبو عبدالله

HESHAM-2.rar

[هشام شلبى]

السلام عليكم

===========

اخى الحبيب ابو عبدالله

ماشاء الله ولا حول ولا قوة الا بالله

اجابات نموذجية

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

لنكمل سويا Drop-down list Validation

فى انتظار حلول جديد من اخوانى " بارك الله فيكم"

[الجزيرة]

أفكار جميلة راح تغير في تكتيك بيل غيتس : )

[يحيى حسين]

السلام عليكم و رحمة الله و بركاته

فكرة رائعة اخي هشام

و بخصوص القائمة المنسدلة و على نفس ملف أخي ابو عبدالله

أتمنى أن تكون هذه الأكواد جزء من طلبكم

للحصول على النتائج بصورة افقية في الصف رقم 1

 Private Sub Worksheet_Change(ByVal Target As Range)

Dim LastC As Long

If Target.Address <> "$A$1" Then Exit Sub

LastC = Cells(1, Columns.Count).End(xlToLeft).Column

Cells(1, LastC + 1).Value = Range("a1").Value

End Sub


 

و للحصول على القيم بشكل عامودي هذا الكود

 Private Sub Worksheet_Change(ByVal Target As Range)

Dim LastR As Long

If Target.Address <> "$A$1" Then Exit Sub

LastR = Range("b" & Rows.Count).End(xlUp).Row

Range("b" & LastR + 1).Value = Range("a1").Value

End Sub

 

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

 Private Sub Worksheet_Change(ByVal Target As Range)

Dim LastC As Long

If Target.Address <> "$A$1" Then Exit Sub

Target.Offset(0, 1).Value = Target.Offset(0, 1).Value & " , " & Target.Value

End Sub

 

===============

و دمتم في حفظ الله

[يحيى حسين]

السلام عليكم و رحمة الله

عذراً على العودة خطوة للوراء

بخصوص الحالة الثانية

 Sub Excel4Us()

Dim LastR As Long, cll As Range

LastR = Range("a" & Rows.Count).End(xlUp).Row

For Each cll In Range("a1:a" & LastR)

	Range("b1").Value = Range("b1").Value & " " & cll.Value

Next cll

End Sub


 

أتمنى أن يفي هذا الكود بالغرض

==============

دمتم في حفظ الله

[سالم شباني]

السلام عليكم

بكل صراحة ليس لي بد إلا أن أجلس معتدلا كما يفعل التلميذ النبيه

لمتابعة هذه الأفكار النيرة التي استفزت بعضا من خلايا مخي النائمة

وبعد عدة محاولات وبالإعتماد على ما ادخرنا من أكواد قمت بهذه الخربشة البسيطة

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

لكم مني كل المودة والتقدير

من هنا وهناك.rar

[الحسامي]

اخي هشام شلبي

احيك بشدة لهذه البادرة المنعشة للعقول

واخراج الابداعات الساكنة لدى الاعضاء

واسمح لي المشاركة بهذه الفعالية

واول مشاركة لي ستكون بالقائمة المسندلة الافقية

مرفق ملف يحتوى الحل

ويحتوي على اقصر كود استخدمته في حياتي

اخوك عماد الحسامي

الحسامي.rar

[هشام شلبى]

السلام عليكم

===========

اخى يحيى بارك الله فيك وهكذا اصاب الفيرس جهازك وبالكاد اخرج "نونو"فكرة فى انتظارك

اخى سالم ماشاء الله فكرة رائعة

اخى ابو عبدالله " الجزيرة" فى انتظار افكارك

حبيى عماد ماشاء الله عليك

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

HH.rar

تم تعديل مايو 17, 2010 بواسطه هشام شلبى

[هشام شلبى]

السلام عليكم

===========

فكرة اليوم"الفكرة الرابعة"

الفكرة هذه المرة مختلفة " هذه المرة الفكرة مرفقة فى ملف ومحلولة"

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

وفقكم الله

نسخة من Xl0000001.rar

[الحسامي]

فكرة ممتازة جدا اخي هشام

وهذا ملف معدل عسى ان ينال الاعجاب

hosami1.rar

[الحسامي]

اخواني الاحباء

استكمالا لموضوع القائمة المنسدلة

هذه تطبيق لفكرة اتجاهات القائمة المنسدلة

وتشمل 8 اتجاهات

لليمين

لليسار

للاسفل

للاعلى

افقي اعلى يمين

افقي اعلى يسار

افقي اسفل يمين

افقي اسفل يسار

قائمة منسدلة ب8اتجاهات.rar