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

السلام عليكم ورحمة اله ملف Word كيفية تلوين صف بناء علي قيمة خلية مع ملف إكسل كمثال مصغر اخوكم في الله / أبو الحسن والحسين شرح تلوين الصف بناء علي خلية مع مثال2.rar مع الانتباة : لكي تعطى النتيجة السليمة قم بمراجعة تحرير وصف القاعدة أي الصيغة ادناه ( "مشغول"=5 M$ =) تلقاها بالخطأ ( "مشغول"=1048576 M$ =) قم بتعديلها حسب الموضح بالشكل.

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

Sub Ali_Num() Dim WS As Worksheet Dim R, RB, RB_To, Vl, I Set WS = ورقة1 With ورقة18 I = .Range("H4").Value For R = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row If .Cells(R, 1) <> Empty Then RB = Val(.Cells(R, 3)) RB_To = Val(.Cells(R, 4)) Vl = Val(.Cells(R, 1)) WS.Cells(RB - I + 2, "I").Resize(RB_To - RB + 1) = Vl End If Next End With End Sub أخي الكريم أحمد الحاوي ليس من أبدع كمن عدل ..الكود يظل باسم معلمي أبو نصار إليك التعديل البسيط ليؤدي الغرض

السّلام عليكم و رحمة الله و بركاته أخي الكريم " أبو عبد الرحمن البغدادي " في محرّر الأكواد ..الذيسْ وورْكْ بوكْ .. أكتب ما يلي : Private sub WorkBook_Open() UserForm1.Show End Sub على أساس أنّ اسم اليوزرفورم لديك هو : UserForm1 فائق إحتراماتي

صحيح اخي ياسر جزاك الله كل خير التعديل في محله

أخي الحبيب أبو نصار أعتقد أنه لا داعي لاستخدام الحلقات التكرارية المتداخلة حيث أن ذلك يبطيء من عمل الكود ... جرب الكود بهذا الشكل ولاحظ الفرق في سرعة تنفيذ الكودين Sub Ali_Num() Dim SW As Worksheet Dim R, Rb, Rb_To, Vl, i Set SW = ورقة1 With ورقة18 For R = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row If .Cells(R, 1) <> Empty Then Rb = Val(.Cells(R, 3)) Rb_To = Val(.Cells(R, 4)) Vl = Val(.Cells(R, 1)) SW.Cells(Rb + 1, "I").Resize(Rb_To - Rb + 1) = Vl End If Next End With End Sub

السلام عليكم هل تقصد اضافة عمود يقوم بعمل مسلسل حسب رقم الحجره ؟ واذا كان المقصد المسلسل في عمود رقم الحجره كيف اعرف هذا الاسم ينتمي لأي حجره ! جرب هذا الكود حسب فهمي لطلبك Sub Ali_Num() Dim Sw As Worksheet Dim R, Rb, Rb_To, Vl, i Set Sw = ورقة1 With ورقة18 For R = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row If .Cells(R, 1) <> Empty Then Rb = Val(.Cells(R, 3)) Rb_To = Val(.Cells(R, 4)) Vl = Val(.Cells(R, 1)) For i = Rb To Rb_To Sw.Cells(i + 1, "I") = Vl Next End If Next End With End Sub

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير " ياسر العربي " على الملف الرّائع و اللّمسة السّحرية المميّزة جزاك الله خيرًا و زادها بميزان حسناتك و زادك من علمه و فضله فائق إحتراماتي و إعجاباتي لست أدري لم أعدْ قادرًا حتّى على رفع صورة إلى المنتدى .. فقمت برفع الملف على موقع خارجي أرجو المعذرة : http://up.top4top.net/downloadf-top4top_34eb2002031-rar.html

