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

السلام عليكم ورحمة الله وبركاته ,, الاخوة الكرام كل عام وحضراتكم بخير موضوعنا اليوم جديد وقد يهم الكثير من مستخدمى الاكسس , من المعروف ان الاكسيس يمكنه ضغط ملف او فك ضغطه باستخدام اوامر الشل الخاصة بالويندوز كما لو انك استخدمت الخاصية الموجودة فى الصورة وفى رأيى لا يمكن الاستفادة منها بهذا الشكل وبالتالى قمت بتصميم برنامج .Net يتكامل مع برنامج الاكسيس ويقوم بالتالى : 1- ضغط ملف / مجلد وحمايته برقم سرى . 2-فك ضغط ملف مضغوط برقم سرى . نبذة عن منطق التصميم والبرمجة : كان من الطبيعى انى اقوم بانشاء جدول او اكثر فى الاكسيس لحفظ البيانات المطلوبة ومسارات الملفات واقوم بقراءتها بالبرنامج الجديد ولكن فكرت فى طريقة اكثر احترافية وهى عمل المطلوب بالكامل فى الاكسيس وتمرير المسارات والارقام السرية من متغيرات VBA الى Arguments الخاصة بالبرنامج الجديد وكانت النتيجة جيدة بفضل الله . يتم فتح البرنامج عن طريق هذا الكود : Call Shell("""" & MyApp & """ """ & Operation & """ """ & strSource & """ """ & strDest & """ """ & zipPwd & """", 1) حيث يتم تمرير نوع العملية اولا وذلك لأن البرنامج يقوم ب3 وظائف , وبالتالى نوع العملية تقوم بتوجيه البرنامج للوظيفة المطلوبة ثم بالمسارات والباسوردات الخاصة بها سواء ضغط او فك ضغط يقوم بترجمتها بمعرفته . انظر للامثلة المرفقة : مثال لضغط ملف وحمايته بباسورد بضغطة زر وبكل سهولة وسرعة : مثال لفك ضغط الملف بالمثال السابق : ملحوظة : بالنسبة للامتداد الذى يتعامل معه البرنامج هو zip فقط وبالتالى لن يصلح لباقى الصيغ . اعذرونى ملحقتش اعمل تصميم جذاب ولكن المهم الفكرة . بالاضافة الى ان اكواد VBA يمكن اختصارها وتحسينها بواسطة الاساتذة . مرفق برنامج الاكسيس + البرنامج المساعد .. طبعا الموضوع متعوب عليه المطلوب فقط دعوة فى هذه الايام المباركة جزاكم الله خير . فى انتظار آرائكم ومقترحاتكم بعد التجربة .. دمتم بخير Zip-UnZip Access Amr Ashraf.rar

يمكنك استعمال هذه المعادلة في الخلية D3 =IF(OR(A3=0,A3=""),"",C3-22) بالتوفيق

استخدم الدالة COUNTIF =COUNTIF(C3:C12;"ح") =COUNTIF(C3:C12;"غ")

@kanory تفضل يا استاذنا تم حل مشكلة اللغة العربية Zip-UnZip Access Amr Ashraf .rar

فورم اكسل عن مناسك الحج بالصوت والصورة والفيديو وحذف فيديو2 ملف الاكسل بمنتدى الاستاذ

يمكنك استعمال هذه المعادلة في الخلية D12 =IFERROR(IF(INDEX(D$6:D$10,MATCH($C12,$C$6:$C$10,0))="",CHAR(251),IF(COUNTIF($C12:C12,CHAR(252))>=$L12,CHAR(251),CHAR(252))),"") مع تغيير نوع الخط في هذه الخلية إلى wingdings لتظهر علامة الخطأ والصواب مع سحب المعادلة يمينا ثم أسفل بالتوفيق

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

السلام عليكم 🙂 هناك الكثير من الميزات/الاوامر التي يعطينا برنامج الاكسس ، والتي يمكن ان نعمل لها بديل ، ولكن يكون هناك فرق في سرعة تنفيذ كودنا مقارنة مع الكود الاصل من الاكسس !! مثل القائمة المختصرة التي تظهر لنا بالنقر على زر الفأرة الايمن ، والتي بها يمكننا ان نستغني عن الكثير الاوامر ، مثل الفرز والتصفية بأنواعه ، ولكن وللأسف الشديد ، فأنا ارى ان 99.99% من البرامج ، يتم حذف هذه القائمة وعدم تفعيلها ، والسبب ان المستخدم يستطيع ان يدخل في تصميم النموذج من خلال هذه الاوامر(في الدائرة الحمراء) : و . ويضطر المبرمج ان يعوض بقية الاوامر في القائمة ، بمجموعة من الازرار ، او بطرق مختلفة !! ----------------------------------------------------------------------------------------------- الاكسس يسمح لنا ان نعمل قوائم مختصرة Shortcut Menu والتابعة لمجموعة CommandBars ، حسب احتياجنا ، ونختار ما نضعه فيها 🙂 هناك 3 انواع من هذه القوائم : الثابته ، والمؤقته ، والمؤقته التي تحتاج الى كود. الثابته: وهي التي عندما نعملها ، تصبح مستقله عن الكود ، وتُحفظ وتبقى في قاعدة البيانات بعد إغلاقها ، ويمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى ، بإستخدام : . ونختارها في النموذج : . او التقرير : . هذا مثال لعمل الكود الاساس لعمل قائمة قطع/نسخ/لصق : Option Compare Database Option Explicit Dim cmb As Object Dim cmbCtrl As Object Dim cmbName As String ' ' ' to use: ' Dim cbr As Commandbar ' Dim cbrButton as CommandbarControl ' ' we have to select in the References: ' Microsoft Office xx.x Object Library ' Public Function SCM_Copy(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy" CommandBars(cmbName).Delete If DeleteMe = True Then Exit Function If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb .Controls.Add msoControlButton, 21, , , False ' Cut .Controls.Add msoControlButton, 19, , , False ' Copy .Controls.Add msoControlButton, 22, , , False ' Paste End With Set cmb = Nothing End Function . وشرح الكود : 1. اسم القائمة المختصرة ، والتي سوف نختارها في النموذج او التقرير ، 2. هذه المجموعة الاساس منبثقة Popup ، 3. بينما هذه المجموعات عبارة عن ازرار Buttons ، وقد تكون قائمة منسدلة Combobox ، او نص Edit نُدخل فيه قيمة معينة للتصفية مثلا ، 4. هل هذه القائمة مؤقته ؟ False معناها ثابته وتُحفظ في قاعدة البيانات ، بينما True معناها انها مؤقته وتعمل لما ننادي الوحدة النمطية/الكود ، 5. هذه ارقام كل امر ، وملف الاكسل المرفق من مايكروسوفت فيه جدول يضم جميع ارقام الاوامر للاكسس 2010 () ، 6. اذا اردنا ان نحذف هذه القائمة ، فننادي الوحدة النمطية بضم True في امر المناداة المؤقته: ونستعمل True في مكان الرقم 4 اعلاه. وهي التي عندما نعملها ، لا تصبح مستقله عن الكود ، ولا تبقى في قاعدة البيانات بعد إغلاقها ، ولا يمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى (كما هو الحال مع القائمة الثابته) ، ويجب ان نستخدم "حدث فتح" النموذج/التقرير لعملها واستخدامها في النموذج/التقرير ، و "حدث اغلاق" النموذج/التقرير لحذفها ، طيب ، خلونا نعمل هذه القائمة : Public Function SCM_Copy_Sort(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy_Sort" CommandBars(cmbName).Delete If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb Set cmbCtrl = .Controls.Add(msoControlButton, 21, , , False) ' Cut cmbCtrl.Caption = "Cut..." cmbCtrl.FaceId = 21 Set cmbCtrl = .Controls.Add(msoControlButton, 19, , , False) ' Copy cmbCtrl.Caption = "Copy..." cmbCtrl.FaceId = 19 Set cmbCtrl = .Controls.Add(msoControlButton, 22, , , False) ' Paste cmbCtrl.Caption = "Paste..." cmbCtrl.FaceId = 22 Set cmbCtrl = .Controls.Add(msoControlButton, 210, , , False) 'Sort Ascending cmbCtrl.BeginGroup = True cmbCtrl.Caption = "فرز تصاعدي..." cmbCtrl.FaceId = 210 Set cmbCtrl = .Controls.Add(msoControlButton, 211, , , False) 'Sort Decending cmbCtrl.Caption = "فرز تنازلي..." cmbCtrl.FaceId = 211 End With Set cmb = Nothing End Function . وشرح الكود: احنا توسعنا في الكود الاساسي ، واضفنا له : 1. تسمية اختيارية غير الافتراضية ، لاحظ في الصورة اعلاه اني استعملت الانجليزي والعربي ، 3. وهو لعمل خط فاصل في الصورة بين مجموعة قطع/نسخ/لصق ومجموعة فرز تصاعدي/تنازلي ، . 2. ممكن ان نبدل الصورة الافتراضية التي تيجي مع الرقم ، بتبديل هذا الرقم (لاحظ صورة الاسهم للتصاعدي/التنازلي) : . ومرفق ارقام جميع الصور الموجودة في الاكسس : . . . . . . . . . . . في قاعدة البيانات المرفقة myRight_Click.mdb ، بالاضافة الى القوائم الثابته اعلاه ، تم اضافة هذه القائمة ايضا : . والتقرير يحتوي على القائمة المؤقته التالية : . - ملف الاكسل myList.xlsx ، اخترت فيه اهم القوائم في وجهة نظري ، - ملف الاكسل AccessControls_2010.xlsx ، من مايكروسوفت ، يحتوي على جميع الاوامر 🙂 جعفر المصادر: http://dev-soln.com/access-shortcut-right-click-tool/ https://www.experts-exchange.com/articles/12904/Understanding-and-using-CommandBars-Part-II-Creating-your-own.html https://filedb.experts-exchange.com/incoming/2014/02_w06/833359/CommandBars-II.mdb https://www.experts-exchange.com/articles/18341/CommandBars-Part-III-Using-Built-in-Shortcut-Menus.html http://www.skrol29.com/us/vtools.php AccessControls_2010.xlsx myList.xlsx myRight_Click.zip

السلام عليكم أصدقاء المنتدى الكرام أقدم لكم ملف جاهز لتحويل التاريخ من الميلادى إلى التاريخ الهجرى ...أتمنى أن ينال إعجابكم بارك الله لكم جميعا برنامج تحويل التاريخ.xlsm

السلام عليكم ورحمة الله تم إضافة زر للفورم خاص لحفظ كشوف الصفوف المختارة في الفورم بصيغة PDF باسم "الصف المختار"... أرجو أن يفي الغرض المطلوب... كشوفات الطلبة.xlsm

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

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

وهذه مشاركة وايضا حسب فهمي .... ههههههه ماذا لو استخدمنا وحدة نمطية تسهل على المبرمج اعادة وكتابة هذه الاكواد كلما احتاج اليها .... وايضا منعنا التكرار .... Public Function MoveData(FromTableName As String, ToTableName As String, Optional AttachmentFieldName As String = "No Attachment", Optional IgnoreAttachment As Boolean = True) On Error GoTo HandleErr Dim rstFromTable As DAO.Recordset Dim rstToTable As DAO.Recordset Dim fldFrom As DAO.Field2 Dim rstToAttach As DAO.Recordset2 Dim fldAttach As DAO.Field2 Dim rstFromAttach As DAO.Recordset2 Err.Clear Set rstFromTable = CurrentDb.OpenRecordset(FromTableName) Set rstToTable = CurrentDb.OpenRecordset(ToTableName) If (rstFromTable.BOF And rstFromTable.EOF) Then Exit Function End If Do While rstFromTable.EOF = False rstToTable.AddNew ' main add record For Each fldFrom In rstFromTable.Fields If fldFrom.IsComplex = False Then rstToTable(fldFrom.Name).Value = fldFrom.Value Else If AttachmentFieldName <> "No Attachment" Then rstToTable.Update rstToTable.Bookmark = rstToTable.LastModified rstToTable.Edit Set rstFromAttach = fldFrom.Value Set rstToAttach = rstToTable(fldFrom.Name).Value If rstFromAttach.RecordCount > 0 Then If IgnoreAttachment = False Then Do While rstFromAttach.EOF = False rstToAttach.AddNew For Each fldAttach In rstFromAttach.Fields If (IsNull(fldAttach.Value) = False) And (fldAttach.Name <> "FileType") Then rstToAttach(fldAttach.Name).Value = fldAttach.Value End If Next 'fldAttach rstToAttach.Update rstFromAttach.MoveNext Loop End If End If End If End If Next fldFrom rstToTable.Update rstFromTable.MoveNext Loop rstFromTable.Close rstToTable.Close ExitHere: Set rstFromTable = Nothing Set rstToTable = Nothing Set rstFromAttach = Nothing Set rstToAttach = Nothing Exit Function HandleErr: Select Case Err.Number Case 53 Err.Clear Resume Next Case 91 Err.Clear Resume Next Case 3020 Err.Clear Resume Next Case 3021 Err.Clear Resume Next Case 3022 Err.Clear Resume Next Case Else Debug.Print "Error " & Err.Number & ": " & Err.Description End Select Resume ExitHere End Function الحاق البيانات.accdb

شكرا استاذ حسين جزاك الله خير

جرب الان اذا كان فهمي صحيح الحاق البيانات(2).accdb

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

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

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

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

وعليكم السلام ورحمة الله وبركاته أخي هاني 🙂 عملتها لك في استعلام .. ويمكنك أن تصمم منه نموذج ، وممكن تجعل فيه شرط [تحديد السنة]. اسم الاستعلام : Qry_No_of_Days_Abcent تجميع غياب لكل طالب.mdb

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

مبدع كعادتك على قدر أهل العزم تأتي العزائم 👍

جزاك الله خيراً وكل عام وأنت ومن تُحب بألف خير 👍

انشاء قاعدة بيانات مشفرة بكلمة مرور تستدعى القانك بأسمة من اى مكان وفى اى حدث على حسب هواك بالسطر التالى Call MkDbByPassword وتغير فى الفانك بس على التوالى المسار , اسم القاعدة الجديدة التى تريد انشاءها . كلمة المرور التى تريدها فى المتغيرات strDbPath >>>---->> المسار strNewDbName >>>---->> اسم قاعدة البيانات الجديدة ولا تنسى الامتداد strPassNewDb >>>---->> كلمة المرور التى تريد تشفير القاعدة بها Public Function MkDbByPassword() Dim wrkDefault As Workspace Dim dbsNew As DAO.Database Dim strDbPath As String Dim strNewDbName As String Dim strPassNewDb As String strDbPath = CurrentProject.Path & "\" strNewDbName = "NewDB.mdb" strPassNewDb = "00" Set wrkDefault = DBEngine.Workspaces(0) If Dir(strDbPath & strNewDbName) <> "" Then Kill strDbPath & strNewDbName Set dbsNew = wrkDefault.CreateDatabase(strDbPath & strNewDbName, dbLangGeneral & ";PWD=" & strPassNewDb) End Function

لنفترض انه لدينا ملف يحتوي على ثلاثة أوراق عمل shets1_shets2_shets3 يقوم هذا الكود بنسخ وتصدير شيت 2و3 على سطح المكتب Sub export_sheets() Dim Fname As String, ws As Worksheet Application.DisplayAlerts = False Sheets(Array("Shets2", "Shets3")).Copy For Each ws In ActiveWorkbook.Sheets ws.UsedRange = ws.UsedRange.Value Next ws ActiveWorkbook.SaveAs Filename:= _ "C:\Users\PC Hicham\Desktop\" & "إسم الملف المستخرج" & ".xlsx", FileFormat:=51 ActiveWorkbook.Close Application.DisplayAlerts = True End Sub لاتنسى تغيير مسار حفظ الملف على حسب الموجود عندك

تفضل How To Find And Replace Fill Color In Excel?

التلميح داخل مربع النص مع علامة مائية فى حالة كان مربع النص فارغ ويختفيان بمجرد التركيز داخل مربه النص او الكتابة ... ToolTip.mdb

تفضل أخى جرب هذا جلب بيانت بدلالة فرز او تحديد.xls

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

مرحبا بك فى المنتدى نورتنا واهلا وسهلا بك- ملف رائع بارك الله فيك

بارك الله فيك ووفقك أحسنت وابدعت دائما تبهرنا أستاذى الكريم

جرب هذا معادلة ترحيل ونقل بيانات بين تاريخين وبشرطين.xls

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

وعليكم السلام مرحبا بك فى المنتدى من الأفضل أن ترسل الملف لكى يتسنى للزملاء مساعدتك

هل تقصد هكذا الإضافى.xlsx

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

تفضل كما فى أول مشاركة البحث.xls

تفضل أخى خالد البحث.xls

بعد إذن الأستاذ محمد صالح جرب هذا الملف كود لجعل اللغة العربية في العامود الاول و اللغة الإنجليزية في العامود الثاني.xlsm

أستخدم ويندوز 7 وأوفيس 2007

أخى جرب هذا معادلة تلوين الخلية ذات القيمة الاكبر والقيمة الصغري.xlsx

ممكن تجرب هذا ترحيل بيانات عدة خلايا الى ورقة اخرى.xlsx

تفضل لعله يكون المطلوب أمر ترحيل بيانات.xlsm

بارك الله لك أخي عبد الله range ليس نوع بيانات وإنما هو كائن object كامل له خصائصه وأحداثه وأفعاله لذلك يلزمنا عند تعيين قيمة له أن نستعمل كلمة set بهذه الصورة set a1=range("a25") أما طريقة تعيين قيمة لمتغير فتتم بالصورة الافتراضية varibalename=value وبانتظار ملاحظات الإخوة ومناقشاتهم حول هذا الموضوع وقد ظهرت هديتي للإخوة في الشرح فما هي؟ حتى يتم شرحها أيضاً

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته مواصلة لما بدأه أخواي عبد الله المجرب وأبو عبد الله هنا تلخيص لكل ما يخص الماكرو من حيث التسجيل والتعامل بالحذف أو التعديل أو الاستدعاء ................ يمكن تسجيل الماكرو من تبويب المطور developer أو من شريط الحالة status bar * - لإطهار تبويب المطور في أوفيس 2007: اضغط على زر الأوفيس ثم خيارات إكسل excel options ثم من التبويب شائع popular اختر "إظهر تبويب المطور في الشريط" Show Developer tab in the Ribbon ثم موافق ok * - لإطهار تبويب المطور في أوفيس 2010: اضغط على تبويب ملف file tab ثم خيارات options ثم تخصيص الشريط customize ribbon ثم اختيار المطور developer من القائمة اليمنى ثم موافق ok * - لإظهر زر تسجيل الماكرو في شريط الحالة status bar إذا لم يكن موجوداً اضغط بزر الفارة الأيمن على شريط الحالة ثم اختر تسجيل ماكرو macro recording === بعد الضغط على تسجيل ماكرو تظهر شاشة لتسمية الماكرو واختيار مكان تخزين الماكرو وإضافة اختصار من لوحة المفاتيح له وكتابة وصف نتعامل معها كما نريد ثم نضغط على موافق ok === * - ولإيقاف تسجيل الماكرو يمكن استعمال شريط المطور أو شريط الحالة === للتعامل مع الماكرو بالتعديل أو الحذف يمكن الوصول لها من خلال الضغط على alt+f11 للوصول لنافذة محرر الفيجوال بيسك أو الضغط على زر الماكروات macros في شريط المطور أو الشغط على alt+f8 من لوحة المفاتيح ثم نحدد الماكرو المراد تعديله أو حذفه ثم نضغط على زر تعديل edit أو حذف delete * - ويمكن أيضا حذف الماكرو من شاشة محرر الفيجوال بيسك وذلك بتحديد نص الماكرو بداية من sub إلى end sub ثم الضغط على delete من لوحة المفاتيح (كحذف أي نص عادي) --- * - لوضع اختصار أو وصف أو تغيير مكان تخزين ماكرو نضغط على خيارات options في نافذة الماكروات بعد تحديد الماكرو المطلوب. == لتشغيل الماكرو: * - يمكنك تشغيل الماكرو من خلال الضغط على الماكروات macros في شريط المطور developer ثم اختيار الماكرو المطلوب ثم الضغط على تشغيل run أو بالضغط على alt+f8 لظهور نفس النافذة واختيار الماكرو المطلوب ثم الضغط على run * - أو يمكنك تشغيل الماكرو من داخل شاشة محرر الفيجوال بيسك بالوقوف بالمؤشر داخل الماكرو المطلوب ثم الضغط على f5 من لوحة المفاتيح أو من قائمة run اختر run sub/user form * - أو يمكنك ربط الماكرو بزر أو بصورة أو بشكل تلقائي وذلك من خلال الضغط بزر الفارة الأيمن على الأداة المطلوب ربطها بماكرو ثم اختيار "تعيين ماكرو" assign macro تظهر نافذة يمكنك اختيار الماكرو المطلوب ربطه ثم موافق ok أو تسجيل ماكرو جديد بالضغط على "تسجيل" record أو كتابة كود ماكرو جديد بالضغط على "جديد" new * - يمكنك إضافة الماكرو إلى شريط الوصول السريع (الشريط الصغير على يمين زر أوفيس أو تبويب ملف) وذلك من حلال: الضغط على السهم في نهاية شريط الوصول السريع ثم اختيار "أوامر أكثر" more commands أو الضغط بزر الفارة الأيمن على شريط الوصول السريع أو الشريط ribbon واختيار "تخصيص شريط الوصول السريع" customize quick access tool bar تظهر نافذة الخيارات على تبويب شريط الوصول السريع نختار من القائمة العلوية اليسرى "اختيار الأوامر من" choose commands from ماكروات macros تظهر جميع الماكروات افل القائمة اختر منها ما تشاء ثم اضغط على زر إضافة add ولتغيير اسم ظهور الماكرو وايقونته في شريط الوصول الريع نحدد الماكرو الذي تمت إضافته في الجزء الأيسر من النافذة ثم الضغط على زر تعديل modify * - لإضافة الماكرو إلى تبويب جديد في الشريط (خاص بأوفيس 2010): نضغط بزر الفارة الأيمن على شريط الوصول السريع أو الشريط ribbon واختيار "تخصيص الشريط" customize the ribbon ثم نختار من القائمة اليسرى العلوية الماكروات macros ثم ننشئ تبويباً جديداً من خلال الضغط على زر "تبويب جديد" new tab اسفل الجزء الأيمن من النافذة ثم تحديد الماكرو المطلوب من اليسار والضغط على زر إضافة add وبنفس الطريقة يمكنك تعديل اسم التبويب أوالماكرو وأيقونته ======== وفي الأخير لكم مني كل التمنيات بالتوفيق ولا ينقصني سوى دعاؤكم والسلام عليكم ورحمة الله وبركاته

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ......... وجدت أثناء تصفحي للإنترنت هذه الميزة فأحببت مشاركة إخواني فيها طريقة التشغيل 1- اذهب الى 2- اضغد على ctrl+shift+j بمتصفح الكروم او ctrl+shift+k بالفيرفوكس. 3- اضغط على console والصق مايلي document.cookie='VISITOR_INFO1_LIVE=ST1Ti53r4fU'; ثم اضغط enter وانتظر حتى ينهي المتصفح بعض العمليات 4- اغلق نافذة التطوير وأعد تحميل الصفحة او اضغط F5. ومبروك عليك الشكل الجديد أتمنى لكم التوفيق والإستفادة

سؤال هذه الحلقة من دورة vba للمشتركين في الدورة عرفنا في الشرح كيف يتم ربط تنفيذ الماكرو بمفتاح اختصار عند تسجيل الماكرو والسؤال هو: كيف يتم تعيين اختصار لماكرو بعد تسجيله؟ ................ بإذن الله سيتم احتساب نقاط لمن يجيب أولاً ولمن يقوم بإرفاق الملفات المطلوبة منه كتقييم لأداء المشتركين في الدورة

كما يمكنك استعمال هذا البرنامج youtubedownloader