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

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

وعليكم السلام 🙂 تفضل: . جعفر تجريب.zip

الف . الف . مبرو اخ خالد ..... مزيد من التألق ...

اتفضل الرابع والخامس مفتوحى المصدر العطاء للتقسيط.zip

تحديث جديد تم إضافة شريحة السعر في نموذج الفاتورة :

وجدت هذا العمل الرائع في الانترنت منذ فترة وقدمه صاحبه مجاناً يرجو الدعاء لوالديه رحمهما الله تعالى :: بيانات صاحب العمل :: عبداللطيف طراقجي 2013و لغاية عام 2000 من عام ً مدرس تكنولوجيا المعلومات سابقا حاصل على شهادات في إدارة قواعد البيانات من شركة مايكروسوفت MCDBA SQLserver (Microsoft Certified Database Administrator) MOUS Access (Microsoft Office User Specialist) صفحته الشخصية My Certifications http://www.pinterest.com/abdotarakji/mycertifications هنا رابط التنزيل ولا تنسوني ووالديه وجميع المسلمين من دعائكم ،،،

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

تفضل لك ما طلبت ولاحظ هذه الصورة فسوف توضح لك الذى تسأل عليه طب الفم والاسنان.xlsx

حياك الله .... كنا نسعد بخدمتك ..

ضع النقطة في المكان حيث الخطأ في الكود بين الكلمتين ( sNomFichier و PDF) sNomFichierPDF sNomFichier.PDF

انا حذفت List0 و List2 و List3 و List4 و List5 ، لهذا السبب سالتك ليش هالشغل كله 🙂 جعفر 1093.Ex2.accdb.zip

يا اخي العزيز هاني الحلاج ممكن تعمل نموذجين فرعيين في نموذج واحد كل نموذج مصدر بياناته من الاستعلام اللي اعطاه لك استاذ جعفر يعني النموذج الاول بيعطيك الدرجات اكبر وتساوي 90...والنموذج الثاني بيعطيك الدرجات اللي اقل من 90 ربنا بيسهلك الامور

بجد بجد ما اعرف اشكرك ازى -- فعلا انت استاذ

انا مجرد خليت لك مثال بالنسبة الى 90=> ، وإلا فانت كنت تريد 89=> 🙂 محتاج مجموعة امثلة ، لأن طلبك غير واضح !! جعفر

بسم الله ماشاء الله مجهود جبار وشغل رائع جدا جدا جدا جدا بالتوفيق ان شاء الله

أخي / سمير الجبالي ملاحظاتك تهمني كثيراً لكن البرنامج هو ( مشروع كبير جداً ) حتى الآن لم يكتمل جاري التطوير حسب ما لدي من وقت . وسأقوم لا حقاً بشرح ما تيسر منه وكيفية التعامل معه . اكتب ملاحظاتك وتصوراتك بشرح كافي ولا حقاً سيتم إضافة ما تيسر منها . وبالتوفيق .

استاذنا القدير / @محمد طاهر احب واسعد بالالتزام بالقوانين والارشادات ولو نظرنا الي بلد مثل المانيا نسعق من كثرة الالتزام بالارشادات لدرجة الملل ولهذا هي متقدمة جدا وارسل اليكم كل تحية وتقدير لاهتمامكم بمثل هذه الجوانب المفيدة لصاحبها قبلكم قمت بالتعديل علي ملفي الشخصي لكي اصتــف مع الملتزمين جزاكم الله كل خير

جرب وافني بالنتيجة تجريب.accdb

شكرا استاذى العزيز تم عمل القائمة المنسدلة وتم تغيير Accept و Ref بكلمتى تم الصرف / تم الرفض والكود يعمل بكفاءة شكرا لك استاذى الحبيب

مبارك عليك الترقية

ويمكنك اضافة الكود عند فتح النموذج

