Ali Mohamed Ali

تفضل بمعادلات المصفوفة بيانات موظفبن.xlsm

تفضل لك ما طلبت Countif.xlsx

وعليكم السلام 2معادلة شرطية.xlsx

اهلا بك اخ كريم فى المنتدى وعليكم السلام - تفضل يمكنك تجربة وتعميمه على باقى صفحات الملف كما بصفحة كشف قراءه يوليو (2) ___من يوليو - نسخة - نسخة - نسخة.xlsm

وعليكم السلام الحضور والانصراف.xlsx

اهلا بك اخى الكربم بالمنتدى المشكلة من عندك عليك بتحديث برنامج فك الضغط عندى winrar فالملف يعمل بكل كفاءة

بالفعل موجود بالملف تفضل رصد العقوبات طلاب الثانوية العامة.xlsm

أهلا بك اخى الكريم فى المنتدى تفضل هذا الملف حساب قرض بسيط1.xls

وعليكم السلام لك ما طلبت سليم.xls

تفضل كرت دوام.xlsx

تفضل لك ما طلبت يمكنك وضع هذا الكود فى حدث الفورم كما بالملف Private Sub UserForm_Initialize() Label54.Caption = Format(Now(), "dd mmmm yyyy hh:mm:ss AMPM") End Sub رصد العقوبات طلاب الثانوية العامة.xlsm

وعليكم السلام لك ما طلبت جمع صفوف محددة.xlsm

تفضل طبعا بعد اذن استاذنا مهند حسابات.xls

وعليكم السلام من فضلك راجع هذا الرابط -فالموضوع مكرر وتم مناقشته من قبل هنا https://www.officena.net/ib/topic/87918-كود-لحماية-ملف-الاكسل-من-الحذف-او-النسخ/?tab=comments#comment-555501

أهلا بك اخ كريم فى المنتدى الملف لا يحتوى على فورم عموما كود طباعة الفورم هو - يوضع فى حدث الفورم Private Sub CommandButton1_Click() UserForm1.PrintForm End Sub او هذا Private Sub CommandButton1_Click() Me.PrintForm End Sub

أخى الكريم تفضل انا قلت لك طالما انك تريد ان تكتب الساعة 12:20 AM لابد من كتابتها هكذا 24:20 وشكرا حساب ساعات العمل333.xlsx

الملف يعمل تمام معى يمكن نسخة الإكسيل عندك مختلفة

زعليكم السلام تفضل Classeur.xlsx

تفضل Search.xlsm

اخى الكريم حلمى هذا الموضوع مكرر كثيرا فى هذا المنتدى كان عليك استخدام خاصية البحث فى المنتدى-تفضل https://www.officena.net/ib/topic/87988-اللغه-العربيه-في-الاكسيل-2010-لا-تظهر-بشكل-صحيح/?tab=comments#comment-555828

جرب هذا طبعا بعد اذن استاذنا الكبير رصد العقوبات طلاب الثانوية العامة.xlsm

اهلا بك اخى الكريم فى المنتدى كان عليك رفع الملف نفسه تفضل هذا هو الملف Search & add Sheets.xlsm

او عليك برفع الملف على موقع رفع خارجى مثل https://www.mediafire.com/#myfiles

