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

Me.AllowAdditions = False Me.AllowDeletions = True Me.AllowEdits = True

نظرا لأن برنامج اكسل لا يقدم خيار المعاينة على اليوزرفورم أردت أن أقدم فكرة للزملاء الكرام و أعضاء المنتدى الاعزاء الفكرة تعتمد على أخذ صورة للنطاق المراد طباعته على القرص و اعادة تحميلها على مربع الصورة مهم جدا : انشاء مجلد لحفظ الصورة على c باسم raed ثم شغل الملف المرفق C:\raed يمكنك تغيير القرص و اسم المجلد في الكود كما تشاء ثم غير اسم المحلد حسب الكود Private Sub CommandButton1_Click() Const RaedN As String = "C:\raed\officena.jpg" Dim rng As Range Dim shtTemp As Worksheet Dim chtTemp As Chart Application.ScreenUpdating = False Set rng = Worksheets("Sheet1").Range("b2:h11") Set shtTemp = Worksheets.Add Charts.Add ActiveChart.Location Where:=xlLocationAsObject, Name:=shtTemp.Name Set chtTemp = ActiveChart rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture chtTemp.Paste chtTemp.Export Filename:=RaedN Me.Image1.Picture = LoadPicture(RaedN) Application.DisplayAlerts = False shtTemp.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub preview on userform.xlsm

مشاركة مع اخي اشرف بدون الحاجة الى تغيير وضع حجم الرسم عن طريق الكود في حدث عند الفتح ضع التالي Me.InsideHeight = 9200 ضع الرقم المناسب حسب رغبتك وانا افضل هذه الطريق حيث لا يمكن للمستخدم تغيير حدود النموذج عن طريق السحب Database701.accdb

على الرغم اننا قد نبهنا كثيراً على عدم نجاح اى مشاركة الا بعد تدعيمها بملف مشروح فيه المطلوب بكل دقة مع وضع النتائج المرجوة , ولكن تفضل =100000-$F$17 وان لم يكن المطلوب فعليك لزاما برفع الملف

