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

الكود يقوم بتعديل الريجستري يعني اول ما تشغل برنامجك تطلع لك رسالة تحذير الامان ، واذا ضغطت موافق يفتح نموذجك ويبدأالكود بتعديل الريجستري ، واذا قفلت البرنامج وشغلته مرة أخرى لا تظهر لك رسائل امان هذا الموديول : Option Compare Database Option Explicit 'ÇÎÝÇÁ ÔÇÔÉ ÇáÇßÓÓ' Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long Dim dwReturn As Long Public Const acHide = "Hide" Public Const acShow = "Show" Public Const acMinimized = "Minimize" Const SW_HIDE = 0 Const SW_SHOWNORMAL = 1 Const SW_SHOWMINIMIZED = 2 Const SW_SHOWMAXIMIZED = 3 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean If Procedure = "Hide" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) End If If Procedure = "Show" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If If Procedure = "Minimize" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED) End If If SwitchStatus = True Then If IsWindowVisible(hWndAccessApp) = 1 Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) Else dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If End If If StatusCheck = True Then If IsWindowVisible(hWndAccessApp) = 0 Then fAccessWindow = False End If If IsWindowVisible(hWndAccessApp) = 1 Then fAccessWindow = True End If End If End Function وفي حدث عند فتح النموذج : fAccessWindow acHide, False, False وتنشئ موديول جديد تحت اي اسم : Global Const NM_HIDE = 0 Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Sub NHidwindow() Dim NMC As Long NMC = apiShowWindow(hWndAccessApp, NM_HIDE) ' Regards Naser Masarwa

السلام عليكم ورحمة الله وبركاته استكمالا لسلسلة شرح الجمل الشرطية سنستحدث سلسلة اخرى تتعلق بكيفية استخدام الخلايا في ال vba وكان من المفروض البدء بها قبل شرح الجمل الشرطية لكونها تعتمد عليها في بعض الجوانب وسيتم تناول ثلاثة مواضيع بالتناوب وهي : 1. استخدام جمل ال range 2. استخدام جمل ال cells 3. استخدام جمل ال offset وسنبدأ بالموضوع الاول ...حيث هناك مرفق تم فيه شرح الكيفية في الاستخدام الموضوع باجتهاد شخصي وقد يحتمل الصواب والخطأ وقد يحتمل النسيان فان كنت قد أصبت فالحمد لله وانت كنت قد اخطأت فذلك يعلمني وان كنت قد نسيت فجل من لا ينسى او ان اكون قد اغفلت بعض الجوانب التي لم اضعها في الحسبان وهذه دعوة مفتوحة للجميع بالمشاركة في هذا الموضوع حتى يكون موضوع هادف وكامل ومفيد ان شاء الله اخوكم عماد الحسامي hosami range.rar

بسم الله والصلاة والسلام على رسول الله السلام عليكم ما أجمل الجداول المحورية ،،، بل قل ما أجمل وما أروع برنامج الاكسيل ككل ،،، ولكن في بعض الأحيان لاتؤدي بعض أدوات البرنامج المطلوب بعينه ،،، أو كما نحب ونرغب ،،، فعلى سبيل المثال لا الحصر ،،، الجداول المحورية في وضع الاستخدام العادي تقوم بعمل تقرير ملخص للبيانات المصدر ضمن المدى المحدد ،،، دون إضافة التفاعل المطلوب ،،، ما لم !!! ما لم يتم إضافة بعض المهارات التي علينا أنت نتعلمها جميعاً ،،، حتى نحقق أفضل النتائج بأقصر طرق ممكنة ،،، ،،، وتأسيساً على ما سبق نسوق المثال التالي : ،،، فهذا الجدول المحوري يقوم بتلخيص البيانات الموجودة في ورقة البيانات المسماه (Source Data) ضمن المدى الديناميكي (dynarange) ،،، مع إضافة كود بسيط جداً مقترن بورقة البيانات التي يوجد بها الجدول المحوري والمسماه (ZEZO) : Private Sub Worksheet_Activate() Sheets("ZEZO").PivotTables("PivotTable1").RefreshTable End Sub وبالتالي بهذه الإضافات البسيطة تم خلق التفاعل المطلوب وهو بمجرد تدوين البيانات في ورقة (Source Data) والقيام بفتح ورقة (ZEZO) ،، يتم تحديث بيانات الجدول المحوري مباشرة ،،، ،،،هذا وبالله التوفيق ،،، ،،،أتمنى أن يكون المرفق مفيد للجميع ،،، ،،، مودتي وتقديري ،،، جدول محوري تلقائي التحديث.rar

