شوقي ربيع

بكل بساطة اعكس العملية Dim LastRow As Long LastRow = ThisWorkbook.Sheets("xx").Range("g1").End(xlDown).Row LastRow = LastRow + 1

الناس الذين يضهر عندهم الخطاء راجع إلى استعمالهم وندوز٧ وذلك راح إلى الايقونات الموجودة في الأزرار لذى ارجو من أحد الاعضاء أصحاب وندوز ١٠ ان يقوم بمسح جميع الايقونات الموجودة في الأزرار الخاصة بكل فورم ثم يعيد رفع الملف سيشتغل عند الجميع ان شاء الله اما الذين يستفسرون عن طريقة تشغيل البرنامج فل يتعلمو ان البرنامج غير منتهي بالكامل و انا طرحته ليستفيد منه و لكم حرية التعديل عليه كما تشاؤن

بسم الله الرحمان الرحيم السلام عليكم اصدقائي قررت في الفترة الاخيرة اعتزال البرمجة بالاكسل و vba ولا اظن اني ساعود له بما اني كنت اعمل على بعض المشاريع بواسطة الاكسل و لاكن للاسف لم اجد الوقت الكافي لانهائها قررت ايضا طرح تلك المشاريع لربما لتستفيدون منها لذاى ساقوم في كل مرة يتاح لي الوقت فيها برفع مشروع او اثنين ان شاء الله كاول مشروع هذا برنامج مبيعات /كودبار/يعتمد ايضا القطعة و العلبة تقريبا انجز 80% منه لم يتبقى له سوى التقارير و بعض الاشياء الاخرى تحياتي للجميع Pr Commercial.rar

هذا راجع لتشغيلك الملف دون فك الضغط عنه يرجى فك الضغط ولا تنقل ملف قاعدة البيانات بعيد عن الملف

السلام عليكم طال غيابي عنكم احبتي في الله لسببين اولهما ظروف خاصة وثانيها لتوجهي الى تعلم لغات برمجة اخرى و ابتعادي عن الاكسل العشق فلما اخذني الحنين للاكسل فكرة لمذا لا استخدمه كما تعلمت مع اللغات الاخرى فرفعت التحدي و عملت هدا البرنامج البسيط البرنامج عبارة عن تسجيل عمليات استلام وتسليم الوصلات واظهار كشف الحساب لكل مورد على حده او تقرير عام بصفة عامة البرنامج بسيط ما يهم هو ما يخفيه من اكواد و مايظهره من جمال للفورم اما الثانية ما يظهره من جمال الفورم حاولت ان اعمل ما يستخدم في c# ui design و النتيجة هي اما الاولى مايخفيه من اكواد هي قاعدة البيانات هي اكسيس بحيث برمجة كلاس يمكنك استخدامه لتتعامل مع ملفات الاكسيس بكل سهولة ابتداءا بجملة الاتصل فتح الاتصال اغلاق الاتصال الى تنفيذ الكموند تماما كما هو الحال مع c# او غيرها من لغات اخرى الى كل من يبحث عن كيفية العمل على برنامج واحد باكثر من جهاز او مستخدم في نفس الوقت هذا الملف يمكنك من ذلك وذالك برفع قاعدةالبيانات الاكسيس على اي استضافة كقوقل دريف او دريفبوكس وتسليم ملف الاكسل للمستخدمين سيستطيعون جميعهم العمل عليه في نفس الوقت كل ما تحتاجه هو تغيير مسار الملف في كلاص الاتصال المسمى ClsConnctionDB في الاخير تحياتي للجميع تم تعديل الملف ليشتغل على ويندوز 7 WPFVBA_Win7.rar WPFVBA_Win10.rar

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

في حدث Class_Initialize للكلاص المسمى ClsConnctionDB ضع رابط قاعدة البيانات امام المتغير strDBPath

السلام عليكم طال غيابي عنكم احبتي في الله لسببين اولهما ضروف خاصة وثانيها لتوجهي الى تعلم لغات برمجة اخرى و ابتعادي عن الاكسل العشق فلما اخذني الحنين للاكسل فكرة لمذا لا استخدمه كما تعلمت مع اللغات الاخرى فرفعت التحدي و عملت هدا البرنامج البسيط البرنامج عبارة عن تسجيل عمليات استلام وتسليم الوصلات وظهار كشف الحساب لكل مورد على حدى او تقرير عام بصفة عامة البرنامج بسيط ما يهم هو ما يخفيه من اخواد و مايضهره من جمال للفورم اما الثانية ما يضهره من جمال الفورم حاولت ان اعمل ما يستخدم في c# ui design و النتيجة هي اما الاولى مايخفيه من اكواد هي قاعدة البيانات هي اكسيس بحيث برمجة كلاص يمكنك استخدامه لتتعامل مع ملفات الاكسيس بكل سهولة ابتداءا بجملة الاتصل فتح الاتصال اغلاق الاتصال الى تنفيذ الكموند تماما كما هو الحال مع c# او غيرها من لغات اخرى الى كل من يبحث عن كيفية العمل على برنامج واحد باكثر من جهاز او مستخدم في نفس الوقت هذا الملف يمكنك من ذلك وذالك برفع قاعدةالبيانات الاكسيس على اي استضافة كقوقل دريف او دريفبوكس وتسليم ملف الاكسل للمستخدمين سيستطيعون جميعهم العمل عليه في نفس الوقت كل ما تحتاجه هو تغيير مسار الملف في كلاص الاتصال المسمى ClsConnctionDB في الاخير تحياتي للجميع WPFVBA.rar

جرب هذا Archivé Mobile V 1.001(1).rar

هذا برنامج صممته منذ زمن لمحلات الهواتف او يمكنك تصميم الجداول المناسبة لك و تحمكم فيها من خلال الفورم السحري

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