بسم الله الرحمن الرحيم السلام عليكم اخواني الكرام الموضوع كيف يعامل مجموعة مستخدمين مع قاعدة البيانات من خلال الانترنت بدلا من الشبكة المحلية ( الداخلية ) لتباعد المسافات بين المستخدمين الفكرة سهلة كنا بنجمع الاجهزة علي الشبكة المحلية عن طريق وسيط وهو اسلاك بتربط الاجهزة ببعضها خلاص بيقي عايزين وسيط غير الاسلاك الوسيط هو موقع وله برنامج هننزله عنوان الموقع https://my.zerotier.com/login صفحة تحميل البرنامج https://www.zerotier.com/download/ 1 – نحمل البرنامج من صفحة التحميل 2 – نسطب البرنامج زي اي برنامج نسيب البرنامج بقي كدة خلاص نروح الموقع ونسجل فيه ندوس علي المربع الاصفر دي الصورة طبعا احنا عضو جديد ندوس علي ريجستر زي الصورة 1 2 اذهب الي الايميل بتاعك وفعل العضوية بعد ما تفعل العضوية هيدخلك علي الصفحة دي دوس علي نتوورك زي الصورة من اول هنا بقي يبدأ الجد ركز مع الصور اتبع الارقام الموجودة علي الصورة ونفذ الموجود بها وتوصل لرقم 3 وتضغط كما هو موضح بالصورة هيدخلك علي الصورة اللي جاية -- دي صفحة اعدادات الشبكة بتاعتك اتبع ما جاء بالصورة انسخ الرقم وضعه كما في الصورة القادمة كدة شبكتك تمام وجاهزة للشغل بس فيه سؤال هو كل واحد من المستخدمين هيعمل الدوشه دي كلها ؟؟؟ الاجابة : لا طبعا دي انت بس علشان انت صاحب الشبكة اما المستخدمين يعني الاجهزة التانية يا دوب هيسطب البرنامج ويحط الرقم اللي انت اديتهوله وهو بالنسبة للشبكة دي اللي عملناها دلوقت 885033839097d605 وكل شبكة طبعا ارقامها بتختلف عن غيرها أي واحد هيسطب البرنامج ويضيف الرقم ده في مكانه مثل الصورة وانا اقبله من عندي يبقي مشترك معايا علي الشبكة وممكن احذفه واضيف غيره يعني الاضافة والحذف براحتك سؤال تاني هو كام جهاز ممكن يشتركوا في الشبكة بتاعتي ؟ طبعا لان حضرتك عضو مجاني عندهم لك تضيف لغاية 100 جهار بعد كدة بفلوس طبعا انت مش محتاج كل ده المشاريع الصغيرة اللي عندنا يا دوب من 3 : 10 اجهزة يعني انت تبعنا في ابو بلاش ------------------------------------------------------------------------------------------------------------------------------------------------------------- كدة اللي فاضل نجهز قاعدة البيانات ونقسمها ونشيرها نفتح قاعدة البيانات بتاعتنا حدد مكان التقسيم في جهازك وخلاص اتقسمت اصبحت جزء باسم قاعدة البيانات لو اسمها مثلا ( اشرف ) والجزء الثاني اشرف ) وهو ده اللي فيه الجداول ده هو اللي هيتشير فقط _be ( يفضل اعدادات الشير – شوف يا باشا دي سهلة بس ركز مع الصور في جهازك روح علي Control Panel Network and Internet Network and Sharing Center Advanced sharing settings تلاقيها بالشكل ده يفضل ازاي نشير قاعدة البيانات اول حاجة نضع جزء الجداول في مجلد ونسميه اي حاجة ثم نضغط كليك يمين علي المجلد ونختار Give access to Specific people بكدة يبقي احنا شيرنا الملف اللي فيه الجداول نعطي بقي نسخة من الجزء الثاني من قاعدة البيانات للاحهزة المراد ضمها للشبكة وكل مستخدم يعدل مسار الجداول المرتبطة علي مكان الشير في جهازك اللي يعتبر سيرفر للتجربة انا مشير نموذج علي جهازي اللي عايز يجرب اولا يحمل البرنامج ويسطبه كما في الصور اعلاه ويضع الرقم 885033839097d605 وانا ان شاء الله هقبل اضافته للشبكة اللي عملناها دي ولما اقبله جهازي هيظهر عنده باسم اشرف ويحمل النموذج من الموضوع هنا ونتواصل مع بعض علي القاعدة دي عن بعد و يمكن من بلاد مختلفة لتوضيح الفكرة ولمعرفة سرعة استجابة القاعدة في التعامل وذلك بعد العاشرة مساء بتوقيت القاهرة او لما تلاقيني متواجد بالموقع ولمدة يومين فقط للتجربة بعدها ساغلق الشبكة ملاحظة : الجهاز اللي متشيره عليه الجداول يعتبر زي سيرفر يعني لو مغلق او النت مفصول فلا يمكن التواصل انتهي الموضوع اتمني ان يعجبكم اسف علي الاطالة لكن كان لازم التفصيل احتراما وتقديرا لطلب الاساتذة ( حلبي - Barna - أحمد الفلاحجى - الأمير هشام ) واي استفسارات انا معاكم ان شاء الله اشرف.accdb

اليكم برنامج دول وعواصم قارة اسيا من هذا الرابط https://top4top.io/downloadf-1616dgrpq1-rar.html وطريقة تسطيب البرنامج تم شرحه فى فيديو دول وعواصم افريقيا السابق وهذا رابط اخر على ميديا فاير برنامج دول وعواصم قارة اسيا

لا شكر ولا حاجة النموذج في وضع التصميم تنسيق وضع حجم الرسم ( تكبير / تصغير ) انت كنت عاملها قطع بس خلاص

السلام عليكم استاذ احمد حبيبه اتفضل اتمني ان يكون المطلوب Database70.rar

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

وعليكم السلام-وذلك من خلال هذه المعادلة =YEAR(G4)-5 &"/"&MONTH(G4)&"/"&DAY(G4) تواتي 39.xlsx

ساعة ديجيتال موجودة على الفورم لمن يحتاجها طبعا الكود منقول مش عارف صاحبه اضعها لمن احتاجها رائعة فعلا احترامى ساعة ديجيتال.xlsm

بالتأكيد هدية مقبولة اخى الكريم -بارك الله فيك وجزاك الله كل خير

النطاقات الاخرى الملونة باللون الاصفر ايضا بنفس الكود تشملها الحماية (لا يسمح ختى بالاقتراب منها أغني تحديدها) اين هو تيويب مراجعة؟؟؟؟ الماكرو الأخير الضي وضغته بنفسك لا لزوم له لأن النطاق (AI5:AI14) ايضاً محمي

