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

جرب هذا الكود بدل الموجود لديك ... If Me.CMBSERIAL.Column(0) = DLookup("IDD", "EMPDEV", "[IDD] = '" & Me.CMBSERIAL.Column(0) & "'") Then Me.CMBSERIAL.Undo Me.Undo MsgBox "هذا الجهاز مسجل مسبقاً", vbInformation, "تنبيه التكرار" Exit Sub Else MsgBox "تم" End If

تفضل أخي الكريم هذا هو الكود بعد التعديل Sub Export_PDF_in_OneAll() Application.ScreenUpdating = False Sheets(Array("Report")).Select mypath = "D:\USP41 - NF36\" & Range("C9").Value If Dir(mypath, vbDirectory) = "" Then MkDir mypath ActiveSheet.ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("c8").Value & ".pdf", xlQualityStandard Worksheets("Report").Select Application.ScreenUpdating = True MsgBox "Done" End Sub لاحظ وضع مجلد الحفظ في متغير حتى لا نكرر كتابته وأيضا فحص ما إذا كان المجلد موجودا أو لا فإذا لم يكن موجودا فيتم انشاؤه ثم بعدها يتم التصدير لاجظ إضافة امتداد الملف في نهاية الاسم ولا تنسوني من صاح دعائكم

بعد اذن اخي الفاضل @محمد سلامة ممكن ذلك انظر المشاركة لاستاذنا العزيز @essam rabea

اليكم عواصم افريقيا واوربا واسيا والامريكتين https://top4top.io/downloadf-16468sgjp1-rar.html

وعليكم السلام ورحمة الله وبركاته استخدم الكود التالي Private Sub Form_BeforeUpdate(Cancel As Integer) If Len(Me.Text2 & "") = 0 Or Len(Me.Text4 & "") = 0 Then Me.Undo End If End Sub 3ا1لمستخدمين.rar تحياتي

جميعا بإذن الله بالتوفيق

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

وجزاكم الله خيرا تسلم يا غالي تحياتي

اتفضل استاذنا الغالي D33.rar تحياتي

