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

هذا رابط الموضوع السابق المختصر الفكرة هي تأسيس لعملية البيع والشراء لعملاء معتمدين باقل قدر من الكائنات ، والفكرة تم تنفيذها بــ 3 جداول أساسية فقط : راس الفاتورة _ التفاصيل _ المدفوعات . كثير منكم سيقول نعلم هذا ولم تأت بجديد ، وأعلم ذلك ولكن الحال في غالب الامثلة والمواضيع المنتشرة في هذا المنتدى وغيره تختلف وفيها الإلزام بما لا يلزم . وموضوعي هنا نسخة مطابقة من الرابط السابق ولكني احببت افراده بموضوع وعنوان مستقل لعدة اسباب : 1- وجود فكرة جديدة من بنات افكاري تساعد عند عمليات الادخال ، ومن الممكن وجود احد سبقني الى هذه الفكرة في هذا المنتدى او غيره فهنا اقدم اعتذاري له ابتداءً ولتعلموا انما هو توارد خواطر . 2- جميع من مر على الموضوع السابق وفهم الفكرة لن يتوقع تغير متميز لذا لن ينشط في المتابعة وفي تصفح المثال الجديد 3- تلافي جميع المشكلات في الملاحظات السابقة خاصة التي يستعصي او يصعب حلها الفكرة هي جعل جميع النماذج غير منضمة والحاق البيانات باستخدام الكود ، وهذه ليست جديدة ولكن الجديد هو استخدام جدول وسيط مؤقت لرصد تفاصيل الفاتورة buySel.rar

وانا عملت الاصلاح ، ولكن ما اصلح البرنامج جعفر

الاخوة الزملاء السلام عليكم ورحمة الله وبركاتة برنامج مجاني علي الاكسيل لاقرار ضريبة القيمة المضافة برنامج سهل وبسيط خصائص البرنامج غلق جميع الخلايا التي تحتوي علي معادلات حفظ البيانات بمجرد الخروج العودة للقائمة الرئيسية في كل مرة يتم فتح البرنامج فيها استخدام اوامر الطباعه في الشيت الخاص بالاقرار التقارير إقرار ضريبة القيمة المضافة نموذج10 الخاص بكل شهر التحليل الشهري لفواتير المبيعات والمشتريات تفريغ الاقرارات user : How To Excel password: hte إقرار ضريبة القيمة المضاف 2.0.rar

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

وعليكم السلام المشكلة لما يكون عندك اكثر من فاتورة بنفس الرقم!! البرنامج بيأخذ اول فاتورة فقط . وهذا الكود على حدث "عند تحميل" النموذج frmEdrajSenfrm Private Sub Form_Load() On Error GoTo err_Form_Load Me.cmd_Search2.Enabled = False 'هذه قيمة الفاتورة من النموذج الرئيسي A = Forms!frm_Recall_sales!n3 Dim rst As DAO.Recordset 'نأخذ بيانات النموذج الفرعي في الذاكرة Set rst = Forms!frm_Recall_sales!frm_mr.Form.RecordsetClone 'نذهب لآخر سجل ، ثم نرجع لأول سجل ، حتى تكون السجلات جميعا في الذاكرة rst.MoveLast: rst.MoveFirst 'عدد السجلات RC = rst.RecordCount 'اذا لا توجد سجلات ، اخرج من الكود If RC = 0 Then GoTo Exit_Form_Load 'نطوف بجميع سجلات النموذج الفرعي For i = 1 To RC 'اذا كان الجزء الايمن من فاتورة النموذج الفرعي تساوي رقم الفتورة في النموذج الرئيسي If Right(rst!Rjmfatwra, Len(A)) = Val(A) Then 'انقل البيانات Me.Rjmfatwra = rst!Rjmfatwra Me.Rajmsanf = rst!Rajmsanf 'النموذج الفرعي لا يحتوي على اسم الصنف ، وانما رقم الصنف فقط 'لذا يجب ان نأخذ رقم الصنف لى جدول الاصناف ونستخرج من اسم الصنف Me.Sanf = DLookup("[Sanf]", "Alsnaf", "[ID_Sanf]=" & rst!ID_Sanf) Me.Alkmiah = rst!Alkmiah Me.Price_Sales = rst!Price 'لا يوجد داعي لمراجعة بقية سجلات النموذج الفرعي ، فلنخرج من الكود GoTo Exit_Form_Load End If 'اذهب الى السجل التالي rst.MoveNext Next i Exit_Form_Load: 'لإزالت البيانات من الذاكرة المؤقتة rst.Close: Set rst = Nothing Exit Sub err_Form_Load: If Err.Number = 3021 Then 'No Records Resume Exit_Form_Load Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 818.المرتجع.mdb.zip

