اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

===========

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

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

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

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

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

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

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

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

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

وسأبدأ بنفسى

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

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

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

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

كما بالصورة

393727434.jpg

رابط هذا التعليق
شارك

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

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

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

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

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

Baraa_Solution.rar

رابط هذا التعليق
شارك

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

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

السلام عليكم

===========

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

===========

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

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

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

تجربة.rar

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

أبو عبدالله

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

دمج خاص.rar

رابط هذا التعليق
شارك

السلام عليكم

===========

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

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

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

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

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

===========

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

===========

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

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

شاهد المرفق

دوالى21.rar

تم تعديل بواسطه هشام شلبى
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

1111111.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

تم تعديل بواسطه هشام شلبى
رابط هذا التعليق
شارك

السلام عليكم

===========

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

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

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

وفقكم الله

نسخة من Xl0000001.rar

رابط هذا التعليق
شارك

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

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

hosami1.rar

رابط هذا التعليق
شارك

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

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

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

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

لليمين

لليسار

للاسفل

للاعلى

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information