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

السلام عليكم ورحمة الله قم بتحويل الملف المرفق إلى ملف تنفيذي وجربه... بن علية حاجي touati.xlsm

وعليكم السلام ورحمة الله افتح التقرير من خلال النموذج وأنظر .... DATA- Age1.rar

وهذا حل ايضا بالكود على الرغم انك قد رافض هذا الأمر من البداية فلهذا موضوعك اخذ أكبر من وقته وحجمه فالموضوع ابسط من هذا بكثير -تفضل وذلك من خلال وضع هذا الكود بحدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) Dim xCellColumn As Integer Dim xTimeColumn As Integer Dim xRow, xCol As Integer Dim xDPRg, xRg As Range xCellColumn = 1 xTimeColumn = 2 xRow = Target.Row xCol = Target.Column If Target.Text <> "" Then If xCol = xCellColumn Then Cells(xRow, xTimeColumn) = Now() Else On Error Resume Next Set xDPRg = Target.Dependents For Each xRg In xDPRg If xRg.Column = xCellColumn Then Cells(xRg.Row, xTimeColumn) = Now() End If Next End If End If End Sub الحضور1.xlsm

تم معالجة الامر الكود Option Explicit Sub Get_ALL() Dim Arr(), m, I, itm Dim Ro%, Col%, My_sum# Dim k% m = 1 Principal.Range("B7:B13").ClearContents If Application.CountA(Principal.Range("B4:B6")) < 3 Then MsgBox "Incomplete Data" & Chr(10) & _ "Ckeck Up For Empty The Cells,B4,B5,And B6" Exit Sub End If If Principal.Range("B4") > Sheets.Count - 1 Then Principal.Range("B4") = 1 End If If Principal.Range("B5") > Sheets.Count - 1 Then Principal.Range("B5") = Sheets.Count - 1 End If If Principal.Range("B5") < Principal.Range("B4") Then Principal.Range("B5") = Principal.Range("B4") End If m = 1 For I = Principal.Range("B4") To Principal.Range("B5") ReDim Preserve Arr(1 To m) Arr(m) = Sheets(Principal.Range("B4") + m).Name m = m + 1 Next '++++++++++++++++++++++++++++++++++ For k = 7 To 13 For Each itm In Arr Ro = Sheets(itm).Range("B4:B21").Find(Principal.Range("B6"), lookat:=1).Row Col = Sheets(itm).Range("C3:Z3").Find(Principal.Range("A" & k), lookat:=1).Column + 2 My_sum = My_sum + Val(Sheets(itm).Cells(Ro, Col)) Next itm Principal.Range("B" & k).Value = My_sum My_sum = 0 Next k End Sub الملف مرفق MaKhazin.xlsm

بسم الله الرحمن الرحيمميزه وخاصية ممتازه وهى Flash Fill (تعبئة سريعة) تغنيك عن استخدام صيغ ومعادلات ..الخ . اتمنى ان تفيدكم . ولاتنسونا بصالح دعاؤكم. رابط الفيديو

بسم الله الرحمن الرحيم، السلام عليكم ورحمه الله وبركاته، كل عام وجميع زوار وأعضاء ومشرفي وإدارة منتدى أوفيسنا بكل خير وسعادة، عذرا لقلة مشاركاتي في هذا الصرح الكبير؛ نظرا لانشغالي ببعض الأمور، ولكن أعدكم دائما بكل جديد ومفيد. وفي هذه المرة أحب أن أقدم لكم هدية بعنوان احسب فاتورة الكهرباء المصرية من 2020 الى 2025 مع هذا البرنامج. فقد اصدرت وزارة الكهرباء قرارا بتحديد اسعار اكهرباء ي مصر للخمسة سنوات مقلبة من 2020 الى 2025. وكان ذلك يوم الثلاثاء 9 / 6 / 2020 فقمت بتصميم هذا البرنامج في الاكسس وقمت بعرضه هنا وبانتظار آرائكم ومقترحاتكم لتطويره. رابط الملف المستعمل في الشرح سيكون بناء على تفاعلكم مع الموضوع وتعليقاتكم في اليوتيوب. وهذا الفيديو الخاص بالشرح وعرضت في الفيديو تحديا لمن يهتم ببرمجة الويب في تحويل هذا البرنامج لصفحة ويب فمن لها من اصدقائي؟؟؟!!! وفي الأخير أدعوكم جميعا لزيارة مدونتي في ثوبها الجديد. وفقنا الله جميعا لكل ما يحب ويرضى.

السلام عليكم معذرة ولكن ليس لي فكرة أخرى...

بوركت أستاذ

هناك اكثر من طريقة لعمل ذلك وهذه واحدة منها ..... افتح الاستعلام ولاحظ .... test (8) (1).accdb

بارك الله فيك استاذنا الكريم ... بس فين هو البرنامج ؟!!

المعادلة تعمل في العمود d هذا الملف الذي عملت عليه القيمة الظاهرة 5 اذا وجدت خطا المشكلة من عندك nour8161.xlsx