بالاضافة الى ما تفضل به استانا الفاضل @husamwahab وله جزيل الشكر تفضل هذه وحدة نمطية ايسر من اللتي تسخدمها ومرنة في التعديل Public Function write_Number(numberp) On Error Resume Next Dim ttpa, xp, a, number_s, fl As String Dim zp, z As Integer Dim c1, c2, c3 As String number_s = Str(Format(numberp, "0.00")) If Left(Right(number_s, 2), 1) = "." Then number_s = number_s & "0" If Left(Right(number_s, 3), 1) <> "." Then number_s = number_s & ".00" number_s = Trim(number_s) zp = Len(number_s) z = 1 Do While zp > 0 c1 = "" c2 = "" c3 = "" If zp = 12 Or zp = 9 Or zp = 6 Then a = Mid(number_s, z, 1) zp = zp - 1 Select Case a Case "0" c3 = "" Case "1" c3 = "ومائة " Case "2" c3 = "ومائتان " Case "3" c3 = "وثلاثمائة " Case "4" c3 = "واربعمائة " Case "5" c3 = "وخمسمائة " Case "6" c3 = "وستمائة " Case "7" c3 = "وسبعمائة " Case "8" c3 = "وثمانمائة " Case "9" c3 = "وتسعمائة " End Select z = z + 1 End If If zp = 3 Then z = z + 1 zp = zp - 1 End If a = Mid(number_s, z, 1) If zp = 2 Or zp = 5 Or zp = 8 Or zp = 11 Then Select Case a Case "0" c2 = "" Case "1" c2 = "عشر " Case "2" c2 = "وعشرون " Case "3" c2 = "وثلاثون " Case "4" c2 = "واربعون " Case "5" c2 = "وخمسون " Case "6" c2 = "وستون " Case "7" c2 = "وسبعون " Case "8" c2 = "وثمانون " Case "9" c2 = "وتسعون " End Select zp = zp - 1 z = z + 1 End If a = Mid(number_s, z, 1) If zp = 1 Then ' الهللات Select Case a Case "0" c1 = "" Case "1" If c2 = "عشر " Then c1 = "واحدى " Else c1 = "وواحد " End If Case "2" If c2 = "عشر " Then c1 = "واثنتا " Else c1 = "واثناتان " End If Case "3" c1 = "وثلاث " Case "4" c1 = "واربع " Case "5" c1 = "وخمس " Case "6" c1 = "وست " Case "7" c1 = "وسبع " Case "8" c1 = "وثمان " Case "9" c1 = "وتسع " End Select Else ' الريالات Select Case a Case "0" c1 = "" If c2 = "عشر " Then c2 = "وعشرة " End If Case "1" If c2 = "عشر " Then c1 = "واحدى " Else c1 = "وواحد " End If Case "2" If c2 = "عشر " Then c1 = "واثنا " Else c1 = "واثنان " End If Case "3" c1 = "وثلاثة " Case "4" c1 = "واربعة " Case "5" c1 = "وخمسة " Case "6" c1 = "وستة " Case "7" c1 = "وسبعة " Case "8" c1 = "وثمانية " Case "9" c1 = "وتسعة " End Select End If zp = zp - 1 z = z + 1 Select Case zp Case 9 Select Case c1 + c2 + c3 Case "وواحد " xp = xp + "ومليون " Case "واثنان " xp = xp + "ومليونان" Case Else xp = xp + c3 + c1 + c2 + "مليون " End Select Case 6 Select Case c1 + c2 + c3 Case "وواحد " xp = xp + "والف " Case "واثنان " xp = xp + "والفان " Case "وثلاثة " xp = xp + "وثلاثة الاف " Case "واربعة " xp = xp + "واربعة الاف " Case "وخمسة " xp = xp + "وخمسة الاف " Case "وستة " xp = xp + "وستة الاف " Case "وسبعة " xp = xp + "وسبعة الاف " Case "وثمانية " xp = xp + "وثمانية الاف " Case "وتسعة " xp = xp + "وتسعة الاف " Case Else If c2 = "وعشرة " Then xp = xp + c3 + c1 + c2 + "الاف " Else xp = xp + c3 + c1 + c2 + "الف " End If End Select Case 3 If c2 = "" Then Select Case c1 Case "وواحد " c1 = "ديناراً " Case "واثنان " c1 = "ديناراًن " Case "وثلاثة " c1 = "وثلاثة دينارات " Case "واربعة " c1 = "واربعة دينارات " Case "وخمسة " c1 = "وخمسة دينارات " Case "وستة " c1 = "وستة دينارات " Case "وسبعة " c1 = "وسبعة دينارات " Case "وثمانية " c1 = "وثمانية دينارات " Case "وتسعة " c1 = "وتسعة دينارات " Case Else c1 = "ديناراً " End Select xp = xp + c3 + c1 + c2 Else xp = xp + c3 + c1 + c2 + "ديناراً " End If Case 0 If c1 + c2 <> "" Then If c2 = "" Then Select Case c1 Case "وواحد " xp = xp + "وسنتيماً واحداً" Case "واثنان " xp = xp + "وسنتيمان " Case Else xp = xp + c1 + "سنتيم " End Select Else xp = xp + c1 + c2 + "سنتيم " End If Else xp = xp + c1 + c2 + "وصفر سنتيم " End If End Select Loop xp = LTrim(xp) zp = Len(xp) - 1 If Left(xp, 1) = "و" Then xp = Mid(xp, 2, zp) End If ttpa = xp write_Number = ttpa End Function طريقة الاستخدام في الاستعلام او النموذج او التقرير كالتالي write_Number([textbox]) تحياتي

