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

السلام عليكم ورحمة الله وبركاته اتقدم بخالص الشكر والتقدير والعرفان لإدارة المنتدى على هذه الثقة الغالية التى منحونى اياها تقبلوا خالص تحياتى وتقديرى

السلام عليكم بتوفيق رب العالمين توصلت الى شكل المعادلة التى من خلالها تستطيع ربط دالة MAX او دالة MIN مع دالة LOOKUP وذلك حتى نتمكن من الحصول على اكبر او اصغر قيمة بالرجوع الى البحث عن قيمة محددة داخل جدول بدون اطاله ... المرفق وافى الشرح اتمنى ان يكون مفيدا ان شاء الله فى انتظار الملاحظات شكرا max+lookup.rar

أخي الكريم بالنسبة لطلبك بدون الإطلاع على المرفق .. قم بوضع سطر قبل تنفيذ الكود بفك الحماية Activesheet.Unprotect 123 وفي نهاية الكود ضع سطر لتفعيل الحماية مرة أخرى Activesheet.Protect 123 أرجو أن يفي بالغرض

جرب التعديل التالي حيث أضفت سطر يعطل الحساب التلقائي إلى حين انتهاء عمل الكود ثم بعد انتهاء الكود يتم تفعيل الحساب التلقائي مرة أخرى .. جرب وأعلمني بالنتيجة Sub ConvertTextToNumber() Dim R As Range On Error Resume Next Application.ScreenUpdating = False Application.Calculation = xlManual For Each R In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants) If IsNumeric(R) Then R.Value = Val(R.Value) Next R Application.Calculation = xlAutomatic Application.ScreenUpdating = True MsgBox "Done!", 64 End Sub تقبل تحياتي

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

انت قلت اضف هذا السطر Application.Calculate بعد السطر Sheets(ComboBox1.Value).Delete ليكون كود ال CommandButton1_Click كالتالي بعد الاضافه Private Sub CommandButton1_Click() Dim C As Range Dim Fir Application.DisplayAlerts = False If Sheets.Count > 1 And ComboBox1.Value <> "" Then On Error Resume Next With ActiveSheet.Columns(2) Set C = .Find(ComboBox1, LookIn:=xlValues) If Not C Is Nothing Then Fir = C.Address Do C.EntireRow.Delete Set C = .FindNext(C) Loop While Not C Is Nothing And C.Address <> Fir End If End With Sheets(ComboBox1.Value).Delete Application.Calculate End If Application.DisplayAlerts = True UserForm_Initialize End Sub

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

استاذ مختار حسين ... فكرت ادخال دالة ال Hyperlink في الخلايا الموجودة مباشرة تحت الشكل (Shape) ... طبعا هذه الخلايا ينبغي أن تكون خالية و غير مستعملة ...بدأت في كتابة الكود و يبدو جيدا لو توصلت الى نتيجة محترمة سأتشر الكود هنا

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

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

تفضل اخي سلمان رقم الصنف في tabl1 هو الباركود بالتوفيق برنامج المطاعم.rar

بسم الله الرحمن الرحيم وجدت وانا ابحث عن بعض الاكواد والامثلة هذا الكود الذي يعمل تأثيرات حركية علي shape & picture دا كان مشوار لموقع اجنبي حلفوا منا ماشي غير بالمثال دا اتفضلو علي فكرة صورة البنت الامورة دي انا اللي رسمها بالقص واللصق وحشه صح shape move.rar

مرة اخرى اين الملف الاساسي ؟

سيدي الكريم غير حدث زر الطباعة الى: Private Sub أمر9_Click() 'the print cannot take place directly with the Filter, 'so we have to open the Report in Preview mode, but hidden so the user doesn't feel DoCmd.OpenReport "مساعد كشف الارصده", acViewPreview, , Me.تابع4.Form.Filter, acHidden 'unfortunately, the sorting Order in the Report needs a bit of time to organize PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop 'now print the Report DoCmd.PrintOut DoCmd.Close acReport, "مساعد كشف الارصده" End Sub جعفر

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

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

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

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