السلام عليكم ورحمة الله وبركاته كنت قد وضعت هذا المثال في منتدى الفريق العربي للبرمجة ، وأخي ابو الآ ما قصر وعمل نسخة منه الى هذا المنتدى (انا لم اكن من روّاد هذا المنتدى حينئذٍ) على هذا الرابط: http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/ والآن ، وبعد عمل مجموعة تعديلات عليه واصبح في نسخته الخامسة ، واهمها ان البرنامج اصبح يعمل على 32بت و 64بت ، رأيت ان اضع البرنامج بين يديكم طريقة العمل هي كما في الرابط السابق (ولكن للأسف لا يمكن رؤية الصور التوضيحية هناك) ، فعليه ، سأقوم بعمل نسخة منه هنا مع الصور التوضيحية: رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) **1** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، **2** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، **3** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر 7.Export_to_Excel_05.1.mdb.zip

شكرا أخي abouelhassan بارك الله فيك

مشكور استاذنا سلمت يمينك

اشكرك استاذنا الفاضل جعلة الله في ميزان حسناتك

بارك الله فيك وجزاك الله خير الثواب حقاً فكرة ممتازة جعله الله فى ميزان حسناتك

بعد اذن أستاذ أبوياسين : الخطأ بسبب قيمة NULL لمربع النص X بالنموذج والحل: اكتب بعد السطر الرابع (بعد تعيين قيمة Y ) : x = y

كل التقدير لاخي kha9009lid

بالتوفيق اخي احمد والشكر لله ثم لاخي الفاضل @اشرف

جزاك الله خيرا .... تم عمل المطلوب بنجاح

غير الى dd-mm-yyyy

اخي العزيز المشكلة لديك في كود النقر داخل الليست بوكس لجلبها للفورم كل ما عليك تبديل كود التيكست بوكس 4 بهذا الكود frm2.Text4.Value = Format(ch.Cells(iRow, 4).Value, "yyyy-mm-dd")

بعد تشغيل المعادلة قم بتغيير قيم الخلايا في العامود E وتعرف لماذا E5

على حسب ما فهمت منك ضعه في هذا الحدث Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) End Sub

جرب هذا الكود لعله يفيدك ولكن لمدى محدد كما في ملف عملك من العمود a: j يمكنك التعديل على الكود وتغيير المدى Sub test() For Each sh In Worksheets Set Rng = Sheets(sh.Name).Range("A:J") With Sheets(sh.Name) Set c = Rng.Find("تم", lookat:=xlWhole) If Not c Is Nothing Then FirstAddress = c.Address Do Set x1 = .Range("A" & c.Row) Set x2 = .Range("J" & c.Row) .Range(x1, x2).Interior.Color = RGB(255, 0, 0) Set c = Rng.FindNext(c) Loop While c.Address <> FirstAddress End If Set c = Rng.Find("انجز", lookat:=xlWhole) If Not c Is Nothing Then FirstAddress = c.Address Do Set x1 = .Range("A" & c.Row) Set x2 = .Range("J" & c.Row) .Range(x1, x2).Interior.Color = RGB(0, 0, 255) Set c = Rng.FindNext(c) Loop While c.Address <> FirstAddress End If End With Next End Sub

شغل النموذج وتعالي علي حرفه من تحت وشد للطول اللي انت عايزه

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

للاسف لم استطيع الدخول للموقع حمل النموذج هنا لو سمحت

جرب هذه المعادلة واسحب نزولاُ =IF($E5="","",F$4-SUM(E$5:$E5))

تمام أحسنت استاذ منير عمل ممتاز , بالتوفيق دائماً مع مواصلة النجاح والإجتهاد الى الأمام دائماً دون توقف وواصل

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

- تم التعديل على بنية الملف 1 1- العداد في العامو الأول أوتوماتيكي (تتم اضافة الرقم اذا كانت الخلية المجاورة غير فارغة) 2 عامود المعادلات (AI) يدرج لك المعادلة اذا كان هناك اسم في العامود الثاني 3- التلوين في السطر (اخضر يتم اذا كان هناك اسم في العامود الثاني)New_File.xlsm 4- التلوين في السطر ( احمر يتم اذا كان هناك اسم في العامود الثاني واذا كانت اي خلية تختوي على حرف "ع") 5- لا لزوم لعمل فلتر للأعمدة (سهم الفلتر في كل عامود ظاهر) مما يشوه منظر الشيت 6- بالنسبة لحماية خلية الشهر عند طلب تغيير خلية الشهر يقوم اكسل بتوجيه رسالة تطلب الباسورد الباسورد هو كلمة Salim أ- اذا كانت الكلمة صحيحة يقوم اكسل بتغيير التواريخ المطلوبة ب_اذا كانت كلمة المرور غير صحيحة يقوم البرنامج بمسح كل شيء في الصفوف 3 و 4 و تفريغ خلية الشهر و يعطيك رسالة احرى ان الباسورد غير صحيح 7- أكثر من هكذا لا أستطيع اتحسين الملف New_File.xlsm

