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

السلام عليكم يكفي هذا السطر من الكود Application.CommandBars("Workbook Tabs").ShowPopup تحياتي

نظراً الى ان دالات التاريخ في الأكسل معقدة بعض الشيء قمت بوضع هذا الملف لمن يهمه الأمر كل شيء عن التاريخ.rar

السلام عليكم TRANSPOSE إرجاع نطاق خلايا عمودى كنطاق أفقي، أو بالعكس. يجب إدخال TRANSPOSE كصيغة صفيف في نطاق به نفس عدد الصفوف والأعمدة، على الترتيب، مثل صفيف الأعمدة والصفوف الخاصة به. استخدم TRANSPOSE لتبديل الاتجاه العمودي والأفقي لصفيف في ورقة عمل. بناء الجملة TRANSPOSE(array) Array (الصفيف) هو الصفيف أو نطاق الخلايا في ورقة العمل التي ترغب في تحويلها. يتم إنشاء تحويل الصفيف باستخدام الصف الأول للصفيف على أنه العمود الأول للصفيف الجديد، والصف الثاني للصفيف على أنه العمود الثاني للصفيف الجديد، وهكذا. ملاحظة يجب إدخال الصيغة كصيغة صفيف. قم بتحديد النطاق بدأً بخلية الصيغة. اضغط F2، ثم اضغط CTRL+SHIFT+ENTER. المرفق 2003 TRANSPOSE.rar

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

بسم الله الرحمن الرحيم اليوم اقدم لكم لعبة شيقة جدا من برمجتي بلغة برمجة المواقع أما هي فمعروفة كفكرة رياضية من زماان وأدعوكم للتفكير قليلا ومعرفة سر هذه اللعبة اللعبة عبارة عن ملف htm يتم فتحه بمستعرض الانترنت. باسوورد فك الضغط عن الملف mr-mas.com والآن مع اللعبة. وهذا رابط لمعاينة اللعبة قبل تحميلها. الرابط موجود في صفحتي في أوفيسنا. guess number.zip

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

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

السلام عليكم ور حمة الله وبركاته آملاً ان ينال اعجابكم مجموع ارقام في عامود (المكرر يحسب مرة واحدة فقط) بالإضافة الى ذلك لا تحتسب الفراغات مجموع فريد.rar