السلام عليكم تم تعديل آلية الترقيات السابقة ، حيث تم اضافة شرط لعدد نقاط الاعجاب لتنفيذ الترقية الالية ، كما هو مبين أدناه الدرجة الحالية المشاركات نقاط االاعجاب عضو جديد 01 50 - 02 الأعضاء 100 10 03 عضو مميز 500 50 04 عضو فضي 1000 100 05 عضو ذهبي 1000 500 06عضو ماسي 1000 1000 عند وصول نقاط الاعجاب الي 1000 للعضو الماسي سيتم الترقية الي مجموعة أعضاء الشرف و التي تضم أيضا المكرمين من ممن لهم مساهمات خارج الموقع و ستتغير الدرجة بالترقية للأعلى بعد اول مشاركة للعضو ، و لن يتم تخفيض أي درجات حالية. و تبقي مجموعات الخبراء و فريق الموقع و فريق الموقع السابق و أعضاء الشرف دون تعديل كما سيتم قريباً بإذن الله استحداث درجة خبير مخضرم لتكون الترقية التالية لدرجة خبير و سيتم الاعلان قريبا عن موعد تطبيقها و آلية التطبيق

يتطلب تحليل الانحدار فى برنامج SPSS تحقيق افتراضات متعددة تتنوع بحسب نوع الاختبار و دائما ما يكون أول شرطان يتعلقان بأنواع المتغيرات التابعةو المسنقلة و قد قمت بتلخيص مختصر لانواع المتغيرات الممكن استخدامها فى الجدول التالي باللغتين العربية و الانجليزية المصدر الأساسي : https://statistics.laerd.com/ و يسعدني وجود أي اضافة أو تضحيح من المختصين الجدول باللغة العربية و عذرا اذا كان هناك خطأ فى الترجمة

السلام عليكم .. معكم ساجدة العزاوي من العراق خريجة جامعة بغداد/ علوم حاسبات / برمجة صفحتي التعليمية على الفيس بوك بعنوان ( اكسل vba برامج تطبيقات مع ساجدة العزاوي) https://www.facebook.com/sajidaalazzawi313/ قناتي على اليوتيوب متخصصة فى تقديم الشروحات فى كثير من المجالات الكومبيوتر والموبايل (سوفت وير, اكسل vba, ورد, بوربوينت, ببلشر, , شرح برامج وتنصيبها . .يوتيوب https://www.youtube.com/channel/UCSEHgnsy257rL_Wca02Tx_w من فديوهاتي سلسلة مميزة للبحث بالاسم في الفورم وهي من 13 جزء ج1 بحث بالاسم في TEXTBOX فيتم الفلترة الى LISTBOX وثم الى TEXTBOXES اكسل ساجدة العزاوي تم النشر بتاريخ 31/8/2017 ج2 بحث بالاسم زر تعديل البيانات في اليوزرفورم اكسل VBA ساجدة العزاوي تغير لغة كتابة Textbox ثلاثة اجزاء ج113 كود تغيير لغة الكتابة عربي انكليزي فرنسي تغيير مؤشر الكتابة داخل textbox ساجدة العزاوي vba تم النشر بتاريخ 14/3/2019 ج114 تغيير لغة كتابة اليوزرفورم نغيير لغة textboxe تغيير لغة keyboard عربي اكسل vba ساجدة العزاوي ج115 التحكم بلغة كتابة textbox من خلال optionbutton تغيير لغة يوزرفورم ساجدة العزاوي اكسل vba 20/3/2019 قائمة تشغيل تعلم اكسل vba https://www.youtube.com/watch?v=XGWdEThvQW4&list=PLb_hBgQ-kdgVKPF3X5dFsrFZ5l-R90wJ9

أحسنت استاذ منير عمل رائع الى الأمام دائماً ... ونرجو منك ايضا التفاعل الإيجابى ومحاولة مساعدة الأساتذة فى الرد على تساؤلات واستفسارات الأعضاء بالمنتدى بما لديك من خبرات واسعة فى مجال الإكسيل ونتمنى الإستفادة من خبراتكم

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

