شوقي ربيع

بكل بساطة اعكس العملية

Dim LastRow As Long
LastRow = ThisWorkbook.Sheets("xx").Range("g1").End(xlDown).Row
LastRow = LastRow + 1

الناس الذين يضهر عندهم الخطاء راجع إلى استعمالهم وندوز٧ وذلك راح إلى الايقونات الموجودة في الأزرار 

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

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

Pr Commercial.rar

السلام عليكم برنامج مكتبات من اول برامجي c# لوجه الله تعالى تم استخدام C# /sql / linq / والبعض من bunifu بالمناسبة أشكر اخي السلام Eslam Abdullah على الشرح المميز البرنامج

رائيكم يهمني تحياتي للجميع

http://www.mediafire.com/file/jq5t3cesu64qyg6/Libraries.rar/file

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

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

السلام عليكم

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

فلما اخذني الحنين للاكسل فكرة لمذا لا استخدمه كما تعلمت مع اللغات الاخرى

فرفعت التحدي و عملت هدا البرنامج البسيط

البرنامج عبارة عن تسجيل عمليات استلام وتسليم الوصلات واظهار كشف الحساب لكل مورد على حده او تقرير عام

بصفة عامة البرنامج بسيط ما يهم هو ما يخفيه من اكواد و مايظهره من جمال للفورم

اما الثانية ما يظهره من جمال الفورم حاولت ان اعمل ما يستخدم في 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 بيت و ايضا من عدم قدرتي على رفع الملف من جديد في الوقت الحالي

تحياتي للجميع

14 ساعات مضت, مجدى يونس said:

الاخ العزيز شوقى ربيع

فورم ممتاز وجذاك الله خير

بعد إذنك وإذن الاخ عماد الغازي

هذا شرح لى للفورم على اليوتيوب على ملف اكسل لمحل ملابس

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

تم تثبيت الموضوع للاستفادة منه

 

 

رابط الملف على الميديا فير

 

رابط اخر على موقع توب توب

 

 

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

3 ساعات مضت, احمد الطحان said:

الملف تالف

هذا ما يظهر عندى

فك الضغط بواسطة 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 لا تحتاج الى كود

في ٢٥‏/٢‏/٢٠١٨ at 14:31, حسام مصطفي said:

هل معني ذلك استاذنا

ان اقوم بتصميم الفورم لدي بالاكسيل كما اريد واصمم برنامجي علي الاكسيل بالشكل الذي اريده

ثم اقوم بوضع الاكواد الموجودة في ملفك لربط الاكسيل االذي قمت بتصميمه مع الاكسيس ( اي ان الاكسيس ما هو الا مكان للتخزين كقاعد بيانات كبيرة فقط )

وبهذا يكون قد انتهي الربط والبرنامج

نعم اخي هو كذالك بالضبط

في ٢٥‏/٢‏/٢٠١٨ at 14:31, حسام مصطفي said:

علما بان معلوماتي عن الاكسيس لا تتعدي النماذج والجداول والاستعلامات والتقارير التي يتم انشاؤها وليس لدي اي درايه بأكواد الاكسيس نهائياً عكس الاكسيل فلدي الكثير منها وافهم معظمها بسهوله

تلك المعلومات تكفي وبزبادة

في ٢٥‏/٢‏/٢٠١٨ at 19:59, محمود أبوالدهب said:

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

الملف الملرفق ليس به اي اخطاء

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

3 ساعات مضت, سمير نجار said:

السلام عليكم ورحمة الله وبركاته

كل الشكر للاستاذ شوقي

السادة الكرام

الملف يعمل بشكل ممتاز في حال لم يكن هناك دالة جمع او ماشابه في حقل من حقول استعلام الاكسس

اما في حال وجود دالة في حقل من حقول استعلام الاكسس  فإنه تظهر مشكلة عند جلب البيانات للاكسل

هل هناك من حل

اولا شكرا اخي سمير لهتمامك بالموضوع و و اضح جدا من الملف الذي ارسلته انك درست الملف جيدا ....احسنت اخي سمير

بخصوص سؤالك عن جلب الاستعلام به دالة او لا يوجد به دالة لايوجد اي مشكل يمكن ذلك جدا

الخطا الذي يضهر لك هو بسبب وجود خلايا في الاكسل قيمتها  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