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

الظاهر انكم موديل قديم وما ادري اما انا فمن جماعة Amiga 1000 ، يعني ايام 286 🙂 جعفر

ياهلا بالاستاذ جمال نعم رحلة طويلة قبل حتى اقراص 5.25 كانت الاقراص 8.25 ثم بعد فترة نزلت اقراص 5.25 ثم 3.5 ما اشرت اليه كانت بدايتي مع انظمة ميكروسوفت واجهزة البي سي الشخصية ولدي قبلها تجربة مع اجهزة Mainframe وكذلك نظام UNIX وهو الاساس للانظمة الحديثة من اصدارات Linux ومشتقاته صحيح كلامك وكان اكبر هدية للمستخدم العربي قبل الويندوز برنامج اسمه النافذة كان يسمح باستخدام اللغة العربية في قواعد داتابيس 1 و 2 و كذلك في برنامج لوتس 123 وهو برنامج جداول ممتدة شعبيتة على الدوس مثل شعبية اكسل و برنامج libre calc من LibreOffice في الوقت الحالي الان التقنية تطورت بشكل كبير ومثل ما اختفت الاقراص المرنة سوف تختفي اقراص hd خصوصا ان اسعار ssd و m.2 اصبحت في متناول العديد من المستخدمين اول هارد ركبتة كان حجمة 20 ميجابايت وكان ثورة مقابل اقراص 3.5 بحجم 720 كيلوبايت وبحد اقصى 1.44 ميجا بايت للاقراص عالية الكثافة و2.88 ميجا قبل انتهاء زمنها 2.88 يتعطل اكثر مما يعمل

الاخوة الاساتذة الافاضل كل عام وحضراتكم بكل خير احببت مشاركتكم هذه المجموعة الجميلة من الازرار التى تستخدم بالفورم وهى تجميع من مشاركات الاساتذة بالمنتدى احترامى اخيكم New_Microsoft_Excel_Worksheet.xlsx المجموعة2 ازرار.xls

تفضل انتبه اخي قلت من a1 وو في الجدول الفعلي في ورقتك a9 لذلك هذا الكود يقوم بالاززاحة الى الاعلى ابتداءا من الخلية a1 و لا يحذف الصف كاملا اذا اردتت البدء من a9 غير في الكود Private Sub CommandButton2_Click() On Error Resume Next With Range("a1:d32") .SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp End With End Sub تواتي 15.xlsm

تفضل Private Sub CommandButton2_Click() On Error Resume Next With Range("b9:b10000") .SpecialCells(xlCellTypeBlanks).EntireRow.Delete End With End Sub تواتي 15.xlsm

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

لا داعي لاي شيء فقط قم باخفاء الأعمدة التي لا تريدها مستعملاً هذا الماكرو Sub Hide_columns() Dim k% Sheets("Infos").Columns.Hidden = False Dim arr() arr = Array(3, 4, 5, 6, 7, 8, 9, 10) For k = LBound(arr) To UBound(arr) Sheets("Infos").Columns(arr(k)).Hidden = True Next End Sub في الصورة المرفقة حدد أرقام الأعمدة التي تريد اخفا ئها من خلال Array (تسلسل الأرقام داخل Array غير ضروري) Information_Advanced_Ar_date_1.xlsm

وعليكم السلام-يمكنك فقط استخدام هذه المعادلة =IFERROR(VLOOKUP(G3,$A$3:$C$200,3),"") قائمة تسديد 1TEST.xlsx

مشاركة مع الاخوة الاحبة ..... عسى أن يكون الكود قصيرا .... تفضل Aziz (2).rar

طبعا تضيف criteria معايير وشروط التنفيذ : =DCount("num_m7_tsd";"cargoo";" [startdate] = forms!copy_ff!startdate AND [time] > [Forms]![copy_ff]![time1] AND [time] < [Forms]![copy_ff]![time2]") dcount_where_date_time.accdb