وماهي المعادلة 1. مجموع وقت الفترات 2. ومتوسط الوقت واريدك تأخذ البيانات من برنامجك ، وتعطيني المعادلات ، ونتائجها. جعفر

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

جرب اخي الان انظر الى المرفق new.rar

السلام عليكم جرب المرفق فيه طلبك Ka_combo.rar

هذا الكود Option Explicit Sub hide_or_del_rows() With ActiveSheet .Unprotect Password:="1" .Rows.Hidden = False .Columns.Hidden = False .Rows("1").Hidden = True 'يمكن اختيار Rows("1").Delete .Columns("f").Hidden = True 'يمكن اختيار .Columns("f").Delete .Protect Password:="1" End With End Sub

بفضل الله ثم بمعاونة أحد رواد المنتدي الرائع وهو الأستاذ @مرشدعلي تم التوصل للحل تصيد المتلاعب-3.rar

العفو اخي وبالتوفيق لك

شكرا أخى مرشد ، جزاك الله خيرا فهذا هو عين المطلوب

جزاك الله خيراً اخي الكريم تحياتي

السلام عليكم تعمدت ان اضع هذا الموضوع مستقل عن سلسلة الشروحات كي يتمكن الجميع من رؤية الموضوع لمن لم يتابعوا السلسلة اليوم اضع لكم حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6 كثير منا يقوم ببناء برنامجه ولكن تظل مشكلة تفعيل الماكرو العائق امام تشغيل برنامجنا على اجهزة اخرى فيضيع علينا اظهار الانطباع الاول لبرنامجنا واللي ميعرفشي موضوع البرمجة ويلاقيك محتاس عمال تفعل الماكرو كل ما تشغله على جهاز جديد يقول انك مش محترف المهم عشان نشغل برامجنا على اي جهاز بدون تفعيل الماكرو وانسى الماكرو خالص قمت بعمل برنامج بسيط يعمل كواجهه للبرنامج الخاص بنا او كشاشة دخول برنامجنا وتبدأ كما بالصورة لمدة نحددها نحن وبعدها تختفى ويفتح لنا البرنامج بدون تفعيل الماكرو كل ما علينا ان نضع ملف البرنامج الخاص بنا بجانب الملف التنفيذي الذي سيعمل كشاشة بداية للبرنامج ونغير اسم برنامجنا الى ما هو موضح بالصورة Yasser.xlsm وهذا مؤقت فقط لحين شرح كيفية عمل هذه الشاشة الافتتاحية وتحطوا اي اسم لبرنامجكم وطبعا الامتداد xlsm ويمكن تغييره حتى ممكن نلعب في الامتداد ونخليه مثلا Yasser.dat ونخفيه كمان يبقي كأنه بيشغل من البرنامج التنفيذي المهم كل واحد عنده ملف به اكواد ماكرو يقدر يعطل الماكرو عنده ويحط ملفه بجانب هذا الملف التنفيذي ويقوم باعادة التسمية ليصبح Yasser.xlsm ويقولي ايه رأيه الملف مرفق به طريقتين لعمل الملف التنفيذي تستطيعوا تجربة اي واحد تقبلو تحياتي ياسر العربي يتبع start.rar شرح طريقة عمل البرنامج اضغط هنا

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

الأخوة الأعزاء الأفاضل و هذه نسخة تقوم بالبحث بجزء من الكلمة سواء في أول الكلمة أو وسط الكلمة أو آخرها . و دمتم ذخراً New-Userform-Arabic.rar

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

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

السلام عليكم في موضوعك السابق . انا قلت: . فإذا كان برنامجك بصيغة accde او mde ، فالاكسس يحتفظ بالكود بصورة لا يمكننا رؤيته ، ولو ان السيد جمال له حديث في هذا الموضوع . اما اذا كان برنامجك بصيغة accdb او accdr او mdb ، فنعم يمكن فك كلمة السر والدخول في الكود ، ولكن ، عن طريق محترف قاصد ان يدخل في الكود بأية طريقة ، وانا لست منهم جعفر

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

