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

اتفضل استاذي ابو الخليل الحبيب اصدار 2003 مع تحياتي DLookAll.rar

السلام عليكم و رحمة الله تعالى و بركاته أخوتي الكرام حياكم الله. من المعروف أنه حين نجعل النموذج في وضعية ملأ الشاشة يزداد حجم النموذج و تبقى العناصر بنفس حجمها السابق مما يجعل شكل النموذج غير لائق نوعا ما. و نستطيع أن نتجاوز هذه المشكلة باستعمال الطريقة التالي: نقوم بإنشاء وحدة نمطية جديدة و نلصق بها الكود التالي: Function salah(frm As Form) On Error Resume Next Dim x, y, x1, y1 As Integer Dim moyH, moyW As Double Dim obj As Control Dim str As String x = frm.InsideHeight 'ارتفاع النموذج قبل التكبير y = frm.InsideWidth ' عرض النموذج قبل التكبير DoCmd.Maximize x1 = frm.InsideHeight 'ارتفاع النموذج بعد التكبير y1 = frm.InsideWidth ' عرض النموذج بعد التكبير moyH = x1 / x 'معامل الإرتفاع moyW = y1 / y ' معامل العرض For Each obj In frm.Controls With obj .Left = .Left * moyW .Top = .Top * moyH .Width = .Width * moyW .Height = .Height * moyH .FontSize = .FontSize * moyH End With Next End Function و أيضا أضف هذا الكود في حدث عند التحميل للنموذج: salah Me و لا تنسى أن تغير خاصية النموذج منبثق إلى نعم هذه الطريقة سوف تقوم بتكبير النموذج إلى وضعية ملأ الشاشة و تقوم بتكبير عناصر النموذج لملاءمة الوضعية الجديدة لنموذج. و الله هو الموفق. تكبير العناصر مع ملأ الشاشة لنموذج.rar

بسم الله نبدأ عامنا الحالي بهذه الموسوعة 1200_Visual_Basic_macro_examples.rar عسى أن ينال إعجابكم

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

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام على اشرف المرسلين سيدنا محمد وعلى اله وأصحابه اجمعين بفضل الله وكرمة انتهيت من تطوير برنامج المصروفات الاصدار الثالث . وقد تم هذا التطوير بناء على رغبة الكثيرون والجديد فيه -زيادة عدد الحسابات الى 100 حسابات وزيادة عدد حركات التسجيل الى الضعف - امكانية عرض تقرير مصروفات لقسم معين ولفتره معينه - امكانية عرض تقرير سنوي - عمل نسخة احتياطيه للبرنامج تم عمل حماية للملف حفاظا على المعادلات والصيغ من التلف والباسورد 12345 ارجو من كل من يستفاد من هذا البرنامج نشره ومشاركته للجميع فزكاة العلم نشره الاصدارت السابقه الاول والثانى على على هذا الرابط http://www.officena.net/ib/index.php?showtopic=54319&hl= برنامج المصروفات الاصدار الثالث.rar

السلام عليكم ورحمة الله وبركاته ( موضوع مفيد جدا لكل مديرى المبيعات والمديرين الماليين والمحاسبين). ------------------------------------------------------------------------------ توافرات لديك بيانات من قائمة الدخل عن مبيعات الفترات السابقه والمطلوب التنبؤ بالمبيعات المستقبليه . الداله FORCAST والداله TREND وظيفة هذه الدول هى التوقع مثلا مبيعات مصروفات انتاج ..................الخ التبؤات المستقبليه.rar

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

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

كود رائع تشكر استاد سليم حاصبيا

السلام عليكم ورحمة الله من منا لا يعرف DLookUp والتي تعني "اعلى نظرة" وبالتالي يرجع لنا اعلى نتيجة.. بس.. ليش ماتكون DLookAll "نظرة شاملة" وترجع لنا جميع النتائج مرة واحدة؟ لا قلق، نزل المرفق DLookAll.rar

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

