ياسر خليل أبو البراء قام بنشر ديسمبر 30, 2014 قام بنشر ديسمبر 30, 2014 السلام عليكم ورحمة الله وبركاته ****************** نويت بإذن الله تعالى - والله الموفق - أن أقوم بالبدء في هذا المشروع الكبير الذي أطلقت عليه اسم (مكتبة الصرح .. زاخرة بالشرح) بحثت عن ملف الأستاذ الكبير عبد الله باقشير (محفظة الأكواد) للعمل عليه .. ** رجاء من الأخ عبد الله .. إضافة للفورم في هذا الملف أن تكون عملية البحث غير مقتصرة على عناوين الأكواد فقط ، بل تشمل عمليه البحث الـ ListBox الذي يحوي الأكواد نفسها ، وكذلك صفحة التعليمات ، حتى يسهل فيما بعد على الباحث أن يصل لمراده بسهولة .. الأمر مختلف قليلاً عما قدم من قبل ، إذ أن الأكواد ستكون مصحوبة بالشرح (على قدر استطاعتي ) ولمن أراد أن يزيد على الشرح فليفعل ولا يتردد.. من هنا بإذن الله ستكون الإنطلاقة الكبرى نحو المشروع الكبير .. وسأحاول جاهداً أن أبدأ عملية بناء المكتبة بشكل منظم يسهل على الباحث فيما بعد الوصول للكود الذي يرغبه ، ويعرف كيف يقوم بتطبيق الكود بنفسه دون الحاجة لغيره .. يعني مبدأ الاعتماد على النفس في تطبيق الأكواد.. وإليكم الملف المرفق به 5 أكواد فقط مدعومة بالشرح منها 3 اكواد بسيطة ، وكود صعب قليلا ، ودالة معرفة UDF كنقطة بداية .. ملحوظة الأكواد مدعومة بالشرح في صفحة التعليمات . أرجو أن ينال رضاكم ... ولا تنسوا التصحيح والتنقيح إخواني أولاً بأول ، حتى يخرج العمل في النهاية بشكل لائق يليق بمنتدانا .. يليق بالصرح العملاق ولذا أسميت المشروع (مكتبة الصرح والصرح المقصود به منتدانا الغالي .. وإن شاء الله تكون المكتبة زاخرة وممتلئة بالشرح بعون الله وتوفيقه ثم بجهودكم ومساندتكم للمشروع) Codes Library.rar 16 1
ibn_egypt قام بنشر ديسمبر 30, 2014 قام بنشر ديسمبر 30, 2014 اخى الفاضل أ.ياسر ليس بجديد عليك مثل هذه الأعمال الرائعة .. عمل ممتاز وبداية جميلة جزاك الله كل خير وان شاء الله سنحاول قدر المستطاع الإضافة اليه .. ادعوا الله ان يجعله في ميزان حسناتك خالص تقديري واحترامى استاذي الفاضل 1
الجموعي قام بنشر ديسمبر 30, 2014 قام بنشر ديسمبر 30, 2014 أستاذي الفاضل /ياسر خليل عمل ممتاز بالتوفيق جزاك الله كل الخير 1
ياسر خليل أبو البراء قام بنشر ديسمبر 30, 2014 الكاتب قام بنشر ديسمبر 30, 2014 أخي الحبيب الغالي الغائب عن العين الحاضر في القلب ابن مصر إنه لمن دواعي سروري وشرفي أن تكون أول من يرد وأول من يقدم المساعدة في هذا المشروع الكبير وفي انتظار الإضافات الرائعة ..كل مشاركة تكون لبنة جديدة في المشروع ..أنا بدأت بلبنة وأنت تقوم ببناء أخرى ، وهكذا كل يدلي بدلوه ..لكن المهم ألا يخل أحد بمبدأ المشروع ، ألا وهو ان يكون الكود مدعوم بالشرح ، على الأقل أن يوضح الأسطر التي يجب على المستخدم تغييرها في حالة تطبيقه للكود .. تقبل تحياتي 1
ياسر خليل أبو البراء قام بنشر ديسمبر 30, 2014 الكاتب قام بنشر ديسمبر 30, 2014 الأخ الغالي الجموعي ها قد حانت فرصتك لتكون معنا داخل المشروع وليس مشجعاً فقط .. في انتظار إضافاتك للمشروع .. لو كل يوم كل عضو كلف نفسه 5 دقايق بإضافة كود واحد ولو سطر واحد سيكون المشروع بحق مشروع خرافي يكون مرجعاً للجميع ..للكبير قبل الصغير تقبل تحياتي 1
عادل ابوزيد قام بنشر ديسمبر 30, 2014 قام بنشر ديسمبر 30, 2014 الاستاذ الفاضل الكبير اوى ياسر خليل مش جديد عليك مثل هذه الاعمال العملاقة التى ستكون وستظل منارة لكل طالب يريد ان يتعلم فى هذا الصرح الكبير فبكم تنار عقولنا ونسير على الدرب الصحيح ان شاء الله جعل الله اعمالك فى ميزان حسناتك ونفعك بها انت واسرتك الكريمه فى الدنيا والاخرة بجد مجهود راااااااااااااااااااائع وجهد مشكور ان شاء الله مثاب عليه حفظكم الله وراعاكم فى امان الله
ياسر خليل أبو البراء قام بنشر ديسمبر 30, 2014 الكاتب قام بنشر ديسمبر 30, 2014 أخي في الله عادل بمشاركتك للموضوع أنت أصبحت ملزم بالإضافة فيه ، لا أريد مشجعين ومصفقين ، اعذرني إن كان اللفظ فيه بعض الإحراج ..إنما أقصد من قولي أنك ستشارك في المشروع ولو بكود كل أسبوع ، لن يكلفك الأمر كثير جهد ولا كثير وقت وليس فيه مشقة ، والمنفعة فيه ستكون كبيرة بإذن الله .. في انتظار إضافاتك اليوم قبل غد .. لا تركن إلى الكسل كن لبنة في المشروع ولا تكن مجرد متفرج أخي عادل تقبل تحياتي
الجموعي قام بنشر ديسمبر 30, 2014 قام بنشر ديسمبر 30, 2014 لنبدأ على بركة الله مجموعة اكواد متنوعة تخص تغير عنوان التطبيق بطريقة مرنة 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 2
ياسر خليل أبو البراء قام بنشر ديسمبر 30, 2014 الكاتب قام بنشر ديسمبر 30, 2014 (معدل) بارك الله فيك أخي الحبيب الجموعي هكذا يكون العمل ويكون النشاط .. بالإضافة إلى وضع الكود في المشاركة يرجى تحميل المرفق من أول مشاركة ووضع الأكواد بعنوان مناسب ، وليكن العنوان مثلاً (تغيير عنوان الفورم) وعمل شرح لها بشكل مبسط . كما يرجى وضع الكود في الحدث المناسب حتى لا يختلط الأمر على الباحث فيما بعد بهذا الشكل مثلاً Private Sub UserForm_Initialize() UserForm1.Caption = ThisWorkbook.ActiveSheet.Name End Sub تم تعديل ديسمبر 30, 2014 بواسطه YasserKhalil 2
مختار حسين محمود قام بنشر ديسمبر 30, 2014 قام بنشر ديسمبر 30, 2014 (معدل) أستاذى العزيز بارك الله فيك الفكرة جميلة جعلها الله فى ميزان حسناتك أنا بزورك اهــــه وايدى مش فاضيه : ' الكود التالى للحفظ والخروج التلقائى من اكسل يوضع فى حدث الـ 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 بواسطه مختار حسين محمود 3
ياسر خليل أبو البراء قام بنشر ديسمبر 30, 2014 الكاتب قام بنشر ديسمبر 30, 2014 تسلم أخي مختار نورت الموضوع أخي وحبيبي مختار ودي عادة الصعايدة مش بيدخلوا وايديهم فاضية ربنا يبارك فيك يا كبير بس لي رجاء عشان الموضوع ميكونش تكدس في الأكواد وخلاص وتتوه الأكواد بين الصفحات مع مرور الوقت .. نحاول دائما أن نلم شتات الأكواد ..الأكواد من هنا وهناك يتم تجميعها ها هنا ... فالرجاء تحميل الملف بعد ذلك ووضع الكود بعنوان مناسب ليسهل للباحث فيما بعد البحث عن مبتغاه .. أرجو أن تكون الفكرة قد وصلت 1
خيماوي كووول قام بنشر ديسمبر 31, 2014 قام بنشر ديسمبر 31, 2014 الله يجزيكم كل خير ويوفقكم جميعاً ... وعمل رائع ... بارك الله فيكم ... 1
ياسر خليل أبو البراء قام بنشر ديسمبر 31, 2014 الكاتب قام بنشر ديسمبر 31, 2014 (معدل) الأخ الفاضل خيماوي كوول خليك كوول يا مان ومتدخلش وايدك فاضية ..مش معنى إن عدد مشاركاتك قليل إنك متساهمش .. ساهم واتبرع ولو بكود .. فكرتني بمستشفى 5757 تعاطفك لوحده مش كفاية .. وانا بقول تشجيعك لوحده مش كفاية شارك ولو بكود شارك ولو بكود ..دا هيكون شعار المشروع الكبير .. شارك ولو بكود .. خلي المشروع مشهود تم تعديل ديسمبر 31, 2014 بواسطه YasserKhalil 2
احمد عبد الناصر قام بنشر ديسمبر 31, 2014 قام بنشر ديسمبر 31, 2014 السلام عليكم اسعد الله اوقاتكم موضوع :تصدير بيانات الي برنامج الاكسيس 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 2
ياسر خليل أبو البراء قام بنشر ديسمبر 31, 2014 الكاتب قام بنشر ديسمبر 31, 2014 الأخ الحبيب والأستاذ القدير أحمد عبد الناصر يشرفني مرورك الكريم بالموضوع بارك الله فيك وجزاك الله خير الجزاء ... النسخة الأولى من المكتبة بعد إضافة أكواد الأخ الجموعي والأخ مختار والأخ أحمد عبد الناصر ... أضفت مجلد باسم Files ليحتوي على المرفقات مع الأكواد التي يلزمها مرفقات فقط .. وسنحاول جاهدين ألا نكثر من المرفقات (للضرورة فقط) ... إليكم الإصدار الأول من المكتبة بعد التنقيح والتصحيح ... Codes Library v1.0.rar 1
الصـقر قام بنشر ديسمبر 31, 2014 قام بنشر ديسمبر 31, 2014 ايه رائيك بقى انا مش مشارك وعلى فكرة انا كمان مبسوط انى مش هشارك ليك شوق فى حاجه المهم بقى خلاص متزعلش هشارك افرح بقى هدخل وايدى مش فاضية جايب معايا زيارة من استاذنا الكبير محمد يحياوى الغائب عنا والحاضر باعماله المرفق بقى من مكتبة استاذنا محمد يحياوى دى من الكنوز اللى محتفظ بيها وانا عمرى ما هبخل عليك باى كنز يا كبير تقبل تحياتى وربنا يوفقك الجزء الأول.pdf الجزء الثاني.pdf الجزء الثالث.pdf 6
ياسر خليل أبو البراء قام بنشر ديسمبر 31, 2014 الكاتب قام بنشر ديسمبر 31, 2014 تسلم يا أسد .. الله ينور عليك بس دي محتاجة قعدة طويلة من حضرتك عشان تضيفها للمكتبة .. يلا توكل على الله وإنت اشتغل الجزء الأول وأنا هشتغل الجزء الثاني ونشوف حد يتبرع ويشتغل الجزء الثالث أنا مش هشتغل لوحدي !! 2
ابو تراب قام بنشر ديسمبر 31, 2014 قام بنشر ديسمبر 31, 2014 ما شاء الله تبارك الله فكرة ممتازة و مشروع ضخم و تحتاج لفريق عمل و Focal Points و وبتعاون الاعضاء الكرام سيرى هذا المشروع النور و سيكون مكتبة الصرح ..الزاخرة بالشرح بارك الله فيك استاذنا الغالي ياسر و انت فعلا عاشقا للأكسل تقبل تحياتي 3
ياسر خليل أبو البراء قام بنشر ديسمبر 31, 2014 الكاتب قام بنشر ديسمبر 31, 2014 (معدل) مشكور أخي الغالي أبو تراب على مرورك العطر .. بس دخلت بايدك فاضية ..دا كلام يعني !! المرة الجاية تجيب معاك كيلو برتقال وكيلو مانجا ..مش هنتقل عليك كفاية من حضرتك 50 أو 60 كود بس :yes: بارك الله فيك أخي الحبيب ..تقبل تحياتي :fff: تم تعديل ديسمبر 31, 2014 بواسطه YasserKhalil 2
ياسر خليل أبو البراء قام بنشر ديسمبر 31, 2014 الكاتب قام بنشر ديسمبر 31, 2014 إخواني الكرام إليكم الإصدار الأخير من مكتبة الصرح ، تم إضافة مجموعة جديدة من الأكواد .. أرجو المشاركة في المشروع (ايد لوحدها متصقفش) بالنسبة للموضوع هناك ميزة غير موجودة بأي موضوع آخر أن آخر مشاركة فيها حصيلة المشاركات جميعها ..يعني حضرتك لما تتأخر لأي سبب وترجع تبص على آخر مشاركة هتلم اللي فاتك كله ، بس رجاء بلاش كسل ويا ريت تشارك ولو بكود .. كودك مش هيكلفك كتير لكن هيكون لبنة في المشروع ..أرجو الاهتمام .. لا أريد أن يموت المشروع وتموت الفكرة كما ماتت من قبل .. لاحظت أن الكثيرين فكروا بما فكرت فيه ، وربما أقدموا على خطوات كبيرة ، ولكن المشكلة أنهم في مرحلة ما يتوقفوا ، ولكن بعون الله لن لن لن نتوقف ، حتى لو توفاني الله أنا واثق أن غيري سيكمل ما بدأناه هنا .. من هنا شرارة الإنطلاق ، وما زالت الأكواد مستمرة .. تابعوا معنا !!! Codes Library v1.1.rar 3
Yasser Fathi Albanna قام بنشر ديسمبر 31, 2014 قام بنشر ديسمبر 31, 2014 بجد الله عليك وعلى أعمالك يا أستاذ / ياسر ربنا ما يحرمناش من أعمالك إنت والأخوة الأعضاء وحوش المنتدى الأفاضل بجد ربنا يجعل أعمالكم فى ميزان حسناتكم سير على بركة الله وأنا من عشاق إبداعاتك ومعلوماتك الجميلة ومن المتابعين الجيدين لكل ما هو من طرفك أستاذ ياسر ربنا يباركلك 1
ياسر خليل أبو البراء قام بنشر ديسمبر 31, 2014 الكاتب قام بنشر ديسمبر 31, 2014 أخي الحبيب ياسر (يا غالي عشان على اسمي) وغالي بردو حتى لو مش على اسمي.. وأشكرك على كلماتك الرقيقة أخي الحبيب. لو تابعت الموضوع من البداية هتلاحظ إن معظم الناس دخلوا الموضوع وايدهم مليانة مش فاضية ، فين هديتك للموضوع ؟؟ شارك ولو بكود ...تعاطفك لوحده مش كفاية وبعدين دا إنت لقبك البنا (يعني لازم تشارك في عملية البناء في المشروع الكبير ) ، وربنا يتقبل مني ومنك صالح الأعمال .. تقبل تحياتي
ياسر خليل أبو البراء قام بنشر ديسمبر 31, 2014 الكاتب قام بنشر ديسمبر 31, 2014 إخواني الكرام ..ها أنا أعمل على قدم وساق ..أضفت 4 أكواد أربعة بقول أربعة ..مستفز بطبعي تفضلوا الإصدار الأخير ................>>>>>>>> Codes Library v1.2.rar 2
ياسر خليل أبو البراء قام بنشر يناير 1, 2015 الكاتب قام بنشر يناير 1, 2015 لا تفاعل ولا اهتمام وكأن الأمر غير ذو أهمية!!! بارك الله فيكم إخواني عموما لن أتوقف مهما كانت الظروف بإذن الله اليوم تمت إضافة 6 أكواد جديدة في المكتبة برجاء تجربة الأكواد وموافاتي بالنتائج في حالة وجود أخطاء في التنفيذ حتى يتم التصحيح والتنقيح ويخرج العمل بشكل لائق إليكم الإصدار الأخير .. (ولا ننسى أن الموضوع متجدد ..يعني مترجعش لورا لملفات تمت إضافتها من قبل حمل آخر نسخة ..لأن فيها تجميعة لكل المشاركات اللي فاتت) Codes Library v1.3.rar 1
الردود الموصى بها