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

بكبسة زر واحدة نستطيع ان نعرف ما هو اخر صف غير فارغ في كل شيت انظر المرفق (Sheet1) Last_row In sheets.xlsm

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

لاحظ المتغيرين داخل القوسين للوظيفة يتم التعويض عنهما عند استدعاء الوظيفة لاحظ الاستدعاء لابد من ذكر قيمتين مطابقتين لنوعى المتغيرين فى الوظيفة ماشاء الله 3 ردود فى نفس واحد

لو اعدت النظر لتبين لك قلنا للوحدة النمطية ConAmnt اعتبري الــ a حقل تاريخ والـــ b قل رقمي ثم اجرينا المعادلة داخل الوحدة النمطية والناتج سيكون هو القيمة i وقلنا انتي يا ConAmnt ستحملين قيمة i على شرط : يكون داخل القوسين حقلي تاريخ ورقمي على التوالي ، كما تم ترتيبهما هو لا يعرف الخلية باسمها ولكن بنوعها

السلام عليكم مشاركة مع احبتي ويبدوا اننا اتفقنا بالمشاركة في وقت واحد عملت وحدة نمطية عامة Public Function ConAmnt(a As Date, b As Double) Dim i As Double If a < #1/8/2016# Then ConsumD0817 (b) If a >= #1/8/2016# And a <= #7/30/2017# Then i = ConsumA0817(b) If a >= #1/8/2017# And a <= #7/30/2018# Then i = ConsumB0817(b) If a >= #1/8/2018# And a <= #7/30/2019# Then i = Consumc0817(b) ConAmnt = i End Function تستدعيها في الاستعلام بهذا السطر Consume_Amount: ConAmnt([issue date];[Consum]) ولكن لاحظ انك في كل سنة جديدة ستزيد سطرا الى الوحدة النمطية Test2.rar

Salim validation.xlsx

السلام عليكم ورحمة الله استخدم الكود الاول فى موديول عادى Sub PrintEW() Dim R As Integer, ws As Worksheet Set ws = Sheets("الاخلاء") For R = 1 To ws.Range("O3").Value R = Range("O2").Value ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False Range("O2").Value = R + 1 Next R End Sub اما الكود الثانى فضعه فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$O$2" Then Exit Sub Call EndWork End Sub

السلام عليكم ورحمة الله اخى الكريم احمد اشكرك على هذا الملحوطة الهامة اليك الملف بعد التعديل اخلاء طرف.xls

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

وانا شاھد على ذلك اهلا بك و بعودتك استاذنا الحبيب كتير من الاحيان قلنا كان يا مكان كان هناك رجل اسمه رمهان وين كنت يا حبيبي 😃😃

المشاركة مع احبتي ھناک قلنا ان الحرف a هو حقل او مربع نصي بنوع التاريخ و ايضا قلنا ان حرف b هو حقل رقمي من نوع دبل وعند استدعائها يجب ان نكتب حقلين الاول بدل حرف a وهو حقل تاريخ والثاني هو حقل رقمي هكذا عذراً استاذ ابوخليل لم اجد مشاركتك 😅

عذرا سقط سهوا عدل اول شرط : If a < #1/8/2016# Then i = ConsumD0817 (b)

قمت بإنشاء مربع نص فى نموذج karabs اسمه txt4 فى قسم التفاصيل للنموذج فى حدث عند التلوين وضعت الكود التالى Private Sub تفصيل_Paint() If [Issue Date] < #1/8/2016# Then Me.txt4 = ConsumD0817([Consum]) ElseIf [Issue Date] >= #1/8/2016# And [Issue Date] < #7/30/2017# Then Me.txt4 = ConsumA0817([Consum]) ElseIf [Issue Date] >= #1/8/2017# And [Issue Date] < #7/30/2018# Then Me.txt4 = ConsumB0817([Consum]) ElseIf [Issue Date] >= #1/8/2018# And [Issue Date] < #7/30/2019# Then Me.txt4 = Consumc0817([Consum]) End If End Sub أول نتيجة ظهرت هى .133 مرفق الملف Test 10000-kera.mdb استبدل ب txt4 اسم عنصر التحكم الذى تريد ظهور النتيجة فيه * قمت بتعديل الكود هنا عدله فى الملف لنحقق شرط Between

