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

السلام عليكم ورحمة الله تعالى وبركاته اعرف مسبقا ان الموضوع فتح من قبل واكثر من مره وبعد البحث لم اجد موضوع متكامل فى هذا الشأن اعرف ان الكمال لله وحده سبحانه وتعالى ولكن فكرت بطريقة مختلفه فى طرح الموضوع بفكرة ورشة عمل ليكون شاملا وليجتمع فيه معظم الافكار لنخرج بمشروع متكامل باشتراك كل كل الاخوة الذين برغبون فى الاشتراك وكذلك تحت اشراف اساتذتنا الكرام بارك الله فيهم فيكون علم ينتفع به وصدقة جاريه فلنجدد النوايا ونبدا على بركة الله وضعت بذور البداية ووصلت لمرحلة لابأس بها ولكن احب ان اابدا بالقاعدة من البداية من تحت الصفر حتى نضع الاساس سويا يد بيد اولا نضع تصور وخطوط عريضه لالية سير منظومة حتى نستطيع وضع الاسس لقاعدة البيانات - الحضور من الساعه 7 صباحا - الانصراف فى الساعة 3 عصرا - السهر " ساعات العمل الاضافية " من الساعة 4 الى الساعة 6 - ايام العمل من الأحد الى الخميس - العطلات الاسبوعية يومى الجمعة والسبت - قد يكون هناك استدعاء للعمل ايام العطل الاسبوعية فيحتسب اجر اضافى - هناك بعض الافراد حسب موقع عملهم بصرف لهم علبة حليب - لكل عامل فى وقت السهر وجبه أو بدل وجبه لكل عامل حرية الاختيار - التأمين الطبى إما تابع للمؤسسة أو تأمين خارجى للعامل حرية اختيار احداهما - الاجازات حسب الدرجه وحسب سنين الخدمه

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

السلام عليكم إخوتي وأبنائي الأحبة: رائع ما قدمتموه ...إذاًصار يمكننا استخراج الصور من ملف الإكسيل بكل يسر وسهولة يسّر الله عليكم جزاكم الله خيراً ...والسلام عليكم.

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

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

أخي الحبيب صلاح أنا بقالي يومين بحاول أشوف الموضوع فين .. يظهر العفاريت عملوها فينا وأخفوا الموضوع عموماً كنت قد طلبت الطريقة ووجب علي أن أقدمها لك خصوصاً بعد انتظار أسبوع الموضوع والحل الذي لدي في قمة البساطة والسهولة .. وأنا خايف تشتم بعد ما تعرف الطريقة (فعايز وعد منك من غير شتيمة) الحل بدون أكواد على الإطلاق المصنف اللي فيه الصور المراد استخراجها غير امتداده من xlsm إلى zip .. وروح اعمل كليك يمين عليه واعمل Extract أي استخراج للملفات .. هيطلع لك من ضمن المستخرج مجلد اسمه Media ودا جواه الصور بنفس التنسيق ونفس الحجم تماماً وسلم لي على التروماي .. ومش عاااااااااااااايز شتيمة تقبل وافر تقديري واحترامي

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