برنامج الموارد البشرية HR "مفتوح المصدر" يحتوى على التالي : -بيانات الموظف . -الإجازات . - الأذنونات . - تسجيل الحضور يدوياً . - الخصومات . - السلف . - المكافأت . - تقيييم الموظف . - ساعات إضافية . - تقارير. - متابعة الحضور والانصراف . - تسجل الحضور والانصراف بشكل آلي . - تسجل الحضور بشكل يدوي . وخيارات أخرى . وهذا البرامج من تطويري وجدت جداوله في موقع خارجي . لا تنسونا من خالص الدعاء ،،، HR.rar

غير في هذا السطر For i = 1 To Sheets.Count حييث 1 يمثل الورقة 1 مثلا For i = 2 To 5 اي من الورقة 2 الى الورقة 5 غير حسب ما تريد

شكرااااا لك ☘️

جرب هذا بعد التعديل تواتي 15) fini (1).xlsm

هل تقصد هذا الموضوع اخى محمد @حلبي

أخي التواتي . كان يجب التوضيح من الاول بأن هناك معادلات مع طلبك .ليتم اجابتك بسرعة .لعدم ضياع الوقت تفضل حبيبي الملف النهائي الازاحة الى الاعلى و ازاحة الخلايا التي تحنوي على المعادلات معها تواتي 15) fini.xlsm

اخى قد يفيدك هذا الموضوع احترامى

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

يالتوفيق أخي عدنان ولا تنس الضغط على أفضل إجابة .

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

تفضل الملف بدون ضغط يا أخ حلبي Aziz.accdb

اخى @ازهر عبد العزيز هل هذا ما تريد ع مثال اخى واستاذى @ابو تراب جزاه الله خيرا عندك النموذج الاساسى وعدلت تاريخين ليوم 20/5 جرب عليه وعندك النموذج الاخر frmcompare لاظهار جميع السجلات ثم التصفيه بناء على التاريخ بالتوفيق اخى New Microsoft Access Database (5) - Copy(2).accdb

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

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

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

وعليكم السلام -اجعل المعادلة هكذا =IFERROR(E12-E13,"") معادلة1.xlsx

تم معالجة الأمر الشيت "شيت تبيض الدور الأول" يمكن اخفائها اذا اردت أم يمكن حذفها نهائياً لكن Sheet1 لا يمكن الاستغناء عنها لأنها تحتفظ بالديباجة اذا زاد او نقص عدد الطلاب يمكن ازالة الديباجات بواسطة الماكرو المخصص لهذه الغاية (الزر Del Dibaja ) تم التعديل على البيانات (دون صفوف فارغة) و من ثم تقسيم الديباجات على الصفحة حسب الرقم الذي تريده من الــ Input Box الكود الجديد Sub salim_rows() Dim t%, lr%, x%, z%, a% Dim my_rg As Range, k% Dim In_box, ro% If ActiveSheet.Name <> "Salim" Then GoTo End_Me Application.ScreenUpdating = False del_Empty_rows In_box = Application.InputBox("How Many Rows", , 20) a = In_box - 1 'number of rows for every group z = 3 'number of rows to be insert every time x = 7 'first row to begine If a <= 0 Then Exit Sub t = x + a + 1 If z > 5 Then z = 5 lr = Cells(Rows.Count, 2).End(3).Row On Error Resume Next On Error GoTo 0 Do Until Cells(t, "B") = "" Rows(t).Resize(z).Insert Sheets("sheet1").Range("My_DEB").Copy _ Cells(t, 1) t = t + a + z + 1 Loop ro = ActiveSheet.Cells(Rows.Count, 2).End(3).Row Rows(ro + 1).Resize(z).Insert Sheets("sheet1").Range("My_DEB").Copy _ Cells(ro + 1, 1) End_Me: Application.ScreenUpdating = True End Sub '++++++++++++++++++++++++++++ Sub del_Empty_rows() On Error Resume Next Dim lr%: lr = Cells(Rows.Count, 2).End(3).Row Range("B" & lr + 1).Resize(20).EntireRow.Delete Range("Ba7:Ba" & lr).SpecialCells(4).EntireRow.Delete On Error GoTo 0 End Sub الملف من جديد Najehoun.xlsm_2.xlsm

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

