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

أجذر من كذبة نيسان البيضاء في هذا الملف Poisson D'April.xlsm

وعليكم السلام 🙂 1_اذا كانت قيمة الحقل رقم if a= 123 then 2_اذا كانت قيمة الحقل نص if a="abc123" then او if a='zxc23' then 3_اذا كانت قيمة الحقل تاريخ if a=#22-2-2020# then 4-اذا كان الحقل فارغ if len(a & "")=0 then جعفر

وعليكم السلام 🙂 اللي اشوفه من صورة ، واللي يمكن قراءته بجهاز قارئ الباركود : الهوية : فيها باركود اُحادي ، والباركود عبارة عن رقم ، ولا اعرف اذا هذا الرقم له علاقة بمعلومات الشخص ، او هو مجرد رقم تسلسل ، فلا ادري اذا ممكن الاستفادة منه ، الجواز : فيه باركود من نوع PDF417 ، وبحثت في الانترنت على جوازات سعودية ، وحاولت استعمل مجموعة من برامج قراءة الباركود في هاتفي ، لقراءة هذا الباركود ، واتضح انه لا يمكن قراءته (يمكن عند الجهات الرسمية Decoder خاص لقراءة هذا الباركود) ، لذا ، كذلك لا يمكن الاستفادة منه ، الجواز : فيه كود من نوع MRZ (في اسفل الجواز ، ذو السطرين) ، وهاي مافيه بيانات عربية ، وفيه : الاسم بالانجليزي ، الجنسية ، رقم الجواز ، تاريخ الميلاد ، تاريخ الاصدار ، وتاريخ الانتهاء ، فهنا ممكن تستفيد من هذه البيانات 🙂 طبعا علشان تقدر تقرأ هذه البيانات ، لازم يكون عندك برنامج يقرأ MRZ ، ويوجد منهم الكثير ، وحسب تجربتي في استعمال برامج تحويل الصورة الى نص (OCR) ، فارى ان برنامج Abbyy Fine Reader عنده القابلية ، وصحيح ممكن تستعمل نسخة Professional ولكن نسخة Corporate هي الاصلح في حالتك ، ويجب ان يكون البرنامج متنصب على الكمبيوتر ، والذي نطلب منه ان يصدر بيانات MRZ الى ملف TXT او xls ، وبإسم كل ملف حسب اسم ملف pdf الموجود عندك ، ومنه نعمل كود لقراءة هذه الملفات ، ونُدخل/نقارن البيانات بالموجوده عندك ، والطريقة الاخرى ، انك تستعمل برنامج آخر من شركة Abbyy واسمه ABBYY FlexiCapture ، وفيه امكانيات مهولة ، بحيث تخبره بكل حقل من الجواز ومافيه ، فيقوم بجمع جميع بيانات الجواز ، باللغة العربية والانجليزية ، ويحفظها في ملف xls ، ومنه نعمل كود لقراءة هذه الملفات ، ونُدخل/نقارن البيانات بالموجوده عندك 🙂 سهلة هاه 🙂 ولكن وقبل ان تشمّر عن ساعديك وتشتري برنامج ABBYY FlexiCapture ، رجاء انظر الى مواصفات الصورة التي قمت بعمل سكان لها ، فإذا كان نقاوة الصورة اقل من 300dpi ، فلا تتعب نفسك ، فلن يستطيع برنامج OCR من قراءة بيانات الصورة ، وخصوصا بالعربية !! جعفر

بعتذر لم ار الشرح بالاعلى لاخوانى واساتذتى الافاضل جزاهم الله خيرا وكل شىء مشروح بالاعلى اخى الفاضل شرح وافى يمكنك فتح موضوع جديد بعد ذلك ووضع الرابط الذى تريد الاشاره اليه فى موضوعك تم تعديل الكود التالى Private Sub Command0_Click() MsgBox " تم اضهار رسالة من فورم الرئيسي " End Sub الى Sub Command0_Click() MsgBox " تم اضهار رسالة من فورم الرئيسي " End Sub وهى تساوى Public Sub Command0_Click() MsgBox " تم اضهار رسالة من فورم الرئيسي " End Sub بالتوفيق اخى Run Button Command-K.rar

