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

يمكن عمل ذلك بواسطة كود (الصفحة SALIM من هذا الملف) Option Explicit Sub colorize() With Sheets("SALIM") Dim cl As Long, Lastcol As Long, Lastrow As Long Lastcol = .Cells(4, Columns.Count).End(1).Column - 1 Lastrow = .Cells(Rows.Count, 3).End(3).Row Range("c4").Resize(Lastrow - 3, Lastcol).Interior.ColorIndex = xlNo Dim n#, RO%, k%, m% For RO = 4 To Lastrow For m = 3 To Lastcol n = .Cells(RO, m) k = Application.CountIf(Cells(RO, m).Resize(, 7), n) If k = 7 Then .Cells(RO, m).Resize(, 7).Interior.ColorIndex = 28 m = m + 6 End If Next Next End With End Sub الملف مرفق تنسيق شرطي by_VBA .xlsm

السلام عليكم ورحمة الله مساعدة أولى بالمعادلات... أرجو أن تفي الغرض المطلوب.. بن علية حاجي sample.xlsx

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

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

أستاذنا : سليم سلمت من كل شر ، جزاك الله خير وبارك فيك ونفع بعلمك وكثر الله من أمثالك أعلم أن بناء مثل هذا الكود يأخذ من وقتك فأشكرك جزيل الشكر على الوقت الذي منحته لمساعدتي تحياتي

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

السلام عليكم ونموذج الشهادة غير موجود في البرنامج الكامل.... بن علية حاجي

السلام عليكم ورحمة الله الملف ليس فيه بيانات ثم كيف تريد أن تكون هذه الشهادة؟ ضع نموذجا للشهادة وبعض البيانات حتى يتم عمل ما تريد... بن علية حاجي

ممكن جمع الشيتات التي تريد في Array والتعديل في الكود كما تشاء

من باب الحفاظ على حقوق النشر والملكية الفكرية يجب ذكر واضع الكود للملف الذي قمت برفعه جرب هذا الكود Option Explicit Sub Give_ALL_Data() Dim Arr_sh(), i%, m%: m = 2 Dim Arr_counte() For i = 1 To Sheets.Count - 1 ReDim Preserve Arr_sh(1 To i) ReDim Preserve Arr_counte(1 To i) Arr_sh(i) = Sheets(i).Name Arr_counte(i) = Application.Max(Sheets(i).Range("a:a")) Next Sheets("تجميع").Range("b2:i500").ClearContents For i = LBound(Arr_sh) To UBound(Arr_sh) Sheets("تجميع").Range("b" & m).Resize(Arr_counte(i), 8).Value = _ Sheets(Arr_sh(i)).Range("b2").Resize(Arr_counte(i), 8).Value m = m + Arr_counte(i) + 1 Next Erase Arr_sh: Erase Arr_counte End Sub الملف مرفق Data_from_all_sheets.xlsm

السلام عليكم تم تغيير معادلات حساب الرصيد باستعمال الدوال : SUMIF و INDIRECT (طويلة بعض الشيء لكنها تفي بالغرض)... بن علية حاجي حساب الرصيد حسب الصنف.xlsx

حدث عن الفتح يحتاج ماكرو DoCmd.RunMacro "MA31Facture"

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

السلام عليكم تفضل أخي الملف به المطلوب برنامج3.xlsm

من المعروف ان الدالة Match تعطينا أول صف تراه في الجدول لكن بحيلة بسيطة يمكننا التغلب على هذه الدالة لتعطينا كل الصفوف (كل ذلك دون أخطاء N/A#) شاهد هذا الملف Multi_Match.xlsx

السلام عليكم تم إلغاء الحماية عن الورقة (إزالة الكلمة السرية القديمة) ثم إعادة حمايتها بالكلمة السرية 123... إذا قمت بتغييرها فما عليك إلا إضافة هذه إلى الكود بدلا من 123 في الجزئية "Password:="123... بن علية حاجي طباعة ورقه محمية.xlsm

تم معالجة الأمر الماكرو لا يعمل اذا لم يكن الفلتر موجوداً أو اذا لم تكن الورقة الاولى هي النّاشطة بعد تنفيذ الماكرو تمسح البيانات التي تم نقلها من الورقة الاولى Sub Salim() If ActiveSheet.Name <> "Sheet1" Or _ Sheets("sheet1").AutoFilterMode = False Then Exit Sub If Sheets(1).[c4] = vbNullString Then Exit Sub Dim lr%, lr1% lr = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row If lr <= 5 Then MsgBox "No Data to Transfer", 64 Exit Sub End If lr1 = Sheets(Sheets(1).[c4].Value) _ .Cells(Rows.Count, 1).End(3).Row + 2 If lr1 = 7 Then lr1 = 6 Sheets(1).Range("a6").Resize(lr - 5, 14).SpecialCells(12) _ .Cut Sheets(Sheets(1).[c4].Value).Range("a" & lr1) Sheets(1).Range("a6").Resize(lr - 5, 14).SpecialCells(4).EntireRow.Delete Sheets("sheet1").AutoFilterMode = False End Sub الملف من جديد Tarhil_by_filter.xlsm

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

وعليكم السلام 🙂 تفضل: Private Sub Command24_Click() ' مفتاح اضافة موظف اخر لنفس القرار Dim strSQL As String Dim intHow_Many As Integer strSQL = "[KararNom]='" & Me.KararNom & "'" strSQL = strSQL & " And [KararYear]='" & Me.KararYear & "'" strSQL = strSQL & " And [CompID]=" & Me.CompId intHow_Many = DCount("*", "TblKararat", strSQL) If intHow_Many > 0 Then MsgBox "لقد تم تسجيل هذا الموظف مسبقا" Exit Sub End If DoCmd.RunCommand acCmdSaveRecord Dim x As Integer If MsgBox("تم اضافة وحفظ بيانات الموظف للقرار بنجاح. هل تريد اضافة موظف لنفس القرار؟", vbYesNo, "تنبيه") = vbYes Then Dim N, Y, F N = Me.KararNom: Y = Me.KararYear: F = Me.KararFrom DoCmd.GoToRecord , , acNext Me.KararNom = N: Me.KararYear = Y: Me.KararFrom = F Me.CompId.SetFocus Else DoCmd.RunCommand acCmdRecordsGoToNext Me.KararNom.SetFocus End If End Sub جعفر

تم وضع زر الطباعة المطلوبة في شيت 0 (مع عدم طباعة هذا الزر ضمن بيانات الصفحة -الشيت-)... تأكد فقط أنه توجد صفحة واحدة للطباعة في كل شيت (التعامل مع ناحية الطباعة وهوامش الصفحة)... ميزانية التسيير 2018.xlsm

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

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