حرب هذا الكود ( DIBAJA هي النطاق الذي يحتوي على الديباجة من B1 الى AZ4 ) كان الأفضل عدم ادراج علة العلل بالنسبة للأكواد والمعادلات وهي الخلايا المدمجة صفحة salim من هذا الملف Sub salim_rows() Dim t%, lr%, x%, z%, a% Dim my_rg As Range, k% Dim In_box If ActiveSheet.Name <> "Salim" Then GoTo End_Me Application.ScreenUpdating = False del_Empty_rows In_box = Application.InputBox("How Many Rows", , 20) a = In_box - 1 'number of rows for every group z = 3 'number of rows to be insert every time x = 7 'first row to begine If a <= 0 Then Exit Sub t = x + a + 1 If z > 5 Then z = 5 lr = Cells(Rows.Count, 2).End(3).Row On Error Resume Next Set my_rg = Range("B" & x & ":B" & lr).SpecialCells(4) my_rg.EntireRow.Delete On Error GoTo 0 Do Until Cells(t, "B") = "" Rows(t).Resize(z).Insert Range("DIBAJA").Copy _ Cells(t, 1) t = t + a + z + 1 Loop End_Me: Application.ScreenUpdating = True End Sub '++++++++++++++++++++++++++++ Sub del_Empty_rows() On Error Resume Next Dim lr%: lr = Cells(Rows.Count, 2).End(3).Row Range("Ba7:Ba" & lr).SpecialCells(4).EntireRow.Delete On Error GoTo 0 End Sub الملف مرفق Najehoun.xlsm

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

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

=DCount("empol";"zahrah";" [startdate] Between [forms]![copy_ff]![startdate] AND [forms]![copy_ff]![enddate] And [zy] = true") وهذا نفس كود الفترة لكن بزيادة شرط جديد : And [zy] = true

نعم نعم أعتذر خطأ غير مقصود لأن القسمة كانت تتم على العدد المفترض للمقررات + 1 وهذا غير صحيح وتم التعديل بإزالة +1 Dynamic Array and form controls update.accdb

شكراً وبارك الله بمجهودك

وبارك فيكم جرب الكود : =DCount("num_m7_tsd";"cargoo";" [startdate] Between [forms]![copy_ff]![startdate] AND [forms]![copy_ff]![enddate]")

جزاك الله كل خير استاذى الكريم

ممتاز اخي الرائد حتى ولو كان عندي ملاحظة بسيطة من شأنها التسريع (للبيانات الكثيرة) 1 - الدالّة IFERROR في المعادلات الأفضل عدم استعمالها الا للضروروة لأنها تلزم الاكسل على حساب المعادلة واذا وجد خطأ يدرج فراغاً (مما يضيع الوقت سدى / جزء من الف من الثانية بالنسبة للحاسوب شيء كبير جداً / ) هذا بالإضافة الى ارهاق البرنامج بأشياء لا لزوم لها 2- الأفضل استعمال CountA لانه عندما رقم الصف يتجاوز الرقم المطلوب من خلال CountA يقوم اكسل بإدراج الفراغ ولا يفكر حتى بحساب نتيجة المعادلة 3- المعادلة المفترحة من عندي =IF(ROWS(B$4:B4)>COUNTA(A$4:A$1000),"",INDEX(A$4:A$1000,SMALL(IF(A$4:A$1000<>"",ROW(A$4:A$1000)-ROW(A$4)+1),ROWS(B$4:B4))))

رأس الصفحة Page Header يمكنك اخفاؤه برمجيا واظهاره في أي صفحة تريدها بكتابة الكود داخل التقرير من حدث تنسيق Format الكود التالي يخفي رأس الصفحة في جميع الصفحات : Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) PageHeaderSection.Visible = False End Sub ولإظهار رأس الصفحة في الصفحة الأولى فقط دون الباقي : Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) If Me.Page > 1 Then PageHeaderSection.Visible = false Else PageHeaderSection.Visible = true End If End Sub وممكن تختار رقم صفحة معينة

وعليكم السلام-جرب الملف هكذا Amr2.xlsx

