المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد

[ياسر خليل أبو البراء]

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

******************

نويت بإذن الله تعالى - والله الموفق - أن أقوم بالبدء في هذا المشروع الكبير الذي أطلقت عليه اسم

(مكتبة الصرح .. زاخرة بالشرح)

بحثت عن ملف الأستاذ الكبير عبد الله باقشير (محفظة الأكواد) للعمل عليه ..

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

 

الأمر مختلف قليلاً عما قدم من قبل ، إذ أن الأكواد ستكون مصحوبة بالشرح (على قدر استطاعتي ) ولمن أراد أن يزيد على الشرح فليفعل ولا يتردد..

 

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

 

وإليكم الملف المرفق به 5 أكواد فقط مدعومة بالشرح

منها 3 اكواد بسيطة ، وكود صعب قليلا ، ودالة معرفة UDF كنقطة بداية ..

ملحوظة الأكواد مدعومة بالشرح في صفحة التعليمات .

أرجو أن ينال رضاكم ... ولا تنسوا التصحيح والتنقيح إخواني أولاً بأول ، حتى يخرج العمل في النهاية بشكل لائق يليق بمنتدانا .. يليق بالصرح العملاق

ولذا أسميت المشروع (مكتبة الصرح والصرح المقصود به منتدانا الغالي .. وإن شاء الله تكون المكتبة زاخرة وممتلئة بالشرح بعون الله وتوفيقه ثم بجهودكم ومساندتكم للمشروع)

Codes Library.rar

[ibn_egypt]

اخى الفاضل أ.ياسر

 

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

 

خالص تقديري واحترامى استاذي الفاضل

 

     

[الجموعي]

أستاذي الفاضل /ياسر خليل

عمل ممتاز بالتوفيق

جزاك الله كل الخير

[ياسر خليل أبو البراء]

أخي الحبيب الغالي الغائب عن العين الحاضر في القلب ابن مصر

إنه لمن دواعي سروري وشرفي أن تكون أول من يرد وأول من يقدم المساعدة في هذا المشروع الكبير

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

تقبل تحياتي

[ياسر خليل أبو البراء]

الأخ الغالي الجموعي

ها قد حانت فرصتك لتكون معنا داخل المشروع وليس مشجعاً فقط ..

في انتظار إضافاتك للمشروع .. لو كل يوم كل عضو كلف نفسه 5 دقايق بإضافة كود واحد ولو سطر واحد سيكون المشروع بحق مشروع خرافي يكون مرجعاً للجميع ..للكبير قبل الصغير

تقبل تحياتي      

[عادل ابوزيد]

الاستاذ الفاضل الكبير اوى ياسر خليل

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

جعل الله اعمالك فى ميزان حسناتك ونفعك بها انت واسرتك الكريمه فى الدنيا والاخرة بجد مجهود راااااااااااااااااااائع وجهد مشكور ان شاء الله مثاب عليه

حفظكم الله وراعاكم

فى امان الله

[ياسر خليل أبو البراء]

أخي في الله عادل

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

في انتظار إضافاتك اليوم قبل غد .. لا تركن إلى الكسل

كن لبنة في المشروع ولا تكن مجرد متفرج أخي عادل

تقبل تحياتي

[الجموعي]

لنبدأ على بركة الله مجموعة اكواد متنوعة تخص تغير عنوان التطبيق بطريقة مرنة

 

1- لإدراج إسم الفورم من بيانات المدرجة في العمود 1 , الصف 1 من الصفحة النشطة

Private Sub UserForm_Initialize()
UserForm1.Caption = ActiveSheet.Cells(1, 1)
أو
UserForm1.Caption = ActiveSheet.Range("A1")
End Sub

2- لإدراج إدراج إسم افورم من إسم الورقة النشطة

Private Sub UserForm_Initialize()
UserForm1.Caption = ThisWorkbook.ActiveSheet.Name
End Sub

3- إدراج إسم الفورم إختياري من أي ورقة تريدها

مثلا الورقة 2 :  الصف 1 ; العمود 2

Private Sub UserForm_Initialize()
UserForm1.Caption = Sheets(2).Cells(1, 2)
End Sub

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب الجموعي