قوائم الفصول في شكلها النهائي ملفان مختلفان الاول: يتيح لك التحكم يدويا في توزيع الطلاب علي الفصول كيمفا تشاء (وده بتحديد فصل الطالب في صفحة data في العمود j ) والثاني : يتيح توزيعهم تحت شروط منسقة (وده بتحديد الشروط في صفحة data في الخلايا (b5:h7) مع امكانية تحديد عدد طلاب كل فصل وذلك في الخلايا الموجودة ايضا في صفحة data في الخلايا (p4:p23) بقوة 23 فصل وكله واضح في الملف ملحوظة: الملفان من عمل أخي وصديقي وحبيبي استاذي الكبير /محمد أبو البراء أطال الله عمره وبارك في صحته وزاده من علمه قوائم الفصول.rar

قوائم الفصول في شكلها النهائي ملفان مختلفان الاول: يتيح لك التحكم يدويا في توزيع الطلاب علي الفصول كيمفا تشاء (وده بتحديد فصل الطالب في صفحة data في العمود j ) والثاني : يتيح توزيعهم تحت شروط منسقة (وده بتحديد الشروط في صفحة data في الخلايا (b5:h7) مع امكانية تحديد عدد طلاب كل فصل وذلك في الخلايا الموجودة ايضا في صفحة data في الخلايا (p4:p23) بقوة 23 فصل وكله واضح في الملف ملحوظة: الملفان من عمل أخي وصديقي وحبيبي استاذي الكبير /محمد أبو البراء أطال الله عمره وباركط في صحته وزاده من علمه

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

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

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

رائع استاذي الكبير // عبد الله باقشير الكود يعمل بنجاح بارك الله فيك وفي علمك

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

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

السلام عليكم ورحمة الله وبركاته هذا كود للتنقل السريع بين الصفحات للاستاذ الكبير // عبد الله باقشير Sub GO_TO_التنقل_السريع() On Error Resume Next Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute If Err.Number > 0 Then Err.Clear Application.CommandBars("Workbook Tabs").ShowPopup End If ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 1 On Error GoTo 0 End Sub

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

السلام عليكم ورحمة الله وبركاته الاستاذ والاخ العزيز ابو ادهم جزاك الله خيرا عمل رائع ومتقن واضافات فيها ابداع وتميز حفظكم الله وزادكم من فضله علما ومعرفة تقبل فائق احترامي وتقديري

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

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

الأستاذ // // جلال الجمال

و

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

السلام عليكم أخوتي الكرام هذا استطلاع رأي بخصوص إدارة المشاريع المؤسسية ، ذو علاقة ببحث أقوم بها انا و صديقي د. عمرو مسلم https://www.surveymonkey.com/s/YVW25ND أرجو المشاركة فى الاستطلاع لمن هو مجال عمله ذو علاقة بهذا الاستطلاع ـ او دعوة من تعرفونه للمشاركة

الأستاذ والأخ الفاضل/ حمادة عمر السلام عليكم ورحمة الله وبركاته شرح مميز ووافي كالعادة - جزاكم الله كل خير تقبل تحياتي

استاذ/ ابو محمد العباس شاكر على المعلومة الجميلة

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله و بركاتة اخواني الكريم اريد من حضرتكم برنامج لمحل بيع الهواتف الخلوية او المساعدة في بناء البرنامج ما اريده من النظام: 1. تسجيل حركات البيع للزبائن.-هنا احتمال ان يشتري الزبون اكثرمن جهاز في و قتين مختلفين-. 2. تسجيل الدفعات المقبوضة من الزبائن. 3. حساب المبلغ المتبقي على الزبون . الجداول التي عملتها: 1. الاصناف. 2. الزبائن. 3. المبيعات. 4. المناطق. 5. تفاصيل المبيعات. وبارك الله فيكم جميعا

استاذ / ضاحى بجد تسلم ايدك ولا اروع

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

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

قيد النظر حسب التفرغ

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

السلام عليكم ورحمة الله بارك الله بالإخوة الكرام ولإثراء الموضوع في المرفق يتم الوصول الى الاسم من خلال قائمة منسدلة واحدة في الورقة مثال1 يتم اختيار القائمة ثم من نفس الخلية يتم اختيار الاسم في الورقة مثال2 تظهر في القائمة المنسدلة بيانات صفوف واعمدة الجدول في امان الله قائمة منسدلة متغيرة.rar

السلام عليكم شاهد المرفق 2010 قائمة منسدلة تتغير بتغيير الخلية من قائمة إلى قائمة.rar

هدية جميلة تسلم ايد من صممها وتسلم ابداعات من تم اهدائها اليه

السلام عليكم ورحمة الله بارك الله فيك استاذ/ محمود_الشريف ولإثراء الموضوع الكود التالي يعرض الاسم في CommandBar Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 1 And Not IsEmpty(Target(1)) And Not Intersect(Target(1), [D:D]) Is Nothing Then Dim C As String, F As Integer C = "الاسم غير موحود": F = 394 On Error Resume Next With Sheets("ورقة1") C = .[A:A].Cells(Application.Match(Target(1), .[B:B], 0)) End With If Err Then F = 923 With CommandBars.Add(Name:="Name_Code", Position:=msoBarPopup).Controls.Add(Type:=msoControlButton) .Caption = C: .FaceId = F End With Application.CommandBars("Name_Code").ShowPopup Application.CommandBars("Name_Code").Delete End If End Sub في امان الله ربط الكود بالاسم.rar

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

أخي الفاضل شكرا على جهدك لكن ليس هذا هو المطلوب المطلوب هي نفس فكرة الأستاذ دغيدي المرسل للأخ يوسف إذا نظرت إلى الملف اللي حضرتك ساعدتنى بجزء كبير جدا جدا فيه نجد أن أول 4 طلاب فى لجنة 1 و ال2 التاليين فى الجنة 2 وهكذا برجاء النظر الى للملف المرسل لأنه يحتوى على الفكرة التى أريد ها وبخبرتك سوف تتوصل معي لحل المنادة 2.rar

خى الفاضل / منير أنت تعرف انى موجه اول تعليم زراعى على المعاش ولكنى أهوى أكسيل راسلنى وابعث لى الشيت على البريد الخاص بى لنكمل المشوار سويا gamal_deghady_2007@yahoo.com

السلام عليكم =========== فى اطار نفس الموضوع وقبل الانتقال الى موضوع اخر اود اضافة بعض الاوامر المرتبطة ب CommandButton1_Click() هذا زر امر طباعة Private Sub CommandButton1_Click() ActiveWorkbook.PrintOut End Sub هذا زر اختيار ورقة معينة ولتكن ورقة4 Private Sub CommandButton1_Click() Sheets(ورقة4").Select End Sub امر حفظ Private Sub CommandButton1_Click() ActiveWorkbook.Save End Sub امر خروج Private Sub CommandButton4_Click() ActiveWorkbook.Close End Sub امر كتابة تاريخ اليوم فى خلية محددة Private Sub CommandButton1_Click() Range("A1") = Now End Sub امر معاينة Private Sub CommandButton1_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub امر اظهار فورم Private Sub CommandButton1_Click() UserForm1.Show End Sub امر تحديد مدى معين Private Sub CommandButton1_Click() Columns("D:D").Select End Sub امر تحكم فى عرض عمود معين Private Sub CommandButton1_Click() Columns("D:D").ColumnWidth = 2.50 End Sub امر اخفاء عمود Private Sub CommandButton1_Click() Columns("F:F").Select Selection.EntireColumn.Hidden = True End Sub امر تحديد صف Private Sub CommandButton2_Click() Rows("8:8").Select End Sub امر تحديد عرض صف Private Sub CommandButton2_Click() Rows("16:16").RowHeight = 2.24 End Sub