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

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اطلب المسامحة ممن راسلني ولم يجد رد مني هديتي لكم بعد هذه الغيبة 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 ================================================= رابط مباشر للملف

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

السلام عليكم ورحمة الله وبركاته هذا هو [الاصدار الاول] من جدول الحصص اتمنى ان يفيد الجميع اهم مميزاته 1 ) اخراج جدول حصص لكل معلم بالمدرسة 2 ) اخراج جدول لكل فصل في المدرسة 3 ) اخراج ورقة لكل يوم اشراف 4 ) اخراج صفحة توزيع الريادة 5 ) اخراج توزيع الاشراف 6 ) يصلح للمدارس المتوسطة حيث يستطيع ادخال 30 فصل و30 مادة و20 معلم لكل مادة 7 ) ادخال البيانات وترتيبها يتم عن طريق مدخل البيانات والان اترككم مع التصفح وعند وجود اي اخطاء يرجي الابلاغ وانا في خدمتكم الجدول _ الاصدار الاول.rar

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

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

الاستاذ الحبيب // عبد الموجود السلام عليكم ورحمة الله وبركاته ومرحباً بك مجددا ابشر بشرك الله بالخير لقد بدات بالعمل منذ ان اخبرتني عما تريده ولكن ما تريده صعب جدا وشعرت ان دماغي شلت للتوفيق بين المتغيرات ولكن الحمد الله الذي انعم على ووفقني بفكرة اظن انها ستنجح بإذن الله بنسبة 90% واكثر للوصول الى ما نريد فانتظر لعله الساعات وسارفع لك ما توصلت اليه بفضل الله تعالى..

السلام عليكم الاخ الكريم / عاصفة الصحراء بارك الله فيك تقبل خالص تحياتي

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل // nasersaeed طباعة اللجان بطريقة يدوية وآلية (يوجد داخل البرنامج) الصورة توضح ذلك أما الموضوع الثاني فأنا حولت فيه ولم أجد له حل أضم صوتي لصوتك أرجوا في هذا المنتدي العظيم وخبراء المنتدي أن يوجدوا له حل وشكرا

السلام عليكم تفضل أخى هذا الكود يقوم بعمل اللازم Sub ragab() Dim LR As Integer, R As Integer Dim Rng As Range, cl As Range '============================================== Set ws = Sheets("ورقة2") Set WF = Application.WorksheetFunction '============================================== LR = ws.Cells(Rows.Count, 2).End(xlUp).Row Set Rng = ws.Range("B2:B" & LR) Application.ScreenUpdating = False '============================================== Range("B2:M2").Copy If WF.CountIf(Rng, [B2]) > 0 Then ansr = MsgBox("هذا المشروع موجود بالفعل" & Chr(10) & " " & "اذا كنت تريد إستبدالة اضغط نعم" _ & Chr(10) & " " & "وان لم ترد استبداله اضغط لا", vbYesNo, "مشروع مكرر") If ansr = vbYes Then R = WF.Match([B2], Rng, 0) + 1 ws.Range("B" & R).PasteSpecial xlPasteValues GoTo 1 Else GoTo 2 End If End If 2: ws.Range("b" & LR + 1).PasteSpecial xlPasteValues LR = ws.Cells(Rows.Count, 2).End(xlUp).Row For Each cl In ws.Range("A2:A" & LR) cl = cl.Row - 1 Next 1: Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

السلام عليكم الاخ الكريم / عاصفة الصحراء بارك الله فيك شاهد المرفق التالي ... ان شاء الله به طلبك تقبل خالص تحياتي تحديد مصدر بيانات القائمة في الكومبوبكس بناءا علي الاختيار للـ Optionbotton.rar