يمكن هذا ولكن بعد اذن طبعا استاذنا الجليل بن علية يمكنك لصق هذه الأكواد بدل التى لديك Private Sub CommandButton1_Click() For i = 1 To 11 k = Choose(i, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15) Cells(r, k) = Controls("TextBox" & k).Text Next i For j = 1 To 4 k = Choose(j, 5, 6, 7, 10) Cells(r, k) = Controls("ComboBox" & j).Text Next j ListBox1.List(i, 0) = TextBox2.Text End Sub Private Sub CommandButton2_Click() lrw = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row For i = 1 To 11 k = Choose(i, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15) Sheets(1).Cells(lrw + 1, k) = Controls("TextBox" & k).Text Next i For j = 1 To 4 k = Choose(j, 5, 6, 7, 10) Sheets(1).Cells(lrw + 1, k) = Controls("ComboBox" & j).Text Next j For m = 1 To 11 Controls("TextBox" & Choose(m, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)).Text = "" Next m For n = 1 To 4 Controls("Combobox" & n).Text = "" Next n ListBox1.AddItem ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets(1).Cells(lrw + 1, 2).Value ListBox1.List(ListBox1.ListCount - 1, 1) = lrw + 1 TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A2:A5000")) + 1 TextBox2.SetFocus End Sub Private Sub CommandButton3_Click() If MsgBox("سيتم الحذف هل أنت متأكد؟", vbQuestion + vbYesNo) = vbYes Then Sheets(1).Cells(r, 1).EntireRow.Delete For Z = 1 To 15 Sheets(1).Cells(r, Z).Delete Shift:=xlUp Next Z Sheets(1).Cells(r, 1).Resize(r, 15).Delete Shift:=xlUp MsgBox "تمت عملية الحذف بنجاح" For X = 1 To 11 k = Choose(X, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15) Controls("Textbox" & k).Text = "" Next X For Y = 1 To 4 Controls("Combobox" & Y).Text = "" Next Y ListBox1.Clear UserForm_Activate TextBox16 = "" End If End Sub Private Sub CommandButton4_Click() End End Sub Private Sub ListBox1_Click() For i = 0 To ListBox1.ListCount If ListBox1.Selected(i) = True Then For j = 1 To 11 k = Choose(j, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15) Controls("TextBox" & k).Text = Cells(ListBox1.List(i, 1), k) Next j ComboBox1.Text = Cells(ListBox1.List(i, 1), 5): ComboBox2.Text = Cells(ListBox1.List(i, 1), 6): _ ComboBox3.Text = Cells(ListBox1.List(i, 1), 7): ComboBox4.Text = Cells(ListBox1.List(i, 1), 10) r = ListBox1.List(i, 1) Exit For End If Next i End Sub Private Sub TextBox14_Change() TextBox14.Value = Format(TextBox14.Value, "HH:MM") End Sub Private Sub TextBox15_Change() TextBox15.Value = Format(TextBox15.Value, "HH:MM") End Sub Private Sub TextBox16_Change() ListBox1.Clear For j = 1 To 11 Controls("TextBox" & Choose(j, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)).Text = "" Next j For k = 1 To 4 Controls("Combobox" & k).Text = "" Next k If TextBox16 = "" Then Exit Sub Sheets(1).Activate ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row k = 0 For Each C In Range("B2:B" & ss) If C Like TextBox16.Value & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = Cells(C.Row, 2).Value ListBox1.List(k, 1) = C.Row k = k + 1 End If Next C End Sub Private Sub TextBox12_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If StrComp(TextBox12.Value, "DD/MM/YYYY", vbTextCompare) = 0 Then TextBox12.Value = "" End If End Sub Private Sub TextBox13_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim dDate As Date dDate = DateSerial(Year(Date), Month(Date), Day(Date)) TextBox13.Value = Format(TextBox13.Value, "dd/mm/yyyy") dDate = TextBox13.Value End Sub Private Sub UserForm_Activate() For i = 2 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row ListBox1.AddItem ' ListBox1.List(i - 1, 0) = Cells(i, 2).Value ' ListBox1.List(i - 1, 1) = i Next i For j = 1 To 11 Controls("TextBox" & Choose(j, 1, 2, 3, 4, 8, 9, 11, 12, 13, 14, 15)).Text = "" Next j For k = 1 To 4 Controls("Combobox" & k).Text = "" Next k TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A2:A5000")) + 1 TextBox2.SetFocus End Sub

أخى الكريم قلت لك قبل هذا عندما تريد كتابة الوقت يجب عليك كتابة صحيحا فعندما تريد ان تكتب مثلا الساعة 12 منتصف الليل فعليك كتابتها 24:00 اما بالنسبة للساعة 12 ظهرا فعليك بكتابتها هكذا 12:00 عدل على ملفك هكذا وشوف النتيجة