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

السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والمتواضعة ( زاد المثابر للحصول على أسماء العناصر) هذه الأداة صممتها بفضل الله في أكسس تقوم بإحضار وسرد أسماء العناصر لك لكي تستطيع نسخها ولصقها في أي مكان تريد بكل سهولة ويسر 🙂 شخصيا أستفدت كثيرا منها وسهلت علي الكثير من الجهد وقلصت من وقت العمل بحمد الله وفضله. وهنا اختصرت على نفسي الكتابة وقمت بشرح الأداة مرئيا 🙂 متابعة ممتعة 😊👌🏼 ولا أستغني عن آراءكم وملاحظاتكم .. 🙂 لتحميل الملف المستخدم في الشرح وبه النموذج : التحديث 2.0 : تم إضافة خاصية جلب عناصر النماذج الفرعية .. والتقارير الفرعية .. شكرا للأخ @عمر ضاحى على الفكرة 🙂

كود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A4:A3000")) Is Nothing Then With Target .Offset(, 5).Value = Format(Date, "YYYY/MM/DD") .Offset(, 6).Value = Format(Time, "hh: mm") End With End If End Sub

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

مبدع دائما عزيزي موسى، سلمت اناملك. بالمناسبة كنت اعتقد انك شخص عجوز 😄 لكن واضح من صوتك انك شاب 😅

سأعمل على تحقيق هذه المطالب بأسهل الطرق... إن شاء الله

جرب ، عملته أولا في النموذج الرئيسي ثم رأيت أن يكون في الفرعي. Database1_05.mdb

حياك الله اخي الكريم، الحمدلله انا في خير وصحة.. اسال الله ان تكون انت كذلك

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

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

ربما ترحيل السلة.xlsm

السلام عليكم ورحمة الله وبركاته يمكنك عملية دالة شرطية دون الحاجة الى كود ضع الشرط هذا في العود رقم (6) ورقم (7) ونسق اعدادات الخلية الى تنسيق عمود للتاريخ وعمود للوقت =IF(A1<>"";NOW();"") شرط العمودA.xlsm

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

جرب فقط نموذج مبيعات يومية وإدخال الباركود عن طريق الصندوق الأصفر. عدلت طول رمز الصنف من 7 إلى 5 خانات. Database1_04.mdb

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

جيد، توني أنتبه أن الأصفار تابعة للرمز. أنا لما قلت 5 لأني طرحت أول رقمين من اليسار من 7 أرقام المعتمدة حاليا. سأقوم بالتعديل.

شكر وتقدير واحترام من اخيك

شفاك الله وعفاك اخى الكريم

ويوجد هنا موضوع جميل للأستاذ @إبراهيم ابوليله لعلك تجد فيه ما تبغي

جرب yasser_10.accdb

استاذي الضافل @ابو صقر اقترح عليك بعض الدروس قد تفيد وتفح لك الباب اقرا بعض الموضوعات المنتدي وافتح الملفات وحاول تفهم المقصد الشروحات وفهم الاكواد التعليم ياتي واحده واحده

واياكم اخى محمد بالتوفيق

بارك الله فيك وجزاك الله خيرا

مرحبا اذا ممكن ترفق مثال حتى يتم الرد عليه ولكن في زر الاضافة يمكنك اضافة هذا الكود في اخر الكود في زر الاضافة me.Requery

السلام عليكم ورحمة الله وبركاته 🙂 اليوم بفضل الله تعلمت شي جديد وحبيت أحطه في تطبيق عملي مباشرة ً .. 😎 وفي نفس الوقت حبيت أشارككم الفائدة 😄 معلومة اليوم تتحدث عن الحدث : Form.Repaint للنموذج ويمكن كتابته هكذا Me.Repaint ووضيفته مشابهة للـ DoEvents تقريبا إلا أنه مع التجربة والمقارنة وجدته أسرع في التنفيذ . معناه الحرفي ( إعادة الرسم ) ووضيفته بشكل عام هو إظهار أي تحديثات معلقة للنموذج في أثناء تنفيذ أي حدث 😁 .. وللمزيد من المعلومات هنا ستجدون رابط الشرح من مايكروسوفت : <<< اضغط هنا >>>> المهم .. هذا تطبيقي على الحدث وتكمن في تحريك الأزرار عند الضغط عليها بشكل يضفي طابع جمالي وجديد للنماذج 🙂 ( قد لا تبين حركة الأزرار العلوية في الصورة التوضيحية .. لذلك سترونها بوضوح من خلال الملف المرفق 😁 ) وهذا شكلها في الأكواد المستخدمة : Function AnimateBtns1() Dim x As Integer Dim y As Integer For x = 1 To 6 Me("b" & x).Visible = True For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top + y Me.repaint Next y For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top - y Me.repaint Next y Me.repaint Next x End Function Function AnimateBtns2() Dim x As Integer Dim y As Integer For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top + y Me.repaint Next y Me.repaint Next x For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top - y Me.repaint Next y Next x End Function تحياتي 🙂 ✌️🌷🌹 حركة الأزرار.accdb