عادي مفيش مشكلة بس التجميع هيكون : بدلاً من السيد/ أحمد ، العقيد/ وليد ، والوزير/ سيد ستجد : 4/ أحمد ، 14/وليد ، 22/ سيد لأن الجدول المشار إليه فيه أكواد الرتب أو اللقب وليس أسمائها ولحل مؤقت للمشكلة يجب تعديل الدالة وعمل ربط مع جدول آخر به كود اللقب واسم اللقب ، كما بالمرفق NewDB3.accdb

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

أولا أشكرك استاذي الغالي @jjafferr بارك الله فيك على سرعة الاستجابة ...... رحم الله والديك

هذه الاسطر من الكود يمكن ازالتها لانها تثقل البرنامج بدون منفعة(كانت للكود القديم) Dim Ar(4), Ar_Fasl(1 To 9) Dim t: t = Sheets(my_SHEET).Index Dim Start_row_B%: Dim Start_row_H% For i = 4 To 12 Ar_Fasl(i - 3) = CStr(But_Sheet.Cells(5, i)) Next Erase Ar: Erase Ar_Fasl

نطاق الفاتر مؤلف من 10 اعمدة من A الى J لذلك لا يوجد عامود رقم 22

تطوير بسيط على الكود ليكون بشكل أسرع بكثير معتمداً على الفلتر وليس الحلقات التكرارية المملة والمرهقة للبرنامج و اضافة الى ذلك ترقيم تلقائي للطلاب Option Explicit Sub get_Eleves_Names(ByVal my_SHEET As String) Rem ====>>>> Created By Salim Hasbaya On 27/6/2019 Application.ScreenUpdating = False '================================ Dim SH As Worksheet Dim ss% For Each SH In Sheets If SH.Name Like "*#*" Then ss = ss + 1 End If Next Set SH = Nothing '============================ Dim m As Worksheet: Set m = Sheets("Main") Dim But_Sheet As Worksheet: Set But_Sheet = Sheets(my_SHEET) But_Sheet.Range("K1") = ss: ss = 0 Dim Ar(4), Ar_Fasl(1 To 9) Dim t: t = Sheets(my_SHEET).Index Dim Start_row_B%: Dim Start_row_H% Dim mal$: mal = "ذكر" Dim fem$: fem = "انثى" Dim i% But_Sheet.Range("B10").Resize(500, 5).ClearContents But_Sheet.Range("H10").Resize(500, 5).ClearContents '======================================= Dim Filtred_rg As Range: Set Filtred_rg = m.Range("a1").CurrentRegion Dim FinaL_row%: FinaL_row = Filtred_rg.Rows.Count For i = 4 To 12 Ar_Fasl(i - 3) = CStr(But_Sheet.Cells(5, i)) Next With Filtred_rg .AutoFilter 2, mal .Columns(8).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(12).Copy But_Sheet.Range("B10") .Columns(7).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(12).Copy But_Sheet.Range("d10") .Columns(1).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(12).Copy But_Sheet.Range("e10") .Columns(3).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(12).Copy But_Sheet.Range("f10") End With '======================================= With Filtred_rg .AutoFilter 2, fem .Columns(8).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(12).Copy But_Sheet.Range("h10") .Columns(7).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(12).Copy But_Sheet.Range("j10") .Columns(1).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(12).Copy But_Sheet.Range("k10") .Columns(3).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(xlCellTypeVisible).Copy But_Sheet.Range("L10") End With Start_row_B = But_Sheet.Cells(Rows.Count, "B").End(3).Row Start_row_H = But_Sheet.Cells(Rows.Count, "H").End(3).Row But_Sheet.Range("c10").Resize(Start_row_B - 9) = _ Application.Transpose(Ar_Fasl(t - 1)) But_Sheet.Range("i10").Resize(Start_row_H - 9) = _ Application.Transpose(Ar_Fasl(t - 1)) But_Sheet.Columns("A:L").AutoFit '================================ If Sheets("Main").FilterMode Then _ Sheets("Main").ShowAllData: Filtred_rg.AutoFilter Set m = Nothing: Set But_Sheet = Nothing Erase Ar: Erase Ar_Fasl Application.ScreenUpdating = True End Sub '================================================== Sub EXTACCT_NAME() Dim Impt Dim x% Impt = InputBox("Please Give_me the sheet's name to transfer data" & _ Chr(10) & "Write the sheet's name Without Cotes") If UCase(Impt) = "MAIN" Then MsgBox "I can't Change the values of Principal Sheet" Exit Sub End If On Error Resume Next x = Len(Sheets(Impt).Name) If x = 0 Then On Error GoTo 0 MsgBox "The Sheet: " & Impt & " Not Existes" Exit Sub End If Call get_Eleves_Names(Impt) End Sub الملف من جديد Mes_Eleves_Super.xlsm

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