تفضل ..... 2.accdb

هل تسمح بأبداء رأئي 🤔🤔

شكراً أخي ابو ياسين فهمت اين اخطأ بارك الله بجهودك

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

اتفضل [Forms]![Bookss].[RT]![Cuont] RAR.accdb

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

تطبيق وفكرة اليوم مربعات تحرير ذكية لاخيار التاريخ Smart Date Combo Boxes كلمات استدلالية : نموذج - تاريخ - مربعات تحرير وسرد - كود التطبيق يوضح كيفية انشاء منتقي تاريخ ذكي في النموذج بالاستعانة بمجموعة من مربعات التحرير و السرد ، لليوم والشهر و السنة . لا نسمح للمستخدم بادخال التاريخ مباشرة من حقل تاريخ التعيين ، ونلتزم هنا بادخال التاريخ عن طريف منتقي التاريخ . حيث تنيهي نتيجة اختياراتنا في حقل تاريخ التعيين وذلك بعد مقارنة الحقول الثلاثة ببعضها اليوم والشهر و السنة ، وأجمل ما في هذه الكودات هذه المقارنة ، فحين تختار اليوم يفحص عدد ايام الشهر للسنة المختار وفي حال اختيار يوم غير صحيح ، كاختيار يوم 31 لشهر شباط وعدد ايامه لتلك السنة 28 نقوم باشعار المستخدم بان ايام الشهر هي 28 ويتم تثبيت أقرب نتيجة صحيحة في حقل تاريخ التعيين. وعندما ننتقل من سجل لآخر في النموذج يتفاعل منتقي التاريخ بمربعاته الثلاثة مع التاريخ الموجود في حقل تاريخ التعيين ، وفي حال عدم وجود أي تاريخ في يظهر منتقي التاريخ تاريخ اليوم . ويبقى الابداع بالاستخدام من نتاج افكاركم .... والله من رواء القصد ... NA_SmartDateComboBox.rar

تفضل الملف هذا افضل بالتوفيق لا تنسنى بالدعاء https://drive.google.com/file/d/0B-U9DKo5z-PbcHdNTXFLbVRiaFU/view

حياك الله وبالتوفيق

أخي الكريم kanory عاجز عن الشكر بارك الله فيك وفي علمك

السلام عليكم استاذي العزيز هذه محاولة ارجو ان تكون موفقة Root10.rar Root12.rar

بعد اذن اخي محمد جرب المرفق تشغيل استعلام تحديث و اظهر تنبيه.accdb

أكرمك الله، وزادك من فضله يعطيك العافية

جرب هذا الملف بالتفصيل Fahad Time Sheet.xlsx

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

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

انظر المرفق ...... ما هو الداعي لاستخدامها في الاستعلام ( الراتب مسجل في الجدول ) انشئ الاستعلام من الجدول مباشرة أنظر الاستعلام في المرفق .... test (8).accdb

تقبل الله طاعتكم ، ووفق الجميع لبلوغ ليلة القدر وجعلنا جميعا من المقبولين وبعد:- في المرفق ملف من شيتين ، إريد إذا اخترت القسم من القائمة المنسدلة يحضر بيانات جميع الموظفين في نفس القسم وشكرا لكم جميعا Data_HR.xls

السلام عليكم اخيرااااااا وبعد صدور الكتاب الدورى رقم 35 للتعديلات الأخيرة قانون رقم ( 82 ) لسنة 2017 اليكم ملف اكسيل يحسب ضريبة كسب العمل ويشمل الملف -نص القانون -الكتاب الدورى -معادلة الضريبة مقسمة الى شرائح -معادلة واحده تحسب المبلغ النهائى للضريبة وبالفترات الملف بدون حماية ويحق للجميع النقل والاستفاده منه كما يشاء . وفق الله الجميع زكاة العلم نشره وارجو مشاركة الجميع تحميل الملف الاكسيل : http://www.mediafire.com/…/%D8%AE%D8%A8%D9%8A%D8%B1+%D8%A7%… لا تنسونا بصالح دعاؤكم هذا وماكان من توفيق فمن الله وحده وماكان من خطا او نسيان اوزلة لسان فمنى ومن الشيطان خالص تحياتى لكم محمد الريفي . -------- رابط الكتاب الدورى PDF https://www.mediafire.com/?nzrn4dv8azcbi1c كسب العمل.rar

الادارة ..... الرقم السرى 123 الاستقبال ..... الرقم السرى 1 البرنامج مفتوح يمكنك التعديل واضافة ما يناسبك

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود توزيع الأسماء بالعدد الذي نبغاه ... للإكسيل تم ارفاق كود الحل من الافاضل/ خالد نور _ هادى محمد المامون سالم _ عبدالله باقشير و لا تنسونا من صالح الدعاء تحياتى توزيع خالد نور (1).rar Clas توزيع هادى مأمون سالم.rar توزيع عبدالله باقشير).rar توزيع عبدالله باقشير2.rar