Ali Mohamed Ali

يمكن هذا ولكن بعد اذن طبعا استاذنا الجليل بن علية يمكنك لصق هذه الأكواد بدل التى لديك 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"))

كده يعنى يعمل فعليك الإنتظار الى ان يفتح

أهلا بك اخى الكريم فى المنتدى يمكنك الإستعانة بهذه الروابط والفيديوهات : https://www.officena.net/ib/topic/49392-جعل-ملف-الأكسل-مشترك-على-اكثر-من-جهاز/ https://www.youtube.com/watch?v=BIkzEM3i-tA https://www.youtube.com/watch?v=EN18dfR2mhw https://www.youtube.com/watch?v=XYXFp9CqKzk

بارك الله فيك استاذنا الكبير جعله الله فى ميزان حسناتك

وعليكم السلام بارك الله فيك وجعله فى ميزان حسناتك ولتعم الفائدة -كلمة السر والحماية : 123

لا يوجد مشكل بالنسبة للغة العربية سوى هذا ابحث لعل البرنامج لا يعمل الا على 32 بت مثلا وانت لديك الويندوز 64 بت

عليك بضبط اللغة العربية على جهازك -وذلك بالدخول على لوحة التحكم Control Panel ثم الدخول على Region Language ثم بعد ذلك انظر الى الصورة

وعليكم السلام تفضل المنتدى الالوان.xlsx

بارك الله فيك استاذ سليم كود ممتاز جعله الله فى ميزان حسناتك

المشاركة مكررة يجب حذفها فقد تم الرد والإجابة على هذا الرابط https://www.officena.net/ib/topic/87966-طلب-مساعدة-طريقة-عمل-مفكرة-مكتبية/

وعليكم السلام تفضل هذا أفضل بالتأكيد Calendar.xlsm