الأخ الكريم مهند الزيدي كل عام وانت بخير جرب الملف التالى لعلة يفى بالغرض abo_abary_طباعة أسماء.rar

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

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اطلب المسامحة ممن راسلني ولم يجد رد مني هديتي لكم بعد هذه الغيبة Option Explicit '========================================================" ' بسم الله الرحمن الرحيم " '========================================================" ' (دالة تحويل الرقم الى نص باللغة العربية (تفقيط " ' kh_TextNum " '========================================================" 'Num الرقم " '========================================================" 'sex جنس العملة " 'FALSE ( فارغ او صفر مذكر ) " 'TRUE ( أو اي رقم غير الصفر مؤنث ) " '========================================================" 'sNameCurr اسم العملة الرئيسية مفرد " 'pNameCurr اسم العملة الرئيسية جمع " 'NameCurrDec اسم العملة الكسرية " 'Decimal_Count طول الكسر افتراضـياً : بدون اظهار الكسر " '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" ' ملاحظات ' (اولاً : العملة الرئيسية مثنى (يقوم بها الكود تلقائيا ' مع ملاحظة اذا اسم العملة ينتهي بالتاء المربوطة ' يجب ان يكتب كذلك وليس بالهاء ' ----------------------- ' ثانياً : اذا كانت العملة الرئيسية مفرد فارغاً تعتبر ' اسماء العملات (الجمع والكسري) فارغة تلقائيا ' ----------------------- 'ثالثاً : الكلمة الابتدائية بامكانك تغييرها او تجعلها فارغة Private Const MyBegTx As String = "فقط " ' "" ' ----------------------- ' MyTNum رابعا : يمكنك التغيير (اضافة,حذف,تحرير) في الثابت ' للفئات الصفرية للرقم ادناه Private Const MyTNum As String = "ألف-آلاف/مليون-ملايين/مليار-مليارات/بليون-بلايين/بليار-بليارات/ترليون-ترليونات/تريليار-تريليارات/كدرليون-كدرليونات" '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" Function kh_TextNum(Num As String, Optional sex As Boolean = False, Optional sNameCurr As String = "", Optional pNameCurr As String = "", Optional NameCurrDec As String = "", Optional Decimal_Count As Byte = 2) As String Dim Spp, zt Dim i%, ii%, pr% Dim MyMid$, nCurr$, Txt$, Txt1$, Txt2$ '====================================== If Not IsNumeric(Num) Then GoTo kh_Exit Spp = Split("/" & MyTNum, "/") ii = UBound(Spp) If Num < 0 Then Num = Abs(Num) '====================================== If Val(Num) > Val(String((ii + 1) * 3, "9") & ".999") Then GoTo kh_Exit '====================================== nCurr = sNameCurr & "-" & IIf(pNameCurr = "", sNameCurr, IIf(sNameCurr = "", "", pNameCurr)) '====================================== Txt1 = Format(Num, String((ii + 1) * 3, "0") & ".000") For i = 0 To ii MyMid = Mid(Txt1, (i * 3) + 1, 3) If MyMid Then zt = Mid(Txt1, (i * 3) + 4, Len(Txt1)) zt = IIf(ii - i, Int(zt), zt) Txt2 = IIf(ii - i, Trim(Spp(ii - i)), nCurr) pr = 1 + IIf(ii - i, 1, CInt(sex)) Txt = Txt & IIf(Len(Txt), " و", "") & kh_nText(MyMid, Txt2, pr, zt, CBool(sNameCurr <> "")) End If If i = ii Then If MyMid = 0 Then Txt = Txt & IIf(Len(Txt), " ", "صفر ") & sNameCurr Next '====================================== Txt = MyBegTx & Txt & kh_dText(Num, sNameCurr, NameCurrDec, Decimal_Count) '====================================== kh_Exit: kh_TextNum = Trim(Txt) End Function ' معالجة العدد من 1 الى 999 لكل فئات الرقم Private Function kh_nText(ByVal iNum As String, ByVal oMm As String, ByVal ibs As Integer, ByVal z As Boolean, ByVal tCu As Boolean) As String Dim Sp Dim Num1%, Num2%, Num3% Dim oM$, S$, S1$, nT$, nT0$, nT1$, nT2$ '====================================== Sp = Split("واحد,إحدى,اثنتان,ثلاث,أربع,خمس,ست,سبع,ثمان,تسع,عشر,إحدى ,اثنتا ", ",") '====================================== If ibs Then S = "ة": Sp(1) = Sp(0): Sp(2) = "اثنان": Sp(11) = "أحد ": Sp(12) = "اثنا " Else S1 = "ة" oM = Trim(Split(oMm, "-")(0)) '====================================== Num1 = Left(iNum, 1) Num2 = Right(iNum, 2) Select Case Num1 Case 1: nT0 = "مائة" Case 2: nT0 = "مائتا" & IIf(ibs = 2, IIf(Num2 < 3, "", "ن"), IIf(Num2 = 0 And oM <> "", "", "ن")) Case 3 To 9: nT0 = Sp(Num1) & "مائة" End Select '========================================= Num1 = Right(iNum, 2) Select Case Num1 Case 1, 2: If nT0 <> "" Then If ibs = 2 Then nT0 = nT0 & " " & oM Case 11 To 99: If oM <> "" Then If ibs Then If z Then oM = oM & "اً" End Select '----------------------------------------- Select Case Num1 Case 1 nT = IIf(oM = "", Sp(0) & S1, oM) oM = IIf(ibs <> 2 And oM <> "", Sp(0) & S1, "") Case 2 nT = IIf(oM = "", Sp(Num1), Replace(oM, "ة", "ت") & IIf(z = 0 And ibs = 2 And tCu, "ا", "ان")) oM = IIf(ibs <> 2 And oM <> "", Sp(Num1), "") Case 3 To 10 oM = Trim(Split(oMm, "-")(1)) nT = Sp(Num1) & S Case 11, 12 nT = Sp(Num1) & Sp(10) & S1 Case 13 To 19 nT = Sp(Num1 - 10) & S & " " & Sp(10) & S1 Case 20 To 99 Num2 = Right(Num1, 1) Num3 = Left(Num1, 1) If Num3 = 2 Then nT1 = "عشرون" Else nT1 = Sp(Num3) & "ون" nT2 = Sp(Num2) & IIf(Num2 > 2, S, "") & " و" & nT1 If Num2 = 0 Then nT2 = nT1 nT = nT2 End Select '====================================== S = IIf(nT = "" Or iNum < 100, "", " و") nT = Replace(nT, Sp(8) & "ة", Sp(8) & "ية") kh_nText = Trim(nT0 & S & nT & " " & oM) '====================================== End Function ' معالجة الكسر Private Function kh_dText(ByVal dNum As String, ByVal NCur As String, ByVal Ndec As String, ByVal co As Byte) As String Dim Td$, Td1$ On Error GoTo 1 If NCur = "" Then Ndec = "" Td = Format(Round(CCur(dNum - Int(dNum)), co), "0." & String(co, "0")) If Td = 0 Or Td = 1 Then Td1 = "": GoTo 1 If Len(Ndec) Then Ndec = " " & Ndec: Td1 = Td * CVar("1" & String(co, "0")) Else Ndec = " " & NCur: Td1 = Td Td1 = " و " & Chr(40) & Td1 & Chr(41) & Ndec 1: kh_dText = Td1 End Function دالة تحويل الرقم الى نص عربي.rar ================================================= الملف المعدل: هذا المرفق بامكانية تفقيط الكسر وامكانية ادخال كلمة نهاية النص دالة تحويل الرقم الى نص عربي.rar ================================================= رابط مباشر للملف