السلام عليكم اخي الكريم ابو عبدالملك اعلم ان التعديل يأخذ جهد مضاعف اذا اردت التفاعل من الاعضاء مع طرحك يفضل طلب عمل منفصل لكي يسهل العمل على من اراد المشاركه عموماً اطلعت على ملفك لاحظت ان عمود V في التقرير الشهري فارغ وانت طرحت التالي فكيف نحطه كشرط ضمن الكود وهو فارغ فابطبع لن ينفذ شيء الكود ! تفضل الكود التالي بعد ان تضيف الشهر في عمود V بصفحة التقرير الشهري قم بتشغيله كي يعمل معك Sub Ali_Am() Dim Sht As Worksheet Dim R&, Tx$ Set Sht = Sheets("مجمع النتائج الشهرية") ''************************************** With Sheets("التقرير الشهري") For R = 2 To LR Tx = CStr(Sht.Cells(R, 3)) If Tx = .Cells(R, 3) Then If Ch_Month(.Cells(R, "V")) = CStr(Sht.Cells(R, "V")) Then If SH.Cells(R, "R") >= 60 Then .Cells(R, "L") = Sht.Cells(R, "N") .Cells(R, "M") = Sht.Cells(R, "O") ElseIf SH.Cells(R, "R") < 60 Then .Cells(R, "L") = Sht.Cells(R, "L") .Cells(R, "M") = Sht.Cells(R, "M") End If End If End If Next End With ''************************************** End Sub Private Function Ch_Month(Mn As String) Dim Mm& Dim Tn$, X$ For Mm = 1 To 12 Tn = MonthName(Mm) If Tn = Trim(Mn) Then Mm = Mm - 1 X = MonthName(Mm) Exit For End If Next If Mm Then Ch_Month = X End Function لم اجرب الكود اذا به اي اخطاء اشعرنا وان شاء الله لن يقصر معك الجميع تحياتي

السلام عليكم لا عليك اخي مصطفى محمود نحن بالخدمة طالما السؤال في حدود المعرفه جرب المرفق التكرارفي الصفحةالزوجية_111.rar

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

جرب هذا التعديل هذا التعديل بيتماشي مع ملفك كما هو بوضعه الحالي Dim Sh As Worksheet Sub Ali_Prnt() Dim R As Long Dim Ar Dim Rn As Range, Rn1 As Range Set Sh = ActiveSheet '********************************************** On Error Resume Next Application.EnableEvents = True With Sh II = .PageSetup.PrintArea For R = 1 To .VPageBreaks.Count Ro = .VPageBreaks(R).Location.Row Cl = .VPageBreaks(R).Location.Column Ar = .Range(.PageSetup.PrintArea) Lr = UBound(Ar, 2) + 1 Rw = UBound(Ar, 1) + 1 Set Rn = .Range(Cells(Ro, 2), Cells(Rw, Cl - 1)) Set Rn1 = .Range(Cells(Ro, Cl), Cells(Rw, Lr)) Ali_Rest With .PageSetup .PrintArea = Rn.Address .RightHeader = Sheets("الاساسية").Range("A1").Value & Chr(13) & Sheets("الاساسية").Range("A2").Value .LeftHeader = Sheets("الاساسية").Range("B1").Value & Chr(13) & Sheets("الاساسية").Range("B2").Value .RightFooter = Sheets("الاساسية").Range("A3").Value & Chr(13) & Sheets("الاساسية").Range("A4").Value .CenterFooter = Sheets("الاساسية").Range("b3").Value & Chr(13) & Sheets("الاساسية").Range("b4").Value End With .PrintPreview Ali_Rest With .PageSetup .PrintArea = Rn1.Address .LeftHeader = Sheets("الاساسية").Range("c1").Value & Chr(13) & Sheets("الاساسية").Range("c2").Value .LeftFooter = Sheets("الاساسية").Range("c3").Value & Chr(13) & Sheets("الاساسية").Range("c4").Value End With .PrintPreview Next R .PageSetup.PrintArea = II End With Application.EnableEvents = False '********************************************** On Error GoTo 0 End Sub Private Sub Ali_Rest() With Sh With .PageSetup .RightHeader = "" .RightFooter = "" .CenterFooter = "" .LeftHeader = "" .LeftFooter = "" End With End With Set Sh = Nothing End Sub

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

