اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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

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

 

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

 

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

 

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

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

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

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

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

Codes Library.rar

  • Like 16
  • Thanks 1
رابط هذا التعليق
شارك

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

 

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

 

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

 

:fff:  :fff:  :fff: 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

تقبل تحياتي :fff: :fff: :fff:

  • Like 1
رابط هذا التعليق
شارك

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

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

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

تقبل تحياتي :fff:  :fff:  :fff: 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

فى امان الله

رابط هذا التعليق
شارك

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

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

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

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

تقبل تحياتي :fff: :fff: :fff:

رابط هذا التعليق
شارك

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

 

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
  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

تم تعديل بواسطه YasserKhalil
  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

                                                                                         

                                                                                                                                     تحياتى لكم

تم تعديل بواسطه مختار حسين محمود
  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

شارك ولو بكود

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

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

تم تعديل بواسطه YasserKhalil
  • Like 2
رابط هذا التعليق
شارك

السلام عليكم

 

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

 

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

 

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

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

 

Codes Library v1.0.rar

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

 

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

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

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

  • Like 6
رابط هذا التعليق
شارك

تسلم يا أسد ..

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

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

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

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

  • Like 2
رابط هذا التعليق
شارك

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

 

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

 

تقبل تحياتي  :fff:  :fff:  :fff: 

  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه YasserKhalil
  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

Codes Library v1.1.rar

  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

تقبل تحياتي

رابط هذا التعليق
شارك

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

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

Codes Library v1.2.rar

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

Codes Library v1.3.rar

  • Like 1
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information