الاخوة الافاضل جزاكم الله خيرا في بحثي عن حل لمشكلة تصدير البيانات الى الاكسس وجدت هذا الكود الرائع ولكني عند تجربته صادفت مشاكل في التطبيق لذا ارجوا من الاخوة مراجعته وفادتي لاهمية هذا الكود بالنسبة لي لان لدي برنامج قاعدة بياناته اكسس واحتاج كثيرا الى تصدير البيانات منه الى الكسل واجراء بعض المعالجات عليها واعادة لصقها في الاكسس مرة اخرى وفيمما يلي الكود 'If you want to export data to an Access table from an Excel worksheet, the macro example below shows how this can be done: Sub DAOFromExcelToAccess() ' exports data from the active worksheet to a table in an Access database ' this procedure must be edited before use Dim db As Database, rs As Recordset, r As Long Set db = OpenDatabase("d:\SalesSystem.mdb") ' open the database Set rs = db.OpenRecordset("Transactions", dbOpenTable) ' get all records in a table r = 2 ' the start row in the worksheet Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A With rs .AddNew ' create a new record ' add values to each field in the record .Fields("FieldName1") = Range("A" & r).Value .Fields("FieldName2") = Range("B" & r).Value .Fields("FieldNameN") = Range("C" & r).Value ' add more fields if necessary... .Update ' stores the new record End With r = r + 1 ' next row Loop rs.Close Set rs = Nothing db.Close Set db = Nothing End Sub 'The macro example assumes that your VBA project has added a reference to the DAO object library. 'You can do this from within the VBE by selecting the menu Tools, References and selecting Microsoft DAO x.xx Object Library. 'Use ADO if you can choose between ADO and DAO for data import or export.