ابو عارف الله ينور عليك ياشيخ وعلى جميع الاخوان تمام التمام

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

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

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

جرب هذا الملف max+lookup salim.zip

هاي ما انتبهت لها جعفر

اخي ابو جمانة لتطبيق فكرة ان ياخذ التقرير فلترة النموذج غيرت اسم التقرير لنفس اسم النموذج المفلتر ! وطبعا راح يتغير اسم التقرير في كود امر فتح التقرير ! استاذ جعفر يبدو لي عدم التركيز جيدا هنا ! ومعذور اخوي ! فحوى السؤال : زي ما ارتب في النموذج يؤثر في التقرير ! فالترتيب بالشكل الصريح عن طريق الفرز والتجميع يلغي فكرة مشاركتي والتى هي لما يريد ابو جمانة ولكنه رجع يستفسر عن المربع الذي ظهر بعد تعديلاته على المرفق السابق ! عذرا فانا اكتب على عجالة ! تحياتي

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

رائـــــــــــــــــــــــــــــــــــــــــــــــــع جداااااااااااااااااااااااااااا بارك الله فيك

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

تفضل الظاهر انك ما شفت الرابط اللي وضعته لك التقرير لا يحترم فرز الاستعلام ،والطريقة لعمل الفرز هي: . والنتيجة جعفر 257.الرصيد.accdb.zip

تفضل Public Sub A_Add() Dim Sh As Worksheet, Sht As Worksheet Dim R As Range Set Sht = Sheets("Sheet2") Set Sh = Sheets("Sheet1") i = 1 Lr = Sh.Cells(Rows.Count, 1).End(xlUp).Row For Each R In Sh.Range("A1:J" & Lr).Rows A = Join(Application.Index(R.Value, 0), ",") A = Formt(A, Split(A, ",")(4)): A = Formt(A, Split(A, ",")(5)) B = Replace(A, "ES", "MR") B = Mid(B, 1, InStr(1, B, Split(B, ",")(3)) - 1) & Adm("0.00,", 3) & Split(B, ",")(7) & "." & String(2, "0") & Adm(",0.00", 2) A = A & String(3, "0") ii = Sht.Cells(Rows.Count, 1).End(xlUp).Row + 1 Sht.Cells(ii, 1) = Choose(1, A, B) Sht.Cells(ii + 1, 1) = Choose(2, A, B) i = i + 1: ii = ii + 1 Next End Sub Private Function Formt(R, Nm) Formt = Replace(R, Nm, Format(Nm, "yyyy-mm-dd")) End Function Private Function Adm(Strn$, Ln&) Adm = Application.Rept(Strn, Ln) End Function

السلام عليكم

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

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

أستاذى ومعلمى القدير الحبيب الغالى / ياسر خليل لا تعلم مقدار سعادتى أنا أيضا بتشريفك لى وتهنئتك لى فأنا تلميذ أتعلم وأغوص داخل بحر هذا الصرح العلمى الكبير تقبل منى خالص تحياتى وتقديرى لشخصكم الكريم

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

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

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

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

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

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

