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

السلام عليكم ورحمة الله وبركاته ,, الاخوة الكرام كل عام وحضراتكم بخير موضوعنا اليوم جديد وقد يهم الكثير من مستخدمى الاكسس , من المعروف ان الاكسيس يمكنه ضغط ملف او فك ضغطه باستخدام اوامر الشل الخاصة بالويندوز كما لو انك استخدمت الخاصية الموجودة فى الصورة وفى رأيى لا يمكن الاستفادة منها بهذا الشكل وبالتالى قمت بتصميم برنامج .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

السلام عليكم ورحمة الله تم إضافة زر للفورم خاص لحفظ كشوف الصفوف المختارة في الفورم بصيغة 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

شكرا يا بطل .... هدية مقبولة ومشكورة

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

اشكرك استاذي الفاضل اسرعة تفاعلك ... جعله الله في ميزان حسناتك ..

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

هذه دلالة انك وجدت الاجابة ........ وعادة توضع لافضل اجابة لك ولسؤالك ..... لان من يرى علامة الصح فلن يدخل الموضوع ( على اساس انك وجدت ضالتك ) فلن تحصل على الاجابات أخي الكريم ...

جميلة وممتعة واذا دمجناها مع افكارنا فى الاكسيس النتيجة بتكون خرافية أيش رايك تشاركنا تجربتك في قسم ال #C بالمنتدى ؟ أنا أيضا عندي توجه لتعلم هذي اللغة 😊 لعل الله يحيي القسم على يديك 😁👌🏻

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

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

جزاك الله كل خير جعل الله هذا العمل فى ميزان حسناتك

تمت الإجابة عن شيء مثل هذا بالتوفيق

جميعا بإذن الله

بارك الله فيك يا بشمهندس .. لكن الشفافية لم تظهر عندي

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

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

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

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

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

وعليكم السلام مرحبا بكى فى المنتدى هناك العديد من البرامج منها: المرتبات.xls رواتب5.mdb المرتبات والاجور.xls وكذلك هناك برنامج مرتبات مرفوع على هذا الموقع https://www.mediafire.com/#myfiles

جرب أيضا هذا مناوبات.xlsx

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

تفضل الملف بعد التعديل مع شرح المعادلة معادلة جلب رقم الجلوس من صفحة مسودة إلى الصفحتين الأخريتين مثال على الجدول الأول بداية الجدول من عمود رقم الجلوس إلى أخر عمود به النتيجة (ناجح أم راسب) {=IF(مسودة!$G$8:$AM$37="","",IF(ISERROR(INDEX(مسودة!$C$8:$AU$37, هذه الجزئية من المعادلة ثابتة فى كل الجداول حتى لا ترحل البيانات إلا بعد تعبئة الجدول الأول من صفحة مسودة ومعناها إذا كان الجدول الأول فارغاً فلا تنقل درجات أى جدول إلى الصفحتين الأخرتين SMALL(IF((مسودة!$AU$8:$AU$37="ناجح"),ROW(مسودة!$C$8:$AU$37)- عمود النتيجة وطبعا فى صفحة الراسبون لابد أن يكتب بها راسب بدل من ناجح MIN(ROW(مسودة!$C$8:$AU$37))+1,""),ROW(A1)),COLUMN(A1))),"",INDEX(مسودة! وهذا يعنى أن يكون أول صف وأول عمود وفى رقم الجلوس اللى بعده لابد أن يتغير إلى A2 وذلك لتلاشى الفراغات بين السطور فى الصفحة المرحل إليها $C$8:$AU$37,SMALL(IF((مسودة!$AU$8:$AU$37="ناجح"),ROW(مسودة!$C$8:$AU$37 　 )-MIN(ROW(مسودة!$C$8:$AU$37))+1,""),ROW(A1)),COLUMN(A1))))} 　 هذا القوس فى بداية ونهاية المعادلة لأنها معادلة صفيف فلابد من هذان القوسين وبدونهما لا تعمل المعادلة مطلوب ترحيل الناجحين والراسبين.rar

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

ممكن يكون كده موظف يعمل ورديات مختلفة - المطلوب اظهار الاوفر تايم.xlsx

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

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

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

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

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

تم الحل من قبل excel.rar

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

جرب هذا وبعد هذه العملية يمكن نقل أى أسماء مباشرة من الإكسيل إلى التليفون مهما كان عددها نقل اسماء من الاكسل الى الهاتف.rar

جرب هذا excel.rar

من فضلك ارسل الملف واشرح طلبك وفكرتك عليه حتى يتسن للزملاء مساعدتك؟

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

بارك الله لك أخي عماد بالفعل ما تقوله صحيح وربما اشتبه علي الأمر حيث توجد هذه الميزة في vb و vb.net ولكن بالتحقق من نوع بيانات المتغير c1 من خلال كتابة الدالة typename(c1) يظهر لنا أنه بالفعل تم الإعلان عن المتغير وحجز مكان في الذاكرة له ولكن يبقى نوع بياناته فارغاً empty فإذا تم تعيين قيمة له وكانت هذه القيمة تاريخ يظهر لنا أن نوع بيانات هذا المتغير date .............. فالفرق الجوهري بين المتغير الأول والثالث في السطر هو: أن المتغير الأول والثاني يمكن تغيير نوع بياناتهم حسب القيمة التي يتم تعيينها لهم أما المتغير الثالث يثبت على نوع البيانات التي تم تعريفه بها وممكن أن يرى أحدنا هذه بأنها ميزة في تغير نوع بيانات المتغير. .......... أنا شخصياً أعتمد على الطريقة الثانية وهي الأصح dim c1 as date,c2 as date,c3 as date وفي الأخير أتمنى أن نكون قد استفدنا من هذا الجزء وبانتظار ملاحظتكم بخصوص الهديتين

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته مواصلة لما بدأه أخواي عبد الله المجرب وأبو عبد الله هنا تلخيص لكل ما يخص الماكرو من حيث التسجيل والتعامل بالحذف أو التعديل أو الاستدعاء ................ يمكن تسجيل الماكرو من تبويب المطور 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 يمكنك متابعتها على هذا الرابط http://www.officena.net/ib/index.php?showtopic=39323

أخي الكريم الأنيس أولا : أدعوك لاستعمال أحدث نسخة من الأوفيس 2010 لأن بها من المميزات الكثير ولا تقل (اللي نعرفه أحسن من اللي منعرفوش) ثانياً : لقراءة ملفات أوفيس 2007 وما فوقها على أوفيس 2003 وما قبله يجب تثبيت برنامج وهذا رابطه http://www.microsoft.com/download/en/details.aspx?displaylang=en&id=3 اضغط على كلمة download في الصفحة باللون الأحمر على يمين الصفحة سيتم تحميل ملف اسمه FileFormatConverters.exe بعد التحميل قم بتثبيت هذا الملف ستجد كل شيء على ما يرام