جزاك الله خيرا استاذي العزيز وبارك الله فيك على هذا الفيديو

فك الضغط بواسطة 7zip

مميزات الفورم السحرى 1-الفورم يستكشف جميع الجداول المصممة فى اى ملف اكسل 2- التعامل مع تلك الجداول من حذف واضافة وبحث وترحيل 4- ضبط عرض أعمدة اليست بوكس من خلال ضبط أعمدة الجدول 3- الفورم يكتشف المعادلات ويحميها تلقائيا 5- الفورم السحرى يكتشف اعمدة التواريخ تلقائيا 6- الفورم يقبل تدعيم الجداول بالصور تلقائيا 7- الفورم يحدد اوتوماتيكيا المكان الجغرافى للجداول داخل ملف الاكسل وهناك كثير للميزات ستكتشفها بنفسك عند العمل على الفورم السحرى هذا شرح مصور الاخ الرائع عماد الغازي بالمناسبة أشكره من كل قلبي على هذا الشرح جزاه الله خيرا الفورم_السحرى.rar

تغيير في كل الشيتات ان وجدت.xlsx

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim Ws2 As Worksheet If Replace(Target.Address, "$", "") = "I8" Then Set Ws2 = Worksheets(Target.Text) Ws2.Activate End If End Sub name.xlsm

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

الكود عبارة عن حلقة تكرارية تبدأ من الرقم 1 الى عدد الطلب وهو 42 في مثالك في كل دورة يتم كتابة المتغير في الخلية T1 ثم يقوم بالطباعة كل مافي الامران الحلقة تنتقل ب 3 اضعاف مثال تبدا الحلقة بالقم 1 في الدورة الثانية تصبح 3 في الثالثة تصبح 6 ثم 9 ثم 12 ......الى اخرالحلقة لكي تعمله على شيت اخر كل ماعليك تصميم شيت بنفس الشيت الاول و بكامل معادلته ثم تنسخ ازرار الطباعة اليه و ستشتغل بنفس الطريقة اما اذا كان شكل الشيت الجديد مختلف تحتاج الى التعديل في الكود

استخدم دالة vlookup لا تحتاج الى كود

نعم اخي هو كذالك بالضبط تلك المعلومات تكفي وبزبادة الملف الملرفق ليس به اي اخطاء اما بخصوص شرح الموضوع انت فقط اشر على اي جزئية وباذن الله اشرحها لك اولا شكرا اخي سمير لهتمامك بالموضوع و و اضح جدا من الملف الذي ارسلته انك درست الملف جيدا ....احسنت اخي سمير بخصوص سؤالك عن جلب الاستعلام به دالة او لا يوجد به دالة لايوجد اي مشكل يمكن ذلك جدا الخطا الذي يضهر لك هو بسبب وجود خلايا في الاكسل قيمتها nothing و في مثالي السابق اعتمدت على المصفوفات لتخزين البيانات التي نجلبها من الاكسيس مؤقتا وكما نعلم المصفوفات لاتقب القيمة nothing لذى يضهر لك ذلك الخطا الحل بكل بساطة هو جلب البيانات من الاكسيس مباشرتا الى اليست بوكس هههه لان اليست بوكس تقبل nothing اليك هذه الخورازمية لتنفيذ دالك Function Fill2(List As Variant, SelectCommand As String) On Error GoTo Err1 List.Clear Set rs = CreateObject("ADODB.Recordset") If ConnectionState = False Then Call connectDatabase rs.Open SelectCommand, Conn If rs.RecordCount <> 0 Then List.Column = rs.GetRows End If If ConnectionState = True Then Call CloseDatabase Exit Function Err1: Dim MonResultat MonResultat = MsgBox("Description : " & Err.Description, vbCritical + vbOKOnly, "Erreur d'execution") If ConnectionState = True Then Call CloseDatabase End Function الان بكل بساطة عندما تريد انتجلب جدول الى اليست بوكس كل ما عليك استدعاء هته الخوارزمية ايضا انضر المرفق لتستوعب الفكرة اكثر اكسل & اكسيس (اضافة تعديل حذف + تقارير).rar تحياتي للجميع

Sub MM() For G = 4 To 10 If Cells(G, 15) < 30 Then If Cells(G, 9).Value > Range("G1").Value Then 'Cells(G, 2).Interior.ColorIndex = 40 'Cells(G, 3).Interior.ColorIndex = 42 'Cells(G, 9).Interior.ColorIndex = 40 MsgBox ("ÇáãæÙÝ : " & " " & Cells(G, 2) & " " & "¡ íäÊåí ÇáÅÔÊÑÇß ÈÊÇÑíÎ : " & " " & Cells(G, 9) & " " & "¡ æÈÇÞí ãä ÇáÃíÇã : " & Cells(G, 15) & " " & "íæã ") 'Cells(G, 2).Interior.ColorIndex = xlNone 'Cells(G, 3).Interior.ColorIndex = xlNone 'Cells(G, 9).Interior.ColorIndex = xlNone End If End If Next End Sub

السلام عليكم تم العمل على حسب فهمي للموضوع ملاحظة لا تغيرة تسمية الاوراق لكي لا تتأثر الاكواد ولا تغير اي شئ في الورقمة المسمات temp ارجو ان يكون المطلوب تحياتي Advanced_Filter.xlsm

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

السلام عليكم تفضل اخي mot_de_passe.xlsm

شكرا لك اخي essam rabea لقد توصلت الى حل CR_RUNBAL: (SELECT SUM(DEBIT-CREDIT) FROM CRDB_Table AS Alias_CRDB WHERE Alias_CRDB.ID <= CRDB_Table.ID AND Alias_CRDB.ID_FOURNSUE = CRDB_Table.ID_FOURNSUE) تياتي لك