النطاقات الاخرى الملونة باللون الاصفر ايضا بنفس الكود تشملها الحماية (لا يسمح ختى بالاقتراب منها أغني تحديدها) اين هو تيويب مراجعة؟؟؟؟ الماكرو الأخير الضي وضغته بنفسك لا لزوم له لأن النطاق (AI5:AI14) اسضاً محمي

شكرا جزيلا وبارك الله بك

الف الف شكر

Sub Printg() Application.Calculation = xlAutomatic For J = [Y2] To [Y1] If J <= [Y1] Then ActiveSheet.PrintOut Copies:=1, Collate:=True End If Next End Sub بيان ناجح 6.xls

السلام عليكم اخى @ازهر عبد العزيز مشاركه مع اخوانى واساتذتى @ابو تراب و @ابو ياسين المشولي جزاهم الله خيرا 💐 بالنسبه لهذا الاجراء فالماكرو كما تحب سيتم استخدام الخاصيه setproperty ولعدم التمكين نكتب اسم العنصر اى الحقل او الزر ثم نختار نوع الخاصيه وهنا ممكن والقيمه false وللتمكين مره اخرى تكون القيمه true تقبلوا تحياتى ومرورى اخوانى واساتذتى وفقكم الله azhr.accdb

وعليكم السلام-كان عليك عمل بحث قبل طرح هذه المشاركة-تفضل برنامج مرتبات أبي الحسن لعام ٢٠١٩

السلام عليكم في حال استخدمت الماكرو في تصدير التقرير المعروض واردت تمرير اسم التقرير لامر التصدير الى الاكسيل استخدم الامر التالي Dim rptCurrentReport As Report Set rptCurrentReport = Screen.ActiveReport Dim w As String w = rptCurrentReport.name DoCmd.OutputTo acOutputReport, w, "MicrosoftExcelBiff8(*.xls)", "", False

الطلبات اصبحت كثيرة جدا يمكنك استخدام معادلة المصفوفة =IFERROR(INDEX($A$5:$A$14,SMALL(IF($E$5:$E$14=FALSE,ROW(A$5:A$14)-ROW(A$5)+1),ROWS($L$5:L5))),"") تواتي 37.xlsx

اخى @فايز.. ادخل على خصائص ثم شير واتبع

لم افهم هل ما هو موجود في العامود L هل هو تاريخ (اذا كان هذا فهو دائماً أكبر من صفر) و اذا اردته تاريخ قم بتنسيق الخلايا كتاريخ (ماذا تعني Jan-00)

الله يصلح حالك ويجازيك كل خير 💐

كلنا في نفس الطريق ههههههه كم خطأ املائي في مشاركتي السابقة هذا بعد التعديل 😭

في الحقل النموذج الرئيسي اجعل قيمته تساوي =IIf(Not IsNull([m]);DSum("[a]*[b]";"جدول3";"[المعرف1]=" & [المعرف] & "and [se]=-1");0) في حدث بعد التحديل للحقل se Forms![ÌÏæá2].Refresh النلف مرفق واختبرة زين راسي مصدع وعملتة بشكل سريع بدون اختبار للتأكد time(1).accdb

بالامكان التحكم بابعاد النموذج الطول والعرض عن طريق الكود في حدث عند الفتح Me.InsideHeight = 7500 Me.InsideWidth = 7000 او هكذا Me.Form.InsideHeight =7500 Me.Form.InsideWidth = 7000 غير الرقم وفقا للحجم المناسب للفورم ارتفاع.accdb

يمكنك استخدام معادلة المصفوفة لإيجاد أقل قيمة (Ctrl+Shift+Enter) =MIN(IF((ALL!$A:$A=$A2),ALL!$D:$D,"")) ولأكبر قيمة استخدام هذه المعادلة =MAX(IF((ALL!$A:$A=$A2),ALL!$F:$F,"")) AnnualVacation1.xlsx

اعد فقط ضبط الجدول حسب الاول لقد تم اضافة لك زر الطباعة بالتوفيق شهادة02.xlsm