تستاهل كل خير استاذ kha9009lid الف الف مبروك الترقية اللهم ربي يحفظكم جميعا يارب

في وجهة نظري ، اذا رأيت احد الاعضاء يرد على اسئلة الاعضاء ، واجاباته تفي بحل السؤال (من المعروف ان هناك عدة طرق لحل اي سؤال ، وهناك طرق افضل من اخرى) ، فأظل اراقب هذا العضو لمجموعة مشاركات ، حتى اتاكد من علمه ، ومواظبته للمنتدى ، ولو بشكل متقطع. عندها اقوم بترشيح ترقيته الى درجة خبير 🙂 جعفر

ويمكنك ايضا اضافة الكود في نهاية كود زر الحفظ اذا كان موجود عندك

الف مبروك للاستاذ kha9009lid مزيد من التألق والنجاح ان شاء الله بس كيف واحد زي حلاتي بيصير خبير وقد اشتعل الرأس شيبأ؟ بس يكفي عندنا خبراء في الموقع بنستمع لنصائحهم وحلولهم

وعليكم السلام تفضل المجموع.xls

اخي العزيز..لديك نموذج فرعي تدخل عن طريقه البيانات وليس هناك اشكال في الموضوع ولديك List0 في النموذج الرئيسي... ماهو عمل تلك القائمة وما الذي تريده بالضبط؟

عمتا افصل لك الاكواد تباعا هنا اولا كود انشاء مجلد جديد فى نفس مسار قاعدة البيانات Dim des, fileto As String Set BnGemy = CreateObject("Scripting.FileSystemObject") des = CurrentProject.Path & "\" & "User Photo" If Len(Dir(des, vbDirectory)) = 0 Then MkDir Path:=des End If حيث ان des هو المسار الخاص بالمجلد ثانيا كود اختيار الصورة من نوع jpg Dim x As Object Set x = Application.FileDialog(3) With x If Not IsNull(Attach) = True Then .InitialFileName = Attach Else .InitialFileName = "" End If .AllowMultiSelect = False .Filters.Clear .Filters.add "All jpg", "*.jpg" If .Show = True Then fileto = Trim(.SelectedItems(1)) End If End With Set x = Nothing end if حيث ان fileto هو مسار الصورة المختارة ثالثا كود نسخ الصورة من مسارها المحدد الى مجلد User Photo بنفس كود العميل SN حيث سيتم تسميتها بهذا الاسم تلقائيا اضف هذا الكود الى وحدة نمطية جديدة Option Compare Database Private Declare Function CopyFileA Lib "kernel32" (ByVal ExistingFileName As String, _ ByVal NewFileName As String, ByVal FailIfExists As Long) As Long Public Function Copy(FileSrc As String, FileDst As String, Optional NoOverWrite As Boolean = True) As Boolean Dim Flag As Long Dim Name As String Name = Right(FileSrc, Len(FileSrc) - InStrRev(FileSrc, "\")) If CopyFileA(FileSrc, FileDst & Name, NoOverWrite) Then Copy = True Else Copy = False End If End Function وهذا كود النسخ Copy fileto, des & "\" & SN, True حيث ان fileto كما قلنا سابقا هو مسار الصورة المختارة و SN هو كود العميل فى جدول Users والذى سيتم تسميت الصورة به لم يتبقى الى كود الحذف Kill PhotoUser PhotoUser هو مسار الصورة المراد حذفها اعتذر لك لعدم تقديم مرفق لك والله مشغول فعلا ادعو الله لى شكرا لك

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

أخي عبداللطيف ضع هذا الكود في مربع نص "UN" اسم المستخدم في هذا النموذج الموضح في الصورة: Private Sub UN_AfterUpdate() Dim X X = (DLookup("[UN]", "Users", " deCode([UName],'UN')= UN ")) If Not IsNull(X) = True Then MsgBox "تنبيه اسم المستخدم " & " ( " & [UN] & " ) " & " تم تسجيله مسبقاً جرب اسم آخر", vbCritical + vbDefaultButton1 + 1572864, Compan UN = Null Else: Exit Sub: End If End Sub يقوم الكود بالتحقق من اسم المستخدم إن كان مسجلا مسبقا في جدول المستخدمين أم لا