و عليكم السلام و رحمة الله و بركاته اهلا باستاذنا العزيز ابو خليل .. اسأل الله ان يجعل ما تقدمه في موازين حسناتك ارجو ان يكون الحل هو ما تبحث عنه استاذنا الغالي Public Function RunSum(Phases As Integer) As Integer Static intSum As Integer If Phases = 1 Then intSum = 0 RunSum = intSum + Phases intSum = RunSum End Function بالتوفيق

اخي الكريم اترك الصورة المسماه 999 لا تحذفها

اخونا الرائع الحسامي اللهم اغفر له و ارحمه و اجعل عمله فى ميزان حسناته

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

أحسنت العمل أخي صالح،،، بالنسبة للعدد 26: تقصد زيادة او انقاص نطاق الادراج في ورقة اكسل حسب عدد الصف؟؟؟ استخدم هذا السطر بدل تحديد النطاق : Dim lastRow As Long lastRow = ws.Range("A1").CurrentRegion.Rows.Count بالنسبة لاخفاء العمود او اعمدة هذا هو الكود الصحيح: ws.Columns("AF:AT").EntireColumn.Hidden = True

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

اخي الكريم: المرفق ليس برنامج المرفق عبارة عن وحدة نمطية يتم استيرادها لبرنامجك من الوحدات النمطية افتح البرنامج الذي تريد العمل عليه، ثم افتح وحدة نمطية فارغة وبعد ذلك فك الضغط عن الملف الذي في المرفقات ثم اسحبه داخل الوحدة النمطية في برنامجك قم بالحفظ وتسميته ما تشاء بعد ذلك قم باستدعاء الوحدة النمطية في النموذج في حدث عند التحميل او الفتح عموماً اليك مثالاً في المرفقات ... :: تحياتي waz-Resize.rar

شكرا يا صقر الأوفيس

مع كل التقدير والاحترام الى الاخ ابو عبد الباري تطوير بسيط على الكود في المرفق Salim_توزيع الأعمدة على الصفوف.rar

مشكور على كلماتك الرقيقة ولك مثل مادعوت به الملف به مجموعة من الأكواد ولكن تم استخدام الدالة vlookup معها

الأخ الكريم حسام الدين الحسيني جرب هذا الملف باستخدام الأكواد لعلة يفى بالغرض abo_abary_توزيع الأعمدة على الصفوف.rar

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

اليك الملف اخى الكريم اعتقد ان المشكلة كانت فى التنسيقات dd.rar