تفضل . لا بد من وضع معييارين لاستعلام لقائمة العرض كما في الصورة لأن حقل باسم "الصوتي" قيمه مكرره فلا بد من وضع معييارين حتى تخرج القيم صحيحة وبالتوفيق. إضافة قائمة فرعية.zip

بعد اذن أستذنا jjafferr أرد أن أشارك في الموضوع test.accdb

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

1. انا نصحتك انك ما تستعمل حدث "عند التغيير" في البحث ، وخصوصا في شبكة ، لأن برنامجك بيصير جدا بطيء ، بحيث بعد ان تضغط على زر الرقم يحتاج البرنامج الى عدة ثواني حتى يُدخل الرقم التالي .. ، واخبرك مسبقا ، بأن المستخدم لن يقبل بهذه السرعة ، ولن يقبل بطريقة اخرى للبحث ، ولا توجد طريقة لحل هذه المشكلة ، وستكون متورط !! 2. تفضل : . جعفر

لما تكون في صفحة الكود VBE ، اضغط على الزر F1 ستأتيك هذه النافذة ، اكتب في مكان البحث كلمة: mask ، وستحصل على جميع التعليمات : . جعفر

السلام عليكم ورحمة الله وبركاته السادة الافاضل اساتذتي واخواني الكرام تم بفضل الله التوصل لطريقة التحكم بطابعة الفواتير ودرج النقدية الخاص بالكاشير وبعد اذنكم سود اسرد الموضوع من البداية حتي يسهل على الاخوة الاعضاء التوصل اليه بمشاركة واحدة . ادوات جهاز الكاشير : ( طابعة فواتير - درج نقدية – سكانر ) الاسكانر لا يحتاج لشرح ، وتم مناقشته من قبل في مواضيع كثيرة ، ولكن موضوعنا اليوم والذي لم يتم مناقشته بافاضة هو طابعة الفواتير ودرج النقدية . 1 – الطابعة الحرارية " طابعة الفواتير" : ومنها انواع عديدة ولكن اشهرها نوع ايبسون ، وتحتوي على 3 منافذ ( منفذ كهرباء – منفذ usb " من خلالة يتم تعريف خصائص واعدادات الطابعة وهي نقطة هامة جداااا والذي يترتب عليه الاداء لاحقا " - منفذ درج النقدية " وهو عبارة عن منفذ نفس منفذ الهاتف الارضي ويتم توصيلها بالطابعة من خلال واير يشبة واير الهاتف الارضي ..طرفة الاول بالطابعة والطرف الاخر باسفل الدرج ، وتكمن فكرة فتح الدرج في ارسال شحنة كهربائية من الطابعة عند الطباعة الي الدرج ليقوم بفتحة " 2 – درج النقدية : ويحتوي علي منفذ واحد فقط ويكون اسفله ، وهو المنفذ الذي يتصل بيه للطابعة والمذكور اعلاه . الاستفسارات المطروحة : س1 : طريقة فتح درج النقدية بدون طباعة ؟ س2 : طريقة تحديد تقارير معينة لفتح الدرج معها ، وتقارير اخري لعدم فتح الدرج معها . اول واهم شيء نقوم بتعريف الطابعة على الكمبيوتر من خلال الـــ CD المرفق جـ1 : قام الاستاذ الفاضل السيد جمال جزاه الله كل خير بوضع كود لفتحة وتم تجربتة بعد تعريف الطابعة وهو يعمل تمام الحمد لله " موجود بالمشاركة السابقة " . كود الاستاذ السيد جمال لفتح درج النقدية بدون طباعة . فتح الكاشير.rar جـ2 : نقوم بتحديد التقرير المطلوب طباعتة مع فتح الدرج او عدم فتح الدرج ثم نفتح التقرير بوضع التصميم ونتبع الخطوات المشار اليها بالصور . اتمني ان يكون الشرح واضح ...... وسامحوني على الاطالة واي استفسار انا حاضر وللسادة المشرفين الافاضل اتخاذ ما يرونه مناسبا في تغيير العنوان الاساسي حتي يسهل الوصول اليه علي سبيل المثال " التحكم فى طابعة الفواتير ودرج النقدية الخاص بالكاشير " هذاا .... وما توفيقي الا بالله . مع كل الشكر والتقدير للمنتدانا الغالــــي

فورم اكسل بحث عن اسم الصحابى وصفته ونبذه عنه الفيديو الملفات كود البحث فى رجال حول الرسول.pdf بحث فى رجال حول الرسول.xlsm

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

عذرا اخي الفاضل أحمد الفلاحجى حصل خطئ في الجهاز اثناء تحميل الصفحة

السلام عليكم ورحة الله وبركاته اخي احمد بارك الله بجهودك النتيجة رائعة والامور تمام عاشت ايدك مثل ما نقول بالعراقي شكري وامتناني اخي الطيب تحياتي❤️😃❤️

تفضل 🙂 Private Sub B_Code_AfterUpdate() If DCount("*", "المستخدمين", "[المعرف]=" & [Forms]![الدخول]![B_Code]) > 0 Then Dim SplitUp() As String Dim StrMyLookup As String StrMyLookup = DLookup("[الصلاحية] & '|' & [اضافة] & '|' & [حذف] & '|' & [تعديل] & '|' & [كلمة السر] & '|' & [اسم المستخدم]", "المستخدمين", "[المعرف]=" & [Forms]![الدخول]![B_Code]) SplitUp = Split(StrMyLookup, "|") Me.الصلاحية = SplitUp(0) Me.اضافة = SplitUp(1) Me.حذف = SplitUp(2) Me.تعديل = SplitUp(3) Me.كلمة_السر = SplitUp(4) Me.اسم_المستخدم = SplitUp(5) Else Exit Sub End If End Sub جعفر 1198.مستخدم.accdb.zip

اذن مشاركتي الآولى لاتزال ، طريقة العمل 🙂 جعفر

1- فيما يخص رسالة التاكيد قبل تفريغ البيانات تم اجراء اللازم 2- فيما يخص الفلترة نفس السبب المشار اليه في المشاركة الاولى يجب عليك اعداد ورقة السجل على هذا الاساس 3- في الملف مرجع دائري او اكثر ابحث عنها وصحح المعادلات نسخة للتعديل.xlsm

وعليكم السلام استخدم val عدلت لك اول عامود عامود الرواتب هل q4 لاتدخل ضمن الجمع ام سقطت منك سهوا لم اضفها اذا كانت سقطتت منك سهوا اضفها وانتبه للحقول جيدا حتى لا يخرج اجمالى خاطئ =Val([q1])+Val([q2])+Val([q3])+Val([q5])+Val([q6])+Val([q7])+Val([q8] راجع ووافنا بالنتيجه بالتوفيق ان شاء الله ZT(1).accdb

اخي الكريم برجاء توضيح المطلوب اكثر من ذلك حتي يستطيع احد خبراء المنتدي مساعدتك

ربما فيما بعد نظراً لضيق الوفت لكن اقترح ان تلقي نظرة على هذا الملف (صفحة salim) Countif_new.xlsm

ربما يجب استبدال الفاصلة بفاصلة منقوطة داخل المعادلة (حسب اعدادات الجهاز عندك) لتبدو المعادلة هكذا =MID(E7;FIND("/";E7)+1;LEN(E7))

حفظك الله لنا يااستاذنا الغالي @jjafferr

بعد اذن الأستاذ سليم , يمكنك استخدام هذه المعادلة =TRIM(LEFT(RIGHT(SUBSTITUTE(SUBSTITUTE(E7,".","/"),"/",REPT(" ",200)),400),200)) وايضا يمكنك استخدام هذه المعادلة =IFERROR(LOOKUP(99^99,--RIGHT(LEFT(E7,SEARCH("/",E7)-1),ROW($2:$16))),"") وهذه معادلة ثالثة =-LOOKUP(1,-RIGHT(LEFT(E7,FIND("/",E7)-1),ROW($1:$9))) Microsoft Office Excel Worksheet 1.xlsx

جرب هذه المعادلة =MID(E7,FIND("/",E7)+1,LEN(E7))

أولاً- الحلقة التكرارية يجب ان تبدأ من الصف الثالث لان الصف الثاني لا يحتوي على تاريخ ثانياً- عدد الصفوف كبير جداً (حوالي 56000 صف) لذلك يأخذ الماكرو وقتاً كبيراً (دقيقة أو أكثر حسب سرعة الحهاز عندك)كي ييفرز الداتا و ينظمها ثالثاً -في حالة عدد الصفوف اكثر من 32000 يجب اخذ المتغيرات Long وليس Integer لاحظ مثلاُ %I حولتها الى I As Long رابعاً- مثل هذه قاعدة البيانات من الافضل عملها بواسطة برنامج Access تم معالجة الأمر في هذا الملف my_Big_sheet-_dict.xlsm

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

جرب هذا الملف My_Countif.xlsm

رائع .. احسنت استاذ سليم بارك الله فيك

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

للحفاظ على الترتيب افعل كما في الصورة

من الافضل في المرة القادمة انا يكون الملف كاملا ويجب ان يكون لديك اتصال انترنت ليقوم الملف بانشاء كود بار medjahed-11.xlsm لاتنسانا من طيب الدعاء

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

تعديل بسيط على الماكرو ليظهر اسماء الشيتات Sub Uniq_items_With_Sh_Names() Dim R As Worksheet, Sw As Worksheet Dim Nme$, Rg As Range Dim cop_rg As Range Dim dic As Object, I%, m% Dim arr(), ky, t% Set R = Sheets("report") Set dic = CreateObject("Scripting.Dictionary") Set cop_rg = Range("B4").CurrentRegion Nme = R.Range("C2") If cop_rg.Rows.Count > 1 Then cop_rg.Offset(1).ClearContents End If m = 5 For Each Sw In Sheets If Sw.Name <> R.Name Then Set Rg = Sw.Range("G5", Sw.Range("G4").End(4)) For I = 1 To Rg.Rows.Count If Rg.Cells(I).Offset(, 2) = Nme Then dic(Rg.Cells(I).Value) = _ Rg.Cells(I).Offset(, 2).Value End If Next If dic.Count = 0 Then GoTo Next_Sheet For Each ky In dic.keys ReDim Preserve arr(t) If t = 0 Then arr(t) = dic(ky) & ": Sheet " & Sw.Name Else arr(t) = dic(ky) End If t = t + 1 Next With R.Cells(m, 2).Resize(dic.Count) .Value = Application.Transpose(dic.keys) .Offset(, 1) = Application.Transpose(arr) m = m + dic.Count: dic.RemoveAll: Erase arr: t = 0 End With End If Next_Sheet: Next Sw End Sub الملف من جديد Unique_item_1.xlsm

جزاك الله خيرا اخى صالح @ابوآمنة وبارك الله فيك اخى الفاضل @abouzak يرجى عدم تكرار المواضيع والصير ويكتفى بكلمه للرفع فى نفس الموضوع بارك الله فيك لما تحصل على رد له قيمة ، فتشجيعا للعضو الذي يساعدك ، اخبر العضو بأنك مُعجب برده ، هكذا : . . ولما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة ، هكذا (حتى مستقبلا يسهل معرفة الاجابة الصحيحة) : . شكرا 🙂

يصبح الكود هكذا

بناء على مقترح الأخ الكريم محمد البرناوي بإمكان المستخدم الآن تحديد عدة صور وتحويلها إلى pdf مع نقل جميع الصور إلى مجلد البرنامج آلياً . PDFv20.2.zip

كود ممتاز استاذ حسين لكن اسمح لي بهذه الملاحظة ،اذ لا لزوم للحلقات التكرارية لتعبئة الكومبوبوكس هذا الكود يفي بالغرض Option Explicit Private Sub ComboBox1_Change() End Sub Private Sub CommandButton1_Click() Dim lr, ctr As Object Dim sh As Worksheet Set sh = Sheets("المستفيد") lr = sh.Cells(Rows.Count, "a").End(xlUp).Row + 1 If TextBox1 = "" Or ComboBox1 = "" Or ComboBox2 = "" Or TextBox2 = "" Then _ MsgBox "عفوا يجب تعبئة جميع الحقول", vbInformation: Exit Sub With sh.Range("A" & lr) .Value = TextBox1.Value .Offset(, 1) = ComboBox1.Value .Offset(, 2) = ComboBox2.Value .Offset(, 3) = TextBox2.Value End With 'يجب التوضيح هنا ربما يكون لدينا 50 كومبوبوكس و تكس بوكس فهل نذكرها كلها؟ For Each ctr In Me.Controls If TypeName(ctr) = "TextBox" Or _ TypeName(ctr) = "ComboBox" Then ctr.Value = vbNullString End If Next End Sub '++++++++++++++++++++++++++++++++++++++++++++++++++ Private Sub UserForm_Initialize() Dim sh As Worksheet Dim sh2 As Worksheet Set sh2 = Sheets("الشهر") Set sh = Sheets("المستفيد") ComboBox1.List = sh.Range("H5", sh.Range("H4").End(4)).Value ComboBox2.List = sh2.Range("A2", sh2.Range("A1").End(4)).Value End Sub

بعد ادن الاستاد ونحن جالسين الايام دي فلا مانع في محاولة انظر المرفق كشف الحضور.xlsm

انا ارى ان هذا الكود عديم الفائدة لانه ما الغاية من ان نقول للاكسل "حدد لنا هذا النطاق و نكون قد حددناه مسبقا كي يتعرف عليه" فنحن قد حدناه مسبقاً الافضل ان نعطيه العنوان ونكلفه بتحديد النطاق المناسب (مع اعطاء رسالة في حال الخطأ) بواسطة هذا الكود Option Explicit Sub select_by_choise() Dim Reg As Object Dim i%, rg As Range Dim Inp_Box Inp_Box = InputBox("Type Your Range Address") Set Reg = CreateObject("VBScript.RegExp") With Reg .Pattern = _ "(^\s+?\$?[A-Z]+\$*?\d+\s*?:\s*?\$?[A-Z]+\$\d+\s*?$|^\$?[A-Z]+\$*?\d+\s*?$)" .IgnoreCase = True .Global = True End With On Error Resume Next Set rg = Range(Inp_Box) If Err.Number > 0 Then MsgBox "Wrong Address :" & Chr(10) & " " _ & """" & Inp_Box & """" Exit Sub End If Range(Inp_Box).Select End Sub الملف مرفق للتجربة Select_by_CHOISE_RG.xlsm

تفضل أخي عبد الله السعيد ترجيل الى ورقة عمل جديدة و ترتيب ابجدي للاسماء New Microsoft Excel Worksheet.xlsm

ضع MYFOLDER في C الملف يعمل بكفاءة عالية افتح الملف MASTER و قم بجلب الملفات. الكود يعمل بكفاءة عالية. ربما المشكل عندك في الجهاز MyFolder.rar

اخواني الكرام: عندما قمت بالاعداد لشرح موضوع Select Case توصلت الى عمل دالة جديدة تقوم باستخراج اسم المحافظة وتاريخ الميلاد والنوع من الرقم القومي المصري قد لا تكون هذه الدالة جديدة عليكم فقد قام عدد من الاساتذة واذكر منهم الاستاذ خبور بعمل دوال احترافية بهذا الخصوص ولكني احببت ان اضعها هنا للاستفادة منها الدالة تحوي على بارو مترين هما 1. A_Rng ويمثل خلية الرقم القومي 2. T ويمثل الخيار الخاص بالعنصر المراد استخراجه =============================== وهنا المتغير T ينقسم الى التالي اي عندما T = 1 يتم استخراج اسم المحافظة T = 2 يتم استخراج تاريخ الميلاد T = 3 يتم استخراج النوع سوء ذكر او انثى ==== ويصبح الشكل النهائي للدالة =A_ID(A_Rng;T) ارجو منكم التجربة وابداء الراي اليكم المرفق 2003 دالة معرفة.rar

اداة تفعيل الماكرو لاكسيل 2003 2007 2010 2013 بضغطة واحدة علي هذه الاداة تفعل الماكرو لاكسيل لكل الاصدارات مع تحياتي ان اعجبتك الاداه لا تبخل علي بالرد khalednr.rar

السلام عليكم ورحمة الله وبركاته وجدت عندي شيت أعده من أكثر الشيتات التي أثارت إعجابي ، وسوف تثير إعجابكم حتما ً لكثرة ما تضمه بين جنباتها من معادلات وشغل كتييييير ، فقلت أنقلها للاستفادة . All in One.rar

السلام عليكم ورحمة الله وبركاته بين أيديكم أحبائي هدية قيمة جداً وجدتها عندي ، كنت قد حصلت عليها وهي عبارة عن حوالي 400 شيت إكسل لأكبر الشركات العالمية يستخدمون فيها كمية كبيرة وفي قمة الاحترافية من الأكواد الجاهزة ، فتلك الشركات كما لا يخفي عليكم تضم بين جنباتها أكبر خبراء في العالم في شتى المجالات ومنها مجال الحاسب الآلي والبرمجيات ، (طبعاً مرتباتهم غير مرتباتنا لو مؤاخذة ) فلما لا نستفيد من تلك العقول المستريحة ونطوع ما نراه ليلائم احتياجاتنا ، والدعوة هنا لأهل التخصص في مراجعة تلك الأكواد التي جعلت عقلي يدور من احترافيتها واستخراج ما يلائم عملهم وإمدادنا بالملائم منها . بعض التخصصات في الشيتات Analysis Bar Bending Schedules Beam Bridge Column Drawing Estimates Foundation Hydraulics Layout Loading Misc. Prestress RCC Design Retaining Wall Section Properties Seismic Slab Soil Mechanics Stairs Steel Wall مساحت الفولدر المضغوط حوالي 118 ميجا على الميديافاير مقسم الى جزئين http://www.mediafire.com/download/5gs62010mkn1bry http://www.mediafire.com/download/1nmr7zs6anzpaux نفعكم الله بها - آمين

السلام عليكم ورحمة الله هذا ملف فيه تطبيق لما شرحته بالأعلى.... بن علية معادلات في مربع نص.rar

وعليك السلام ورحمة الله وبركاتة هل هذا المطلوب معادلات داخل الشكل بماكرو.rar

اضم صوتي لصوت اخينا ايمن لمن له خبرة مع هذه الاجهزة ليلة البارحة كنت ابحث عن طابعة فواتير وكنت اسأل عن طابعة كاشير فأطلعني صاحب المحل على طابعة الكاشير وهي مدمجة مع الدرج فاخبرته اني اريد طابعة حرارية فقط فاخبرني ان اسمها طابعة فواتير واظن ولست متأكدا بل ظني ناتج من مشاركة سابقة في هذا المنتدى ان فتح الدرج تتحكم به الطابعة بمعنى ان الطابعة تتصل بالحاسب بينما الدرج يتصل بالطابعة وهذه هي المشاركة http://www.officena.net/ib/index.php?showtopic=42471#entry243397 انظر السطر الرابع من المشاركة الاولى

السلام عليكم اخي باسم شكراً على هذه الملاحظة لتعديل الدالة عدل هذا السطر A_ID = Format(DateSerial(Mid(A_Rng, 2, 2), Mid(A_Rng, 4, 2), Mid(A_Rng, 6, 2)), "yyyy/mm/dd") ليصبح A_ID = Format(DateSerial("19" & Mid(A_Rng, 2, 2), Mid(A_Rng, 4, 2), Mid(A_Rng, 6, 2)), "yyyy/mm/dd")