السلام عليكم ورحمة الله اخى الكريم اليك شرح الكود و الله الموفق و المستعان ' وقف اهتزاز الشاشة اثناء تنفيذ الماكرو Application.ScreenUpdating = False ' تعريف الورقة الهدف Set ws = Sheets("الاخلاء") ' التعريف بورقة المصدر Set Sh = Sheets("المدرسين") ' طول البيانات فى ورقة المصر ( آخر صف ) LR = Sh.Range("C" & Rows.Count).End(xlUp).Row ' رقم الكشف المراد استدعاؤه z = ws.Range("O2").Value ' اهم نقطة فى الكود تم البدء برقم سالب حتى نتمكن من البدء يالصف الثامن j = -4 ' لتحديد اول رقم يتم جلبه x = (z - 1) * 4 + 1 ' تحديد آخر رقم يتم جلبه y = z * 4 ' حلقة تكرارية تبدأ من الصف الرابع للبيانات التى سوف يتم جلبها For i = 4 To LR ' شرط استدعاء البيانات بالارقام المحصورة بينها If Sh.Cells(i, "B") >= x And Sh.Cells(i, "B") <= y Then ' تسلسل البيانات المستدعاة بورقة الهدف j = j + 12 ' تسكين البيانات فى المواضع المطلوبة ws.Cells(j, "E") = Sh.Cells(i, "D") ws.Cells(j, "J") = Sh.Cells(i, "C") ws.Cells(j + 1, "E") = Sh.Cells(i, "E") End If Next i ' اعادة خاصية اهتزازات الشاشة Application.ScreenUpdating = True

ا سليم اكيد شكرا لحضرتك و الملف تمام و زى الفل بس هو كان المقصود بالتمرير و ليس الإيقاف هو ان لا يعترض على كتابة الكود و تم التعديل في الملف المرفق للافادة و شكرا جزيلا Salim validation.xlsx

تسلم الأنامل ولكن لي طلب ممكن شرح كود ماكرو EndWork حتى يتسثنى استعمالة في أشياء أخرى بالمصفوفات وليس بالمعادلات

تم التعديل كما تريد و زيادة حبتين Last_addres In sheets.xlsm

احسنت استاذنا الكريم-مجهود ممتاز بارك الله فيك وجعله فى ميزان حسناتك

جزاك الله خيرا : من ابداع الى ابداع نرجوا المزيد من مكتشف المعادلات والاكواد ... كي يستفيد الجميع هل من الممكن ان يعطي اسم اخر عمود فيه بيانات ؟

لقد ارفقت لك مثال لكن ليس معه برنامج access runtime نظرا لحجم البرنامج الذي يكون حجمه اكبر لكن الاغلب سيفتح معك ان كان لديك برنامج الاوفيس هذا مثال للتوضيح عملية التحزيم فاذا اضفنا له برنامج access runtime فسيكون برنامج لا يحتاج لان يكون الاوفيس مثبتا عندك و يطلع بالاخير كبرنامج تنفيذي تحزيمقاعدةبيانات.rar

امهلني لحظة ارسلك مثال

إخوتي الفضلاء أقدم من مكتبتي تطبيق التقويم لتثبييت المواعيد والأحداث ، وقد إستخدمت الفكرة و أجزاء من التطبيق في كثير من التطبيقات الخاصة وهو منظومة للتقويم ولتثبيت المواعيد و الأحداث ، ويمكن إظهار التقويم كنموذج لليوم و / أو الأسبوع و / أو شهر ويحاكي التصميم المستخدم في MS OUTLOOK آملاً عموم الفائدة والله من وراء القصد وهو حسبي ............ NA_Calendar.rar

تفضل 3zabon.rar