السلام عليكم ورحمة الله تعالى وبركاته أحبائي وأساتذتي الأفاضل أقدم لك هذه التجميعية البسيطه ليستفيد بها المبتدئ والمحترف تجمعية تحت عنوان تغذية القائمة المنسدلة خاصة بالفورم (ComboBox) بمدى ديناميكي أولا: نقوم بإنشاء فورم وندرج به قائمة منسدلة (ComboBox1) ثانيا : نفتح محرر الاكواد View Code) ثالثا: من نافذه المحرر نختر حدث بداية التشغيل الفورم UserForm_Initialize Private Sub UserForm_Initialize() End Sub نقوم بوضع المتغير التالي الخاص بتحديد ورقة العمل وهم أمر مهم جدا Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select End Sub نأتي الأن إلى الأكواد الخاصة بتغذية القائمة المنسدلة ملاحظه جميع الأكواد الخاصة بالتغذية أنا إخترت العمود الأول وبداية التغذية من الخلية A2 ولكم حرية التغيير الكود رقم 1 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Range("A2", Range("A" & Rows.Count).End(xlUp)).Name = "Dynamic" Me.ComboBox1.RowSource = "Dynamic" End Sub الكود رقم 2 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.RowSource = Range("B2", Range("B65536").End(xlUp)).Address End Sub الكود رقم 3 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.RowSource = ("A2:A") & ws.Cells(Rows.Count, "A").End(xlUp).Row End Sub الكود رقم 4 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.List = Range("A2:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value End Sub الكود رقم 5 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim FR As Integer, LR As Integer With ws LR = .Range("A2").End(xlDown).Row For FR = 2 To LR Me.ComboBox1.AddItem .Range("A" & FR) Next FR End With End Sub الكود رقم 6 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim R As Integer With ws For R = 2 To .Range("A" & .Rows.Count).End(xlUp).Row If .Range("A" & R) <> "" Then Me.ComboBox1.AddItem .Range("A" & R) End If Next R End With End Sub الكود رقم 7 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim LR As Long LR = ws.Cells(Rows.Count, "A").End(xlUp).Row myList = ws.Range("A2:" & "A" & LR) Me.ComboBox1.List = myList End Sub الكود رقم 8 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim LR As Long LR = ws.Range("A" & Rows.Count).End(xlUp).Row Set myList = ws.Range("A2:A" & LR) Me.ComboBox1.List = myList.Value End Sub الكود رقم 9 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim LR As Long With ComboBox1 LR = ws.Cells(Rows.Count, 1).End(xlUp).Row .List = ws.Range(ws.Cells(2, 1), ws.Cells(LR, 1)).Value End With End Sub الكود رقم 10 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim myList As Range For Each myList In ws.Range("A2").SpecialCells(xlConstants) With Me.ComboBox1 .AddItem myList.Value .List(.ListCount - 1, 1) = myList.Offset(0, 1).Value End With Next End Sub الكود رقم 11 Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim i As Integer, iMin As Integer, iMax As Integer iMin = 2: iMax = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row For i = iMin To iMax ComboBox1.List = Range(Cells(iMin, 1), Cells(iMax, 1)).Value Next i End Sub الكود رقم 12 من إدارة الأسماء نختر جديد الإسم انت حر فيما تختار أنا إخترت MyRange في خانة يشير إلى نقوم بوضع هذه المعادلة =OFFSET(Sheet1!$A$2;;;COUNTA(Sheet1!$A$2:$A$10000);1) في الفورم نقوم بوضع الكود التالي Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Me.ComboBox1.RowSource = "Myrange" End Sub الكود رقم 13 كود تغذية القائمة المنسدلة بدون فراغات Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim cell As Range With ws For Each cell In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row) If Not IsEmpty(cell) Then ComboBox1.AddItem cell.Value Next cell End With End Sub الكود رقم 14 كود تغذية القائمة المنسدلة بدون فراغات وبدون تكرار Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim I As Integer Dim Valeurs As Variant Dim sDic As Object Set sDic = CreateObject("Scripting.Dictionary") With ws Valeurs = .Range("A2:A100").Value For I = LBound(Valeurs) To UBound(Valeurs) If Not IsEmpty(Valeurs(I, 1)) Then sDic(Valeurs(I, 1)) = "" Next I End With If IsArray(Valeurs) Then Me.ComboBox1.List = sDic.keys End Sub وفي الأخير أتمنى هذه التجمعية المتواضعة أن تفيدكم أعرف أن أستاذي القدير حيزعل مني لأني لم أقم بوضع هذه الاكواد في تجمعية مكتبه المنتدى ووضعها في موضوع منفصل حتى يكون هذا الموضوع مرجعا لكل من يريد التعلم بأبسط الطرق أستاذي القدير وحقك عليا تقبلو تحياتي لا تنسونا بخالص دعائكم

بالنسبة لطلبك الاول تفضل Private Sub UserForm_Initialize() Dim ws As Object Set ws = ThisWorkbook.Sheets(1) ws.Select Dim I As Integer Dim Valeurs1, Valeurs2, Valeurs3 As Variant Dim sDic1, sDic2, sDic3 As Object Set sDic1 = CreateObject("Scripting.Dictionary") Set sDic2 = CreateObject("Scripting.Dictionary") Set sDic3 = CreateObject("Scripting.Dictionary") '=============================خاص بالكمبوبوكس3=============================== With ws Valeurs1 = .Range("A2:A1000").Value For I = LBound(Valeurs1) To UBound(Valeurs1) If Not IsEmpty(Valeurs1(I, 1)) Then sDic1(Valeurs1(I, 1)) = "" Next I End With If IsArray(Valeurs1) Then Me.ComboBox1.List = sDic1.keys '=============================خاص بالكمبوبوكس2=============================== With ws Valeurs2 = .Range("B2:B1000").Value For I = LBound(Valeurs2) To UBound(Valeurs2) If Not IsEmpty(Valeurs2(I, 1)) Then sDic2(Valeurs2(I, 1)) = "" Next I End With If IsArray(Valeurs2) Then Me.ComboBox2.List = sDic2.keys '=============================خاص بالكمبوبوكس3=============================== With ws Valeurs3 = .Range("C2:C1000").Value For I = LBound(Valeurs3) To UBound(Valeurs3) If Not IsEmpty(Valeurs3(I, 1)) Then sDic3(Valeurs3(I, 1)) = "" Next I End With If IsArray(Valeurs3) Then Me.ComboBox3.List = sDic3.keys End Sub

السلام عليكم ورحمة الله وبركاته وجدت هذه الدالة اثناء تجولي وحبيت ان اضع عليها مثال هنا لمن قد يبحث عنها الدالة هي FILELEN وهذا ببساطة شكل الدالة FileLen( file_path ) الدالة تحضر حجم الملف بالبايت .. وبإمكاننا التحويل الى ما نريد بعد ذلك هنا طرق التحويل المعروفة للجيمع . 1 Byte = 8 Bit 1 Kilobyte = 1,024 Bytes 1 Megabyte = 1,048,576 Bytes 1 Gigabyte = 1,073,741,824 Bytes 1 Terabyte = 1,099,511,627,776 Bytes في المرفق انا حولت الى كيلوبايت .. اترككم مع المثال .. فك الضغط على الدرايف D للتجربة وبعدها بإمكانك النقل الى اي مكان كل ما عليك هو معرفة المسار والإمتداد بالتوفيق للجميع fileSizeDemo.rar

لسّلام عليكم و رحمة الله و بركاته أخي الكريم " ياسر يا عربي " .. وخي " عبد العزيز البسكري "جزاكم الله خيرا دام الله عليكم الصحة والعافية وحفظكم الله ورعاكم وجعلكم من الناجون من هول يوم القيامة بارك الله فيكم

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

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

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

بعد اذن اخي الغالي عبد العزيز تفضل اخي الغالي هذا التحديد يشير الى رقم الاداة في الانتقال وفي المثال هنا التكست المشار لها رقمها 1 والليست بوكس رقمها 2 عند الوقوف داخل التكست والضغط على زر TAB يتم الانتقال لرقم 2 وهي الليست للأنتقال من التيكست بوكس ل الليست بوكس مباشرة.rar

بالنسبة لكود جلب الصورة اليك الكود التالي Private Sub CommandButton2_Click() Dim strFileName As String strFileName = Application.GetOpenFilename(filefilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select a File", MultiSelect:=False) If strFileName = "False" Then MsgBox "File Not Selected!" Else Me.Image1.Picture = LoadPicture(strFileName) End If End Sub

السلام عليكم انا على سفر ، وبعيد عن الكمبيوتر ، لهذا السبب انا بعيدا عن المنتدى عندي ملاحظة واحدة فقط ، وبحسب خبرتي في هذا الموضوع: الكمبيوتر يعطي أولوية تنفيذ أوامر CPU إلى برامج الوندوز ، ثم البرامج الاخرى ، مما قد يُؤخر تنفيذ أوامر برنامج الاكسس ثانية او اثنين ، إذًا ، عند تنفيذ الأمر التالي او أمر مثله: If rs!mish_time = Time() Then قد يكون CPU الكمبيوتر مشغولا ، وعند تنفيذ الامر ، الوقت لن يكون مطابقاً ، لأننا نقارن الوقت بالثواني ، وحينها ، فالمعادلة لن تُنفّذ !! لذلك ، ولتفادي هذه المشكلة ، اجعل مقارنة الوقت: إما بالساعة والدقيقة وبدون ثواني ، وإما اجعل المقارنة ">=" بدل "=" ، او شئ من هذا القبيل ، وإلا ، فقد يفوتك موعد ولن تعرف لماذا جعفر

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

أخى الفاضل ابو البراء وهل أحد يشتم مثله الأعلى , بل أدعو لك بكل خير " حفظك الله ورضى عنك وأرضاك وزادك علماً نافعا " الفكره جميله ومبتكره , واثراء للموضوع الفكره لم تجدى نفعا مع ملف الاكسل المحتوى على ماكرو فلابد من حفظ الملف اولا بصيغة اكسل العاديه ثم تغيير الامتداد ZIP أو RAR ثم فك الضغط

السلام عليكم الكوود التالي يلغي الطباعة من كل اوراق الملف Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True End Sub و يوضع في thisworkbook و الغاء الطباعة من ورقة محددة Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = ("Sheet1") Then Cancel = True End Sub

حياك الله اخ مصطفى جوابك يفيد بأنك لم تقراء اي شئ عن الباركود .... تابع هذه الفيديوهات عل بها فائدة https://www.youtube.com/watch?v=qaxMC_D7gYE بالتوفيق

السلام عليكم و رحمة الله وبركاته بسم الله الرحمن الرحيم و الصلاة و السلام على سيدنا محمد وآله وصحبه اجمعين هذ الموضوع هو الحاقا للموضوع السابق برنامج السكرتير الخاص الإصدار الأول / أحمد زمان http://www.officena.net/ib/index.php?showtopic=42018#entry239414 حيث مرة عدة سنوات عليه مما احتاج خلالها الى بعض الإضافات و بعض التحسينات مرفق ملف شرح اتمنى ان يكون به افائدة للجميع ‏السبت‏، 19‏/3‏/2016م الموافق ‏10‏/6‏/1437هـ خصائص عامة بالملف: - حفظ الملف تلقائيا عند الإستخدام كل 10 عشرة دقائق - إخفاء ورقة الأرقام السرية - بعد الدخول إليها بـ 12 دقيقة - إمكانية استخدام التاريخين الهجري و الميلادي - المحافظة على صغر حجم الملف: حيث يتم زيادة 9 صفوف عند الدخول إلى أي ورقة تلقائيا 1- المواعيد يتم تسجيل كل المواعيد المهمة حسب التاريخ وتقبل خانه التاريخ أي تاريخ هجري أو ميلادي يتم ترتيب البيانات حسب التاريخ عن الدخول مره أخرى إلى الورقة أو بالضغط على زر المواعيد المواعيد المنتهية و المنجزه يتم التسجيل أمامها (منتهى) ولن تظهر أمامك إلا من خلال البحث يمكنك البحث عن اي معلومة في المواعيد من خلال الخلية الصفراء الموجودة في أعلى الورقة 2- دليل الهاتف * هو دليل يشمل عدة خانات من جوال وفاكس وهاتف و ايميل * يمكنك البحث في دليل الهاتف من الخلية الصفراء أعلى الصفحة * يمكنك البحث عن اي جزء من أي معلومة جزء من الاسم أو الرقم , مع تلوين النتائج بلون مميز 3- التقويم والتاريخ نظرا لما عانيته في استخراج التاريخ من الهجري إلى الميلادي ومن الميلادي إلى الهجري تم عمل هذه الورقة بحيث يتم إدخال التاريخ (هجري أو ميلادي) في ألخانه الصفراء أعلى الصفحة - ثم - تظهر لك النتائج للتواريخ متسلسلة لمدة 45 يوما قبل التاريخ المدخل ب 8 أيام مع تفاصيل تسجيل اسم الشهر الهجري واسم الشهر الميلادي واسم اليوم بالعربي والانجليزي ويوجد على يسار الورقة قائمه بأسماء الأشهر هجري و ميلادى مرتبه بالتسلسل 4- تجميع هي ورقه عاديه لتجميع الأرقام في الخانات 5- كلمه سر بسبب كثرة اسم المستخدم وكلمات المرور التي نستخدمها يوميا حيث كل موقع حكومي له اسم مستخدم وكلمة مرور وكل موقع بنك له كذالك وغير ذلك كثير, لذلك تم إنشاء هذه الورقة: * يتم الدخول إلى الورقة بكلمه سر وهى (22) * يتم وضع وصف للموقع وكلمه السر وكلمه المرور * يتم إخفاء هذه الورقة بعد 10 دقائق من استخدامها لسرية المعلومات التي بها * يتم البحث من الخلية الصفراء أعلى الورقة وتظهر لك النتائج المحددة في خانة البحث فقط مع تمييزها بلون مميز 6-وصول سريع بسبب كثرة الملفات التي نحتاجها باستمرار ولتسهيل الوصول إلى هذه الملفات وحيث أنني وجدت البحث في ويندوز الجديد صعب علي إنا. بالدخول إلى وصول سريع يتم ترتيب البيانات بالتسلسل الأبجدي تضع اسم مختصر للملف وشرح لعمل الملف ثم تضغط على زر (اضافه رابطlink) الموجود أعلى يسار الصفحة, من مربع الحوار تختار الملف المطلوب يتم وضع رابط للملف في خانة الموقع والوصول (ارتباط شعبي). البحث :- في قائمة البحث أعلى الصفحة تكتب أي أحرف من اسم الملف أو المجلد تظهر لك النتائج المطلوبة وبالضغط على موقع الوصول يتم فتح الملف المطلوب. السكرتيرالخاص1437.rar

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

بالتوفيق يبو محمد ازعجناك بالسؤال هذا ... هههههه بالتوفيق

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

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

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

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

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

ذكرتني بمثال عندي يحسب حجم البيانات داخل قاعدة البيانات حجم البيانات في البرنامج.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. ومع كل جديد ومفيد ، أقدم لكم اليوم كود في منتهى الروعة ، يقوم الكود بإنشاء مصنف منفصل لكل ورقة عمل في نفس مسار الملف .. في الملف المرفق ، تم وضع المصنف المسمى Split Workbook في مجلد .. المصنف يحتوي على 4 أوراق عمل ( الأول Main - الثاني Data - الثالث Search - الرابع Result) في ورقة العمل المسماة Main يوجد زر أمر ، بالنقر عليه يتم عمل الكود ، ويبدأ في نسخ كل ورقة عمل ويسميها باسمها كمصنف جديد في نفس مسار المصنف الحالي ، ثم يقوم الكود بإغلاقه .. أسطر الكود مشروحة داخل الكود .. Sub SplitWorkbook() 'تعريف المتغير من النوع النصي Dim xPath As String 'تعريف المتغير من النوع ورقة عمل Dim SH As Worksheet 'تعيين المتغير لتساوي قيمته مسار المصنف الحالي xPath = Application.ActiveWorkbook.Path 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إلغاء خاصية رسائل التنبيه Application.DisplayAlerts = False 'حلقة تكرارية لكل أوراق العمل بالمصنف For Each SH In ThisWorkbook.Sheets 'نسخ ورقة العمل SH.Copy 'حفظ ورقة العمل بنفس الاسم ونفس المسار Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & SH.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'إغلاق المصنف الجديد والذي أصبح هو المصنف النشط Application.ActiveWorkbook.Close False 'الانتقال لورقة العمل التالية Next 'تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub * ملحوظة : يجب ألا تكون هناك ورقة عمل بنفس اسم المصنف Split Workbook ، حتى لا يحدث مشكلة أثناء تنفيذ الكود أو لتجنب هذه المشكلة يمكن إضافة هذا السطر On Error Resume Next أرجو أن ينال الملف رضاكم ، وتستفيدوا منه في المقام الأول ... دمتم في رعاية الله وطاعته .. وهذا رابط لقناتي على اليوتيوب (في انتظار آرائكم حول القناة كبداية لمرحلة جديدة ..) My Channel أخوكم أبو البراء من منتدى أوفيسنا حمل الملف من هنا

جزاكم الله خيرا و بارك الله فيكم جميعا و رزقنا و اياكم العلم و الفهم

اخواني بالفعل موجود الشرح داخل سلسة دروس الفيجوال http://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي/ اذا انتهيتوا من هذا الشرح باذن الله نقدم جديد

وبردو دي سهلة جداً وفيه بدل الطرق أكثر من طريقة هات لي أجدعها ملف محمي بباسورد وأنا أفك لك حمايته !!

طيب لو حد عنده فكرة بالأكواد ، وعرف الكود المسئول عن إلغاء الطباعة .. هيروح للكود ويعمل عليه Comment أو يحذفه ويطبع ..! وانتهت المشكلة بالنسبة له عايزين حل ملوش حل .. يلا شدوا حيلكم أنا معنديش طريقة لكن بحاول أفكر في طريقة .. وللأسف مش هلاقي لأن لكل فعل رد فعل مساوي له في المقدار ومضاد له في الاتجاه كل طرق الحماية .. للأسف مآلها إلى الكسر

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

وما دمنا نعمل ضمن النموذج هذا كود يقوم بالبحث والمقارنة Dim i i = Time() mish_time.SetFocus DoCmd.FindRecord i, acEntire, False, acSearchAll, False, acCurrent, True If i = mish_time Then DoCmd.OpenForm "alarm" End If

حياك الله اخي الكريم هنا مثال للتحقق من الاتصال بالإنترنت Private Declare Function InternetGetConnectedState _ Lib "wininet.dll" (ByRef dwflags As Long, _ ByVal dwReserved As Long) As Long Private Const INTERNET_CONNECTION_MODEM As Long = &H1 Private Const INTERNET_CONNECTION_LAN As Long = &H2 Private Const INTERNET_CONNECTION_PROXY As Long = &H4 Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20 Function IsInternetConnected() As Boolean Dim L As Long Dim R As Long R = InternetGetConnectedState(L, 0&) If R = 0 Then IsInternetConnected = False Else If R <= 4 Then IsInternetConnected = True Else IsInternetConnected = False End If End If End Function في المرفق تطبيق للمثال بالتوفيق التحقق من الاتصال بالإنترنت.rar

موضووووووووووووووووع أكثر من راااااااااااااااااااااااائع ، سلمت يداك ،،، استاذ أحمد ،،،

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

أخي الفاضل " أبو حمادة " مادام الأمر مجرّد تغذية للكومبوبوكسات فقط .. و ليست تغذية و شرب و تحلية لماذا لا تستعمل خاصية ROWSOURCE .. و تريّح نفسك إحتراماتي

جرب الكود بهذا الشكل أخي الكريم طائع ويرجى التركيز على طلب واحد فقط في كل مرة لكي لا أتشتت .. لا أحب كثرة الطلبات في آنٍ واحد تناول نقطة نقطة حتى إذا انتهيت من نقطة انتقلت لأخرى وهكذا Sub Rasd_Secret() Dim LR As Long Columns("D:F").EntireColumn.Hidden = False With Range("C1", Range("C" & Rows.Count).End(xlUp)) LR = Evaluate("MAX(IF((" & .Address & "<>"""")*(" & .Address & "<>0),ROW(" & .Address & ")))") End With If LR < 9 Then LR = 9 Else LR = LR Range("B9:R" & LR).Sort Key1:=Range("F9:F" & LR), Order1:=xlAscending, Header:=xlNo Columns("B:D").EntireColumn.Hidden = True End Sub

تم معالجة الامر (اختر الاسم فقط من القائمة المنسدلة في الخلية A4) expenses salim MODIFIER.rar

طيب جرب وضع المعيار بهذه الطريقة >"0" لم انتبه للصورة جيدا هذا الحقل هو طريح السنة من الحقل aaa اذا لابد من وجود قيمة مسبقه فى الحقلين قبل تطبيق المعيار اكبر من صفر فضلا وليس امرا توضح ماذا تريد من هذا المعيار وترفق قاعدة البيانات حتى تكتمل الرؤية ويسهل تقديم المياعدة ان شاء الله

الأستاذ العزيز الغالي أ / جعفر السلام عليكم ورحمة الله وبركاته وبعد كانت المشكلة أنني كنت قد أوقفت حدث كود عند الفتح وقد فعلته ووضعت فيه الكود التالي Private Sub Form_Open(Cancel As Integer) Me.IMAGE1.Picture = CurrentProject.Path & "\SCHOOL.jpg" Me.IMAGE2.Picture = CurrentProject.Path & "\SCHOOL.jpg" End Sub مع مراعاة تسمية الصور الموجودة في الفورم وعمل الكود بكفاءة وإليكم الصورة ولكن هل كان من الممكن عمل وحدة نمطية تضع كود عند الفتح في كافة النماذج بدلا من وضع الحدث في كل نموذج يدويا ولك الشكر على الرد سريعا ومازلت في شوق لمسقط التقارير ( مجرد طاقة إيجابية فقط على سبيل الدفع الإيجابي هههههههههههه )

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

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

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

السلام عليكم ورحمة الله وبركاته ***************** هذا الموضوع تجميع لروابط الموضوعات التي قدمتها ، أسأل الله العلي القدير أن يجعل أعمالنا صالحة ولوجهه خالصة. افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) استخراج كل الاحتمالات لأرقام محددة (موضوع الأسبوع الخامس) ترتيب الأسماء أو القيم طبقاً لطول السلسلة النصية (موضوع الأسبوع الرابع) عكس القيم في عمود أوقلب النتائج في عمود مجاور (موضوع الأسبوع الثالث) استخراج الصور من مصنف إكسيل حتى ولو كانت علامة مائية (موضوع الأسبوع الثاني) إخفاء كل الأعمدة ما عدا أعمدة محددة (موضوع الأسبوع الأول) وبضدها تتميز الأشياء (تجميعة Toggles) للشيء وعكسه الدالة MOD وعد الخلايا التي تحتوي على أرقام زوجية أو أرقام فردية حصرياً استخراج ملف فلاشي من داخل مصنف ليكون ملف منفصل بذاته أربعة عشر طريقة لمعرفة السنة الكبيسة أو السنة العادية باستخدام المعادلات طباعة أوراق عمل محددة حسب الاختيار مع إمكانية اختيار الطابعة وعدد النسخ منع التكرار في عمود ومنع نسخ أكثر من خلية بالعمود حصرياً دالة معرفة UDF لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial إدراج أسماء الشهور بكل اللغات استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إرسال إيميلات دفعة واحدة عبر الـ Outlook باستخدام برمجة الـ VBA تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي جعل النص في أداة الـ Label يظهر بشكل رأسي عمل قائمة بأسماء الملفات في مسار محدد بالمعادلات بدون أكواد فورم لتوليد أرقام عشوائية ما بين رقمين مع الاحتفاظ بقيم البداية والنهاية في الريجستري إعلان عن خدمة برنامج السجلات المدرسية (البرنامج غير مجاني وليس للبيع) الحلقات التكرارية للمصفوفة تشغيل ملف صوتي بامتداد WAV عند تحديد خلية معينة بداية الطريق لإنقاذ الغريق إلغاء زر إغلاق التطبيق Excel Application Close Button إعادة ضبط نافذة محرر الأكواد الناموس في شرح القاموس استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إضافة Addin تقوم بترتيب أسطر الكود (تنظيم الأكواد) المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الأولى المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الثانية تقليل حجم ملف الإكسيل (موضوع للبحث) تقسيم بيانات صف إلى عدة أعمدة إظهار المعادلات بدون أكواد معرفة الأرقام الناقصة Missing Numbers في سلسلة أرقام تصفية البيانات من خلال مربع نص TextBox (بحث بالأحرف الأولى والتصفية حسب البحث) استخراج القيم الغير مكررة مع إمكانية ترتيب القيم Sort أكواد البداية والنهاية لـ (ياسر بن خليل) البحث المتعدد وتلوين كلمات البحث باستخدام فورم استخراج القيم الغير مكررة في نطاق وعدها عن طريق دالة معرفة دالة معرفة UDF Function تقوم بإظهار المعادلات عمل طريق مختصر Shortcut على سطح المكتب للمصنف عن طريق الأكواد نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق إضافة شريط أمر تحكم إلى قائمة الكليك يمين تشغيل الماكرو عدد معين من المرات نسخ أو تحميل صورة من الويب إلى الإكسيل توليد تواريخ عشوائية بين تاريخين إغلاق المصنف بدون حفظ وإعادة فتح المصنف من جديد كيفية تصميم شيت الكنترول (ناصر سعيد) استخدام دوال الإكسيل WorksheetFunction التعامل مع الأنواع المختلفة للبيانات باستخدام SpecialCells مقارنة عمودين باستخدام التنسيق الشرطي إدراج رسم بياني في تعليق منع طباعة أوراق العمل كسر حماية أوراق العمل (القنبلة الجديدة) كسر حماية محرر الأكواد بدون برامج (قنبلة الموسم) إنشطار البيانات المفلترة (موضوع متميز بإذن الله) إنشاء تبويب مخصص Custom Tab إخفاء محتويات الخلايا (حيلة بسيطة) إظهار وإخفاء النطاقات المعرفة Defined Names داونلود مانجر من خلال الإكسيل ..حمل ملفاتك بالإكسيل ثلاثة طرق لتحديد أوراق العمل بالأكواد الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده) فحص الاتصال بالانترنت عن طريق الأكواد التصفية المتقدمة بالأكواد Advanced Filter نسخ كود من مصنف لمصنف آخر ، ومن مصنف للمنتدى البحث عن جزء من النص باستخدام الدالة VLOOKUP (موضوع خفيف) دالة استخراج بيانات الرقم القومي (المحافظة والنوع وتاريخ الميلاد) دمج أوراق العمل من مصنفات مختلفة إلى مصنف واحد (المجمع) الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة نسخ البيانات بأكملها من ورقة عمل لورقة عمل أخرى دالة DatePart للتعامل مع أجزاء الوقت والتاريخ فتح مستند نصي ببرنامج الورد من داخل الإكسيل تجميع القيم مع كل إدخال جديد في نفس الخلية Accumulator عمل خريطة لورقة العمل Quick Map معرفة دقة الشاشة Screen Resolution دالة معرفة UDF لاستخراج الإيميلات داخل نصوص Emails From Text دالة معرفة UDF لتوليد أرقام عشوائية غير مكررة (فريدة) دالة معرفة UDF لدمج النصوص بمزايا مختلفة عن الدالة CONCATENATE دالة معرفة UDF لجمع الخلايا ذات التنسيق Bold (عريض) تغيير اسم ورقة العمل تبعاً لتغير قيمة خلية أوتوماتيكياً إنشاء القوائم المنسدلة (دروس للمبتدئين) معرفة الصف الأخير وإنشاء نطاقات ديناميكية غير ثابتة باستخدام الأكواد تغيير خصائص القائمة المنسدلة بإدراج كومبوبوكس إضافة الدوائر الحمراء وحذفها معرفة إذا ما كانت الخلية تحتوي على معادلة أم لا (بدون أكواد) المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد بشرى لمدخلي البيانات في موقع وزارة التربية والتعليم ادخل الموقع بنقرة واحدة تغيير أسماء أرقام سور القرآن الكريم إلى أسماء تلك السور الحفظ التلقائي كل 10 ثواني البحث عن القيم المتعددة بدون تكرار الخاصية Offset ف لغة البرمجة ألغاز إكسيلية (موضوع ترفيهي) عمل قائمة منسدلة يمكنك البحث من خلالها استخراج القيم بدون الخلايا الفارغة استخراج القيم بدون الخلايا الفارغة (دالة معرفة) تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي) برنامج صغير للترجمة (ترجم من اللغة العربية للغة الإنجليزية) إنشاء أوراق عمل وفرزها وحذفها وضع علامة صح بمجرد النقر المزدوج في الخلية إضافة رائعة للإكسيل تقوم بفصل البيانات تقويم للسنة المقبلة 2015 دالة لإدراج صورة الخاصية Resize في لغة البرمجة دالة لعد التواريخ البحث عن الخلايا المدمجة بطرق مختلفة معرفة الوقت الذي تم فيه الدخول على الحاسوب انتحار ملف الإكسيل Kill This Workbook (Suicide) الخلية النابضة (من روائع الأعمال) العدسة المكبرة بالاكواد (من روائع الأعمال) الحلقة التكرارية FOR......Next استخدام الدالة DIR في محرر الأكواد للفيجوال بيسك إنشاء تقويم ميلادي بالأكواد المصفوفات في الإكسيل Arrays دالة تحويل التاريخ الهجري إلى ميلادي الحصول على قيم غير مكررة في قائمة التحقق التحقق من الصحة عمل اختصار للأمر في القائمة المختصرة دالة العد المتعددة والشاملة معرفة آخر يوم لأي يوم من أيام الأسبوع لأي شهر من شهور السنة ( موضوع مميز ) استخراج الأسماء المكررة في قائمة دالة معرفة لاستخراج تاريخ الميلاد والنوع ومحافظة الميلاد من الرقم القومي كود برمجي لفتح وغلق الـ CD-ROM قائمة بأسماء أوراق العمل دورة للمبتدئين في عالم البرمجة السلاسل النصية إدراج صورة في تعليق ************************* دمتم في رعاية الله

الاخ الكريم والاستاذ العزيز مهند عبادي منتظرين شرحك لنا مع خالص التحيات وشكرا للاخ حسن خليفه على الرد