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

أخي الحبيب أحمد الفلاحجي خذ وقتك وجرب وتلاعب بالكود كما تشاء لتتعلم ، ولا تخش التجربة والمحاولة أخي الغالي أبو يوسف ما أروع التفاعل الذي شاركت به ، وشرح ولا أروع ، أسلوب مميز جداً في الشرح والتحليل .. هكذا أريد التفاعل .. بارك الله فيك وجزاك الله كل خير أخي العزيز توكل يبدو أن وضع المتغير في غير محله .. المتغير من النوع Boolean أي يحمل القيمة True أو False ولكن لا حاجة لنا له في الكود المقدم أخي المتميز عبد العزيز بارك الله فيك وجزيت خيراً على ردودك الطيبة ومتابعتك الجيدة تقبلوا جميعاً وافر تقديري واحترامي

السلام عليكم استخدم هذا الكود في الحدث "بعد التحديث" ، لحقل رقم الدليل المحاسبي : Private Sub Daleel_Calc_AfterUpdate() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From TBL2 Where [Daleel_Calc]='" & Me.Daleel_Calc & "'") If rst.RecordCount <> Then Me.Mostnd_Num = rst!Mostnd_Num Me.Mostnd_Date = rst!Mostnd_Date Me.Notes = rst!Notes End If rst.Close: Set rst = Nothing End Sub If rst.RecordCount <> 0 Then جعفر 344.Current_CostProg.mdb.zip