السلام عليكم مشاركه مع والدى العزيز @محمد حسن المحمد جزاه الله كله خير 🌹 بالنسبه للاده Kutools For Excel كما اذكر انها يجب شرائها بعد الفتره التجريبيه المسموحه يمكنك تحميل الاداه من الرابط التالى ولا تحتاج تفعيل وجزاه الله خيرا استاذ على بالتوفيق

جزاكم الله خيرا وأحسن إليكم آمين يارب العالمين 🏵️ ولكم بمثل ما دعوتم أخي الكريم بعد الإجازة إن شاء الله أنظر في الملف المرفق أو اطلب من الإخوة الكرام إتمام ذلك. الحمد لله الذي بنعمته تتم الصالحات والسلام عليكم ورحمة الله وبركاته

السلام عليكم أخي الكريم راجع الرابط التلي http://www.officena.net/ib/index.php?showtopic=41986&hl=&fromsearch=1

السلام عليكم بعد اذن الحبيب طارق ___حفظه الله لقد صممت الدالة kh_Sum_Hijri لحساب الجمع بين فترتين بالتاريخ الهجري Option Explicit Function kh_Sum_Hijri(MyNSheet As String, Firstdate As String, Enddate As String, Rngdate As String, RngSum As String) Dim kh_Calendar As Integer kh_Calendar = Calendar Calendar = vbCalHijri If IsDate(Firstdate) And IsDate(Enddate) Then kh_Sum_Hijri = kh_Sum(CDate(Firstdate), CDate(Enddate), Sheets(MyNSheet).Range(Rngdate), Sheets(MyNSheet).Range(RngSum)) End If Calendar = kh_Calendar End Function ===================================================== Function kh_Sum(d1 As Date, d2 As Date, Rng1 As Range, Rng2 As Range) As Double Dim MySum As Double Dim i As Long With Rng1 For i = 1 To .Rows.Count If CDate(.Cells(i, 1)) >= d1 And CDate(.Cells(i, 1)) <= d2 Then MySum = MySum + Rng2.Cells(i, 1) Next i End With kh_Sum = MySum End Function وقد اضفت ثلاث طرق لطريقة استخدام الدالة في ثلاثة اوراق اختار منها الطريقة التي تريد انقل الكود الذي في الملف الى ملفك لتعمل معك الدالة تفضل المرفق اكسل 2003 جمع قيمة بين تاريخين1.rar

السلام عليكم أولا في هذا المثال " الجمع بين تاريخيين 1." الذي وضعته انت بالمشاركة السابقة يمكن إستبدال الكود للحصول علي المجموع بالخلية C6 بالمعادلة التالية =SUMIF(E4:E14,">="&C4,F4:F14)-SUMIF(E4:E14,">"&C5,F4:F14) ثانيا في مثالك أنت الأول ، فأنت لاتكتب التاريخ بتنسيقه الصحيح فأنت تكبه حروف بصيغة لايتعرفها الإكسل وإن كان من الممكن التحايل علي هذا فقد أضفت لك العمود F المكتوب بالخط الأزرق وكذلك معادلتين في الخلايا B51، C51 أيضا بالأزرق ثم أنشأت لك 3 خانات كما طلبت B50 و C50 وE50 أنظر المرفق في الورقة 100 وإذا كان هو ماتريد يمكنك نسخه لباقي الأوراق جداول تسديد العملاء والزكاة_طارق.rar