اتفضل هذا حسب طلبك Dim dbOther As DAO.Database Dim rs1 As DAO.Recordset Dim dbCurrent As DAO.Database Dim rs2 As DAO.Recordset Dim intI As Integer On Error GoTo ErrorHandler If IsNull(Me.txtImportFile) Then MsgBox "عذرا اخي الكريم ... لم تقم بإختيار قاعدة البيانات الخارجية", vbInformation, "تبيه" DoCmd.CancelEvent Me.txtImportFile.SetFocus Else Set dbOther = OpenDatabase(txtImportFile) Set rs1 = dbOther.OpenRecordset("Table", dbOpenDynaset) Set dbCurrent = CurrentDb Set rs2 = dbCurrent.OpenRecordset("Table", dbOpenDynaset) If rs1.EOF Then Exit Sub intI = 1 rs1.MoveFirst Do While Not rs1.EOF With rs2 .AddNew !Name = rs1![Name] !Id = rs1![Id] !tel = rs1![tel] !country = rs1![country] .Update rs1.MoveNext intI = intI + 1 End With Loop MsgBox (" تم نقل " & intI - 1 & " سجل "), vbInformation, "تبيه" MsgBox "تم تحديث بيانات جداول القاعدة الخارجية بنجاح", vbInformation, "تبيه" End If rs1.Close Set dbOther = Nothing rs2.Close Set dbCurrent = Nothing Exit Sub ErrorHandler: ' MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description

السلام عليكم اضطررت عمل جدول مؤقت للموضوع ، وهناك طريقتين وضعتهم لك: 1. جدول مؤقت tbl_Balance في قاعدة البيانات ، بحيث يتم حذف البيانات القديمة منه ، ثم ادخال البيانات الجديدة اليه ، ونستخدم الاستعلام qry_Balance للتقرير ، وانا شخصيا لا احبذ وجود جدول مؤقت داخل قاعدة البيانات ، لأنه يجعل حجم البرنامج يكبر ، الى ان بين كل فترة واخرى تضغط على زر الاصلاح Compact and Repair ، 2. جدول مؤقت خارج البرنامج (في مجلد Temp الوندوز) ، وكل ماله علاقة بهذه الطريقة يحمل رقم2 ، والتقرير2 يأخذ مصدره من هذا الجدول المؤقت ، ولا يستخدم الاستعلام qry_Balance. جعفر 597.2.Test2.accdb.zip

السلام عليكم هذا الكود ما نفعش معاك Sub Mail_workbook_1() 'Working in 97-2007 Dim wb As Workbook Set wb = ActiveWorkbook If Val(Application.Version) >= 12 Then If wb.FileFormat = 51 And wb.HasVBProject = True Then MsgBox "There is VBA code in this xlsx file, there will be no VBA code in the file you send." & vbNewLine & _ "Save the file first as xlsm and then try the macro again.", vbInformation Exit Sub End If End If On Error Resume Next wb.SendMail "", _ "This is the Subject line" On Error GoTo 0 End Sub وهو منقول من ملف عندي خاص بارسال ايميل فيه نفس الكود الذي تريد تعديله المرفق 2003 SendMail(Attachment)Testers.rar

أعزائي تم وضع ملف إرسال ملف الاكسل بالايميل عن طريق الاكسل بالمرفقات برجاء الاطلاع و الاستفادة شكرا SendMail_Attachment_Testers.rar