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

مشاركة مع استاذى الجليل ومعلمى القدير @د.كاف يار هذه فكرتى المتواضعة IMAGE (Judy).accdb

تفضل تم اضافه كود و زر لترتيب كما طلبت برنامج حجز قاعات 2021%2528نهائي%2529.xlsm

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

Birth as variant حضرتك كاتبها خطأ veriant

237.حساب اقدمية.accdb

اتفضل يا استاذ @alriashi فى انتظار ردك بعد التجربة Data Registration (v. 2).mdb

انسخ الكود وضعه في نقس المديول مع تغيير اسم الشهر واسم الجدول و تغيير اسم الماكرو وانسخ الزر وضعه في الشهر واضغط عليه كليك يمين واربطه باسم الماكرو الجديد وده مثال لما تريده برنامج حجز قاعات 2021%252528نهائي%252529.xlsm

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

تفضل هذا التعديل استيراد ملف نصي.accdb

جزيل الشكر لشخصكم الكريم هذا بالفعل المطلوب متشكر جدا جدا لحضرتك أثابك الله وجزاك خير الجزاء

ضع الكود الاتى فى موديول Public Function DayAr(dtDate) Dim strSat As String Dim strSun As String Dim strMon As String Dim strTues As String Dim strWed As String Dim strThurs As String Dim strFri As String strSat = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1576") & ChrW("1578") strSun = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1581") & ChrW("1583") strMon = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1606") & ChrW("1610") & ChrW("1606") strTues = ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1575") & ChrW("1569") strWed = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1585") & ChrW("1576") & ChrW("1593") & ChrW("1575") & ChrW("1569") strThurs = ChrW("1575") & ChrW("1604") & ChrW("1582") & ChrW("1605") & ChrW("1610") & ChrW("1587") strFri = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1593") & ChrW("1577") DayAr = Choose(Weekday(dtDate), strSun, strMon, strTues, strWed, strThurs, strFri, strSat) End Function يمكنك الان الحصول على اسم اليوم بالعربية لاى تاريخ من خلال استدعاء الروتين السابق باحد الاكواد الاتية - اسم اليوم الحالى من التاريخ الحالى DayAr(Date()) اسم اليوم بناء على تاريخ ما DayAr([[Fild Date Name])

استخدم هذا ..... Me.a = WeekdayName(Weekday(Date), False) أو ..... Me.a = Format(Date, "ddd")

وعليكم السلام اليك طريقة باستخدام الاستعلام وطريقة باستخدام Dsum sum in month.accdb

عليكم السلام ورحمة الله ربما هذا الكود في حدث الشيت يفي بالغرض Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim Rng Set Rng = Range("j1:j100000") If Not Intersect(Target, Rng) Is Nothing Then If Target = "" Then Target.Offset(, -9).Resize(1, 10).Interior.Color = xlNone ElseIf Target <= 5 Then Target.Offset(, -9).Resize(1, 10).Interior.Color = 10086143 ElseIf Target <= 10 Then Target.Offset(, -9).Resize(1, 10).Interior.Color = 8420607 ElseIf Target Then Target.Offset(, -9).Resize(1, 10).Interior.Color = 10479044 End If End If End Sub

التعديل في الجدول

تفضل هذا التعديل IMAGE.accdb

تفضل اخي هل هذه هي فكرتك ارجو اعلامنا بالنتيجة asd.accdb

تفضل اخي اتمنى ان يكون هذا المطلوب تم تطبيقه على شهر يناير وتم اضافه خليه لحساب الاماكن الاخري برنامج حجز قاعات 2021%28نهائي%29.xlsx

تفضل اخى الكريم لعله ما تريد ترويسةالعوري.docx

هذه المتغيرات كانت في كودك ليس لها بالنسبه لي استخدام في الكود بهذا الشكل

تفضل اخى الكريم Dim strDate As String, strTime As String Dim filePath As String Dim ws As Worksheet Dim i As Long Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then For Each ws In ThisWorkbook.Worksheets For Each f In ws.Range("a2:a" & cells(Rows.Count, "A").End(xlUp).Row) If f = ListBox1.List(i, 0) Then f.Offset(0, 3).Value = "ايقاف" f.Offset(0, 4).Value = Date Exit For End If Next f Next ws End If Next i i = Empty Application.Calculation= xlCalculationAutomatic Application.EnableEvents = True Application.DisplayAlerts = True Application.ScreenUpdating = True

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

نعم ممكن ذلك ان كانت قاعدة البيانات تعمل ضمن شبكة محلية بشرط ان تكون قاعدة الجداول موجوده على مجلد داخل مجلد اون درايف على سبيل المثال هذا مسار المجلد فى الجهاز C:\Users\Moh3ssam\OneDrive\ShardDB يتم عمل مشاركة لهذا المجلد وبذلك يكون مسار القاعدة لباقى الاجهزة \\192.168.1.3\ShardDB الان يمكن لاى مستخدم ضمن الشبكة المحلية العمل على قاعدة البيانات ضمن تلك الشبكة من خلال مشاركة المجلد ومن ناحية أخرى قاعدة الجداول يتم مزامنتها تلقائيا على حساب on drive ولا يمكن الوصول الى المجلد عبر السحابة الا من واقع صاحب الحساب وان كانت قاعدة البيانات مقسمة الى قاعدتين امامية وخلفية لن يكون قادرا على التعامل مع القاعدة ان كان خارج الشبكة المحلية

برامج الانتى قايروس أو حاولت عمل ضغط واصلاح للقاعدة والقاعدة كانت معلقة لم تغلق كليا لتلافى تلك المشكلة بنسبة 99% قم بوضع كلمة مرور لحماية الاكواد

بارك الله فيك وزادك الله من فضله

بارك الله لك نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

تم معالجة الامر ملاحظة يجب ترك الصف 2 في الشيت total فارغاً للحفاظ على بنية الجدول دون تدخل خلايا غريبة (بذلك تكون اول خلية بالجدول بعد الرأس هي الخلية A4) Option Explicit Sub get_data_New() Dim SH_from As Worksheet Dim T As Worksheet Dim rg_to_Patse As Range Dim Rt%, MY_max%, Ro%: Ro = 4 Set T = Sheets("Total") Set rg_to_Patse = T.Range("A3").CurrentRegion Rt = rg_to_Patse.Rows.Count If Rt > 1 Then Set rg_to_Patse = rg_to_Patse.Offset(1).Resize(Rt - 1) Else Set rg_to_Patse = T.Range("B4").Resize(, 5) End If rg_to_Patse.Clear For Each SH_from In Sheets If SH_from.Name <> T.Name Then MY_max = Application.Max(SH_from.Range("A:A")) T.Cells(Ro, 2).Resize(MY_max, 5).Value = _ SH_from.Cells(3, 2).Resize(MY_max, 5).Value Ro = Ro + MY_max End If Next SH_from With T.Range("A3").CurrentRegion .Sort key1:=Range("b3"), Header:=1 .Columns(1).Offset(1).Formula = _ "=IF(B4="""","""",MAX($A$3:A3)+1)" .Offset(1).Borders.LineStyle = 1 .Offset(1).InsertIndent 1 .Value = .Value .Font.Bold = True End With End Sub M_data_new.xlsm

قم بتغيير اسم الشيت مجمل إلى Total ونفذ هذا الكود Option Explicit Sub get_data() Dim SH_from As Worksheet Dim T As Worksheet Dim Rt%, MY_max%, Ro%: Ro = 3 Set T = Sheets("Total") Rt = T.Cells(Rows.Count, 2).End(3).Row If Rt <= 2 Then Rt = 3 With T.Range("B3").Resize(Rt, 5) .ClearContents .Interior.ColorIndex = xlNo End With For Each SH_from In Sheets If SH_from.Name <> T.Name Then MY_max = Application.Max(SH_from.Range("A:A")) T.Cells(Ro, 2).Resize(MY_max, 5).Value = _ SH_from.Cells(3, 2).Resize(MY_max, 5).Value With T.Cells(Ro + MY_max, 3) .Value = SH_from.Name .Offset(, -1).Resize(, 5).Interior.ColorIndex = 6 End With Ro = Ro + MY_max + 1 End If Next SH_from End Sub الملف مرفق M_data.xlsm

تفضل لك ما طلبت 1حركة العهدة.xlsx

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير مرفق الملف درجات.rar و لا تنسونا من صالح الدعاء تحياتى

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

السلام عليكم ورحمة الله وبركاتة هذا البرنامج كان احد الاعضاء قد وجده في احد المنتديات الاجنبية وهو لقاعدة بيانات وتم التعديل والاضافة والتنقيح وكانت النتيجة الاتي :: عناوين السجلات في اليوزر فورم تعمل اتوموتيكيا عند تغيرها في الشيت اضافة صورة لكل سجل و يتم اضافة الصور الي الفلدر All_Pic بالأسم الاول للسجل اضافة سجل جديد تعديل السجل الحالي حذف السجل الحالي البحث في الاعمدة التي تم تعليم التشك بوكس لها في هيدر العناوين وتظهر هذه العناوين فقط في كومبو بوكس البحث يشمل الملف علي ثلاث صفحات الصفحة الاولي لقاعدة البيانات الصفحة الثانية لقاعدة البيانات اخري مصغرة لتوضيح الية عناوين اليوزر فورم الصفحة الثالثة تقرير بالسجلات التي تم اختيارها اصل الملف قبل التعديل New Userform Example_1.rar الملف بعد التعديل قاعدة بيانات بالصور_2.rar

السلام عليكم ورحمة الله وبركاته قائمة منسدلة تعتمد على قائمة منسدلة اخرى يمكن استعمال الدالة INDIRECT عن طريق النطاقات المسماة define name ولكن استخدمنا طريقة مختلفة في هذه الحالة اتمنى ان تفيد الجميع المعادلة المستخدمه فى القائمة المنسدلة =OFFSET($A$2;;MATCH($A$6;$A$1:$E$1;0)-1;COUNTA(INDEX($A$2:$E$4;;MATCH($A$6;$A$1:$E$1;0)));) تحميل ملف الاكسيل list.rar

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

جرب الان قائمة منسدلة بدون تكرار مرتبطة بقائمة اخرى salim.zi شكرا لك للرد والاهتمام ولكن اريد عند اختيار من البند الاول ، ومن القائمة يظهر جميع ما يتعلق بالبند الثاني كجدول

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

اخى الفاضل تفضل الملف المرفق لربما به طلبك تحياتي بحث أي كلمه في الاسم.rar

الحمــد لله رب العالـــمين، اللهـــم صـــل وسلـــم وبــاركــ على رســــولك الأمــيـن وعلــــى آلـه الطاهــــرين . بأســمك اللهم نبتدئ، وبكتابك القويم نهـــتدي، وبرســــولك الكـــريم نقــــتدي فوفقنا يا رب إلى أحسن الأقوال، وأصلـح أعمالنا وأتنا رشـدنا... فما توفيقنا إلا بكـ وما توكلــنا إلا عــليكـ، ومـــــــا توجـــهـنا إلا إليكــ . تناولت في عدة موضوعات التحسينات البصرية لواجهة EXCEL VBA باستخدام الخصائص المختلفة لعناصر التحكم علي حدة ومجمعة مع امثلة لكل عنصر لكن الموضوع اليوم مختلف تماما فاضافة الي ما سبق ان تناولناه معا الان سوف نتعرف علي عنصر اخر من عناصر التحكم وادارته وهو ImageList Ctrl قد تناول أخي الحبيب المبدع // شوقي ربيع في موضوع برنامج دليل الهاتف بفورم مميز جدا العنصر باحترافية ومرونة وكانت المدخل لهذا الموضوع والفضل لله ثم له في التعرف علي خصائص تلك الأداة . حيث أتاحت القدرة علي دمج تقنيات التصميم مع Excel VBA مع المنظور الجديد والحديث لتلك التقنيات واهمها اسلوب الانفوجرافيكس infographic المستخدم في تصميم صفحات الويب التفاعلية او الاعلانات وتعرفنا عليه في العدد الثاني لمجلة اوفيسنا عدد ابريل 2014م . وقمت بتطبيق المدخل علي موضوع برنامج دليل الهاتف بفورم مميز جدا لاخي الحبيب شوقي ربيع مع تغيره الي موضوع شئون الموظفين لانه يشغل بال الكثيرين نرجوا السماحة منه . الموضوع وشرح بعض خصائصـه شكل القوائم 1- القائمة الرئيسية قائمة ملف الفرعية وبها وظائف حفظ لحفظ الملف - اغلاق لاغلاق الفورم والعوة لشيت العمل - اغلاق للخروج نهائيا من البرنامج مع الحفظ خيار الاغلاق والعودة للملف 2- قائمة ادوات وتحتوي علي خيارات اضافة موظف جديد - البحث مع التعديل والحذف - التحكم في المجموعات خيار اضافة موظف جديد خيار البحث خيار حذف بيان مع تاكيد الحذف بكلمة مرور خيار طباعة التقرير حسب معيار البحث (مع حفظ الألقاب لاخواني بالمنتدي) قائمة مساعدة وتحتوي علي الملف بالمرفقات نظرا للاخوة للذين يستخدمون انظمة تشغيل دون Win7 تم حل المشكلة وتم رفع الملف من جديد نسخة للملف تعمل علي جميع الاصدارات المختلفة نسخة تدعم جميع الاصدارات للويندوز بواسطة شوقي ربيع.rar