جزانا و اياكم ارجو من الاخوة الادامن تعديل عنوان المشاركة الى :- مكتبة أكواد الاكسيس حصاد 9 سنوات (الاصدار الثانى)

نسيت جدول اساسي: جدول الصفوف: ClassID حقل رقم وليس ترقيم تلقائي الصف ويفضل المسميات بالانجليزية ولو كانت بلفظ عربي :: تحياتي

نم التعديل حسب ما تريد مقارنة salim Changed.rar

الأخ الكريمhasan81 جرب المرفق التالى abo_abary_تحويل السالب الى صفر.rar

السلام عليكم والله احيانا احزن على نفسي لهذا التجمد الذي اصابني ولكن الان ان شاء الله سنبدا رويدا شدوا على يدي علشان استمر لديا الكثير من الاعمال واخرج من عمل الى اخر بدون اكمالي التشطيب للعمل السابق وكانني ادور في دوامة لانني قد اكون في حالة نفسية -- هذه محفظه لجمع الاكواد وعمل لها تعليمات اخبرونا ما النقص فيها ======================================= كلمة السر لاي شي مغلق في الملف هي الرقم 1 ======================================= محفظة اكواد.rar

بعد أذن عملاق exel4us أسمح لي أن أردد ماتعلمتة من سيادتكم لأخي العزيز index.rar

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

الاخ الحبيب/ معتصم محمد _________حفظه الله الاخ الحبيب/ هشام شلبي__________حفظه الله الاخ الحبيب/ ابو انصار__________حفظه الله جزاكم الله خيراً ودعائكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري خبور خير

وهذا الملف جمعت فيها ملف الف الكود المعمول بالاكسس ليتم التعرف على الية عمل هذه المحفظة تفضلوا شوفوا وجربوا وعدلو محفظة اكواد.rar

السلام عليكم و رحمة الله لقد سألت عن أعظم دوال الاكسيل و اكثرها إستخداماً و هي بشكلها البسيط تأخذ التالي : =INDEX(array,row_num,column_num) فالمتغير الأول Array هو الجدول موضع البحث الذي سنبحث خلاله و كما تعلم ان الجدول مكون من سطور و أعمده فهذه الدالة تساعدنا لنعرف نقطة تقاطع سطر مع عامود و هما ما يمثلان المتغير الثاني و الثالث فالمتغير الثاني row_num هو رقم السطر داخل الجدول الذي نبحث عنه و المتغير الثالث column_num هو رقم العامود و عند نقطة تقاطعها ستتحقق النتجة فلو أخنا المثال التالي فلمعرفة مبيعات شهر May في المنطقة west سنستخدم المعادلة التالية : =INDEX(A1:D9,6,3) فالنطاق A1:D9 يمثل نطاق كامل الجدول و الرقم 6 يمثل ترتيب الشهر الخامس may في بيانات الجدول في حين ان الرقم ثلاثة يمثل العامود الثالث في الجدول الذي يوجد به كلمة West و ستكون النتيجة طبعاً القيمة 732 ================== و جرت العادة عند استخدام هذه الدالة ان يكون معها الدالة Match فهي الدالة التي تساعدنا على معرفة موضع العنصر تلقائياً بدل من كتابة الأرقام يدوياً ================= أتمنى ان تكون قد اتضحت فكرة الدالة دمتم في حفظ الله

السلام عليكم ورحمة الله وبركاته كثر السؤال عن استخدام الاكواد في عملة انظمة للفلترة وكيفية استخدامها وهنا مرفق مبسط لشرح آلية فلترة البيانات وكيفية التعامل معها وباغلب جوانبها وحاولت التبسيط على قدر الامكان حتي يتم استيعابها بشكل افضل اخوكم عماد الحسامي نظام فلترة البيانات.rar

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

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

السلام عليكم ارفق لكم ملفات الموضوع كاملة بعد مشكلة المرفقات التي حدثت في المنتدى hosami range.rar الخلايا..كامل ...hosami.rar

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

السلام عليكم اخي قصي اهلا وسهلا فيك هنا ملف اخر يعمل فيه شريط التمرير فيه الخلايا..كامل ...hosami.rar