سأعمل على اعداد نسخة اخرى افضل _ في جهة الضبط _ وبفكرة جديدة ابتكرتها وسأسميها : اختصار المختصر الموضوع الجديد هنا

السلام عليكم اليوم اضع لكم شرح حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6 بداية الشرح اولا سنقوم بعمل مشروع جديد ليظهر معنا فورم واحد وهو المطلوب لكي يتم ربط الاكسيل مع الفيجوال لابد من وجود مرجع يعتمد عليه البرنامج للتعامل مع الاكسيل وهذه صور من دروس سابقة لمعرفة كيفية اضافة مرجع لبرنامج الاكسيل داخل المشروع الخاص بنا صور من درس سابق لربط الفيجوال بالاكسيل بعد ان قمنا باضافة المرجع الخاص بالاكسيل نأتي لمشروعنا دا شكل الفورم وكوده هتضيف صورة او ليبل حسب ما تشوفه مناسب ليك ودا بدون اي اكواد عادي نأتي للكود نضع في الحدث load الكود التالي Private Sub Form_Load() Dim Start, Finsh Form1.Show Start = Timer Finsh = Start + 5 Do Until Finsh <= Timer DoEvents Loop Unload Me Excel.Workbooks.Open App.Path + "\yasser.xlsm" Excel.Application.Visible = True End Sub الكود عبارة عن اعلان عن متغيرين بداية ونهاية البداية تساوي التايمر النهاية تساوي التايمر + اي وقت تضيفه لفترة عرض الفورم كشاشة افتتاحية وبعد كدا ندخل في حلقة تكرارية حتى تكون النهاية اقل من او تساوي الوقت وبعد تحقق الشرط يتم غلق الفورم وفتح ملف الاكسيل وعرضه في الوضع المرئي وبكدا يكون انتهينا من الدرس الكل مستغرب فيين كود تفعيل الماكرو اقوله مفيش ليه اقوله لان تشغيل ملف الاكسيل عن طريق ملف تنفيذي يجبر وحدات الماكرو على العمل حتى وان كانت غير مفعله الفكرة موجودة من زمان بس محدش كان واخد باله منها لاننا كنا بنقوم بربط ملف عادي وليس به اي وحدات ماكرو وطبعا نقوم بتحويل الملف لملف تنفيذي بعد الانتهاء بالنسبة لمن لديه اي صعوبات في التعامل مع الفيجوال6 يتابع الدروس من اولها حتى يتثنى له انهاء هذا العمل اما بخصوص من لديه الرغبة في وضع هذه الشاشة الافتتاحية ولا يريد ان يشغل باله اقوله ايضا سأقوم بعمل ملف به خيارات لضبطه كما تحتاج للردود او الاستفسار يرجى الدخول على هذا الرابط مرفق السورس كود للبرنامج لمن لا يريد وجع دماغه تقبلو تحياتي ياسر العربي يتبع vb6 &vba.rar

السلام عليكم اليوم اضع لكم حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6 كثير منا يقوم ببناء برنامجه ولكن تظل مشكلة تفعيل الماكرو العائق امام تشغيل برنامجنا على اجهزة اخرى فيضيع علينا اظهار الانطباع الاول لبرنامجنا واللي ميعرفشي موضوع البرمجة ويلاقيك محتاس عمال تفعل الماكرو كل ما تشغله على جهاز جديد يقول انك مش محترف المهم عشان نشغل برامجنا على اي جهاز بدون تفعيل الماكرو وانسى الماكرو خالص قمت بعمل برنامج بسيط يعمل كواجهه للبرنامج الخاص بنا او كشاشة دخول برنامجنا وتبدأ كما بالصورة لمدة نحددها نحن وبعدها تختفى ويفتح لنا البرنامج بدون تفعيل الماكرو كل ما علينا ان نضع ملف البرنامج الخاص بنا بجانب الملف التنفيذي الذي سيعمل كشاشة بداية للبرنامج ونغير اسم برنامجنا الى ما هو موضح بالصورة Yasser.xlsm وهذا مؤقت فقط لحين شرح كيفية عمل هذه الشاشة الافتتاحية وتحطوا اي اسم لبرنامجكم وطبعا الامتداد xlsm ويمكن تغييره حتى ممكن نلعب في الامتداد ونخليه مثلا Yasser.dat ونخفيه كمان يبقي كأنه بيشغل من البرنامج التنفيذي المهم كل واحد عنده ملف به اكواد ماكرو يقدر يعطل الماكرو عنده ويحط ملفه بجانب هذا الملف التنفيذي ويقوم باعادة التسمية ليصبح Yasser.xlsm ويقولي ايه رأيه مش هشرح غير لما الاقي تفاعل الملف مرفق به طريقتين لعمل الملف التنفيذي تستطيعوا تجربة اي واحد للردود او الاستفسار يرجى الدخول على هذا الرابط تقبلو تحياتي ياسر العربي يتبع start.rar

