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

هل تريد جمع النطاق بالكامل من D2:D14 حيث أن المجموع في هذه الخلية عبارة عن المجموع الكلي للشهور وليس النطاق بالكامل .. لو كانت نتيجة الجمع صحيحة كما في المرفق ..هل تريد أن تقوم بقسمة الناتج / 2 ؟؟ هل التعامل مع البيانات سيكون بهذا الشكل ؟

أخي الفاضل ارفق الملف ، قم بضغطه ثم رفعه ..ليتبين المطلوب

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

بالنسبة للتواريخ فهي عبارة عن أرقام تسلسلية ، بالتالي يجب أن تغير في المعادلة بهذا الشكل لتنسق التاريخ كما تريد : =TEXT(D2,"yyyy/mm/dd")&CHAR(10)&TEXT(D3,"yyyy/mm/dd") yyyy هو اختصار للعام أو السنة mm هو اختصار للشهر ، مع العلم إذا كتبت mmm أي ثلاثة مرات فإن الشهر يظهر بالحروف (يناير ، فبراير ، وهكذا ..) dd هو اختصار لليوم يمكنك ترتيب التاريخ بالشكل الذي يحلو لك

بارك الله فيك أخي محمد الريفي وكل عام وأنت بخير

لنفترض أن الخليتين كما هما في الورقة Feuil1 ، وتريد استدعائهما في الورقة Feuil2 ، قم بتحديد الورقة Feuil2 ثم حدد الخلية F2 مثلاً وكرر الخطوات السابقة تماماً مع تغيير المعادلة ليتم استدعاء البيانات من الورقة Feuil1 : =Feuil1!D2&CHAR(10)&Feuil1!D3

أخي الحبيب شكيب عمار مرحباً بك في منتدانا الحبيب .. إليك خطوات العمل : **************** 1- حدد الخلية F2 ، أي انقر فيها بالماوس دبل كليك ، وقم بوضع المعادلة التالية : =SUBSTITUTE(D2&" "&D3," ",CHAR(10)) أو هذه المعادلة : =D2&CHAR(10)&D3 حيث أن Char(10) تحل محل Alt + Enter من لوحة المفاتيح. 2- قم بعمل كليك يمين على الخلية F2 واختر الأمر Format Cells ثم اذهب للتبويب Alignment ستجد اختيار اسمه Wrap Text ضع بجانبه علامة صح. 3- يمكن تنسيق الخلية بمحاذاتها ناحية اليمين أو توسيط. * ملحوظة : إذا أعطتك المعادلة خطأ قم باستبدال الفاصلة في المعادلة , بفاصلة منقوطة ; عن طريق حرف الكاف عندما يكون اتجاه الكتابة باللغة الإنجليزية. تقبل تحياتي

بدون استخدام الشيت ولا المعادلات تفضل أخي خالد Sub ShowUF() Dim strPass As String Dim X As Long X = (Day(Date) * Month(Date)) + Year(Date) + Hour(Time) strPass = InputBox(Prompt:="الرجاء إدخال كلمة المرور", Title:=Now) If strPass = vbNullString Then Exit Sub ElseIf strPass <> X Then MsgBox "كلمة المرور غير صحيحة", vbCritical, "التأكد من كلمة المرور" Else UserForm1.Show End If End Sub

أخي الحبيب مرحبا بك بين إخوانك تفضل المرفق التالي Screen Saver In Excel.rar

إخواني الكرام بدون ما أكتر في الكلام أخذاً بنصيحة أخي في الله خالد تفضلوا الإصدار الأخير (تمت إضافة حوالي 11 كود) Codes Library v1.5.rar

أخي الغالي خالد (أبو العيال ربنا يخليهم لك ويبارك لك فيهم) تفضل المرفق التالي : في الخلية XFD1 وضعت معادلة : =NOW() وفي الخلية XFD2 وضعت المعادلة =SUM((DAY(XFD1)*MONTH(XFD1)),YEAR(XFD1),HOUR(XFD1)) وهي حاصل جمع السنة والساعة و (اليوم مضروب في الشهر) بالنسبة للساعة تكون بنظام الـ 24 ساعة أي أن الساعة 12 ص = 0 ، والواحدة صباحا = 1 ، والواحدة مساءاً = 13 .. الآن مثلا : 3 / 1 / 2015 والساعة 12 ص إذاً اليوم * الشهر = 3 والساعة قيمتها = 0 بجمع الثلاثة قيم (السنة + الساعة + (اليوم * الشهر)) لتحصل على كلمة السر ( 2018 ) Test#2.rar