جرب هذا الماكرو Sub TekrarList() Application.ScreenUpdating = False Dim x As Long Dim dictionary As Object Dim my_rg As Range Set dictionary = CreateObject("scripting.dictionary") Set my_rg = ActiveSheet.Range(Range("A1"), Range("A1").End(xlDown)) ActiveSheet.Range("b:d").ClearContents Range("b1") = "العناصر المكررة": Range("c1") = "التكرار": Range("d1") = "عدد العناصر المكررة" On Error Resume Next For i = 1 To my_rg.Count x = Application.CountIf(my_rg, my_rg.Cells(i)) If x >= 10 Then dictionary.Add my_rg.Cells(i).Value, 1 End If Next Sheets(1).Range("d2") = dictionary.Count Sheets(1).Range("b2").Resize(dictionary.Count).Value = _ Application.Transpose(dictionary.keys) For m = 1 To dictionary.Count ActiveSheet.Cells(m + 1, 3) = Application.CountIf(my_rg, ActiveSheet.Cells(m + 1, 2)) Next Application.ScreenUpdating = True End Sub

تحية طيبة اخي الكريم حل آخر و هو ان تستخدم جمل SQL لادخال السجل و بهذه الطريقة لن ياخذ السجل الرقم الجديد الا في لحظة ادخال السجل كاملا الى الجدول

ما أروعك أخي شفان فعلاً هذا هو المطلوب . لك جزيل الشكر (( اللهم إجعل هذا العمل في ميزان حسناتك أنت وكل من أحببت ))

شوف جرب ووافيني بالنتيجة برنامج الجمعية 2017 (1).rar

اخي الكريم في الحقيقة انا ما جربت هذا الحل لاني ما عندي اجهزة متاحة لكي اجرب عليها لذا هل من الممكن ان تجرب ووافيني بالنتيجة حين تضغط على زر نيو بينطيك رقم لسجل جديد فورا و بيخلي لكومبوبوكس باسم importername = "" وبعدين بيحفظه اتمنى ان تجربه ووافيني بالنتيجة مع تقدير وهذا هو الكود لزر سجل جديد Private Sub NEW_Click() On Error GoTo Err_NEW_Click DoCmd.GoToRecord , , acNewRec Me!ID = Nz(DMax("[ID]", "[importationtable]"), 0) + 1 Me.importername = "" DoCmd.Save Exit_NEW_Click: Exit Sub Err_NEW_Click: MsgBox Err.Description Resume Exit_NEW_Click End Sub DMax (1).rar

روح لمحرر الأكواد ومن Tools اختر References وشوف المكتبات اللي بجوارها كلمة Missing وشيل علامة الصح

اتفضل كما تريد وتكدر تفتح اي اسم المستبعدين اللي في جدول شو المستبعدين في جدول المستبعدين بواسطة دبل كليك على اسمه او اي دي خاص له مع تقدير برنامج الجمعية 2017 (1).rar

الامر متاح اخي محمد ايمن.. فقط اكتب "0" بالنسبة للمتغيرات الرقمية، وعلامتي التنصيص الفارغتين للمتغيرات النصية.

وعليكم السلام جرب الكود التالي Sub Test() Dim sh As Worksheet Dim i As Long Set sh = Sheets("بطاقة فردية") For i = 1 To 410 Step 2 sh.Range("M3").Value = i ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next i End Sub

السلام عليكم ورحمة الله تفضل المعادلة في الملف المرفق... بن علية Demo222.rar

السلام عليكم كود بسيط وعمل جبّار شكرا أخي صالح على مشاركتك جعفر

شوف هذا هل هذا هو طلبك شوفه ووافيني بالنتيجة Item.zip

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

التعديل جميل ايش رايك نقلل الكود الذي وضعته انت ، بواسطة الامر Not ، ومعناه ، غيّر القيمة الحالية الى القيمة التي ليست فيه: Dim f As Boolean Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount f = rst!done For i = 1 To RC rst.Edit rst!done = Not f rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing End Sub . جعفر ونعم كنت على علم بهذا ، ولكني كنت اعتقد بأن المبرمج كان سيقفل على المستخدمين تغيير الحقل يدويا ، وبالتالي تكون المشكلة تم حلها ولكن ، وحتى بالحليين (الحل الثاني الذي تركته انا في الكود الاصلي) ، وحتى الطريقة التي تفضلت بها انت ، فنحن نعتمد على قيمة اول حقل ، وربما لم يكون صحيحا ، لذا سيضطر المستخدم الى الضغط على زر التغيير مرتين (بعض الاوقات للحصول على القيمة الصحيحة) جعفر