السلام عليكم ورحمة الله وبركاته البغض منا قد يرغب فى ازالة التنسيق الشرطى عن خلية أو نطاق لسبب ما مع ازالة أو ابقاء آثاره من تنسيقات مثل لون الخلايا و لون و حجم الخط .... الخ و بإذن الله تعالى سأعرض عليكم ــ اخوتى ــ كودين يؤديان هذه المهمة الأول : يقوم بازالة التنسيق الشرطى مع ازالة آثاره من نطاق محدد : Sub RemovingCFandEffects() ' Removing Conditional Formats and the Effects Dim Rng As Range Set Rng = Sheets("Sheet1").Range("A1:C10") Application.ScreenUpdating = False Rng.FormatConditions.Delete Application.ScreenUpdating = True MsgBox ("The Conditional Formats in The Range " & Rng.Address & vbCrLf & " has been Removed and The Effects") End Sub الثانى : يقوم بازالة التنسيق الشرطى من نطاق محدد مع ابقاء آثاره من تنسيقات كما هى أو بعبارة أخرى تحويل التنسيقات الشرطية الى تنسيقات عادية : Sub RemovingCFbutNotEffects() ' Removing Conditional Formats but not the Effects Dim Rng As Range, C As Range Set Rng = Sheets("Sheet1").Range("A1:C10") Application.ScreenUpdating = False For Each C In Rng ' Rng.SpecialCells(xlCellTypeAllFormatConditions) With C .Interior.Color = .DisplayFormat.Interior.Color .Font.FontStyle = .DisplayFormat.Font.FontStyle .Font.Color = .DisplayFormat.Font.Color .FormatConditions.Delete End With Next Application.ScreenUpdating = True MsgBox ("The Conditional Formats in the Range " & Rng.Address & vbCrLf & "has been removed but Not the Effects ") End Sub أتمنى أن يكون موضوعا سهلا وخفيفا ونافعا لكم ... تقبل الله منا و منكم صالح الأعمال والسلام عليكم ورحمة الله وبركاته Removing Conditional Formats.rar

اسحب اطراف الاستعلام فوق/تحت و يمين/يسار ، وراح تطلع لك تفضل الطريقة لإظهار باقي الاستعلام: جعفر

ولا يهمك ، هذه الطريقة: 1. انت عملت استعلام كمصدر لنموذجك ، انا استعملته في استعلام ، وذلك لأن به جميع الحقول التي تريدها لنموذجك: . وهاي نتائجه: . ثم استعملت هذا الاستعلام لعمل استعلام ثاني ، فقط لأحسب اسماء العملاء في الاستعلام السابق: . والنتيجة: . والان اصبح عندي استعلام به الحقول ، واستعلام آخر به عدد اسماء العملاء ، فعملت استعلام ثالث ، وجبت فيه الاستعلام الاول و الثاني ، وربطت الاستعلامين باسم العميل (لاحظ اسم العميل موجود في الاستعلامين): . والنتيجة ، جميع الحقول التي نريدها ، مع حساب اسماء العملاء: جعفر

احنا نحاول نستغنى عن Dcount, Dsum, Dlookup ، .... قدر الامكان ، لأنها معقدة ، وبطيئة ، وخصوصا اذا كان عندنا بديل من الاستعلام مباشرة جعفر

تفضل تمت العمليه بإستخدام 3 استعلامات ، والنتيجة: جعفر 274.dcount in form.accdb.zip

الاساتذة الفضلاء : ابي نصار وزيزو و ابي البراء .. لكم مني كل الثناء .. فنحن الى جواركم :نتعلم الف باء .. اذهب الله عنا جميعا كل بلاء

وعليكم السلام ما الارقام المفروض ان تظهر في مثالك اعلاه؟ جعفر

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

اخى الفاضل ابو نصار اخى الفاضل ياسر العربى جزاكم الله عنى خير الجزاء

فيديو فوق الممتاذ الف شكر لكم

حبيبى الغالى المهندس / ياسر بارك الله فيك .. و جزاك الله خيرًا و زادها بميزان حسناتك تقبل خالص تحياتى وتقديرى

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

بارك الله فيك استاذ ابو محمد تم والحمد لله جميع المراحل بنجاح يتبقي.،، اولا:- كيف يتم (عمل واستعادة)النسخه الاحتياطية عن طريق الاكسس وليس من داخل السيرفر لان كما تعلم العميل لا يعرف يعمل نسخه من داخل السيرفر وانما لابد ان يكون ذلك من خلال الاكسس ثانيا:- عند اعطاء البرنامج للعميل كيف يكون الوضع.،. هل يجب ان يقوم بتصطيب ال sql server exp ومن ثم تشغيل برنامج الاكسس ام ماذا تحياتي لك وعلي الجهد المبذول وبارك الله فيك

بارك الله فيك اخي ياسر وجعلة في ميزان حسناتك

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