لاطالما قيل أنه لا يمكن حساب الميراث الشرعى بالأكسل لعة أسباب منها . 1- لكثرة الأحتمالات وتنوعها 2- عدم التعامل وأظهار النتائج بالكسور وتصحيح المسائل بأعداد صحيحة (على الطريقة الشرعية) 3-نتائج القسمة على صفر ولكن الأن أصبح ممكن حساب حصص الورثة والتركة وتمثيل ذلك بيانيا وأجراء كل العمليات الحسابية المعقدة فى ثوانى اليكم هذا البرنامج الرائع فى حساب الميراث الشرعى بدقة متناهية . الأكسل بأستعمال خاصية الأنتقال الهايبر لينك.zip

تسلم أخي الحبيب مختار على هذا الكود الجميل والرائع ممكن نختصره شوية (معلش رخم أنا ولازم أضع لمساتي اللي ملهاش لازمة في معظم الأحيان) Sub TestArray() Dim Arr(1 To 5, 4 To 7, 10, 1 To 9) MsgBox "The Number Of Dimensions For The Array " & ElementCount(Arr) End Sub Function ElementCount(B As Variant) As Long Dim V As Variant, Z As Long For Each V In B Z = Z + 1 Next V Do ElementCount = ElementCount + 1 Z = Z / (UBound(B, ElementCount) - LBound(B, ElementCount) + 1) Loop Until Z = 1 End Function

كنا في المشاركة ... http://www.officena.net/ib/index.php?showtopic=38385&p=223496 تحدثنا عن نطاق السنوات لعشر سنوات ماضية وقادمة ، لتكون الوحدة النمطية مصدر الصف في مربع تحرير وسرد وهنا نعدل على الفكرة باستخدام مفهوم callback function ، لغايات تحقيق المرونة و الفاعلية ، ونقوم بانشاء وحدة نمطية عامة ، تحدد هذه الوحدة خصائص مربع التحرير و السرد او مربع القائمة بحيث يكون نوع مصدر البيانات Value List وعدد الاعمدة 1 ، ثم نفرغ المربع المحدد من أي بيانات سابقة ، ونقوم بتحديد بياناته الجديدة بواسطة بقية جمل الوحدة النمطية . Public Function callbackYearLoop(strContYear As Control, strLoop As Integer) 'By Nart Lebzo .... www.officena.net 'Amman - Jordan 25/06/2014 Dim YearHold As Date Dim intI As Integer strContYear.RowSourceType = "Value List" ' Clear out strContYear.RowSource = vbNullString strContYear.ColumnCount = 1 ' Year For intI = -strLoop To strLoop YearHold = DateSerial(Year(Date) + intI, 1, 1) strContYear.AddItem Format(YearHold, "yyyy") Next intI End Function وفي جملة الاستدعاء وفي حدث عند الحالي للنموذج نحدد اسم مربع التحرير و السرد او مربع القائمة المستهدف لاحتواء البيانات ثم عدد السنين لتحديد الدوران ( سابق ولاحق ) Call callbackYearLoop(CombYear, 3) وتكون النتيجة لدينا مرنه وقابلة للاستدعاء في اي نموذج وللفترات التي نحتاجها في كل نموذج او ظرف ( وحسب التحليل ) مرفق تطبيق اصدار 2003 و 2007 NA_CallbackYearLoop.rar