ياسر أحمد الشيخ

للرفع

انظر أخى إلى المواضيع التالية فى المنتدى: 1 - VlookUp 2- فديو تعليمى : شرح دالة IFERROR أرجو الاستفادة

ارفق ملف أخى

ارفق ملف أخى

السلام عليكم ورحمه الله وبركاته لقد أرفقت صور للثلاث نماذج طريقة عمل الفورم(أى فورم من الثلاثة): 1- اقوم باختيار التاريخ من combobox الخاص بالتاريخ الموجود أعلى الفورم لاحظ: يتم كتابه القيمة 8 كقيمة افتراضية لخلايا عمود Hours 2- اقوم بالتغيير فى قيم عمود Hours بكتابه "0" للغياب أو من 10 إلى 12 اذا كانت سهرة 3- التأكد من اجمالى الحضور والغياب بالنظر إلى الجدول أسفل النموذج (اوتوماتيكي) 4- الضغط على زر الترحيل وشكرا Biomass Form (2).zip Amraa Form.zip Shredding Area Form.zip

أرجو أن يعمل الملف Attendance Sheet_Req.zip

الملف شغال عملتله تحميل وبرضه شغال للرفع

بعد اذن الأخ صاحب الملف لقد وجدت الفورم فى المنتدى الحمد لله أخيرا ملف رائع جدا وهذا هو الكود أرجو كتابه الشرح الخاص بكل سطر Option Explicit '****************************************************** ' اسم ورقة البيانات Const Sh_MyDate As String = "بيانات اساسية" '------------------------------------------------------ ' رقم صف رؤوس الاعمدة Const lrow As Integer = 5 '------------------------------------------------------ ' عدد الاعمدة التي تريدها ابتداءا من العمود الاول Const lcol As Integer = 28 '****************************************************** Private k As Integer Private Sub CommandButton2_Click() Unload Me End Sub Private Sub CommandButton3_Click() Dim j As Integer k = ScrollBar1.Value label_Scrol_Value.Caption = "رقم : " & k Application.ScreenUpdating = False For j = 1 To lcol If Me.Controls("Textbox" & j).Locked = False Then Worksheets(Sh_MyDate).Cells(k + lrow, j) = Me.Controls("Textbox" & j).Value End If Next j Application.ScreenUpdating = True ScrollBar1_Change End Sub Private Sub CommandButton4_Click() k = ScrollBar1.Value Worksheets(Sh_MyDate).Cells(k + lrow, 1).EntireRow.Delete ScrollBar1_Change End Sub Private Sub ScrollBar1_Change() Dim j As Integer k = ScrollBar1.Value label_Scrol_Value.Caption = "رقم : " & k With Worksheets(Sh_MyDate) .Cells(k + lrow, 1).Select For j = 1 To lcol Me.Controls("Textbox" & j).Value = .Cells(k + lrow, j).Value Next j End With Frame1.ScrollTop = 0 End Sub Private Sub UserForm_Activate() ScrollBar1_Change End Sub Private Sub UserForm_Initialize() Dim MyLabel As Control, MyTxtbox As Control Dim i As Integer, MyTop As Integer, MyFrame_Top As Integer MyTop = 20 MyFrame_Top = 12 Frame1.ScrollHeight = (lcol * MyTop) + MyFrame_Top If Frame1.ScrollHeight > Frame1.Height Then Frame1.SpecialEffect = 3 For i = 1 To lcol Set MyLabel = Frame1.Controls.Add("Forms.label.1", "label" & i, True) With MyLabel .BorderStyle = 1 .Move 180, MyFrame_Top, 80 .Caption = Worksheets(Sh_MyDate).Cells(lrow, i).Value .TextAlign = fmTextAlignCenter .Font.Bold = True .Font.Size = 12 .FontName = "Times New Roman" .ForeColor = vbRed End With Set MyTxtbox = Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i, True) With MyTxtbox .Move 0, MyFrame_Top, 180 .TextAlign = fmTextAlignCenter .Font.Bold = True .Font.Size = 12 .FontName = "Times New Roman" If Worksheets(Sh_MyDate).Cells(lrow + 1, i).HasFormula Then .BackColor = &HFFC0C0 .Locked = True End If End With MyFrame_Top = MyFrame_Top + MyTop Next i End Sub ارجو كتابه الشرح فى الملف نفسه اعداد تقارير مدرسية.rar

السلام عليكم ورحمه الله وبركاته اريد انشاء 3 نماذج ادخال بيانات خاص بمرتبات فى الملف تصميم جاهز ولكن داخل الشيت للثلاث نماذج تقوم الثلاث نماذج بادخال البيانات فى شيت Data انظر المرفق Attendance Sheet_Req.zip

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

هذا هو رابط الفيديو للاختصار http://www.gulfup.com/?elUwUT الرجاء شرح طريقة عمل هذا الفورم +مثال عملى وشكراً

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

ألا يمكن حل تلك المشكلة بكود آخر

شكرا جزيلا أخى حل رائع جدا

السلام عليكم ورحمه الله وبركاته اريد احتساب اضافى للحضور فى الراحة وذلك لنظام راحات محدد فى الجدول انظر المرفق Addition2.rar

معادلتك أخى لا تعطى الناتج المطلوب وهو كتابة تواريخ الأجازات (ج) كالتالى: 5+6+20+29

ممكن يا أخوانى عمل معادلة معرفة بالمطلوب user defined function آسف إنى تعبتكم معايا

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

السلام عليكم ورحمه الله وبركاته اريد عمل معادلة لتسجيل تواريخ الأجازات انظر المرفق وشكرا Write Vacc.rar

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

للرفع أين الردود أيها الأخوة

السلام عليكم ورحمه الله وبركاته اريد احتساب ايام العمل فى الراحة وذلك فى الخانة (اضافى) يتم أخذ الراحة بناء على جدول الراحات أرجو استعمال المعادلات انظر المرفق calculate Addition_ALL.rar

السلام عليكم ورحمه الله وبركاته اريد احتساب ايام العمل فى الراحة وذلك فى الخانة (اضافى) يتم أخذ الراحة بناء على جدول الراحات لقد قمت بعمل معادلة ولكن بها مشكلة أرجو استعمال المعادلات انظر المرفق

هو المطلوب أخى ولكنى أريد معادلة عادية وليس معادلة صفيف شكرا

أخى المعادلة أريد تطبيقها على نطاق كبير يصل إلى 1000 صف ومعادلة الصفيف هذه تأخذ وقت عند اضافة اى بيانات فى الملف