Ali Mohamed Ali

وعليكم السلام من فضلك راجع هذا الرابط -فالموضوع مكرر وتم مناقشته من قبل هنا 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

وهذا الأمر طبعا فى غاية البساطة تقوم بتحديد ما تشاء من الخلايا التى تحتاج ان تظهر القيم السالبة فيها ب صفر وبعد ذلك تعمل كليك يمين وتختار Format Cells ثم تضغط على Custom وبعد ذلك تكتب هذا التنسيق #,##0;"0" ثم ok -كما بالصورة

تفضل لك ما طلبت -ولكن بعد ذلك عليك الإجتهاد والبحث فى المنتدى فبه بالفعل كنوز كما اخبرك الأستاذ أحمد فبع ذلك عليك بالبحث فى المنتدى عن ما تريد قبل رفع مشاركتك فهذا الموضوع بالفعل نوقش بالعديد من المشاركات بارك الله فيك الترحيل.xlsm

عليك برفع الملف . وهذا هو ملفك من البداية مطبق عليه المعادلة New Microsoft Excel Worksheet (6).xlsx

أهلا بك اخى الكريم فى المنتدى اين الملف ؟!!!!!!!!!! او عليك البحث عن وتحميل وتسطيب هذا البرنامج Passware Kit Forensic 13.5

تفضل اخى الكريم هذه هى المعادلة المطلوبة -طبعا بع اذن استاذنا الكريم أحمد =SUMPRODUCT(($A$1:$A$8=$A$10:$B$10)*($B$1:$B$8))

بارك الله فيك استاذنا الكريم فيك استاذنا الكريم معادلة ممتازة

. هذه المعادلة بالفعل تؤدى الغرض المطلوب او عليك برفع ملف للتوضيح أكثر بالمطلوب الذى تريده

اهلا بك اخ كريم فى المنتدى يمكنك استخدام هذه المعادلة =CELL("address",B1)

عليك برفع ملف لما تريد او تستخدم هذه المعادلة =IF(a2<>"",TEXT(NOW(),"hh:mm:ss"))