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

للرفع أخى أرجو الاهتمام

للرفع هل الطلب لا يمكن تطبيقه (مستحيل)؟؟؟؟ ارجو الاهتمام

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

أخى ليس هذا هو المطلوب مجهود كبير أخى ولكن حضرتك لم تفهم المطلوب جيداً وهذا خطأى فاعذرنى المطلوب: أنا اريد اظهار عدد ساعات العمال فى قوائم أسماء العمال التى فى أعلى الشيت بحيث عندما أغير التاريخ الذى فى خانة d1 و d38 يقوم بكتابه عدد الساعات لكل عامل فى قوائم الأسماء ملحوظة : كلمة قوائم هنا لا تعنى validation list بل تعنى قائمة بأسماء العمال (كما هى مكتوبة فى الشيت) - نطاق عدد الساعات الذى اريد كتابه المعادلات به : هو d3:d33 و i3:i26 (البيوماس ) والتاريخ فى خانة D1 و d450:d66 و i40:i58 (المفارم) والتاريخ فى خانة D38 وشكرا

هذا ما فعلته أخى بالضبط ولكن ترجمه جووجل بها بعض العيوب كما ذكرت أخى ألا يوجد معادلة لعمل ترجمه حرفبة وشكرا جزيلاً

اريد معادلة لترجمه أسماء أشخاص أى كتابه مجموعه اسماء عربية وتحويلها للأنجلش مثل "ياسر" تصبح Yasser "على "تصبح Ali وهكذا ملحوظة : قد تكون الأسماء ثلاثية أو رباعية هل هناك معادلة لعمل ذلك

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

السلام عليكم ورحمه الله وبركاته لقد تم حل المشكلتين أخى بمساعدة أخى أبو نصار فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=39914 وأخيرا لقد فتحت فورم البحث هذا فورم رائع ولكن ينقصه شيء بسيط 1- option button1 و option button2 لا يعملان أخى والفورم يقوم باظهار تقرير للعمالة الحاضرين فقط وأما الغياب فلا هناك خيارين أخى : إما أن يعتمد البحث على عدد ساعات العمل "0"(غياب) أو ">0" (حضور)؟ بحيث أكتب هذه المعاملات فى خانة عدد الساعات أو أريد تفعيل أزرار option buttons حيث تعطى خطأ رقم 75 2- هل يمكن عندما أقوم بالوقوف على اسم عامل أن يقف فى الناحية اليسرى (على عدد ساعات عمل ذلك العامل) أوتوماتيكياً ،وأن يكون لون التحديد برتقالياً وشكرا

شكرا أخى الكريم حل أكثر من رائع 10 على 10 تمت الاجابه

للرفع

للرفع

للرفع