السلام عليكم ورحمة الله لم اتعامل مع اكسل2003 واعتقد انك لم تقف على الخلية C9 حتى تظهر معادلة التنسيق الشرطي الاسم المعرف COUN وضعناه كاسم حتى يسهل التعديل ويمكن استخدام معادلته في التنسيق الشرطي مباشرة بعد تعديل بسيط والاستغناء عن الاسم المعرف COUN بالنسبة لتوسيع نطاق عمل التنسيق الشرطي يجب ان تكون على دراية بمعادلة الاسم المعرف COUN وكيفية تعديلها حتى تتمكن من تطويعها حسب طلبك في المرفق يعمل التنسيق الشرطي على النطاق C9:C20 في كل الاوراق لايتم تلوين المكرر في نفس الورقة ولعمل ذلك امسح علامة اكبر من الصفر >0 من نهاية معادلة الاسم المعرف COUN في امان الله اظهار المكرر بين الصفحات3.rar

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

شاهد اخي الكريم الرابط التالي للتعرف علي امتدادات الحفظ لملفات الاكسيل ليمكنك الحفظ بالطريقة المطلوبة لحفظ الملف بالفورم والاكواد http://www.officena.net/ib/index.php?showtopic=50458&hl=

السلام عليكم وبعد إذن أخى الحبيب / أبو سما أخى الفاضل / محمد ما رأيك فى هذا الكود بدلا من الكود الموجود بالملف حيث يقوم الكود التالى بالترحيل حتى ولو لم تكن الصفحات التى سوف يرحيل إليها موجود فى البداية كما أنه يرحل البيانات بنفس التنسيقات وعمل مسلسل فى الصفحات التى سوف يرحل إليها Sub ragab() Dim cl As Range, sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If Not sh.Name = "Sheet1" Then sh.Range("A2:L1000").ClearContents End If Next LR = Cells(Rows.Count, 1).End(xlUp).Row For Each cl In Range("L2:L" & LR) x = Trim(cl.Value) On Error Resume Next If Worksheets(x) Is Nothing Then Sheets.Add.Name = x Sheets(x).Move After:=Sheets(Sheets.Count) End If Sheets("sheet1").Range("A1:L1").Copy Sheets(x).Range("A1").PasteSpecial xlPasteValues Sheets(x).Range("A1").PasteSpecial xlPasteFormats cl.Offset(0, -11).Resize(1, 12).Copy Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteFormats Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteColumnWidths Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 3).End(xlUp).Row, 1) = Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 3).End(xlUp).Row, 1).Row - 1 Application.CutCopyMode = False Next MsgBox "تم الترحيل بنجاح الى صفحات منفصلة" Sheets("sheet1").Select Application.ScreenUpdating = False End Sub

السلام عليكم الاخ الكريم / محمد عبد القادر بارك الله فيك وبعد اذن استاذي القدير / رجب جاويش ... جزاه الله خيرا (( اللي وحشنا كتييييييييييييير )) الذي رأيت رده بعد ان قمت بالتعديل علي الكود ... وارجو ان يعجبه ويفي بغرضك Sub tarheel() Application.ScreenUpdating = False Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets For r = 2 To 1000 If sh.Name = "sheet1" Then GoTo 2 If Cells(r, 1).Value <> Empty Then If Cells(r, 12).Value = sh.Name Then Range(Cells(r, 1), Cells(r, 12)).Copy QQ = sh.Cells(1000, 1).End(xlUp).Row + 1 sh.Range("A" & QQ).PasteSpecial xlPasteValues End If End If Next Next Application.DataEntryMode = False Application.ScreenUpdating = True 2 End Sub تقبلوا خالص تحياتي بيانات اعدادى1.rar