هكذا يكون العمل ويكون النشاط ..

بالإضافة إلى وضع الكود في المشاركة يرجى تحميل المرفق من أول مشاركة ووضع الأكواد بعنوان مناسب ، وليكن العنوان مثلاً (تغيير عنوان الفورم) وعمل شرح لها بشكل مبسط .

كما يرجى وضع الكود في الحدث المناسب حتى لا يختلط الأمر على الباحث فيما بعد

بهذا الشكل مثلاً

Private Sub UserForm_Initialize()
    UserForm1.Caption = ThisWorkbook.ActiveSheet.Name
End Sub

تم تعديل ديسمبر 30, 2014 بواسطه YasserKhalil

[مختار حسين محمود]

أستاذى العزيز بارك الله فيك

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

أنا بزورك  اهــــه   وايدى مش فاضيه  :

' الكود التالى للحفظ والخروج التلقائى من اكسل يوضع فى حدث الـ Workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Application.DisplayAlerts = False
     ThisWorkbook.Save
     Application.Quit
End Sub
 

الكود التالى : مديول عادى للحفظ والخروج من الملف

Sub Close_File()
    ThisWorkbook.Save
    ThisWorkbook.Close
End Sub

الكود التالى  مديول عادى للحفظ والخروج نهائيا من اكسل

Sub Close_Excel()
    ThisWorkbook.Save
    Application.Quit
End Sub

ملحوظه هامة أرجو تعديل المرفق بحيث يكون العمل من خلال اليوزرفورم  فقط   

                                                                                         

                                                                                                                                     تحياتى لكم

تم تعديل ديسمبر 30, 2014 بواسطه مختار حسين محمود

[ياسر خليل أبو البراء]

تسلم أخي مختار

نورت الموضوع أخي وحبيبي مختار

ودي عادة الصعايدة مش بيدخلوا وايديهم فاضية

ربنا يبارك فيك يا كبير

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

نحاول دائما أن نلم شتات الأكواد ..الأكواد من هنا وهناك يتم تجميعها ها هنا ...

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

أرجو أن تكون الفكرة قد وصلت

[خيماوي كووول]

الله يجزيكم كل خير ويوفقكم جميعاً ... وعمل رائع ... بارك الله فيكم ...

[ياسر خليل أبو البراء]

الأخ الفاضل خيماوي كوول

خليك كوول يا مان ومتدخلش وايدك فاضية ..مش معنى إن عدد مشاركاتك قليل إنك متساهمش ..

ساهم واتبرع ولو بكود .. فكرتني بمستشفى 5757

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

شارك ولو بكود

شارك ولو بكود ..دا هيكون شعار المشروع الكبير ..

شارك ولو بكود .. خلي المشروع مشهود

تم تعديل ديسمبر 31, 2014 بواسطه YasserKhalil

[احمد عبد الناصر]

السلام عليكم

 

اسعد الله اوقاتكم 

 

موضوع :تصدير بيانات الي برنامج الاكسيس

http://www.officena.net/ib/index.php?showtopic=44222&page=2#entry264825

 

كود 

Sub cool()

ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\export.accdb ;Persist Security Info=True"
Set oCn = New ADODB.Connection
oCn.ConnectionString = ConnString
oCn.Open
sSQL = "delete from t ;"
oCn.Execute sSQL
sSQL = " INSERT INTO t SELECT * FROM [Excel 12.0;HDR=YES;DATABASE=" & ActiveWorkbook.FullName & "].[Sheet1$a:b] ;"
oCn.Execute sSQL


End Sub

تحياتي

Codes Library.rar

[ياسر خليل أبو البراء]

الأخ الحبيب والأستاذ القدير أحمد عبد الناصر

يشرفني مرورك الكريم بالموضوع

بارك الله فيك وجزاك الله خير الجزاء ...

 

النسخة الأولى من المكتبة بعد إضافة أكواد الأخ الجموعي والأخ مختار والأخ أحمد عبد الناصر ... أضفت مجلد باسم Files ليحتوي على المرفقات مع الأكواد التي يلزمها مرفقات فقط .. وسنحاول جاهدين ألا نكثر من المرفقات (للضرورة فقط) ...