جرب المرفق VLOOKUP Multiple Results VLOOKALL UDF YasserKhalil.rar

حاجه كده مختصره جدا ومفيده جدا وسريعة جدا تلخيص البيانات باستخدام ميزة المجاميع الفرعية الموجوده فى الاكسيل حدد جدول البيانات بتاعك وطبق نفس الخطوات اللى فى الصوره ومرفق معها الملف تحميل الملف subtotal.rar

لأصحاب الذوق العالى فى اعداد التقارير باستخدام الاكسيل . الخطوات داخل الملف Area chart.rar

عرض البيانات الشهريه والربع سنوية فى مخطط لاتنسونا بصالح دعاؤكم CHART1(1).rar

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

السلام عليكم ورحمة الله وبركاته 3D - Chart الجدول يتم زيادته تلقائيا ويتم زيادة الرسم البيانى ايضا يمكن تغيير وظيفة الجدول ليعرض تقرير عن المصروفات او المبيعات او الموظفين ..الخ زكاة العلم نشره تحميل الملف chart111.rar

فكرة البرنامج: عمل برنامج اكسيل يستوعب الكثير من البيانات باقل مساحه وبدون عناء فى استخدام الصيغ والمعادلات او الاكواد فى VBA وفى نفس الوقت يعرض العديد من التقارير . وهذا النموذج من البرنامج مجرد فكره ويمكن اعداد برامج شبيه له كما يناسب احتياجك . لاتنسونا بصالح دعاؤكم تحميل وشرح البرنامج http://excelfinancial1.blogspot.com.eg/2016/04/dashbord-sales.html تحميل ملف التطبيق sales.rar

الفاضل رجب جاويش ..بعد التحية ..جزاكم الله خيرا على هذا المجهود الرائع داعيا المولى عز وجل ان يجعله في ميزان حسناتكم .ولكن هناك ملحوظة في شيت المنازل علمي وهي وجود خانة اعمال السنة في مادة التفاضل ..فارجو من سيادتكم التعديل ..شاكرا افضالك ومجهوداتك.. اخوكم /احمد طمان مدرس لغة عربية بإدارة قويسنا التعليمية بالمنوفية

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

شرح عمل شاشة دخول بصلاحيات للمستخدمين فى اكسيس

بارك الله فيكم وزادكم علما وحلما آمين

أخي العزيز رغم التأخير ،،،،، جربت أخي الإدخال المباشر المترافق مع إدخال المعلومات أو تعديلها أو تحديثها ، وجربت كل ما يخطر ببالك وما لا يخطر ببالك فالنظام العامل لدي متعدد الإغراض والاستخدامات والإمكانات وادعي بفضل الله وعونه ومما علمني ربي انه متطور ويفي بالكثير من الحاجات ويحقق جل الغايات ، وقد استغرق جهدا كبيرا وطويل وقت. ما يهمك من الأمر إن قصر طرق الأرشفة بمنهج واحد يقيد البرمجية ويحددها، ويقيدك في أمور عدة وقد يحمل البرمجية ما لا تطيق ومستوى المرونة العالي في خيارات الأرشفة وطرقها تعلمته من التجربة و التكرار وتحليل الحاجات الفعلية مقترنة بالإمكانات وحجمها آخذا بعين الاعتبار تطور الحاجات و..و ما هي الغاية من البرمجية المقترنة بالأرشفة؟ ما هي الغاية من الأرشفة؟ هل حددت صيغة الملفات المؤرشفة ؟ هل درست وحللت المرحلة أو المراحل التي نحتاج فيها للأرشفة ؟ هل حدد عدد الملفات المؤرشفة وطريقة اقترانها وارتباطها بالسجلات والجداول وضرورة ذلك؟ هل حددت منهج وضوابط اختيار موقع المجلدات وأسمائها؟ هل حددت آلية إنشاء المجلدات وتسميتها؟ ولعلي ( بعد توضيحاتك) أرفق بعض الأفكار المبسطة للتطبيق وأرفق لك هنا مثالا من تطبيق أستاذتنا الجليلة زهرة العبد الله zaEMP_UP.rar