ضع رز وفي حدث عند الضغط ادرج الكود ...... وسمي الزر جديد

هذا التشجيع ، وإلا بلاش 🙂 ها ، في احد يقبل هذا التحدي 🙂 جعفر

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

وعليكم السلام مبروك استاذ خالد وفقك الله وبارك فيك

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

يستاهل كل خير أخوي @kha9009lid ألف مبروك الترقية وعقبال إن شاء الله تصبح وزير أتمنى لك التوفيق

شكرا على هذه المعلومة 🙂 جعفر

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

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

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

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق... بن علية حاجي INDEX - MATCH.xlsx

حسنا جرب المرفق مثال2.xlsm

السلام عليكم : اريد كود ترحيل البيانات من data الي الشهادات حسب فئة الفصل الموجود في الخلية F2 .مع زيادة عدد الشهادات حسب عدد الفصل .مع الشرح والتوضيح. بارك الله فيكم طباعة شهادات.xlsm

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

السلام عليكم هذا اقتراح جرب المرفق مثال1.xlsm

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

السلام عليكم ورحمة الله وبركاتة هذا المثال / للأستاذة زهرة العبدالله عن الدالة DLookup_ELookup وأضعه هنا بناء على طلب احد الاعضاء لأن طلبه كان في موضوع قديم جدا للاستاذة ::بالتوفيق للجميع :: za_DLookup_ELookup.rar