إليكم الإصدار الأول من المكتبة بعد التنقيح والتصحيح ...

 

Codes Library v1.0.rar

[الصـقر]

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

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

المرفق بقى من مكتبة استاذنا محمد يحياوى  

دى من الكنوز اللى محتفظ بيها وانا عمرى ما هبخل عليك باى كنز يا كبير

تقبل تحياتى وربنا يوفقك

 

الجزء الأول.pdf

الجزء الثاني.pdf

الجزء الثالث.pdf

[ياسر خليل أبو البراء]

تسلم يا أسد ..

الله ينور عليك

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

يلا توكل على الله وإنت اشتغل الجزء الأول وأنا هشتغل الجزء الثاني ونشوف حد يتبرع ويشتغل الجزء الثالث

أنا مش هشتغل لوحدي !!

[ابو تراب]

ما شاء الله تبارك الله فكرة ممتازة و مشروع ضخم و تحتاج لفريق عمل و Focal Points و وبتعاون الاعضاء الكرام سيرى هذا المشروع النور و سيكون مكتبة الصرح ..الزاخرة بالشرح  

 

بارك الله فيك استاذنا الغالي ياسر و انت فعلا عاشقا للأكسل

 

تقبل تحياتي       

[ياسر خليل أبو البراء]

مشكور أخي الغالي أبو تراب على مرورك العطر ..

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

كفاية من حضرتك 50 أو 60 كود بس :yes:

بارك الله فيك أخي الحبيب ..تقبل تحياتي :fff:

تم تعديل ديسمبر 31, 2014 بواسطه YasserKhalil

[ياسر خليل أبو البراء]

إخواني الكرام إليكم الإصدار الأخير من مكتبة الصرح ، تم إضافة مجموعة جديدة من الأكواد ..

أرجو المشاركة في المشروع (ايد لوحدها متصقفش)

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

كودك مش هيكلفك كتير لكن هيكون لبنة في المشروع ..أرجو الاهتمام ..

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

من هنا شرارة الإنطلاق ، وما زالت الأكواد مستمرة .. تابعوا معنا !!!

Codes Library v1.1.rar

[Yasser Fathi Albanna]

بجد الله عليك وعلى أعمالك يا أستاذ / ياسر

ربنا ما يحرمناش من أعمالك إنت والأخوة الأعضاء وحوش المنتدى الأفاضل

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

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

[ياسر خليل أبو البراء]

أخي الحبيب ياسر (يا غالي عشان على اسمي) وغالي بردو حتى لو مش على اسمي..

وأشكرك على كلماتك الرقيقة أخي الحبيب.

لو تابعت الموضوع من البداية هتلاحظ إن معظم الناس دخلوا الموضوع وايدهم مليانة مش فاضية ، فين هديتك للموضوع ؟؟ شارك ولو بكود ...تعاطفك لوحده مش كفاية

وبعدين دا إنت لقبك البنا (يعني لازم تشارك في عملية البناء في المشروع الكبير ) ، وربنا يتقبل مني ومنك صالح الأعمال ..

تقبل تحياتي

[ياسر خليل أبو البراء]

إخواني الكرام ..ها أنا أعمل على قدم وساق ..أضفت 4 أكواد أربعة بقول أربعة ..مستفز بطبعي

تفضلوا الإصدار الأخير ................>>>>>>>>

Codes Library v1.2.rar

[ياسر خليل أبو البراء]

لا تفاعل ولا اهتمام وكأن الأمر غير ذو أهمية!!!

بارك الله فيكم إخواني

عموما لن أتوقف مهما كانت الظروف بإذن الله

اليوم تمت إضافة 6 أكواد جديدة في المكتبة

برجاء تجربة الأكواد وموافاتي بالنتائج في حالة وجود أخطاء في التنفيذ حتى يتم التصحيح والتنقيح ويخرج العمل بشكل لائق

إليكم الإصدار الأخير .. (ولا ننسى أن الموضوع متجدد ..يعني مترجعش لورا لملفات تمت إضافتها من قبل حمل آخر نسخة ..لأن فيها تجميعة لكل المشاركات اللي فاتت)

 

Codes Library v1.3.rar

[ابراهيم الحداد]

دايما سباق بالخير . بارك الله فيك