اهلا بك ابو عبدالله عايزك تفهم ان موضوعك موضوع مفتوح نوعا ما ! او للاجابة يحتاج وقت وشرح ولابد من التطرق للاساسيات علشان نكمل ! وبرضه يا اشرح شي بشكل علمي لانه سيكون مرجع لكل من يمر هنا ! لذلك مثل هذه الاشياء خذها من مصادرها الصحيحة والموثوقة افضل مثل : كتب - موقع ميكروسوفت ! انصحك ان تاخذ كتاب في الاساسيات وبتسلسل المواضيع بدون القفز من فصل لاخر ! الشي الذي ممكن اضيفه هنا هو : عايزك تتخيل ان هذا البريمج (الاكسس) به قاعدة بيانات مصغرة - اداة تصميم وتطوير - بيئة لكتابة اكواد ! كلها هذا ونحن نعرف ان كل منها موجود كمنتج مستقل من شركات اخرى ! بينما هذه كلها موجودة في ملف واحد ! وملف ايه ؟ ملف بيانات ! بل كل وحدة عبارة عن كائن داخل هذا الملف ! بمعنى انتي الوحدة النمطية اللي نكتب فيك الاكواد ماخذه شكل مصغر من عمل ادوات التطوير المستقلة مثل الترجمة وتتبع الاخطاء وغيرها وتحويل الكود الى لغة الكمبيوتر ! وهية مع هذا كله مازالت كائن في ملف الاكسس ! فمش عارف هل ننظر للموضوع استخفاف بعقولنا ام انه ابداع في هذا المنتج ؟!!!!! وهنا انا حجيبك على استفساراتك ولكن اتمنى ان لاتكون حلقة مفتوحة باستفسار عن جواب لاستفسار سابق وهكذا ! وصدقني ابداية مع كتاب وبتسلسل منطقي افضل بكثير من المواضيع التي تكتب بالانترنت وذلك لاسباب عدة منها انت لاتعرف مستوى كاتب الموضوع او صحة مايكتب عكس الموجود بالكتب والمعتمدة ! ** كلمة private تحدد مدى حياة المتغيرscope ! فبها يكون حي فقط في المكان الذي ولد به اي عرف به ! فمثلا ولد في وحدة نمطية عامة فانه يعرف وحي في تلك الوحدة فقط ! ولدة في وحدة فئة نموذج فانه حي ويعرف هنا فقط ! بمعنى لو ناديته منكا اخر ستجده ميت ولا يستجيب ! عكس public ** byval و byref تستخدم لتحديد نوع او اسلوب تمرير المتغيرات للاجراءت والدوال ! بالعربي : بالقيمة او المرجع ! فاذا مررت قيمة متغير من نوع قيمة فانه للرغبة او عدم الاستطاعة في تغيير قيمة المتغير الاساسية عكس بالمرجع التي يمكن تغيير قيمة المتغير من خلال الاجراء او الدالة ! كما ان الموضوع يطول حول مسالة تعريف المتغيرات نفسها بانها من نوع قيمة ام مرجع ! فهل ممكن امرر قيمة متغير معرف انه مرجع لدالة تستقبل بالقيمة ؟ !! ** رابط لل api : https://msdn.microsoft.com/en-us/library/windows/desktop/ff818516(v=vs.85).aspx http://allapi.mentalis.org/apilist/apilist.php طبعا تاكد من توافق الدالة مع اصدار الويندوز! هذا متمنيا ان حصل لو جزء من ما تريد ! كما انبه على ان الشرح لا بد ان ياتي من استاذ فهو علم بحد ذاته فليس المقصود بالاستاذ بقدر مايملك من معلومة ولكن بقدر رضا تلاميذه في ايصال المعلومة ! تحياتي

بسم الله الرحمن الرحيم ممكن لوسمحتوا طاب كود او معادلة (ربط )خلية فيها بيانات مثلا a1 من شيت 1 الى a1 شيت2 وسؤال اخر عند ارسال ملف اكسيل الى شخص عبر الايميل يكون عندي الخيار حق تأمين الماكرو والوحدات النمطية مفعل __كيف ارسلها لة وتفعل في جهازه بدون مايقوم هو بتفعيل تامين الماكرو او الوحدات النمطية؟ - ممكن شرح عمل combobox في الفورم بحيث يكون في عمود الشيت بيانات تظهر في الكومبوبكس داخل الفورم ..؟ شكرا لكم جزيلا شكرا لكم

