نجوم المشاركات

دورة شرح الفيجوال بيسك لبرنامج الإكسيل VBA .. !! خطوة خطوة ( الجزء الأول ) صدقة جارية علي روح والدي ) رحمه الله ( ... نسألكم الدعاء له ==================== الجزء الأول السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان مثل هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... حيث كنت قد اعددت له منذ فترة وأن يصبح لي اي عمل ولو صدقة جارية عله ينفع البعض ولو بمعلومة صغيرة وايضا لأنني اردت ان اجعل المواضيع الاساسية في تنفيذ عمل وتصميم اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ... سلسة ( خطوة .. خطوة ) (( اعانني الله علي اكمالها كما ينبغي )) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح في هذا الجزء علي ملفات PDF لتصبح موجودة لدي من يحتاجها دائما واليكم اخواني الكرام : فهرس بالدروس التي تم اعدادها ( جاري اعداد بقية الدروس ان شاء الله ) : الدرس الاول : مقدمة عامة الدرس الثاني : اعدادات مستوي الامان ( التعرف عليها – كيفية ضبطها ) الدرس الثالث : كيفية اظهار شريط ادوات الـ VBA ضمن اشرطة الادوات و القوائم الدرس الرابع : كيفية اظهار محرر الفيجوال بيسك VBA في الاكسيل الدرس الخامس : مكونات وأجزاء محرر الفيجوال بيسك VBA في الاكسيل الدرس السادس : بعض الاجراءات الضرورية للتعامل مع محرر الفيجوال بيسك VBE قبل التطرق للاكواد وبرمجتها الدرس السابع : المـــــــــــــــــاكرو ( الجزء الأول ) ما هو الماكرو أنواع الماكرو ما هي أفضل الطرق للتعامل مع الماكرو؟ انواع الاجراءات تسجيل الماكرو بالنسبة لاكسيل 2003 الدرس الثامن : المـــــــــــــــــاكرو ( الجزء الثاني ) ( تسجيل الماكرو بالنسبة لاكسيل 2007 ) الدرس التاسع : المـــــــــــــــــاكرو ( الجزء الثالث ) شرح بسيط لتركيبة الكود او الماكرو بشكل عام وللماكرو المسجل لدينا بشكل خاص تعديل الماكرو ( المسجل أو المكتوب ) تعديل أو تعيين اختصار الماكرو ( المسجل أو المكتوب ) الدرس العاشر : المـــــــــــــــــاكرو ( الجزء الرابع ) كيفية تشغيل الماكرو كيفية عمل زر لتشغيل الماكرو الدرس الحادي عشر : المـــــــــــــــــاكرو ( الجزء الخامس ) تسجيل الماكرو النسبي تخصيص زر لتشغيل الماكرو في القوائم الموجودة لدينا في الاكسيل التوقيع الرقمي او التوثيق واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري ومنتظر أرائكم في الشرح .. جزاكم الله خيرا اساتذتنا المقدمة1.rar طريقة تخفيض مستوي الامان في كل اصدارات الاكسيل2.rar اظهار شريط ادوات الفيجوال بيسك للاكسيل 3.rar وباقي الدروس في المشاركات التالية نظرا لحجم المسموح برفعه في كل مشاركة

السلام عليكم ورحمة الله وبركاته اخواني الافاضل لدي نموذج في قاعدة البيانات واريد ان اطبع الصفحه الاخيره المفتوحه لهذا النموذج !!!! حاولت ان بطريقة ان اطبع هذا النموذج لكن البرنامج يقوم بطباعة جميع الصفحات تواليا وانا احتاج لطباعة النموذج المفتوح والبيانات المكتوبه اخر شيء ؟ هل توجد اي طريقه او كود لطباعة النموذج الاخير فقط دون طباعه البيانات السابقه ؟ وبنفس الطريقه هل توجد طريقه لحفظ الصفحه الاخيره من النموذج بصيغه ال بي دي اف ؟ للمعلومه انا احتاج لطباعه النموذج وليس للتقرير اتمنى مساعدتكم اخواني الافاضل تحياتي وشكري لكم جميعاً اخوكم ٧/٧/٢٠١٧

السلام عليكم للحصول على ما تريد (تقرير شهري أو غيره) قم بتغيير التاريخ من ... إلى ... حسب ما تريد. قمت بتغيير معادلتي عمودي "المسافة" و "ك/م" في كلا الجدولين لكل سيارة لتجنب الخطأ (لا بد من تغيير هذه المعادلات لكل السيارات الأخرى)... ملاحظة : أسماء السيارات في شيت "تقرير" ينبغي أن تطابق أسماء شيتات هذه السيارات... بن علية حاجي مسئول الوقود.rar

السلام عليكم استبدل هذا السطر Set db = CurrentDb() بهذا السطر Set db = OpenDatabase(Me.txtPath)

سلام عليكم انشأ زر قم بإدخال الكود اما طباعة هناك طريقة ثانية عن طريق استعلام ففط اما ما يخص pdf هناك برنامج يقوم بتحويل من word to pdf ,,ولكن العربية غير مدعمة اعتقد وان كان لست متأكدا Private Sub BTImprimer_Click() Dim Nom_Etat as string Nom_Etat="MonEtat" DoCmd.OpenReport Nom_Etat, acPreview End Sub

نعم وبكل تاكيد لكن داخل جدول لاحظ الصورة والسلام عليكم

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

حضرتك الغى الكود الموجود بعد تحديث حقل السريل اعتقد أنه لا حاجة لوجوده واجعل حقل السريل بالجدول مفهرس وغير قابل للتكرار

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

الكود مقفل بكلمة سر

جرب هذا التعديل لعله يفى بالغرض test122.rar

وعليكم السلام بأى حقل تحدث المشكلة وما الفائدة من اضافة " ' " داخل النص.

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

Sub قيم_فريده_مرتبة() Sheets("Sheet1").Range("D7:D150").Copy Sheets("Sheet4").Range("H7").PasteSpecial Paste:=xlPasteFormats ActiveSheet.Range("H7:H" & Range("H" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes [H7:H500].Sort [H7], xlAscending End Sub xlPasteFormats هذه هي نقطه التغيير

Sub قيم_فريده_مرتبة() Sheets("Sheet1").Range("D7:D150").Copy Sheets("Sheet4").Range("H7").PasteSpecial Paste:=xlPasteValues ActiveSheet.Range("H7:H" & Range("H" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes [H7:H500].Sort [H7], xlAscending End Sub ربنا يبارك في النافع .. يارب جزاك الله خيرا استاذ ياسر خليل

لا يوجد فرق بين Sub و Public .. لكن الأمر يختلف إذا تم استخدام كلمة Private .. فهذا يعني أن اسم الماكرو لن يظهر في قائمة أسماء الماكرو عند الضغط على Alt + F8 .. أعتقد سطر الترتيب في النهاية بعد حذف التكرار ..

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

بارك الله لك أستاذ أبا عبد الله المعادلة الأولى كانت تقوم بوضع صفر في كل الشهور غير شهر ٧ لكن حسب المطلوب الجديد يمكن اختصار المعادلة التي تكرمت بها إلى =IIf(Month(Date())=7,[Forms]![Employé_en_arabe]![PreD],0)+[Année]*50

نعم أخي ناصر .. تسجيل الماكرو يسجل التحديد وهو غير مطلوب في التعامل مع الأكواد حيث يسبب بطء شديد جرب التالي Sub نسخ() Sheets("Sheet1").Range("D7:D150").Copy Sheets("Sheet4").Range("F6").PasteSpecial Paste:=xlPasteValues End Sub

السلام عليكم أخي العزيز أبو يوسف .. كل عام وأنت بخير بفرض أن لديك مجموعة من النصوص تبدأ من الخلية A2 وفي العمود المجاور العدد المطلوب تكراره في العمود B ... قم بتجربة الكود التالي Sub Test() Dim arr() As String Dim i As Long Dim j As Long Dim cnt As Long ReDim arr(Application.Sum(Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)) - 1) For i = 2 To Range("A" & Rows.Count).End(xlUp).Row For j = 0 To Range("B" & i).Value - 1 arr(cnt + j) = Range("A" & i).Value Next j cnt = cnt + j Next i Range("H2").Resize(UBound(arr) + 1, 1).Value = Application.Transpose(arr) End Sub

الاخ محمود الله ينور عليك

للمحافظة على الالوان يمكن اسنعمال هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False Application.ScreenUpdating = False Range("My_Rg").Cells.Interior.ColorIndex = 39 For i = 1 To Range("My_Rg").Columns.Count If Range("My_Rg").Columns(i).Column Mod 2 = 0 Then Range("My_Rg").Columns(i).Interior.ColorIndex = 35 End If Next If Not Intersect(Target, Range("My_Rg")) Is Nothing And Target.Cells.Count = 1 Then Range(Target.Offset(0, -Target.Column + 1), Target).Interior.ColorIndex = 6 Range(Target.Offset(-Target.Row + 1, 0), Target).Interior.ColorIndex = 6 End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub

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

الدروس من الدرس الرابع ... الي ... الدرس السادس كيفية اظهار محرر الفيجوال بيسك الاكسيل4.rar مكونات محرر الفيجوال بيسك 5.rar كيفية التعامل مع محرر الفيجوال بيسك 6.rar الدروس من الدرس السابع ... الي ... الدرس التاسع المـــــــاكـــــــــــرو7.rar تابع المـاكـــــرو8.rar تابع المـاكـــــرو9.rar الدروس من الدرس العاشر ... الي ... الدرس الحادي عشر تابع المـاكـــــرو10.rar تابع المـاكـــــرو11.rar أرجو من الله ان أكون قد وفقت في توصيل ولو معلومة صغيرة لمن يريدها بخصوص هذا الجزء تقبلوا خالص تحياتي

الأخوة الأفاضل أعضاء ومشرفى المنتدى الغالى كل عام وانتم بخير أقدم لكم اليوم افضل وأشمل وأسهل كنترول شيت إلكترونى وذلك بشهادة الأعضاء وقد قمت بتصميمه بمساعدتكم وبفضل اقتراحاتكم المثمرة إنه الأول في عمل أرقام الجلوس وكشوف المناداه والشهادات للفصلين الدراسيين كما أنه يقوم بعمل كشوف مستقله للناجحين والدور الثانى بالنسبة لكنترول التعليم التجاري يتم تغيير أسماء المواد لتتناسب مع الصف الأول أو الثانى حسب الطلب ملاحظة: - البرنامج يعمل على ميكروسوفت إكسل 2007 - عند لصق أي بيانات في الشيت تكون قيم أي نختار لصق خاص ثم القيم كنترول شيت الصفين الأول والثانى الابتدائى http://www.multiupload.com/506MB8R537 كنترول شيت الصفين الرابع والخامس الابتدائى http://www.multiupload.com/CJURCPW9D6 كنترول شيت الصفين الأول والثانى الإعدادى يسع 500 طالب http://www.multiupload.com/J339Z3SJEF كنترول شيت الصفين الأول والثانى الإعدادى يسع 1000 طالب http://www.multiupload.com/AFHJJ0L8D8 كنترول شيت الصفين الأول والثانى التجارى http://www.multiupload.com/BVDDRJRZOL ................................ برنامج حساب المرتبات والأجور المتغيرة لموظفى التربية والتعليم القيم المكررة موجودة http://www.multiupload.com/H519SJ8A78 برنامج حساب المرتبات والأجور المتغيرة لموظفى التربية والتعليم القيم المكررة محذوفة http://www.multiupload.com/8O0OLR5I2T

السلام عليكم ورحمة الله وبركاته إخواني الكرام في المنتدى الغالي أقدم لكم موضوع بسيط جداً ألا وهو كيفية إظهار المعادلات في الخلايا بدون أكواد سبق أن قدمت على الرابط التالي موضوع حول هذا الخصوص باستخدام دالة معرفة رابط الموضوع الآن بدون أكواد يمكن عمل ذلك بمنتهى اليسر والسهولة روح للتبويب Formulas ثم انقر على Name Manager ثم انقر New (وكفاية كدا نقر عشان منقلبش فراخ) اكتب اسم للنطاق الذي سيتم تسميته باسم ShowFormula ليكون معبر عن الهدف من المعادلة ، وفي الحقل المسمى Refers to اكتب المعادلة التالية =GET.CELL(6,INDIRECT("RC[-1]",FALSE)) وأخيراً أوك ... بس خلاص كدا الخطوة الكبيرة انتهت روح للخلايا اللي فيها المعادلات واكتب جنبها المعادلة التالية =ShowFormula هتظهر لك المعادلات المكتوبة في الخلايا في الملف المرفق تطبيق لما تم شرحه حمل الملف من هنا لا تنسونا بصالح دعائكم تقبلوا تحياتي

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

عليكم السلام اخي ابا حفص ليس كما ذكرت وانما هي نموذج رئيس داخله نموذج فرعي يحتوي على نموذج فرعي وهذا الاخير يحتوي على نموذج فرعي كذلك فالمجموع اربعة نماذج متداخلة بالتوالي فإذا اردنا تطبيق مسألتك بنقل القيمة فقط بغض النظر عن الاحترازات فنحن سنختار احد طريقين : 1- التطبيق عبر مصادر البيانات ( جداول او استعلامات ) للنموذجين المقصودين وذلك بمعلومية المعرف المشترك بينهما 2- التطبيق عبر النماذج وهي نسخ قيمة حقل من نموذج ولصقها في الآخر لتطبيق الفكرة بكلا الطريقتين لا بد ان تختصر مثالك فتقتصر على جدولين ونموذجين فقط .. اكرر فقط وفقك الله ،،،

مساء الخير هذا برنامج لتصميم الأزرار حصلت عليه من فترة أرجو ان يستفاد منه ____________________.zip