السلام عليكم اخى @husseinharby مشاركه مع اخى العزيز @husamwahab جزاه الله خيرا نفس كود اخى حسام بس نقلته فى حدث عند الخروج للتكست 49 الصافى بعد اختيار الصنف وادخال القيم سيتم نقل التركيز على حقل الصافى وعند الضغط ع انتر او تاب سيتم تحديث حقل الدفعه ونقل التركيز مره اخرى للنموذج الفرعى ان شاء الله يكون ما تريد بالتوفيق copy-2.accdb

بدون استأذن .. اخي الكريم خالد حضرتك جبت الحل المطلوب بالظبط 👍 جزاك الله خيراً استاذ خالد 🌹

ربما في النسخ الحديثة عن طريق حقل المرفقات attachments ويتم ارفاق نسخة من البرنامج ويكون دور الزر تصدير المرفق

وعليكم السلام اخى @محمد التميمي هل هذا ما تريد ؟ DoCmd.OpenReport "Table", acViewPreview, , "Newborns Between forms!DateBetween!Text2 And forms!DateBetween!Text3" حقل Newborns فالجدول رقمى وليس تاريخ بالتوفيق 454(1).accdb

السلام عليكم ... أشكر جميع المجهوذات المبذولة من طرف جميع زوار و أعضاء موقع أوفيسنا ، على الحلول المقترحة و التي ساهمت بشكل كبير في حل معظم معضلاتي في قاعدة بياناتي أكسس . تفضلوا منتدى إأفيسنا التفقيط بالعربية جاهز ( العملة الجزائرية : الدينار الجزائري ، السنتيم ) . TAFKIT ARABE.accdb التفقيط بالعربية .docx

استاذ @husamwahab 🌹🌷🌺

أي يتم أثناء الحفظ انشاء مجلد باسم محتوى احدى الخلايا وحفظ ملف ال pdf بداخله ‫Daily order Microbiology - نسخة.xlsm ج جزاك الله كل خير وزادك من علمه

تفضل اخي العزيز ارجو ان يكون طلبك ملاحظة : اذا كان التعديل مناسب فالافضل ان يكون اختيار الكود اخر عملية ادخال copy-1.rar

تفضل اخي العزيز التعديل Filter Students-d.rar

حدد تاريخ زمنى وليكن 6 اشهر واللى ميظهرش خلال ال 6 شهور يبقى ده الصنف الراكد وذلك بمعيار زمنى من تاريخ ..... الى تاريخ .....

برنامج مجاني بديل ل SPSS يقوم برنامج PSPP بالعديد من التحليلات التي يقوم بها SPSS و ليس كلها للتحميل من هنـــــــــا

تم عمل المطلوب في الجدول بالمعادلات بدون ماكرو بالتوفيق الشهادات المدرسية للقدامي 2021 (1).xlsm

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

جميل جدا استاذ محمد أبوعبدالله جزاك الله كل خير

جرب ان تبدل السطر الاخير NoToTxt2 = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur بهذا السطر NoToTxt2 = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + " وصفر " + MySubCur

تمام أوى إبراهيم العبادى أين الضغط على الإعجاب لهذا الكود الممتاز ؟!!!!💙 بارك الله فيك استاذ سليم كود رائع جعله الله فى ميزان حسناتك

تفضل-يمكن ان يكون الكود هكذا Private Sub CommandButton1_Click() If Sheet1.Range("D5").Value = "" Then MsgBox "الرجاء إدخال البيانات كاملة ", vbCritical, "تنبيه" Sheet1.Activate Exit Sub Else End If Dim Arr With Sheet1 Arr = Array(.Range("D5"), .Range("D7"), .Range("D9"), .Range("D11"), .Range("D13"), .Range("G5"), .Range("G7"), .Range("G9"), .Range("G11")) End With With Sheet2 .Range("B" & .Cells(Rows.Count, "B").End(xlUp).Row + 1).Resize(1, UBound(Arr) + 1).Value = Arr End With MsgBox "تم الإضافة بنجاح", vbInformation, "تأكيد" Sheet1.Range("D5").Value = "" Sheet1.Range("D7").Value = "" Sheet1.Range("D9").Value = "" Sheet1.Range("D11").Value = "" Sheet1.Range("D13").Value = "" Sheet1.Range("G5").Value = "" Sheet1.Range("G7").Value = "" Sheet1.Range("G9").Value = "" Sheet1.Range("G11").Value = "" End Sub الشهادات المدرسية للقدامي 2022.xlsm

