أبو حنــــين

العفو اخي : / Khhanna لكن أخي :Creation World لا ادري مالذي يريده فإن كان يريد حفظ الملف بصيغة أخر مثلا txt او bmp فهذا ممكن في الفورم الذي ارسلته و لم افهم ما الشيئ المهم في الفورم الذي ارسله هو و يريد الحفاظ عليه

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

العفو اخي

السلام عليكم فورم لحفظ نسخة من الملف.rar

السلام عليكم وهذه الطريقة بالكود بعد اذن اخوتي اخي الحيب : / الدغيدي الاستاذ : محمود نموذج3.rar

جرب المرفق 600.rar 60011.rar

انظر صفحة الشرح شرح.rar

اضافة لمعادلة اخي رجب هذه الطريقة بالكود Private Sub Worksheet_Selectionchange(ByVal Target As Range) Dim cl As Range For Each cl In Range("C5:C20") With cl If .Value = "" Or .Offset(-1, 0).Value = .Value Then .Offset(0, 3).Value = "" Else .Offset(0, 3).Value = .Value End If End With Next End Sub Book1.rar

السلام عليكم هذه الصورة هل هي في مجلد معين او داخل الملف ؟

هذا بالنسبة للطلب الاول Private Sub kh_AddContl() Dim MyName As String Dim MyFrmLeft As Double, ScHght As Double Dim MyLeft As Double, MyWidth As Double Dim i As Integer '''''''''''''''''''''''''''''''''''''''''''''''''''''''' If MyCont = 20 Then Exit Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''' MyCont = MyCont + 1 ScHght = (MyCont * iTop) + Frmtop '''''''''''''''''''''''''''''''''''''''''''''''''''''''' With Me.FrameList If ScHght > .Height Then .ScrollHeight = ScHght MyFrmLeft = .Left + .Width - .InsideWidth End With '''''''''''''''''''''''''''''''''''''''''''''''''''''''' For i = 1 To 6 MyWidth = Me.Controls("LabelZ" & i).Width MyLeft = Me.Controls("LabelZ" & i).Left - MyFrmLeft MyName = Cells(MyCont, i).Address With Me.FrameList.Controls.Add("Forms.TextBox.1", MyName, True) .Move MyLeft, MyTop, MyWidth, iHt .TextAlign = 3 End With Next MyTop = MyTop + iTop ''''''''''''''''''''''''''''''''''''''''''''''''' End Sub

الشرح 666.rar

شاهد المرفق اخي موظفين 4.rar

جرب اخي المرفق و اخبرني بالنقائص و بين لي الاضافات موظفين 2.rar

السلام عليكم إظهار صف تكست بوكس جديد عند الضغط على مفتاح Enter.rar

السلام عليكم تم تعديل الملف السابق لوجود خطأ تبقى شكلة الطباعة ارجو ان تبين المعلومات التي تريد طباعتها موظفين معدل.rar

و وجدت هذا أيضا : طريقة احتساب ضريبة كسب العمل نسبة الاعفاء الشخصى شهريا = ( 750جم ) سنويا = 9000 جم الوعاء الضريبي الشهرى = الراتب المستحق – قيمة التامينات المستقطعة 14% - حد الاعفاء الشهرى 750 جم الوعاء الضريبي السنوى = الوعاء الضريبي الشهرى X 12 شهر طريقة احتساب الضريبة اول 15000 فى 10% ثانى 20000 فى 15 % بعد 20000 فى 20% بمعنى يتقاضى موظف راتب مبلغ 5000 جم وتخصم عليه تامينات 150 جم ماهى الضريبة المستحقة الراتب الشهرى – خصم التامينات – حد الاعفاء = الوعاء الشهرى 5000 - 150 - 750 = 4100 الوعاء الشهرى فى 12 شهر = الوعاء السنوى 4100 * 12 شهر = 49200 جم 49200 = 15000 + 20000 + 14200 اول 15000 من الوعاء السنوى فى 10 % = 1500 جم ثانى 20000 من الوعاء السنوى فى 15 % = 3000 جم الباقى 14200 من الوعاء السنوى فى 20 % = 2840 جم الاجمالى الكلى للضريبية = ( 1500 + 3000 + 2840 ) = 7340 جم قيمة اجمالى الوعاء الضريبي السنوى مقسوم على 12 شهر 7340 / 12 = 611.66

اخي الحبيب : / دغيدي وددت أن أقدم المساعدة لكنني لم افلح فتوجهت الى الانترنات و بحثت هناك ، فوجدت هذا الملف لا ادري هل هو ما طلبت ام لا الدمغة.rar

حل ممتاز اخي بن علية و لديا سؤال ما الفرق بين الدالة التي وضعتها و الدالة التالية ؟ =SUMIF(B5:E10000;A5;C5:C10000)

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

السلام عليكم 666.rar

السلام عليكم 1.rar

جرب المرفق أخي 55.rar

جرب هذا الكود Private Sub Worksheet_Selectionchange(ByVal Target As Range) For s = 1 To 2000 '00 If Cells(s + 10, 9).Value = "غ" And Cells(s + 10, 10).Value = "غ" Then Cells(s + 10, 11).Value = "غ" Else Cells(s + 10, 11).Value = Val(Cells(s + 10, 9).Value) + Val(Cells(s + 10, 10).Value) If Cells(s + 10, 9).Value = "" And Cells(s + 10, 10).Value = "" Then Cells(s + 10, 11).Value = "" End If Next End Sub

العفو اخي أكرم

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