الاخ الفاضل ياسر العربي خبط وزبط زي ماانت عايز ان شاء الله يعمل معاه تعديلك تحياتي

وعليكم السلام ورحمة الله في وضع إغلاق الجداول والاستعلامات قم من تبويب خيارات اختيار مصممو الكائنات ثم في SQL Server - ANSI92 قم بإلغاء الاختيار على خانة قاعدة البيانات هذه انظر الصورة المرفقة

وعليكم السلام.. انظر هذه الصورة

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

الله ينور حبيبي عبد العزيز مجهود رائع وبعدين ملعبي هو ملعبك حبيبي وربنا يديم الملاعب لبعضيها

تفضل اخي الغالي ما طلبت وظبط انت تعديلاتك بقي وياريت الاخ عبد العزيز يحط النص المتحرك form111.rar

السلام عليكم جرب التالي Sub Ali_A() Dim Ws As Worksheet, L Dim Rng As Range Dim Rn As Range Set Ws = Sheets("salary") L = Split(Ws.UsedRange.Address, "$")(4) For Each Rng In Union(Ws.Range("C8:C" & L), Ws.Range("AM8:AM" & L)) If Rng.Borders(xlEdgeRight).LineStyle <> -4142 Then If Not Rng Is Nothing Then If Rn Is Nothing Then Set Rn = Rng Else Set Rn = Union(Rn, Rng) End If End If End If Next With Sheets("Total") If Not Rn Is Nothing Then Rn.Copy .[J8].Select .Paste End If End With Application.CutCopyMode = False Set Rn = Nothing Set Rng = Nothing End Sub

بارك الله فيك أخي الحبيب أبا الحسن والحسين على الشرح الرائع والسلس والسهل والممتاز جزيت خيراً أخي الغالي

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

اشكرك اخي العزيز ودمت لنا معلما

السّلام عليكم و رحمة الله و بركاته على رأي أخي الفاضل و أستاذي القدير " ياسر العربي " .. أنت الآن جئت برجليْك لملعبي .. فقط قبل ذلك ما هو الاسم " بالعربية طبعا " الذي تودّ ظهوره على الشّاشة الافتتاحية .. هذا الاسم الذي يُرجى حسب توجيهات المنتدى أن يوفّقك الله و يتم الظهور به على منتدانا الحبيب بإذن الله .. فائق إحتراماتي

السلام عليكم عندي جدول اسمه barcodeir مشكلة بتقسيم واجو المساعدة في تقسيم قيمة الباركود من عامود الى عدة أعمدة مع الملاحظة الى ما يلي : الكود = *A1-a1-000200-101* A1= مرتبط بجدول noufoustable / field1 المفروض بيروت في عامود nfousi a1 = ستسقط كما هي في عامود a1 000200 = رقم الجدول لا يتكرر وسيسقط في عامود irsalieh 101 = سيسقط في عامود 101 ولك جزيل الشكر user = tarek pass = 26180 --------------------------- للرفع ----------------------------- barcodeir.rar

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

يعطيك الف عافيه اخي ابو محمد2

أخي وحبيبي مختار يعجبني فيك التميز في الموضوعات ..تأتي بما لم يأتِ به الأوائل جزيت خير الجزاء

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

أخي الكريم ارفق ملفك ليسهل تقديم المساعدة من إخوانك

وعليكم السلام في مكتبتي امثلة كثيرة متنوعة للنسخ ولكني عثرت لك على هذا الكود الصغير يقوم بنسخ اي شيء باي اسم واي امتداد وصيغة ولصقه على اي اسم نختاره واي امتداد وصيغة Private Sub zer1_Click() CopyFile CurrentProject.Path & "\xx.accdb", "D:\xx.accdb" End Sub Function CopyFile(vPathSource As String, vPathDestination As String) As Boolean FileCopy vPathSource, vPathDestination CopyFile = True End Function اخي آخر الارض .. جرب ووافنا بالنتائج

