Ali Mohamed Ali

وعليكم السلام الحضور والانصراف.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 عدل على ملفك هكذا وشوف النتيجة

أخى الكريم شوف بنفسك فى الصورة من الملف الذى ارسلته اليك سابقا المعادلة تعمل تمام على المطلوب الذى تريده عليك بكتابة وقت الحضور هكذا 08:00 اى صباحا وبالنسبة ل 11 مساءا فى الإنصراف تكتب هكذا 23:00 فيخرج لك الناتج كما ترى 15 ساعة عمل بأجر 10 جنيه مثلا للساعة فيخرج الناتج 150 جنيه فما الخطأ هنا ؟!!!! كل شيء مضبوط وتمام

موجود اخى الكريم كما تم الشرح من قبل استاذنا الكبير قنديل الصياد لاحظ الصورة بنفسك

اخى الكريم عليك بكتابة الوقت بشكل صحيح ودقيق حتى تخرج معك النتيجة صحيحة فمثلا لو لديك الوقت 11 مساءا فعليك بكتابتها هكذا 23:00 قياسا كل الأوقات هكذا ومثلا الساعة 6 مساءا تكتب هكذا 18:00 عليك الا تكتب بغير هذا فليس هناك خطأ فى المعادلة فالمشكلة دائما منك فى طريقة كتابة الوقت

تفضل حساب ساعات العمل2.xlsx