السلام عليكم الاخ الكريم / Mr.reda بارك الله فيك بعد اذن اخي الحبيب / سليم حاصبيا ... جزاه الله خيرا قم باستخدام الكود التالي في زر التسجيل لتنفيذ المطلوب Private Sub CommandButton1_Click() Dim LR, LR1 As Long Dim Adr As String Dim r, c As Integer Dim ws, ws2 As Worksheet '================= SAMA = MsgBox("ÓíÊã ÊÓÌíá ÇáÈíÇäÇÊ ÇáãæÌæÏÉ ÈÇáÝÇÊæÑÉ ¿åá ÇäÊ ãÊÃßÏ ãä ÇÌÑÇÁ åÐå ÇáÚãáíÉ", vbYesNo) If SAMA = vbYes Then If Me.TxtInvNo = "" Or Me.TxtIndate = "" Or Me.TxtMonthCod = "" _ Or Me.ComDocNo = "" Or Me.ComDocType = "" Or Me.TxtcustNo = "" _ Or Me.Comcustn = "" Or Me.Comcustn = "" Or Me.txtstoNo = "" Or Me.ComStoN = "" Then 'Exit Sub MsgBox "Çßãá ÇáÈíÇäÇÊ ÇáÛíÑ ãÓÌáÉ ÇÚáí ÇáÝÇÊæÑÉ ÇæáÇ", vbMsgBoxRight, "äÞÕ Ýí ÇáÈíÇäÇÊ !!!" Exit Sub Else '============= 'saleH ÎÇÕ ÈÇáÌÒÁ ÇáÚáæí æÊÑÍíáå Çáí Set ws = Worksheets("saleH") LR = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(LR, 1).Value = Me.TxtInvNo.Value ws.Cells(LR, 2).Value = Me.TxtIndate.Value ws.Cells(LR, 3).Value = Me.ComDocNo.Value ws.Cells(LR, 4).Value = Me.ComDocType.Value ws.Cells(LR, 5).Value = Me.txtstoNo.Value ws.Cells(LR, 6).Value = Me.ComStoN.Value ws.Cells(LR, 7).Value = Me.TxtcustNo.Value ws.Cells(LR, 8).Value = Me.Comcustn.Value ws.Cells(LR, 9).Value = Me.TxtGtotal.Value ws.Cells(LR, 10).Value = Me.Txtsaletax.Value ws.Cells(LR, 11).Value = Me.txtGtax.Value ws.Cells(LR, 12).Value = Me.txtDam.Value ws.Cells(LR, 13).Value = Me.TXTNETTOTAL.Value ws.Cells(LR, 14).Value = Me.txtTafkit.Value ws.Cells(LR, 15).Value = Me.TxtMonthCod.Value '================================ 'saleT ÎÇÕ ÈÇáÌÒÁ ÇáÓÝáí æÊÑÍíáå Çáí Set ws2 = Worksheets("saleT") With ws2 LR1 = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 End With For r = 1 To 15 Adr = Cells(r, 1).Address(0, 0) If Len(Trim(Me.Controls(Adr))) Then For c = 1 To 8 Adr = Cells(r, c).Address(0, 0) ws2.Range("A" & LR1).Cells(r, c).Value = Me.Controls(Adr).Value Next End If Next sama_Clear '===================== End If MsgBox "!! Êã ÊÓÌíá ÈíÇäÇÊ ÇáÝÇÊæÑÉ.. ÈäÌÇÍ " Else MsgBox "!! áã íÊã ÊÓÌíá ÇáÈíÇäÇÊ" End If End Sub ارجو ان يفي بطلبك اخي الكريم تقبل خالص تحياتي Mall_sama.rar

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

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

السلام عليكم الاخ الكريم / نور محمود بارك الله فيك قم اخي الكريم بتصميم شكل الفورم الذي تريده ليتم تنفيذ المطلوب عليه كما تريد ( باذن الله ) حيث قمت بالاطلاع علي ملفك ... وقمت بالاستعانة باحد الفورم الموجودة لدي للبحث والتعديل ولكني احترت في الشكل النهائي واليك بداية الفكرة تقبل خالص تحياتي 28-4 الدوليه.rar

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

الجزء الرابع من شروحات الترحيل

السلام عليكم فضلا انظر للمرفق وبه الاكواد وكلمة السر 123 مع الشكر ابو خالد _______________1.rar