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

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

السلام عليكم إخواني الكرام أقدم لكم اليوم ملف قمت بإعداده ، لنتعلم من خلاله كيفية عمل قائمة منسدلة يمكن البحث من خلالها ... الملف به كل التفاصيل أرجو أن ينال إعجابكم وأن ينفعكم به Searchable Drop Down List.rar

السلام عليكم ورحمة الله تعالى وبركاته أقدم لكم هذه الهدية البسيطة والمتواضعه وهي عبارة عن فورم لمعرفة رموز الالوان RGB color codes chart صورة الفورم وفي الأخير اتمنى هذا العمل ان ينال إعجابكم في إنتظار أرائكم وإقتراحاتكم تقبلو خالص تحياتي RGB color.rar

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

السلام عليكم بارك الله فيك وجازك كل الخير اخي الصقر الجريح عندي تعقيب بسيط على الموضوع ارجو ان تتقبله بصدر رحب لانه لاغاية لي الى اثراء الموضوع اولا عندما نعطل احد وضائف المصنف مثلا كود تثبيت الشاشة Application.ScreenUpdating = False من الافضل ارجاعه الى وظيفته الافتراضية عند نهاية الكود Application.ScreenUpdating = True ثانيا في كود معرفة اخر خلية تحوي بيانات في العمود بما انك ستتعامل مع الخلية التي تليه يكون من الافضل اضافة الواحد في الكود نفسه بدلا من تكرار العملية مع كل خلية سترحل لها البيانات lr = .Cells(.Rows.Count, "D").End(xlUp).Row + 1 ثالث هنا عملية الترحيل بسيطة وليس فيها الكثير من البيانات فرضا انه لدينا بيانات كثيرة سترحل سيكون من الافضل استخدام الحلاقات الدورانية لتنفيذ المطلوب لاكن في المثال السابق ليس من المستحسن استخدامها لان ترتيب البيانات المرحلة متخالف مع المرحل اليها انما سيربكنا استعمالها لذى افضل استخدام المصفوفات التي تتسم بالسرعة الفائقة في التنفيذ و اختزال الاسطر الكثيرة ليكون المثال السابق كالاتي Sub ترحيل() Application.ScreenUpdating = False With Sheet4 lr = .Cells(.Rows.Count, "D").End(xlUp).Row + 1 ' مصفوفة تحوي البيانات التي سترحل حسب ترتب الترحيل Dim Matrix: Matrix = Array([D8], [G7], "", [D10], "=R[-1]C+RC[2]-RC[1]", "", [d11]) 'كود الترحيل بستخدام المصفوفة و دالة Resize .Range("A" & lr).Resize(1, 7).Value = Matrix End With Application.ScreenUpdating = True End Sub في الاخير ارجو ان تكون فكرتي وصلت وان تستفيدو منها واكرر اعتذاري للاخ الصقر الجريح وارجو ان لا اكون قد تطاولت على موضوعه تحياتي للجميع