لا بد يفهم ان البرنامج يمر على فصل فصل ويعمل توزيع للحصص حسب نصاب كل فصل وان البرنامج لا يتعامل مع الصفوف ولكن من اجل التسهيل على المستخدم عملناها ، الآن يتم تحديد عدد الحصص اليومية على مستوى الفصل والبرنامج هو اللي يوزعها على الفصول .. لاحظ زر الحفظ الجديد في نموذج الصف على فكرة .. بكذا اختصرنا النماذج jdwal3.rar

مرحبا استاذ خالد وقد اطلعت على الجداول .. شكرا للتفاعل والمتابعة جدول التوزيع ليس وسيطا يجب ان يكون هو النهاية او النتيجة ، وهذا ما اعمل عليه الآن تفضلوا الخطوة الثانية : ضبط عدد الايام وعدد الحصص المتاحة كل يوم لكل فصل على حده لمسة فنية لتسهيل اكتشاف التعارض بين انصبة المعلمين وعدد الحصص المتاحة كل يوم وخلال الاسبوع jdwal2.mdb

ليس معطوب ولكن تم ضغطه ببرنامج ضغط حديث تفضل الملف بدون ضغط jadwal.mdb

وعليكم السلام ورحمة الله وبركاته قم باصلاح الخطأ في الكود ومن ثم يتم تحويل القاعدة ::بالتوفيق::

قم بتحويل عمود المعادلة الي فورمات general ثم ادخل المعادلة مرة اخري انظر المرفق ملف.xlsx

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

السلام عليكم ورحمة الله وبركاته لاحظت من فترة قريبة أنتشار دورات وكورسات تعليم أكسل للمتقدمين وعلى مستوى احترافي في المنتدى فمنذ سنتين تقريباً كنت قد نشرت موضوع حول كتاب (الصيغ والدالات في أكسل 2007) ولكن الان بحثت حول الموضوع ولم أحظى بنتائج بحث إيجابية فأحببت أن أنشر الموضوع مرة أخرى نظراً لأهميته في إعطاء القاعدة الأساسية لتعليم اكسل الحمد لله الكتاب نال تحميل عدد كبير حول الوطن العربي وانتشر في أكثر من عشرين موقع لتعليم اكسل ﻷني من خلال وجهة نظري المتواضعة أن هذا الكتاب جامع لكل المعلومات في تعليم إكسل 2007 وهو بالمناسبة مترجم الى اللغة العربية وأخذ جوائز عديدة في مجال التعلم على إكسل معلومات حول الكتاب اسم الكتاب :تعليم الصيغ والمعادلات في إكسل 2007 مواصفات الكتاب :مبتدىء-متوسط - متقدم. حجم الكتاب :39 ميجا مع تطبيقاته على إكسل محتويات الكتاب بالعناوين: 1.بداية الكتاب معلومات اساسية عن برنامج إكسل 2007 2. استخدام الدالات في الصيغ 3. شرح كافة المعادلات في والتطبيق في إكسل 4. شرح صيغ الصفيف وأمثلتها المستحيلة في إكسل 5. شرح جداول Pivot والمراجع الدائرية المقصودة والمخططات والرسوم البيانية والتنسيق الشرطي والادوات والتنقيح 6.في النهاية الغير متوقعة شرح لغة VBA وطريقة كتابة الصيغ فيها أن هذا الكتاب بصراحة هو جامع المعلومات لكل الاشخاص الذين يريدون وضع قاعدة أساسية في تعلم إكسل 2007 ومن ثم الإحتراف الكتاب مع تطبيقاته وفهرسته حسب الفصول قد رفعته في رابط واحد 4Shared http://www.4shared.com/file/lNsHNDuo/Learn_Functions_in_Excel_2007.html Mediafire http://www.mediafire.com/download/w1iubho82q3ryqm/Learn+Functions+in+Excel+2007.rar يرجى من إدارة الموقع تثبيت الموضوع لكي يستفيد منه أكبر قدر ممكن من الأعضاء يرجى خالص الدعاء لأنه تعبت صراحة في تصوير الكتاب وتصحيح الفهارس والسلام عليكم

ارفق ملفاتك حتى يتم فتحها باذن الله