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

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) ايضاً محمي

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

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

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

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

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

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

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

غير الى dd-mm-yyyy

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

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

جرب هذا الكود لعله يفيدك ولكن لمدى محدد كما في ملف عملك من العمود 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

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

السلام عليكم ورحمة الله تم عمل المطلوب في الملف مثل ما ذكرت بالأعلى وأرجو أنه يفي الغرض... بن علية حاجي الكنترول_اليمني.xlsm الكنترول اليمني.rar

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

اذا لم تعمل معك المعادلة استبدل "," الفاصلة بفاصلة منقوطة _ ";" (حسب اعدادات الجهاز عندك لتبدو المعادلة هكذا) =IF($E5="";"";F$4-SUM(E$5:$E5))

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

جرب هذه المعادلة واسحب نزولاُ =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)

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

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

جزاك الله خيرا اخى واستاذى خالد @kha9009lid 💐 كنت على وشك رفع المثال ووجدتك رفعت نفس الحل الا اننى قد اغفلت شرط المعرف 😀 ع ما يبدو اننى مازلت نائم ههههههه

بالامكان التحكم بابعاد النموذج الطول والعرض عن طريق الكود في حدث عند الفتح 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

تفضل اخي datadif.rar