بسم الله الرحمن الرحيم السلام عليكم و رحمة الله و بركاته لقد ترددت كثيراً قبل كتابة هذا الموضوع, مع علمي بأهميته حيث أن الرغبة في تعلم برمجة الفيجيوال بيسك الخاصة بتطبيقات مايكروسوفت VBA موجود بقوة لدى أعضاء المنتدى. وسأذكر بعض النقاط المهمة التي تنمي الرغبة في التعلم : 1. وجود إخوان لنا في هذا المنتدى لديهم إبداعات هائله و جميلة تأسر القلوب من روعتها و من هؤلاء الأخوة علي السحيب و ابو تامر و هادي سالم و خبور خير و غيرهم الكثير . 2. و رغم أن الجميع يتركون الأكواد بدون حماية و ذلك بهدف أن يستفيد منها كل متعلم و من لديه رغم بالتعلم, و لا يسعني إلا أن أقول جزاهم الله خيراً على ذلك. 3. قيام بعض المشرفين بشرح بعض الأمور و أخص بالذكر هنا الأستاذ الرائع هادي سالم و قيامه بالشرح من الصفر في تسجيل الماكرو في هذه المشاركة : http://www.officena.net/ib/index.php?showtopic=12203 و قيامه بإكمال موضوعه للمتوسطين من خلال هذه المشاركة http://www.officena.net/ib/index.php?showtopic=17922 و التي شاركها بها الأستاذ خالد نور في محاولة رائعة منهما لإيصال الأفكار للأعضاء بأبسط الطرق . 4. عدم وجود شرح كامل للأكواد المستخدمة في كثير من المشاركات و التي يصعب على من يرغب في تعلم VBA فهمها لوحده و التي ارغب من خلال هذه المشاركة فهم معظمها . فهدفي من هذا الموضوع كما سأذكر في المشاركة رقم 2 أن أقوم بوضع ملف و هو بالطبع من أعمال أساتذتنا في هذا المنتدى و سأذكر النقاط التي لم تتضح لي لم أفهمها في الكود و التي أرغب في فهمها و التي ستكون بسيطة بالنسبة للكثير و سأحاول أن يكون سؤالي بشكل واضح و سننتظر الشرح من الأخوة في فهم الأمور موضوع النقاش . فحسب تصوري إن طريقة التعلم من خلال سؤال و جواب هي من أفضل و أسرع طرق في التعلم و في إيصال الفكرة للأعضاء . و الله ولي التوفيق

إخواني وأحبابي السلام عليكم ورحمة الله وبركاته المرفق ملف به كود وفقني الله عز وجل فيه يقوم بتلوين ( تعبئة ) جميع الخلايا التي تحوي تعليقات ( COMMENTS ) وكود آخر يقوم بإلغاء التلوين ، أتصور أته مفيد في حالة الرغبة في حصر ومعرفة مواقع الخلايا التي تحتوي على تعليقات . أتمنى أن يكون مفيد . والله ولي التوفيق . انقر أيقونة COLOR COMMENT CELLS ولاحظ ما يحدث ، ولإلغاء التلوين أنقر أيقونة UNCOLOR COMMENT CELLS تقبلوا تحياتي أبو عبدالله COLOR_UNCOLOR_COMMENT_CELLS.rar

أعتقد أن الكود التالي أكثر كفاءة: Private Sub Worksheet_Change(ByVal Target As Range) TR = Target.Row TC = Target.Column If TR > 2 And (TC = 3 Or TC = 4) And Cells(TR, 5) < 1 Then MsgBox "!مبلغ صافي الراتب أقل من أو يساوي صفر", vbExclamation, "تنبيه" End If End Sub شاهد المرفق، _________________________________________.rar

بسم الله الرحمن الرحيم ارفقت كتاب عن VBA و باللغه العربيه للورد و الاكسيل بسيط و مفيد جدا , و لكن بصراحه لا اذكر من اين حملته اتمنى ان يكون مناسبا السلام عليكم WrdExl.rar

بسم الله الرحمن الرحيم تم تعديل رابط المشاركه رقم 8 كتاب Excel VBA هنــــــا السلام عليكم