الاخوة الكرام اقدم لكم بقية لدرس الترحيل كيفية وضع شروط تجبر المستخدم على ادخال بيانات مما لا شك فيه ان سند القبض اللى بصورة التالية لابد من ادخال جميع البيانات اللى بالسند وهى المظلله باللون الاصفر رقم الايصال بالخلية [G7] تاريخ السند بالخلية [D8] الجهه التى تم القبض منها بالخلية [D10] المبلغ المقبوض بالخلية [D11] ان شاء الله اليوم بنتعرف كيف يمكن اجبار المستخدم على ادخال البيانات قبل ترحيلها فلا يعقل مثلا ان يقوم المستخدم بعدم كتابه تاريخ للسند ويترك الخلية فارغه بدون تاريخ ثم يقوم بالترحيل لازم اجبره على ادخال التاريخ اولا: اجبار المستخدم على ادخال رقم الايصال بالخلية [G7] هنستخدم السطر التالى بالكود If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub هذا السطر يتم اضافتة بعد هذا السطرمن الكود Application.ScreenUpdating = False ليصبح هكذا Sub ترحيل() Application.ScreenUpdating = False If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [D8] .Cells(Lr + 1, "B") = [g7] .Cells(Lr + 1, "D") = [D10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub تعالى بقى نشرح معنى هذا السطر If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub هذا السطر من الكود معناه ببساطه كدا ان لو الخلية [g7] فارغه اكتب رساله تظهر للمستخدم تنبهه بان الخلية فارغه ويجب ادخالها و اخرج من الكود ومتكملش الشىئ الذى تريد تنفيذه then الشرط المطلوب التحقق من وجوده if استخدمنا هنا IF وذالك لعمل شرط قبل عملية الترحيل وهى كما نعرف جميعا ان iF معناها لو then معناها تنفيذ الشرط الذى نريده كما اتفقنا من قبل هو عدم ترك الخلية [g7] فارغه اللى بيسجل بها رقم الايصال الكود هيقوم باختبار الشرط التالى "" = [if [g7 "" العلامه هذا بالكود تعنى فارغ ( فلو [g7] تساوى فارغ نفذ كذا كذا ) نفذ دى فى الكود هى Then وسيكون لونها بالكود ازرق هينفذ ايه بقى انا عايزة يظهر رساله وهى " الرجاء ادخال رقم الايصال" ونلاحظ انها مكتوبه بين علمتى تنصيص ( تكتب من خلال شيفت + حرف ط بالكيبور) وهينفذ ايه تانى غير الرساله هينفذ خروج من الكود ميكملش يعنى ودى بتكون exit sub : وبعدها كتابتها ستجد ان لونها اصبح ازرق لمتابعه شرح عن كتابة الرسائل فى لغة البرمجه يرجى مراجعه الرابط التالى ستجد شرح باستفاضه http://www.officena.net/ib/index.php?showtopic=57199&hl= ) ثانيا : عايزين نجبر المستخدم على ادخال التاريخ If [d8] = "" Then MsgBox "الرجاء ادخال تاريخ لسند القبض": Exit Sub هو نفس السطر السابق بس بنختبر الخليه [d8] فيها تاريخ ام لا ثالثا : اجبار المستخدم على ادخال الجهه التى تم الاستلام منها If [d10] = "" Then MsgBox "الرجاء ادخال اسم الشخص الذى تم الاستلام منه": Exit Sub رابعا: اجبار المستخدم على ادخال المبلغ المقبوض If [d11] = "" Then MsgBox "الرجاء ادخال المبلغ المقبوض": Exit Sub وهيكون الكود فى شكله النهائى كالتالى Sub ترحيل() Application.ScreenUpdating = False If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub If [d8] = "" Then MsgBox "الرجاء ادخال تاريخ لسند القبض": Exit Sub If [d10] = "" Then MsgBox "الرجاء ادخال اسم الشخص الذى تم الاستلام منه": Exit Sub If [d11] = "" Then MsgBox "الرجاء ادخال المبلغ المقبوض": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [g7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub يعنى الكود قبل الترحيل هيعمل اربع اختبارات الاول هيمسك اول سطر بتاع رقم الايصال لو موجود ينتقل للسطر اللى بعده ولو مش موجود هبخرج من الكود ومش هيكمل وهكذا ما باقى الاسطر الين يتحقق من وجود بينات بالاربع خلايا ثم يقوم بعمليه الترحيل خامسا : هل يمكن عمليه الاختبار بسطر واحد بدلا من اربع اسطر نعم يمكن ذالك من خلال السطر التالى If [g7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub هنا تم استخدام داله OR وهى تعنى أو لو الخلية اللى بها رقم الايصال فارغه أو الخلية اللى بها التاريخ فارغه او الخلية اللى بها الجهه التى تم استلام المبلغ منها أو الخلية اللى بها المبلغ فارغه نفذ رساله ثم اخرج من الكود ومتكملش ويكون الكود بشكله النهائى كالتالى Sub ترحيل() Application.ScreenUpdating = False If [g7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [g7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub وفى النهاية ارجوا ان اكون وفقت بالشرح واتمنى ان يستفيد منه الجميع تقبلوا منى وافر الاحترام والتقدير

بين تاريخين hossam.rar

بسم الله الرحمن الرحيم الاخوة الزملاء فى هذا الصرح العظيم اقدم لكم الدرس الثانى من علمنى كيف اصطاد شرح مبسط عن كيفية عمل كود ترحيل من خلايا متفرقه بورقه عمل الى ورقة عمل اخرى بناء على طلب الاخ الكريم / بيف الدين حسام يريد معرفه كيفية عمل كود ترحيل من سند قبض الى شيت الخزينة كما هو موضح بالصور المطلوب ترحيل الخلايا المظلله باللون الاصفر بورقه عمل (توريد) الى ورقة عمل حركة الخزينة اولا : الضغط على ALT+F11 لفتح محرر الاكواد ثم من قائمة insert نختار مودويل جديد سيظهر لنا شاشة بيضه هنبداء بسم الله كتابة الكود Sub ترحيل() End Sub السطر الاول هو الاعلان عن بداية الكود sub يلية اسم الكود وهو ترحيل يلية () يعنى فتح قوس ثم غلقه فبمجرد كتابة السطر الاول سوف يتم ظهور السطر الثانى وهو End sub أنا عايز كل واحد يكتب الكود بنفسة مش ينسخ / من فضلك عايزك تكتب ثانيا : كتابة هذا السطر Sub ترحيل() Application.ScreenUpdating = False End Sub هذا السطر يعنى تثبيت الشاشه عند الترحيل ( يعنى عدم اهتزاز الشاشه اثناء تطبيق الكود ) ثالثا : ايه المطلوب هو ترحيل الخلايا المظلله باللون الاصفر بورقه عمل توريد الى ورقة عمل حركة الخزينة اذن الشيت اللى هتروح له البيانات هو شيت حركة الخزينة وهو اسمه حسب الملف المرفق وكما هو موضح بالصورة Sheet4 وليس حركة الخزينة ملحوظه/عند استخدم اسم شيت باى كود يفضل كتابة اسم الشيت الثابت كما هو بمحرر الاكواد لانه احتمال تغيير اسم الشيت من (حركة الخزينة) الى (قاعدة البيانات )مثلا فى هذه الحاله لا يعمل الكود نرجع للكود بتاعنا ونضيف الاتى Sub ترحيل() Application.ScreenUpdating = False With Sheet4 End With End Sub ما تم اضافته هو With Sheet4 كلمة With معناها الحرفى ( مع) أى مع الشيت Sheet4 لماذا استخدمنا Sheet4 وليس ( حركة الخزينة) لان لو كتبنا (حركة الخزينة With) وجيت حضرتك وغيرت اسم الشيت من حركة خزينة الى قاعدة البيانات مثلا لا يتغير اسم الشيت فى محرر الاكواد فهو هيظل ثابت باسم Sheet4 وفى هذه الحاله لا يعمل الكود لانه هيبجث عن شيت حركة الخزينة هيكون غير موجود لكن لو استخدمت With Sheet4 مهما تغير اسم الشيت هيشتغل الكود طيب اى شئ بفتحه فى الاكسيل لازم اقفله انا دلوقتى فتحت With Sheet4 اذن لا بد من قفل With بـــ End With رابعا : اضافه السطر التالى Sub ترحيل() Application.ScreenUpdating = False With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row End With End Sub الجديد هو هذا السطر Lr = .Cells(.Rows.Count, "D").End(xlUp).Row عملنا متغير اسمه LR ويمكنك تغيير الى ما تريد من الاحرف حسب مزاجك حضرتك طيب وعرفناه انه عبارة عن اخر خليه بها بيانات فى عمود D من شيت حركة الخزينة وهى هنا كما هو بالصورة عليه الخلية D4 مكتوب فيها " رصيد افتتاحى" واحد هيقولى مش فاهم هوضح له اكتر مثلا عايز اقول ان " الاستاذ الكبير العلامه ياسر خليل العبقرى" = r فبدل كل شوية ما اكتب الجمله دى " الاستاذ الكبير العلامه ياسر خليل العبقرى " وتاخد منى وقت استعيض عنها بى r فقط / على طول الكود هيفهم معناها خامسا : اضافه السطر التالى Sub ترحيل() Application.ScreenUpdating = False With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [D8] End With End Sub ما هو الجديد الجديد هذا السطر [Cells(Lr + 1, "A") = [D8. ماذا يعنى الجزء الاول و هو.("Cells(Lr + 1, "A. (العمود, الصف)Cells. الصف هو Lr+1 يعنى Lr هى اخر صف فى العمود D من شيت حركة الخزينة فيه بيانات ( طيب انا عايز بقى السطر اللى بعده يبقى اقول Lr+1 طيب والعمود هو A وتم كتابته بين علمتى تنصيص "A" ( شيفت + حرف الطاء بالكيبور) طيب عمود A ده عايزين يروح له التاريخ اللى بسند القبض / والتاريخ اللى بسند القبض موجود بالخلية D8 صح اذن اقول [Cells(Lr + 1, "A") = [D8. وهكذا كما هو موضح بالكود يتم ترحيل كامل بيانات السند ثم نغلق With ب End With Sub ترحيل() Application.ScreenUpdating = False With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [D8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [D10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub اضغط على زر الترحيل ستجد البيانات تم ترحيلها ارجوا من الله ان اكون وفقت فى هذا الشرح ويستفيد منه الجميع ان احسنت فمن الله وما توفيقى الا بالله وان اخطأت فمن نفسى والشيطان وارجوا من الاساتذه الافاضل مراجعه الشرح وتصحيح ما به من أخطأ ولى رجاء من ادارة المنتدى جعل التعديل على الشرح متاح لى حتى يتثنى لى اضافه بعض الاشياء الاخرى تخص نفس الموضوع انا استكفيت بهذا القدر حتى يكون سهل على الاعضاء اللى عايز يطبق وان شاء الله سوف نكمل ما بدأناه تقبلوا منى وافر الاحترام والتقدير خزينة.zip

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

اخى الجموعي فورم رائع ولا غنى عنه لأي متعامل مع الفورم والأكواد، سلمت يمينك وجعل الله عملك في ميزان حسناتك تحياتى

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

اخى الفاضل اجعل سطر الكود هكذا ستزبط معك ان شاء الله ThisWorkbook.Sheets("الواجهة الرئيسية").Activate تحياتي و أخيرًا الحمد لله تم المطلوب..الفضل لله ثم لك أستاذي الغالي ..بارك الله فيك دنيا و آخرة

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

باخفاء كل البيانات invigilations99.rar

أشكرك أخى وأستاذى الفاضل / ياسر خليل على دعائك الطيب أدام الله عمرك وجعلك الله زخرا لهذا المنتدى العظيم وزادك الله من العلم الكثير والكثير

السلام عليكم عمل رائع هل بلإمكان اظافة خاصية نسخ الرمز

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

اخى الفاضل اذهب الى ملف File خيارات Options خيارات متقدمة Advanced وانزل قليلا للاسفل وتأكد من وجود علامة صح بجانب اظهار كافة النوافذ في شريط المهام Show All Windows In Taskbar .. ان لم تكن موجودة قم بوضعها كما في الصورة المرفقة .. جرب واعلمنا بالنتيجة تحياتي

الاخوة الافاضل في المنتدى الرائع السلام عليكم ورحمة الله وكل عام وانتم بخير وعافية اخواني حاولت كتابة صيغة عن طريق ( conditional formula ) وذلك لاظهار تاريخ انتهاء تاشيرة زيارة عمل بعد ثلاثين يوم من تاريخ دخول الدولة مثلا اذا دخل العامل الدولة بتاريخ اليوم , ارغب من الاكسل ان يظهر لي تاريخ الانتهاء المتوقع بعد ثلاثين يوم من دخوله ارجو ان المثال واضح لكم وشكرا

الملف بعد التعديل student4.rar

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

استاذى المبدع ابوتراب بارك الله فيك عمل اكثر من رائع زادك الله علما تقبل تحياتى

جزاك الله كل خير

السلام عليكم أخي العزيز عندك أكثر من خطأ واحد بالملف أولا النطاق الذي ترجع إليه بالدالة VLOOKUP وهو النطاق المسمي "الشيت" غير محدد بطريقة مضبوطة فهذا النطاق لابد أن يكون أول عمود به هو العمود الذي ستبحث عنه بالدالة VLOOKUP أي أنه لابد أن يبدأ من أرقام الجلوس أي العمود C تم تعديل ذلك بالملف ثانيا لابد من أن تفهم كيفية عمل الدالة VLOOKUP فهي يتبعها بين الأقواس 4 عوامل ، الثلاثة الأوائل منها إلزامية والرابع إختياري يأخذ إحدي قيميتن (1 أو 0) وهي نفسها قمتي التحقيق ( True, False) وهذا العامل الرابع أنت لم تضعه في معادلتك فسيفرضه نظام الاكسل =1 وهو كما اتفقنا يأخذ إحدي قيمتين 1 أو Trueوتعني تقريبي 0 أوFalseوتعني تماما فكانت نتيجة معادلتك الأولي أنه يبحث عن أرقام الجلوس في مجال لايبدأ بأرقام الجلوس فيأتي بأول قيمة في المجال ثم العاتمل الرابع غير موجود (لايساوي 0) فلايتحري الدقة في تساوي النتيجة فيتكرر يعني إذا أعدت صياغة المعادلة في الخلية D7 إلي التالي VLOOKUP(B7,الشيت,9,0) وهكذا باقي المعادلات ثالثا وأخيرا عمود التخصص يرجع لمرجع قبل رقم الجلوس وهذا ليس الطبيعي في دالتنا هذه لذلك غيرتها لك بدالة أخري Match مع مساعدة من دالة ثالثة Offset تفضل المرفق مناداة-Tarek.rar

تقصد مثل هذا تاريخ.rar

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

اخى الفاضل أ.حسام مجهود كبير من أستاذ قدير، أدعوا الله أن يجعل عملك في ميزان حسناتك وأن ينفع بك الإسلام والمسلمين خالص تحياتي

اخى الفاضل انسخ المعادلة هذه في الخلية B1 ثم اكتب اى رقم في الخلية A1 =IF(AND(A1<5,A1>0),"أقل من5",IF(A1=5,"تساوي 5",IF(A1>5,"اكبر من5","لاشئ"))) تحياتي

الاخت الكريمة جربى المعادله التالية فى الخلية G2 ثم سحبها الى اسفل =IF(F2-INT(F2)>=0.5;F2-INT(F2)-0.5;F2-INT(F2)) مرفقك ملفك بعد التعديل تقبلى تحياتى الحافز.zip

على قولهم : احسن اعلمك تصيد هذه القوائم خاصة بأكسس 2003 الاصدارات الاحدث تعمل بطريقة اخرى ابحث عن قوائم 2007

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

لا عبقير ولا عبقور فقد نقلت لك الحل من الامثلة السابقة Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) AccessTotalsExpr2 = 0 End Sub في الكود اعلاه وفي رأس الصفحة جعلنا قيمة حقل الجمع تساوي صفر حتى نقطع الصلة مع الصفحة السابقة ونبدأ من جديد Private Sub ÊÝÕíá_Print(Cancel As Integer, PrintCount As Integer) AccessTotalsExpr2 = AccessTotalsExpr2 + Expr2 End Sub وفي مقطع التفصيل جعلنا حقل المجموع = حقل المجموع نفسه + السعر لا حظ ان الجمع سيكون تراكميا بعدد حقول السعر فلو فرضنا ان قيم حقول السعر هي 1 ، 2 ، 3 ، 4.... هكذا ففي الحقل الاول ستكون القيمة = صفر+1 =1 والثاني = 1+ 2=3 والثالث= 3+3=6 والرابع = 6+4=10 وهكذا ....... فآخر عملية هي القيمة النهائية لمجموع الصفحة آمل اني قد بينت ووضحت بعض الاشكالات التي لديك

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

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

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

تفضل sa2.rar

من خلال هذا الكود المرفق تحويل خلايا الاكسيل إلى صورة كل ما عليك فتح الاكسيل واضافة موديول وضع بداخلة الكود بالمرفق ثم قم بتشغيل الماكرو وشاهد Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long Sub SaveLogoAsGif() Dim MyChart As Chart Dim objPict As Object Dim RgCopy As Range On Error Resume Next Set RgCopy = Application.InputBox("Select the range to copy / Saveas", "Selection Save", Selection.Address, Type:=8) If RgCopy Is Nothing Then Exit Sub On Error GoTo 0 RgCopy.CopyPicture Appearance:=xlScreen, Format:=xlBitmap ActiveSheet.PasteSpecial Format:="Bitmap" Set objPict = Selection With objPict .CopyPicture 1, 1 ':=1 Set MyChart = ActiveSheet.ChartObjects.Add(1, 1, .Width + 8, .Height + 8).Chart End With With MyChart .Paste .Export ThisWorkbook.Path & Application.PathSeparator & "Temp.gif" .Parent.Delete End With '// cleanup objPict.Delete Set RgCopy = Nothing Set objPict = Nothing '// Now lets View it ShellExecute 0, vbNullString, ThisWorkbook.Path & Application.PathSeparator & "Temp.gif", _ vbNullString, vbNullString, vbMaximizedFocus End Sub

اخى الحبيب الاستاذ الفاضل مختار اولا:اشكرك على كلماتك الطيبه فى حقى . ثانيا : واما وجهة نظرك بشرح الدول بتصنيفاتها فوجهة نظرى تختلف عنك والسبب ان هذا موجود فعلا ضمن تعليمات ميكروسوفت اكسيل . اذن سيكون الشرح متكرر ووجهة نظرى ان يتم عمل مكتبة للدوال والمعادلات حسب حالات معينه او اقصدAdvanced Excel Tricks . فانا اعتقد ان الاكسيل مثل الطبيب الذى يقوم بعمل اكثر من علاج فى الروشته الواحده حتى يستطيع معالجة الحاله هكذا الاكسيل . فنحن نركب ونجمع معادلات متعدده حتى نصل الى حل او نتيجه . فهل انت معى فى وجهة نظرى هذه تقبل تحيات اخيك

لا يوجد جداول الاحسن ارفاق مثال من عملك

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

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

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

هلا باخي ابوعبيد ان شاء الله ستحل عملت لك بعض التغييرات بحيث تعمل و الملف مشارك ...جرب الكود هذا وخبرنا كلمة السر 111 كما في الملف المرفق With ActiveWorkbook Application.DisplayAlerts = False .ExclusiveAccess Application.DisplayAlerts = True ActiveSheet.Unprotect 111 [A2] = [A1] ActiveSheet.Protect 111 Application.DisplayAlerts = False .KeepChangeHistory = True .SaveAs Filename:=ActiveWorkbook.FullName, AccessMode:=xlShared Application.DisplayAlerts = True End With تشغيل ماكرو في ملف مشارك.zip

ايوه كده يااخى الحبيب حمدالله على سلامتك بعد الغيبه الطويله جزاكم الله خير وبارك فيكم

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

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

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

تقوم بذلك من محرر الاكواد شاهد الصور

الاخ يحياوي : شكرا لاطرائك الجميل وهذا يشجعنا الاخوة الاعضاء يقوم هذا الكود بعمل - شاشة دخول اكسل - اتمنى ان يعجبكم وفقك الله ياسر الحافظ شاشة دخول اكسل - كود.rar

كود ملء الشاشة ، اخفاء شريط الادوات ،اخفاء شريط الصيغة DisplayFullScreen.rar