بارك الله فيك وزادك الله من فضله

مشكورين هدية مقبولة وبارك الله فيكى

بالخدمة اخي العزيز وتفصل التعديل ارجو ان يكون طلبك Filter Students-b.rar

وعليكم السلام -تفضل عند كتابة الكود يظهر الاسم والقسم1.xlsx

مجهود كبير استاذة ساجدة بارك الله فيكى

الرسالة تعني أنك أدخلت عدد قليل من وسائط الدالة وهي فقط وسيطتين الرقم 9 والنطاق المراد جمعه ربما يكون ضبط جهازك يستحدم الفاصلة المنقوطة بدلا من الفاصلة جرب =SUBTOTAL(9;A1:A8) رغم أني مع المقترح الخاص بارفاق ملفك أو جزء منه الذي به المشكلة

عملية الجمع باستعمال علامة الجمع (+) لا تعطي نتيجة اذا كان هناك نصوص (كيف تجمع رفماً مع نض ؟؟؟) مثلاُ اذا كتبت =A1+B1+C1+D1 و كانت احد هذه لخلايا تحتوي على نص ستحصل على خطأ Value اما الدالة Sum تعتبر النص او الفراغ صفرا فالأفضل استعمالها بهذا الشكل =SUM(A1:D1) الصورة توضخ ماذا اقصد

تفضل اخي العزيز ارجو ان يكون طلبك حفظ المرفقات-10.rar

يمكنك استخدام معادلة المصفوفة ( Ctrl+Shift+Enter) .... من أعمال استاذنا سليم حاصبيا له منا كل المحبة والإحترام =IFERROR(IF(ROW($C$2)>SUM($C$2),"",INDEX($A$2:$A$100,MATCH(FALSE, COUNTIF($E$1:E1,$A$2:$A$100)=$C$2,0))),"") 81.xlsx

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

أحسنت استاذ محمد بارك الله فيك وزادك الله من فضله ورحم الله والديك

فقط عليك بوضع Next قبل End Sub لابد من وجود ملف بكل مشاركة ....فإنتبه لذلك مستقبلاً Form1..xlsm

وعليكم السلام-تفضل تم تعديل الفورم وضبطه Reservation HOTEL(2021).xlsm

أحسنت استاذ منير , ممتاز بارك الله فيك

بعد إذن أخى وحبيبى أحمد الفلاحجى أ.romeo4 جرب المرفق عسى أن يكون المطلوب للجمع(2).accdb

فى المثال المرفق ثلاث طرق للتحكم فى البيانات المدخلة الأولي بالكود و هنا يتم التحقق من أن البيانات المدخلة فى الخلية d2 لابد أن تبدأ ب FGK Private Sub Worksheet_Change(ByVal Target As Range) If UCase(Left(Range("d2").Value, 3)) <> "FGK" Then MsgBox "Not Accepted Entry, should start with FGK" Range("d2").Value = "FGK" Exit Sub End If End Sub و الثانية عن طريق معادلة if الشرطية و اظهار النتيجة فى الخلية المجاورة و الثالثة عن طريق أمر Validation من قائمة data و عليه يوجد 3 امثلة الاول للتحكم بان الرقم بين 10 و 100 و الثاني لأن النص لا يزيد عن 5 حروف و الاخير لان الرقم أقل من 1000 و فى الاخير تم استخدام خاصية الرسالة التي تظهر عند الوقوف فى الخلية و تغيير رسالة الخطأ و ذلك ايضا من امر validation من قائمة data Validation.zip

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