استخدام ماكرو الماكرو هو عبارة عن سلسلة من أوامر Excel التي تستخدمها بشكل متسلسل ومتكرر حيث يمكنك استخدام الماكرو لتجميعها في أمر واحد، مما يسهل المهام الروتينية اليومية. ويمكنك إضافة زر ماكرو لشريط الأدوات بحيث يصبح استعمال الماكرو كاستعمال أي أمر من أوامر Excel. او بمعنى آخر الماكرو هو مجموعة من الأوامر يمكنك حفظها لكي يتم تنفيذها دفعةً واحدة في أي وقت تريد دون الحاجه الى تنفيذ كل تلك الأوامر في كل مرة تريدها... ويتم ذلك بإحدى طريقتين: الأولى .. اما بالضغط على مفتاح معين من لوحة المفاتيح الثانية .. عمل كليك فوق اداه معينه من سطور الأدوات هناك العديد من الماكروات التي تم اعدادها بشكل جاهر من قبل مايكروسوفت الشركة المصنعه للاكسيل..... على سبيل المثال عنما تريد ان تقوم بحفظ العمل فيمكنك عمل ذلك بالضغط على Ctrl + S بدل من الذهاب الى قائمة File --- Save فبالضغط على هذين المفتاحين Ctrl + S فيتم استدعاء الماكرو المختص بالحفظ .. وعلى سبيل مثال آخر لاضافة ملاحظات بخليه معينه يمكنك عمل ذلك بشكل سريع عن طريق الضغط على Shift + F2 بدل من الذهاب الى قائمة Insert --- Comment وهنا ايضاً بالضغط على هذهين المفتاحين Shift + F2 فإنه يتم استدعاء الماكرو الخاص بإضافة التعليق بالخليه .... وهناك ايضاً العديد من الماكروات التي تم اعدادها بشكل جاهز من قبل مايكروسوفت ومعروفه لدينا باسم (مفاتيح الاختزال) ----------------------------------------------- تسجيل ماكرو سنقوم بتسجيل ماكرو لفتح ملف "حسابات البنوك" المخزن في المجلد Chapter 13، وذلك لاختصار الوصول إلى هذا الملف إذا كنت تستخدمه بشكل متكرر. خطوات تسجيل ماكرو إختر الأمر "ماكرو" من قائمة "أدوات" ومن ثم اختر الأمر "تسجيل ماكرو جديد". في مربع حوار "تسجيل الماكرو" غير الاسم الافتراضي ماكرو 1 باسم فتح_حسابات_بنوك، لتتذكر الهدف من هذا الماكرو لاحقاً. تأكد من عدم ترك فراغات في خانة اسم الماكرو باستخدام (_) بين كلمات جملة الاسم. يمكنك تخصيص اختصار لتشغيل الماكرو إذا أردت استخدم خانة "مفتاح اختصار". حدد من القائمة المنسدلة مكان تخزين الماكرو وهو مصنف الماكرو الشخصي. إضغط على المفتاح "موافق". سيوفر لك Excel أزرار إيقاف تسجيل ماكرو والتي ستستخدمها عند الانتهاء من تسجيل أوامر ماكرو فتح ملف حسابات البنوك. لاحظ على شريط المعلومات حالة "تسجيل" وهنا فإن أي أمر ستقوم به سيسجل من قبل الماكرو. قم بفتح الملف حسابات البنوك كما كنت تفعل سابقاً. اضغط على زر إيقاف التسجيل. عند الخروج من Excel تأكد من حفظ التغييرات للماكرو لتكون متوفرة عند تشغيل Excel في المرة القادمة. تنفيذ الماكرو عند تشغيل Excel سنستخدم الماكرو "فتح_حسابات_بنوك" لفتح الملف السابق. خطوات تنفيذ ماكرو اختر الأمر "ماكرو" من قائمة "أدوات" ومن ثم اختر الأمر "وحدات ماكرو". في مربع حوار "وحدات ماكرو" حدد اسم الماكرو "فتح_حسابات_بنوك". اضغط على مفتاح تشغيل. سيقوم الماكرو بفتح الملف مختصرا الخطوات الروتينية المعتادة.