الشرح الكامل التفصيلي المصور لمعرفة نسخة الأكسيس وتخفيض الأمان برمجيا اخواني الكرام السلام عليكم ورحمة الله وبركاته سنقوم بشرح آلية عمل برنامج تخفيض مستوى الأمان في جميع نسخ برنامج الأكسيس برمجيا وبدون اي ملفات اضافية وسيكون ذلك عن طريق الأكواد فقط . نبذه عن نسخ برنامج الأكسيس كلنا يعلم ان اي نسخة من برنامج الأكسيس لها رقم خاص يميزها عن غيرها من النسخ فمثلا : نسخة الأكسيس 97 نجد انها تأخذ الرقم 8.0 نسخة الأكسيس 2000 نجد انها تأخذ الرقم 9.0 نسخة الأكسيس 2002 وهي نسخة الـ XP نجد انها تأخذ الرقم 10.0 نسخة الأكسيس 2003 نجد انها تأخذ الرقم 11.0 نسخة الأكسيس 2007 نجد انها تأخذ الرقم 12.0 كيف تتعرف على نسخ الأكسيس الموجوده لديك كل ما عليك هو اتباع هذه الطريقة : 1. من الويندوز اضغط على ابدأ 2. اختر تشغيل واكتب فيه RegEdit اتبع المسار التالي حتى تصل الى المجلد Office HKEY_CURRENT_USER\Software\Microsoft\Office وستجد جميع ارقام نسخ الأكسيس المثبته على جهازك بعد ان عرفنا ارقام نسخ الأكسيس والمسار الخاص بها نريد ان يقوم الكود برمجيا بمعرفة النسخة التي تم فتحها . لهذا سوف نستخدم هذه الوظيفة سواء في وحدة نمطية جديده او توضع مباشرة في الـ VBA ( محرر الفيجول بيسك للتطبيقات ) للنموذج ومن ثم استدعاؤها . كود معرفة نسخة الأكسيس المستخدمة حاليا Function GetVersion() As String GetVersion = SysCmd(acSysCmdAccessVer) End Function تخفيض أمان برنامج الأكسيس الغرض كلنا يقوم بتصميم برامج سواء كانت خاصة او لأغراض ربحيه ولكن احيانا يواجه المستخدمين الذين ليس لهم دراية او معرفة مسبقه بطريقة تخفيض امان الأكسيس ولهذا تظهر لهم بين الحين والآخر الرسائل المزعجة الخاصة بتحذيرات امان الأكسيس لهذا سنقوم بكتابة وظيفة مهمتها تخفيض أمان برنامج الأكسيس الذي يعمل وقت فتح البرنامج وتتم هذه العملية لمرة واحده فقط ومن بعدها سوف يستمر برنامج الأكسيس منخفضا امانه مهما فتحت من قواعد بيانات . الطريقة العادية لتخفيض أمان برنامج الأكسيس لتخفيض أمان برنامج الأكسيس من النسخة 97 وحتى النسخة 2003 فهو بإتباع هذه الطريقة : 1. الذهاب الى اشرطة قوائم الأكسيس 2. ثم اختيار ادوات 3. ثم اختيار ماكرو 4. ثم اختيار الأمان ومن ثم وضع الإشارة على الإختيار الأخير وهو " منخفض " ثم موافق اما في برنامج الأكسيس 2007 فيتم خفض الأمان يدويا بهذه الطريقة 1. الذهاب للقائمة الرئيسية واختيار خيارات الأكسيس . 2. من الخيارات اختر مركز التوثيق ثم اختر اعدادات مركز التوثيق . 3. اختر اعدادات الماكرو ثم ضع الأختيار على اخر اختيار وهو " تمكين كافة وحدات الماكرو " ولكن ليس من المعقول ان نقوم بهذه الخطوات في كل مره او ان نقوم بإبلاغ المستخدمين لهذه الخطوات عندما تظهر لديهم تحذير الأمان لهذا نريد ان يتم ذلك برمجيا بدون تدخل المستخدم . لهذا يجب ان نحصل اولا على المفاتيح الخاصة بهذه العملية من خلال الريجستري الخاص بالويندوز . في الخطوة السابقة لتخفيض أمان الأكسيس يدويا قمنا بوضعه على منخفض لهذا دعونا نرى كيف تم عمل ذلك في الريجستري . لو قمنا بفتح الريجستري وتتبع المسار التالي الخاص بالأكسيس فسنجده بهذه الطريقة : جميع النسخ من 97 وحتى 2003 تأخذ هذا المسار مع اختلاف الرقم في نسخة الأكسيس وهي هنا رقم 11.0 وتعني نسخة اكسيس 2003 للمستخدم هو: [HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security] وللنظام هو : [HKEY_LOCAL_MACHINE\Software\Microsoft\Office\11.0\Access\Security] وسنجد ان المفتاح الفرعي لها جميعا بعد تخفيض الأمان يدويا هو "Level"=dword:00000001 اما في الأكسيس 2007 فالوضع مختلف قليلا [HKEY_LOCAL_MACHINE\Software\Microsoft\Office\12.0\Access\Security] حيث يكون المفتاح الفرعي له كالتالي فقط "VBAWarnings"=dword:00000001 وظيفة SaveRegLong حفظ قيمة في الريجستري عبر مفتاح فرعي من نوع Dword Option Compare Database Option Explicit Enum RegHive HKEY_CLASSES_ROOT = &H80000000 HK_CR = &H80000000 HKEY_CURRENT_USER = &H80000001 HK_CU = &H80000001 HKEY_LOCAL_MACHINE = &H80000002 HK_LM = &H80000002 HKEY_USERS = &H80000003 HK_US = &H80000003 HKEY_CURRENT_CONFIG = &H80000005 HK_CC = &H80000005 HKEY_DYN_DATA = &H80000006 HK_DD = &H80000006 End Enum Enum RegType REG_SZ = 1 REG_BINARY = 3 REG_DWORD = 4 End Enum Public Const ERROR_SUCCESS = 0& Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long Public Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long Public Function CreateRegKey(hKey As RegHive, strPath As String) Dim hCurKey As Long Dim lRegResult As Long lRegResult = RegCreateKey(hKey, strPath, hCurKey) If lRegResult <> ERROR_SUCCESS Then 'there is a problem End If lRegResult = RegCloseKey(hCurKey) End Function Public Function SaveRegLong(ByVal hKey As RegHive, ByVal strPath As String, ByVal strValue As String, ByVal lData As Long) Dim hCurKey As Long Dim lRegResult As Long lRegResult = RegCreateKey(hKey, strPath, hCurKey) lRegResult = RegSetValueEx(hCurKey, strValue, 0&, REG_DWORD, lData, 4) If lRegResult <> ERROR_SUCCESS Then End If lRegResult = RegCloseKey(hCurKey) End Function سنقوم الآن بإستدعاء هذه الوظيفة من خلال الكود الموجود في حدث عند عداد الوقت لنموذج الشاشة الإفتتاحية للبرنامج وسيكون لجميع نسخ الأكسيس بهذه الطريقة Private Sub Form_Timer() Dim Version As String Dim strVer As String Dim strValueM As String Dim strValueU As String Version = GetVersion() If Version = "8.0" Then strValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\8.0\Access\Security", "Level", 1) strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\8.0\Access\Security", "Level", 1) ElseIf Version = "9.0" Then strValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\9.0\Access\Security", "Level", 1) strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\9.0\Access\Security", "Level", 1) ElseIf Version = "10.0" Then strValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\10.0\Access\Security", "Level", 1) strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\10.0\Access\Security", "Level", 1) ElseIf Version = "11.0" Then strValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1) strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1) ElseIf Version = "12.0" Then strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Access\Security", "VBAWarnings", 1) End If DoCmd.Close DoCmd.OpenForm "form" End Sub حيث ان الوظيفة الإساسية SaveRegLong تأخذ هذه القيم SaveRegLong(hKey,strPath,strValue,lData) حيث hKey يمثل نوع المفتاح الرئيسي وهو اما HKEY_LOCAL_MACHINE او HKEY_CURRENT_USER strPath يمثل المسار كاملا للمفتاح الفرعي Software\Microsoft\Office\11.0\Access\Security strValue اسم المفتاح وهو في الأكسيس من 97 الى 2003 يكون Level اما في الأكسيس 2007 فيكون VBAWarnings lData هي القيمة المطلوب كتابتها لهذا المفتاح وهي في جميع النسخ الرقم 1 نهاية الشرح بعد تنفيذ هذه الخطوات ووضعها في اي قاعدة بيانات نرغب في تخفيض الأمان لبرنامج الأكسيس سنجد ان الكود سيقوم بهذه الخطوات في الخفاء بدون ان يشعر المستخدم وبدون اي تدخل منه. بإمكانك تجربة وضع أمان الأكسيس يدويا على عالي او متوسط ثم تشغيل البرنامج وستجد ان البرنامج بعد هذه الخطوات سيقوم بتخفيض الأمان الى اقل ما يمكن ولجميع نسخ الأكسيس بدون استثناء عندما يتم فتح البرنامج حسب النسخة المطلوبه فقد يفتح شخص ما البرنامج بواسطة اكسيس 2007 وآخر بواسطة أكسيس 2003 وهكذا سنجد ان البرنامج سيتعرف اولا على رقم نسخة الأكسيس ومن ثم يقوم يقوم بتخفيض الأمان لها مباشرة خلال اقل من جزء من الثانية . وهذا هو البرنامج كاملا ( والكمال لله وحده ) . zaAllAccesVersionAndSecurityLowLevel_Pro.rar ختاما لكم مني خالص الشكر والتقدير

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

اليكم فى المرفق كود يتكون منسطر واحد خاص بالترقيم التلقائى ( منقول ) New__________Microsoft_Excel.rar