أبوأحـمـد

الملف مفتوح مواقيت الصلاة مفتوح.xlsb

وعليكم السلام ورحمة الله وبركاته إذا كان اصدار الأكسل لديك لا يدعم الصفيف فلابد من ضغط كنترول +شفت + انتر ctrl+shift +enter بعد تحرير المعادلة مصنف (2).xlsx

وفيك بارك بإذن الله قريبا فقط أنتظر اكتمال الملاحظات ليكون الملف المفتوح بأخطاء أقل وشكرا لاهتمامك

شكرا اخوتي الأعزاء دعمكم ودعواتكم سر سعادتي

تفضل تطبيق 1.xlsm

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

إضافة للموضوع تم إدراج الأرقام من 1 إلى 99 ويمكن التطوير حسب حاجة الأعضاء فقط حدد الأرقام واضغط تحويل تفقيط الأول.xlsm

جرب الآن تعديل بسيط.xlsm

وعليكم السلام تفضل خزينة تجريبى (1).xlsm

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

استخدم المتوسط (AVERAGE) =AVERAGE(A7:X7)

وعليكم السلام ورحمة الله وبركاته موجودة أسماء المدن لكل دولة بس غريبة غير ظاهرة لديك هذا مثال لمدن مصر بالعربية والانجليزي

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

السلام عليكم كذلك يمكن استخدام الدالة INDEX بهذه الطريقة =INDEX({"الأول","الثاني","الثالث","الرابع","الخامس","السادس","السابع","الثامن","التاسع","العاشر","الحادي عشر","الثاني عشر","الثالث عشر","الرابع عشر","الخامس عشر","السادس عشر","السابع عشر","الثامن عشر","التاسع عشر","العشرون"};B1)

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

وعليكم السلام تفضل فيها نموذج صفحة التقرير يمكنك التعديل عليها وسينعكس ذلك على شيت عهد المعلمين ولكن لا تعدل على عدد الصفوف زيادة ونقصا دون التعديل على الكود edit.xlsm

وعليكم السلام تفضل edit.xlsm

تفضل Private Sub CommandButton7_Click() Call Addimg(CommandButton7.Caption) End Sub Private Sub CommandButton8_Click() Call Addimg(CommandButton8.Caption) End Sub Private Sub CommandButton9_Click() Call Addimg(CommandButton9.Caption) End Sub Private Sub CommandButton10_Click() Call Addimg(CommandButton10.Caption) End Sub Private Sub CommandButton11_Click() Call Addimg(CommandButton11.Caption) End Sub 'توحيد الإجراء Function Addimg(CommandC As String) Dim ws As Worksheet: Set ws = Sheets("البيانات") Dim sh As Worksheet: Set sh = Sheets("الفلتر") sh.Range("a4:j150") = "" sh.[f1].Value = CommandC k = 4 lr = ws.Range("c" & Rows.Count).End(xlUp).Row For R = 5 To lr If ws.Range("c" & R) = sh.Range("f1") Then For j = 1 To 10 sh.Cells(k, j) = ws.Cells(R, j) Next k = k + 1 End If Next X = sh.Range("d999").End(xlUp).Row For i = 1 To X Controls("Label" & i).Caption = sh.Cells(i + 3, 4) Next End Function

وعليكم السلام إن كنت فهم المطلوب فهذا الحل استبدل الكود بالتالي Private Sub CheckBox1_Click() If TextBox1.Text Like "*صنف*" Then For i = 26 To 15 Step -1 If Cells(i, 2) > 0 Then TextBox2.Value = Cells(i, 2): Exit For Next Else For i = 26 To 15 Step -1 If Cells(i, 5) > 0 Then TextBox2.Value = Cells(i, 5): Exit For Next End If End Sub

أشكرك أخي عمر على كلامك الطيب بنظرة سريعة على الكود من الأفضل توحيد الإجراء حتى لا يتكرر مع كل صورة واستدعاء الإجراء فقط ليكون بهذا الشكل ما عليك إلا وضع هذا السطر عند ضغط الصور Call AddItemL(Label2.Caption) فقط غير رقم الليبل Private Sub Image1_Click() Call AddItemL(Label1.Caption) End Sub Private Sub Image2_Click() 'استدعاء الاجراء ووضع اليبل المناسب لكل صورة Call AddItemL(Label2.Caption) End Sub 'توحيد الإجراء Function AddItemL(LabelC As String) X = 0 For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.List(i, 0) = LabelC Then X = 1 Exit For End If Next i TextBox1 = WorksheetFunction.VLookup(LabelC, Range("d4:h99"), 5, 0) If X = 1 Then 'Me.ListBox1.AddItem Me.ListBox1.List(i, 1) = Me.ListBox1.List(i, 1) + 1 Me.ListBox1.List(i, 2) = Me.ListBox1.List(i, 1) * TextBox1 Else Me.ListBox1.AddItem Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = LabelC Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = 1 Me.ListBox1.List(i, 2) = TextBox1 End If End Function

وعليكم السلام احذف 'Me.ListBox1.AddItem عند تحقق الشرط ليصبح الكود بهذا الشكل Private Sub Image1_Click() X = 0 For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.List(i, 0) = Label1.Caption Then X = 1 Exit For End If Next i TextBox1 = WorksheetFunction.VLookup(Label1, Range("d4:h99"), 5, 0) If X = 1 Then 'Me.ListBox1.AddItem Me.ListBox1.List(i, 1) = Me.ListBox1.List(i, 1) + 1 Me.ListBox1.List(i, 2) = Me.ListBox1.List(i, 1) * TextBox1 Else Me.ListBox1.AddItem Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Label1.Caption Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = 1 Me.ListBox1.List(i, 2) = TextBox1 End If End Sub Private Sub Image2_Click() X = 0 For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.List(i, 0) = Label2.Caption Then X = 1 Exit For End If Next i TextBox1 = WorksheetFunction.VLookup(Label2, Range("d4:h99"), 5, 0) If X = 1 Then 'Me.ListBox1.AddItem Me.ListBox1.List(i, 1) = Me.ListBox1.List(i, 1) + 1 Me.ListBox1.List(i, 2) = Me.ListBox1.List(i, 1) * TextBox1 Else Me.ListBox1.AddItem Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Label2.Caption Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = 1 Me.ListBox1.List(i, 2) = TextBox1 End If End Sub

تفضل نموذج بحث - مثال.xlsm

وعليكم السلام تفضل نموذج بحث - مثال.xlsm

فوزى فوزى كرما اضغط زر أفضل إجابة في رد الأستاذ احمد عبدالحليم

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