لى سؤال: ألا يمكن منع مربع رقم العامل من كتابه أى حرف (أى الاقتصار على كتابه الأرقام فقط؟؟؟

السلام عليكم ورحمه الله وبركاته - عندى ملف مكون من 4 شيتات قابلة للزيادة - كيف يمكن استخدام pivot table لتجميع وتحليل بيانات من عدة شيتات - أريد عمل ال pivot Table التجميعى كالpivot الموجود فى أسفل sheet1 - واريد التحكم فى اظهار أى أعمدة أخرى فى الجدول المحورى التجميعى ملحوظة : البيانات متشابهه فى ال 4 شيتات ECARU Account.rar

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

للرفع أخى

أعذرنى أخى لأن هذا ما يواجهنى فعلا عند الضغط على زر p وقد جربتها أكثر من مرة لى سؤال: ألا يمكن منع مربع رقم العامل من كتابه أى حرف (أى الاقتصار على كتابه الأرقام فقط)؟ وشكرا جزيلا

مجهود أكثر من رائع يا جماعة أكثر الله من أمثالكم شكرا جزيلا

حل رائع ولكن اريد أن امنع مربع رقم العامل من كتابه أى حروف لأننى عندما اضغط p يقوم بتنفيذ الكود ويكتب حرف p فى رقم العامل هل هناك حل لذلك وشكرا جزيلا أخى

ارفقت ملفين أخى الكريم أرجو العمل على اصلاح المتغيرات بهما وشكرا وهل يمكن دمج الأكواد التى بالملفين (لأنها أكواد لفورم واحد) Mas_Attendance_Roll_1.rar Mas_Roll1.rar

لقد حللت جزء من المشكلة يا أخوانى تبقى جزء صغير المشكلة: - عند كتابه رقم العامل والضغط على enter يتم كتابه اسم العامل والانتقال لمربع عدد الساعات التعديل: اريده ألا يقوم بهذا الانتقال (أى يظل المؤشر فى خانة رقم العامل ) هل يمكن اعلامى بكيفية اجراء هذا التعديل على اليوزر فورم؟؟؟؟؟

هل المطلوب صعب يا أخوانى أنا لا أرى فيه أى صعوبة أرجو الاهتمام

شكرا أخى على ولكن تحدث مشكلة عندى حيث بعد حفظ الملف وفتحه مرة أخرى تظهر رسالة (Error in Loading DLL) ولا يعمل الفورم (فى نافذة البرمجة) ولا يمكن التعديل على الكود الخاص به(حيث لا يمكن اظهار الكود أساساً) ما السبب فى ذلك

السلام عليكم ورحمه الله وبركاته اريد ضبط اعلان المتغيرات فى هذا الكود هذا كود ليوزر فورم للعاملين: أرجو ضبط المتغيرات به لأنى حاولت ضبطها ولم أنجح رجاء وضع أى تغييرات فى الكود باللون الأحمر Private Sub CommandButton1_Click() If ComboBox1.Value = "" Then MsgBox "íÌÈ ÇÎÊíÇÑ Çáíæã", vbMsgBoxRight, "ÊíÐíÑ" ComboBox1.SetFocus ElseIf TextBox3.Value = "" Then MsgBox "íÌÈ ßÊÇÈÉ ÚÏÏ ÇáÓÇÚÇÊ", vbMsgBoxRight, "ÊíÐíÑ" TextBox3.SetFocus Else dd = Application.WorksheetFunction.VLookup(CDbl(ComboBox1.Value), Sheets("data_entry").Range("Am4:an35"), 2, False) col = dd + 3 For m = 5 To 13 Sheets("data_entry").Cells(m, col).Value = CDbl(TextBox3) Next m For m = 17 To 61 Sheets("data_entry").Cells(m, col).Value = CDbl(TextBox3) Next m For m = 67 To 79 Sheets("data_entry").Cells(m, col).Value = CDbl(TextBox3) Next m For m = 83 To 117 Sheets("data_entry").Cells(m, col).Value = CDbl(TextBox3) Next m For m = 121 To 125 Sheets("data_entry").Cells(m, col).Value = CDbl(TextBox3) Next m MsgBox "Êã ÊíÖíÑ/ÊÛííÈ ÌãíÚ ÇáÚÇãáíä", vbMsgBoxRight, "ÇáíãÏ Çááå" End If End Sub --------------------------------------------- Private Sub CommandButton2_Click() End Sub -------------------------------------------- Private Sub CommandButton3_Click() ActiveWorkbook.Save Me.Hide End Sub ----------------------------------------------- Private Sub hodorghyab() If ComboBox1.Value = "" Then MsgBox "íÌÈ ÇÎÊíÇÑ Çáíæã", vbMsgBoxRight, "ÊíÐíÑ" ComboBox1.SetFocus ElseIf TextBox2.Value = "" Then MsgBox "íÌÈ ßÊÇÈÉ ÑÞã ÇáÚÇãá", vbMsgBoxRight, "ÊíÐíÑ" TextBox2.SetFocus ElseIf TextBox3.Value = "" Then MsgBox "íÌÈ ßÊÇÈÉ ÚÏÏ ÇáÓÇÚÇÊ", vbMsgBoxRight, "ÊíÐíÑ" TextBox3.SetFocus Else dd = Application.WorksheetFunction.VLookup(CDbl(ComboBox1.Value), Sheets("data_entry").Range("Am4:an35"), 2, False) col = dd + 3 Sheets("data_entry").Cells(Label6.Caption, col).Value = CDbl(TextBox3) 'MsgBox "Êã ÊíÖíÑ/ÊÛííÈ ÇáÚÇãá ÇáãíÏÏ", vbMsgBoxRight, "ÇáíãÏ Çááå" CreateObject("WScript.Shell").Popup "Êã ÊíÖíÑ/ÊÛííÈ ÇáÚÇãá ÇáãíÏÏ.", 2, "ÇáíãÏ Çááå", 0 TextBox3.SetFocus TextBox3.Text = "" TextBox2.SetFocus TextBox3.Text = "" End If End Sub ----------------------------------------------- Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) On Error Resume Next Label4.Caption = Application.WorksheetFunction.VLookup(CInt(TextBox2), Sheets("data_entry").Range("A5:c177"), 3, False) Label6.Caption = Application.WorksheetFunction.VLookup(CInt(TextBox2), Sheets("data_entry").Range("A5:c177"), 2, False) End Sub ----------------------------------------------- Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 112 Then Call hodorghyab If KeyAscii = 16 Then Call CommandButton1_Click End Sub أرجو الاهتمام وشكمرا جزيلاً

للرفع أخى الكريم