السلام عليكم ورحمة الله وبركاته أقدم لكم موضوع بسيط جداً ومهم جداً ومفيد جداً ... وإن شاء الله بعد الإطلاع على الموضوع من قبلكم سيتم ضربي ضرباً مبرحاً جداً أكواد البداية والنهاية (على وزن سلسلة البداية والنهاية للعلامة ابن كثير) الموضوع يتلخص في كلمتين .. لما يكون عندك كود بيستغرق وقت طويل في التنفيذ ، دا بيرجع أسبابه لعوامل كثيرة ، لن نتظرق إليها لأنه موضوع يطول شرحه .. فجئت إليكم بحل بسيط وفعال ..الحل كالتالي .. تضع الكود التالي (كود البداية وكود النهاية) في موديول دا كود البداية Public Sub YK_Start() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Application.Calculation = xlCalculationManual End Sub ودا كود النهاية Public Sub YK_End() Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub وكلا الكودين مسبوقين بكلمة Public عارفين ليه ؟ عشان تقدر ببساطة تضع الكودين في أي موديول وتستدعيهم من أي موديول آخر كود البداية بيلغي تحديث الشاشة ورسائل التنبيه ويلغي تفعيل الحدث ويخلي الحسابات بشكل يدوي وكود النهاية بيرجع اللي فات للإعدادات الأصلية في الملف المرفق مثال .. كود يقوم بعمل حلقة تكرارية لـ 100000 صف تم استدعاء كود البداية في البداية وكود النهاية في النهاية .. والاستدعاء تم بمحضر من القسم والمحضر مكتوب فيها كلمة واحدة Call يليها اسم الكود المراد استدعائه Sub LoopExample() Dim Cell As Range Call YK_Start Columns("B:F").ClearContents For Each Cell In Range("A1:A100000") Cell.Offset(, 1) = Cell.Value + 1 Cell.Offset(, 2) = Cell.Value + 2 Cell.Offset(, 3) = Cell.Value + 3 Cell.Offset(, 4) = Cell.Value + 4 Cell.Offset(, 5) = Cell.Value + 5 Next Cell Call YK_End End Sub وممكن نستغنى عن الكلمة Call ونكتب اسم الإجراء بشكل مباشر ، بس أنا تقليدي وأحب الالتزام بالتقاليد وأحبذ استخدام كلمة Call وضعت لكم بالملف المرفق كود آخر هو الذي سيتم تنفيذه من خلال ورقة العمل ، يقوم الكود بحساب الوقت المنقضي نفذ الكود ستجد أن الكود يستغرق حوالي 10 ثواني لحظة انتظر من فضلك لا تغلق الملف .. جرب التجربة الثانية .. ضع تعليق من خلال علامة ' (حرف الطاء وإنت بتكتب إنجليزي) ضع هذه العلامة في بداية السطر 'Call YK_Start عند وضع تعليق لا يتم الالتفات إلى هذا السطر أثناء التنفيذ وضع تعليق أيضاً على السطر الخاص بكود النهاية 'Call YK_End ثم نفذ الكود ..ستجد أن الوقت المستغرق حوالي 18 ثانية (يعني أن هناك حوالي - وحوالي جمع حولية والحولية هي النعجة - أعتذر للخروج ، بس مش مشكلة تستفيدوا معلومة في العربي عشان لو طلعتوا مش فاهمين الموضوع يبقا خرجتوا بمعلومة ) ستجد أن الفرق في الوقت 8 ثواني .. يلا الحمد لله وفرنا عليكم 8 ثواني ، وإنتو أكيد عارفين قيمة الثانية وفي النهاية أرجو أن يكون الموضوع مفيد ، وأن تستفيدوا منه ، ولا تنسونا بصالح دعائكم كان معكم أخوكم الموفر للثواني ياسر خليل أبو البراء دمتم بود وتقبلوا تحياتي YK_Start & YK_End.rar YK_Start & YK_End 2003.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. إليكم حيلة بسيطة لتتعلم كيف تخفي محتويات بعض الخلايا التي تريد إخفائها .. أترككم مع الفيديو عله ينال إعجابكم (وشوفوا الصوت اتظبط كدا ولا لا ... ومتنسوش اللايكات !!) تقبلوا تحياتي أخوكم أبو البراء

السلام عليكم نموذج للدليل المحاسبي اربعة مستويات بالامكانيات التالية: 1- العمل على نموذج فارغ 2- اضافة حذف جذور(1-9) 3- امكانية اضافة 99 حساب للرئيسي وفروعة الاخرى نموذج للدليل المحاسبي ثلاثة مستويات شاهد المرفق 2003-2010 نموذج للدليل المحاسبي 4 مستويات.rar