جزيت خيراً على النصيحة أخي خالد ، وسأحاول جاهداً أن أعمل بنصيحتك (بس تعمل ايه في أخوك اللي بيحب الرغي !! تقبل تحيات أخوك في الله ياسر

الأخ الحبيب أبو عيد بارك الله فيك أعتذر لم أكن قد اطلعت على ملفك ، ولكن بعد الإطلاع وجدته في قمة الروعة جزاكم الله خيراً على كا ما تقدمه

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

أخي وأستاذي قنديل هلا أرفقت ملف للاستفادة منه؟

تسلم أخي الحبيب محمد أبو عباس الأكواد منقولة منقولة ..ما كلنا بننقل أو معظمنا .. نشوف المفيد اللي نقدر نفيد بيه غيرنا ونضعه بالمكتبة ..يبقا مرجع للجميع إن شاء الله بعد ما يكتمل العمل قليلاً ستحس بالفرق تقبل تحياتي (وياريت تبقا تزورنا كل يوم بكود ..لو صعب يبقا كودين كل يوم ..لو شايف إن دا هيكون أمر مستحيل يبقا تجيب معاك 3 أكواد كل يوم)

أخي الحبيب طلبك لم توضح فيه ما وضحته بالمشاركة رقم 3 .. المشاركة رقم 3 فيها تفصيل واضح ، وبالتالي لا تحتاج إلى مرفق,.. أما المشاركة الأولى فلم تكن واضحة البته .. ويا أستاذي بالراحة علينا (فهمي على أدي ) تفضل جرب المرفق التالي :fff: Test.rar

تفضل شوف الرابط ده http://www.officena.net/ib/index.php?s=deddf55cf1fda38f918b019fc41e6d8f&showtopic=56941

أخي وأستاذي محمد أبو عباس مينفعش تدخل وايدك فاضية .............. لازم تشارك ولو بكود (تشجيعك لوحده مش كفاية ..شارك ولو بكود) .في الانتظار !!!!!!!!أنا قاعد جنب الجهاز لحد ما أشوف الكود

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

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

حبذا لو ترفق ملف أخي أبو حنين بارك الله فيك

دي بقا اللي مش عايزة تظبط معايا ..الملف يغلق وبس .. مش بيفتح مرة تانية !!!!!!!!!

أخي مختار ممكن أعرف إنت ليه حدد 10 ثواني عشان تظهر الرسالة (كان ممكن تستغنى عن السطر ده والكود ده كمان ..طالما إن الكود سيقوم بالإغلاق !!!! يعني الفكرة كلها في الإغلاق بدون حفظ ؟؟؟؟؟ أنا اعتقدت إن الكود هيقوم بعملية التراجع بدون إغلاق الملف!! أرجو توضيح الفكرة ..أكثر هل ما قلته صحيح أم هناك لبس جزيت خيراً على إبداعاتك المستمرة ، ولكنك تعرف أصول الأكواد الجديدة لابد من مناقشتها للوصول إلى أفضل أداء.

أخي الحبيب ارفق ملف لطلبك الأول بالنسبة للطلب الثاني .. قم بتحديد البيانات في الشيت ب ، ثم في صندوق الاسم Name Box على يسار شريط المعادلات قم بتسمية النطاق بأي اسم ترغبه وليكن مثلاً MyData (النطاق مثلا A1:A20) ثم اذهب للشيت أ ..قم بتحديد الخلية المراد عمل قائمة منسدله فيها ، ثم اذهب للتبويب Data ثم Data Validation ثم اختر من القائمة الأامر List وفي الحقل المسمى Source اضغط F3 ليظهر لك النطاقات المسماة قم باختيار النطاق MyData ثم اضغط أوك