السلام عليكم ورحمة الله وبركاته إخوتي الكرام أستاذنا الجليل أبو البراء: ((((((جزاكم الله خيراً على ما تقدمونه لنا وللأجيال اللاحقة من علم نافع بإذن الله تعالى)))))). مافهمته من الكود هو التالي : راجياً التصحيح والإفادة حتى يتم استيعابه من قبلي: عرض الشهور بلغات العالم حتى 99 لغة.. 1- متغير R على طول الصفوف 2- متغير C على طول الأعمدة 3- متغير Str تاريخ البدء كتاريخ. 4- متغير S بحث كقيمة منطقية. إيقاف تحديث الشاشة..ثم 1- الصفوف حتى 12 لاستيعاب عدة الشهور ((إن عدة الشهور عند الله اثنا عشر شهرا في كتاب الله يوم خلق السماوات والأرض منها أربعة حرم ذلك الدين القيم فلا تظلموا فيهن أنفسكم وقاتلوا المشركين كافة كما يقاتلونكم كافة واعلموا أن الله مع المتقين ( 36 ) . ( إنما النسيء زيادة في الكفر يضل به الذين كفروا يحلونه عاما ويحرمونه عاما ليواطئوا عدة ما حرم الله فيحلوا ما حرم الله زين لهم سوء أعمالهم والله لا يهدي القوم الكافرين ( 37 ) . 2- الأعمدة حتى 99 لاستيعاب اللغات:(( يا أيها الناس إنا خلقناكم من ذكر وأنثى وجعلناكم شعوبا وقبائل لتعارفوا إن أكرمكم عند الله أتقاكم إن الله عليم خبير ( 13 ) ) ....تاريخ البدء=تبديل التاريخ بتنسيق 1 من كل شهر ثم ينفذ حلقة تكرارية ...ثم تفعيل تحديث الشاشة ثم إغلاق الكود. هذا ما فهمته..كتبت ذلك استجابة لطلبكم في التفاعل مع العمل ... والسلام عليكم.

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

السلام عليكم ورحمة الله وبركاته دليل الهاتف بطريقه سهله وبسيطه صدقه جاريه ونسالكم الدعاء لابي وامي اللهم اجعله في ميزان حسناتهم واغفر لهم وارحمهم واسكنهم فسيح جناتك والرحمه والمغفره لجميع موتى المسلمين دليل الهاتف (هاني ).rar

(بارك الله بك اخي ياسر على هذه المعادلة الرائعة والتي لم تخطر على بالي (و انا بخبط راسي كي ابتدع حلاً مناسبا على كل حال هذا حل اخر بالكود (الصفحة My_sheet) Rifi_Salim 1.rar

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

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

اخي الكريم هاني بارك الله فيك وجزاك الله كل خير وجعل الله عملكم هذا في ميزان حسناتكم تقبل فائق تقديري احترامي

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

بارك الله فيكم إخواني وأحبابي في الله أخي العزيز عبد العزيز بلاش الزنقات دي .. هسيبك تبحث في هذه النقطة وهي وضع أسماء اللغات في الصف الأول من النتائج التي تظهر أخي الحبيب حسام يكفينا منك كلمة "جزاكم الله خيراً" فهي أفضل ما في الدنيا وما فيها أخي الغالي أحمد الفلاحجي مشكور على مرورك العطر ، بالنسبة للدالة CDate تستخدم لتحويل النص إلى تاريخ حيث حرف الـ C يرمز لكلمة Convert أي تحويل جرب تغير السنة لـ 2016 وشوف هل سيحدث ذلك فارق أم لا ؟ جرب بنفسك .. أي سنة مش شرط 2015 .. تقبلوا تحياتي

برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) office 2010 اليوم وبعد مرور ستة شهور من طرح برنامجى السابق على الرابط التالى http://www.officena....opic=41247&st=0 اقدم لكم برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) برنامج يحتوى على الاتى 1- شاشه ادخال الفواتير بكافه انواعها وفى هذه الصفحه ايضا يكمنك البحث عن اى فاتورة وتعديلها او الغائها او طباعتها كما يوجد اختصار لاخرالفواتير المدخله التى يمكن استدعائها بضغطة زر واحده و العديد من التفاصيل اكتشفها بنفسك 2- شاشه لادخال العملاء و التعديل عليها بها جميع تقاصيل العميل 3- شاشه ادخال الموردين و التعديل عليها بها جميع تقاصيل المورد 4-شاشه ادخال الاصناف و التعديل عليها بها جميع تقاصيل الصنف 5-شاشه ادخال المناديب و التعديل عليها 6- شاشه ادخال مستخدمين بصلاحيات مختلفه 7- شاشات التقرير وتشمل الكثير و الكثير من التقارير كتقارير المبيعات و المشتريات وتقرير على حسب المناديب او المستخدمين و الكثير من التقارير التى يمكن اكتشافها بنفسك 8- شاشه تقرير حسب العميل يوضح مشتراياته ومدفوعاته بالتواريخ وايضا يبين المديونيه المستحقه 9- كما توجد العديد والعديد من الشاشات كادخال السندات و الخصومات و المصاريف وطباعتها 10- الكثير من المزايا الاخرى كحركه صنف وتقرير المخزون وتقرير الموازنه والربح و الخساره... اكتشف المزيد ملاحظات هامه 1- تم عمل البرنامج على اوفيس 2010 و البرنامج لن يعمل بشكل جيد الا على هذا الاصدار لذلك ارجون من يقوم بتجربته ان يكون على هذا الاصدار 2- تم وضع الكثير من الاختصارات التى توصلك لبعض التقارير وتم الشرح داخل البرنامج 3- لاى استفسار خاص بالبرنامج يكون عن طريق هذا الصرح العظيم او عن طريق مراسلتى بالايميل التالى amroomo@gmail.com 4- اتمنى ان يكون هذا البرنامج اضافه لهذا المنتدى العظيم 5- شكر واجب لكل مشرفى و اعضاء منتدى اوفيسنا الذى اصبح مناره الاوفيس فى الوطن العربى 6- الرقم السرى للدخول 123 7- الرقم السرى لمحرر الاكواد هو 85211 8- للبدء باستخدام البرنامج وتجربته قم بادخال الاصناف او حتى صنف واحد وكذلك مع العملاء و الموردين قم بادخال بيان واحد لكل منهما وبعد ذلك قم بعمل الفواتير و السندات بعد ذلك يمكنك استدعاء التقارير المختلفه الخاصه بالبرنامج كما انه لابد من ادخال المناديب او حتى مندوب واحد لكى تستطيع حفظ الفاتوره صورة البرنامج اخيرا ارجو من الجميع عدم التردد فى اى استفسار او ملاحظات تم رفع البرنامج على موقع الميديا فاير حيث ان مساحه البرنامج 1.9 ميجابايت ============================= تم إضافة الملف الى المشاركة بدل الرابط الخارجي الإشراف ============================= البرنامج هو تحديث للبرنامج السابق على الرابط التالى http://www.officena....opic=41247&st=0 برنامج المخزون و الفواتير 2013.rar

اعرض الملف شرح فيجوال بيزك دوت نت 2012 شرح فيجوال بيزك دوت نت 2012 صاحب الملف أحمد الفلاحجى تمت الاضافه 28 مار, 2016 الاقسام معلومات مفيدة

السلام عليكم ارجو المساعدة في خطوات اضافة خانة في التقرير على الآكسس لتفقيط الارقام بالعربي علما بان كود التفقيط غير متوفر لدي لكم خالص تحياتي 4444.rar

السلام عليكم ورحمة الله وبركاته معايا موضوع هو أكيد مش جديد بس لو فيه حد احتاجله أو حاجة، ده ملف أكسل بيفتح صورة بامتداد JPG موجودة فى فولدر بنفس امتداد ملف أكسل، يارب الموضوع يعجبكم فتح صورة.rar

بسم الله ماشاء الله ربنا يبارك فيكم ويجزيكم خير حلول رائعه من اساتذه المنتدى سامحنى استاذى ابوالبراء فاننى (احبط ) احيانا نتيجة لعدم التفاعل -------. واليكم فهذه حلول متواضعه بجانب حلولكم والحقيقة كان هذا سؤال من احد الناس فوجدت انه يستاهل التفكير فاحببت ان اطرحه واشاركه معكم حتى نبدع جميعا واتمنى من الجميع تقديم المزيد والمزيد من الحلول الحل الاول =IF(MID(CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1),1,1)="/", REPLACE(CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1),1,1,""), CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1)) الحل الثانى =A1& IF(AND(A1<>"",COUNTA(B1:E1)),"/","")& B1 & IF(AND(B1<>"",COUNTA(C1:E1)),"/","") & C1 & IF(AND(C1<>"",COUNTA(D1:E1)),"/","") & D1 & IF(AND(D1<>"",COUNTA(E1)),"/","") & E1 الحل الثالث دالة UDF وليست من اعدادى بل منقوله =ConcatRange(A1:F1,"/") Option Explicit Function ConcatRange(R As Range, Optional sDelim As String = " ") As String 'If no delimiter specified, delimiter will be a space Dim C As Range Dim V As Variant Dim COL As Collection Dim I As Long Set COL = New Collection For Each C In R If C <> "" Then COL.Add C.Text Next C ReDim V(0 To COL.Count - 1) For I = 0 To UBound(V) V(I) = COL(I + 1) Next I ConcatRange = Join(V, sDelim) End Function Concatenate%20formula.rar

اخى الكريم واستاذنا العظيم بارك الله لك وبارك عليك ورزققك الفردوس الاعلى ان شاء الله فعلا تم التحميل جزاك الله كل خير

السلام عليكم ورحمة الله وبركاته بارك الله لنا فيكم ونفعنا ونفع الدنيا بعلمكم اعلى الله قدرك ارجو المساعدة في اكمال برنامجي بخصوص متابعة المعاملات 1. عمل فرز وتصفية وتقرير مفصل بالقائمة المنسدلة في العمود (G) المسمى بالحالة. 2. فورم بحث و تصفية بامكانية التعديل مرن لكل المستخدمين. 3. إضافة ترحيل البيانات محددة إلى sheet2 ارجو ان يوفقكم الله لذلك ولا تبخلوا علينا بعلمكم سجل+متابع...rar

رائع رائع أخي الكريم مجهود متعوب عليه بصراحة البرنامج كامل وواضح في ميزان حسناتك اخي

حيا الله أخي كرار عملي مبني على: جعفر

كأنه كان اختبار لنا ، ونجحت فيه ، هيييييه حياك الله

السلام عليكم قمت بتغير مصدر النموذج الى الاستعلام بدل الجدول عمر الجهاز.rar

أخي الكريم جرب التالي استبدل الرقم 700 بالشكل التالي sCont = Sheets("بيانات المدرسة").Range("S1").Value

أخي الكريم محي الدين جرب الكود التالي عله يفي بالغرض Sub UniqueByDictionary() Dim myData(), Temp As Variant Dim Obj As Object, I As Long, intCtr As Long Dim X As Long, Y As Long X = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row Y = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row Sheets("Sheet2").Rows("2:" & X).Insert myData = Evaluate("IF(ROW(2:" & X + Y & ")<=" & X & ",Sheet1!A2:A" & X & ",Sheet2!A2:A" & X + Y & ")") Sheets("Sheet2").Rows("2:" & X).Delete Set Obj = CreateObject("Scripting.Dictionary") For I = 1 To UBound(myData) - 1 Obj(myData(I, 1) & "") = "" Next I Temp = Obj.Keys Sheet3.Range("A2").Resize(Obj.Count, 1) = Application.Transpose(Temp) End Sub تقبل تحياتي

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

هذا احد الحلول Rifi_Salim.rar

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

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

السلام عليكم اخي ياسر انا اول ما ظهر الموضوع في نفس الصفحة هذه رقم ( 2 ) ولم اعرف ان له بدايه في صفحة ثانية علشان كذا لم افهم الموضوع شكرا لك

السلام عليكم ورحمة الله وبركاته إخواني الكرام في منتدى أوفيسنا رغم قلة التفاعل في الموضوعات التي تقدم ، ولا أقصد بالتفاعل الردود العادية ، إنما أقصد المشاركة بالبحث والنقد والتفنيد والتفحيص والتدقيق والتمحيص والإضافة ...رغم قلة التفاعل أقدم كل يوم موضوع جديد لعل وعسى أن يأتي أناس من بعدنا ليستفيدوا مما نقدم ويكون المنتدى لهم نبراساً يستنيرون به في هذا المجال أقدم لكم موضوع حول إدراج أسماء الشهور بكل اللغات .. إليكم الكود التالي ، قم بوضع الكود في موديول عادي ... ثم نفذ الكود ولاحظ النتائج بنفسك Sub ListMonthsInAllLanguages() 'يقوم الكود بإدراج أسماء شهور السنة بكل اللغات '--------------------------------------------- Dim R As Long, C As Long Dim strDate As Date Dim S, bFind As Boolean Application.ScreenUpdating = False For R = 1 To 12 For C = 1 To 99 strDate = CDate("01/" & Format(R, "00") & "/2015") S = "[$-4" & Format(C, "00") & "]MMMM" Cells(R, C).NumberFormat = S Cells(R, C).Value = strDate Next C Next R Columns.AutoFit Application.ScreenUpdating = True End Sub أرجو أن ينال الملف والموضوع إعجابكم وتستفيدوا منه إن شاء الله حمل الملف من هنا تقبلوا تحياتي كان معكم أخوكم أبو البراء

اخى الكريم فى شيت البحث وفى الخلية A3 َع المعادله التاليه ثم اكتب الاسم فى الخليه B3 =INDEX(السجل!A3:B14;MATCH(B3;السجل!B3:B14;0);1) تقبل تحياتى

اخى الكريم فى شيت البحث وفى الخليه B3 ضع هذه المعادله =VLOOKUP(A3;السجل!A3:B14;2;0) تقبل تحياتى

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

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

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

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

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

بارك الله فيك أستاذي الكريم " الزباري " على الاقتراح الطيب فائق إحتراماتي

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

أخي الكريم أبو ذكري ضع الكود التالي في موديول Sub SortData() Dim Ws As Worksheet, LR As Long Set Ws = Sheets("ورقة2") LR = Range("B" & Rows.Count).End(xlUp).Row Range("B8:T" & LR).Sort Key1:=Range("P8:P" & LR), Order1:=xlDescending, Header:=xlNo End Sub ثم في حدث ورقة العمل الثانية ضع الكود التالي Private Sub Worksheet_Activate() Call SortData End Sub تقبل تحياتي

اعتذر منك واشكرك وبارك الله بك

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

صديقي العزيز عبد العزيز يسعد مساك - بعد إذن أساتذتنا الكبار إليك الملف بعد تعديل بسيط في المعادلة أرجو أن يلبي الطلب تمنياتي لك بالتوفيق Hide All Blank Rows Except One.rar

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

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

السّلام عليكم و رحمة الله و بركاته أخي الغالي " ياسر خليل أبو البراء " أشكر مرورك العطر .. قد تم التّعديل بإذن الله خالص إحتراماتي

السّلام عليكم و رحمة الله و بركاته تمام التّمام .. و الحمد لله فعلاً ملف رائع و عمل متقن جزاك الله خير الجزاء و نفع بك الاسلام و المسلمين و زادك من علمه و فضله اللهم إجعل هذا العمل صدقة جارية على روح والديك الكريميْن .. اللهم إغفر لهما و ارحمهما برحمتك الواسعة و أسكنهما فسيح جنّاتك .. و لجميع موتى المسلمين اللّهم آمين خالص تحيّاتي

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

تفضل : تم عمل وحدة نمطية عامة تأخذ خيارات النسخة من الجدول ويمكن الآن اخذ النسخة من اي مكان داخل البرنامج ملحوظة : بقي ان تضع قيم افتراضية للحقول فيما لو المستخدم لم يحرك ساكنا x.rar

بارك الله لك أخي عبد الله وأود أن أضيف بعض الخلفية النظرية التي ربما يحتاجها الأخ المشترك في الدورة ما هي vba ؟ هي لغة برمجة غير قائمة بذاتها (أي يتم تضمينها داخل أي تطبيق) ولا تستطيع بناء برنامج متكامل وحدها (الذي يقوم بهذا هي لغة vb فيجوال بيسك أو vb.net الإصدار الأحدث من vb ) متى نحتاج لاستخدامها؟ * عند الرغبة في اختزال خطوات كثيرة يجب تنفيذها فمثلا إذا أردنا إضافة نص لخلية وتنسيقه بأكثر من طريقة مثل لون الخط وحجم الخط والإطار وما إلى ذلك * وكذلك نحتاجها عند التكرار وهو تكرار تنفيذ مجموعة من الأوامر بصورة متتالية أو مشروطة * نحتاجها أيضا في التعامل مع المستخدم لجمع بيانات منه في صورة نموذج ومن ثم التعامل مع هذه البيانات وغيرها الكثير من الاستخدامات ما الفرق بين vba و vb ؟ عرفنا سابقاً فيجوال بيسك التطبيقات بأنها لغة برمجة تحتاج لتطبيق آخر يتم تضمينها داخله ولكنها بها كل مميزات الفيجوال بيسك وكل الكائنات التي تستخدم داخل الفيجوال بيسك يمكن استخدامها في vba غير أنها ينقصها وهذا ما تزيد به لغة vb عنها وهو القدرة على بناء برامج تنفيذية قائمة بذاتها وتتفضل vba عن vb بأن لها من القدرة على التعامل مع التطبيق المضمنة داخله بصورة أكثر سهولة من vb فمثلا للتعامل مع المصنف النشط نستعمل الكائن activeworkbook بينما إذا أردنا ذلك من خلال vb نحتاج لكثير من الأكواد ما علاقة vba بالإصدار الأحدث من vb وهو vb.net ؟ بنفس الطريقة يمكن للـ vba استعمال كل مميزات vb.net بشرط وجود ملفات تشغيل vb.net على جهاز المستخدم ما الماكرو؟ الماكرو عبارة عن مجموعة من السطور يبدأ بكلمة sub ثم اسم الماكرو وتنتهي بكلمة end sub وبينهما جميع الأكواد التي يتم تسجيلها أو كتابتها ما أفضل الطرق للتعامل مع الماكرو؟ * يوجد طريقة تسجيل الماكرو وهي الأسهل والتي ينصح بها في البداية * ويوجد طريقة كتابة الأكواد مباشرة بدون الحاجة إلى استعمال مسجل الماكرو وهي للمستوى المتقدم *** بينما الطريقة الفاعلة وهي التي يستخدمها معظم المبرمجين هي (كما علمنا ديننا : خير الأمور الوسط) الجمع بين الطريقتين بمعنى استعمال الماكرو ثم تعديل الكود سواء بإضافة سطور أو حذف سطور أو تعديلها ويجدر الإشارة هنا إلى أهمية التخطيط المسبق لعملية تسجيل الماكرو فيجب أن تكون محددا لكل ما تريد تنفيذه بالماكرو وإلا سيتم كتابة خطوات أنت لست في حاجة إليها وإنما تم تنفيذها أثناء تخطيطك أو ترتيبك لما تريد أن تقوم به وقديما علمونا : التخطيط الجيد سبيل النجاح ..... حتى وإن أخذ وقتا طويلاً فالوقت الذي يستهلك في التخطيط والإعداد لا يتساوى من الوقت المستهلك لتعديل الأخطاء الناتجة عن عدم التخطيط بل ربما يتم إعادة تنفيذ ما لم يتم التخطيط له أكثر من مرة حتى نصل للصواب وأخيرا أقول الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هدانا الله