الـعيدروس

السلام عليكم إستحالة يتم التغيير في المعادلة لان المعادلة تقراء من الزرقاء أو اني فهمت ماتريده خطاء

السلام عليكم جزيتم خيرا اساتذتي الافاضل وهكذا لتعدد الحلول Sub S_ALI() On Error Resume Next Dim x As Integer, S, U, M As Integer T = [a15000].End(xlUp).Row + 1 For x = 2 To T If Cells(x, 1).Value = "الإجمالــي" Then MsgBox "تم عمل الإجمالي سابقاً": Exit Sub If IsNumeric(Range("c" & x)) = True Then S = S + Range("c" & x).Value U = U + Range("d" & x).Value M = M + Range("e" & x).Value End If Next x Range("a" & T).Value = "الإجمالــي" Range("a" & T).Borders.Color = 2 Range("a" & T).Font.Bold = True Range("a" & T).Offset(0, 1).Borders.Color = 2 Range("a" & T).Offset(0, 2).Value = S: Range("a" & T).Offset(0, 2).Borders.Color = 2 Range("a" & T).Offset(0, 3).Value = U: Range("a" & T).Offset(0, 3).Borders.Color = 2 Range("a" & T).Offset(0, 4).Value = M Range("a" & T).Offset(0, 4).Borders.Color = 2 End Sub

السلام عليكم أخي الفاضل أبو الحسن شاكر مرورك العطر وكلماتك الطيبه تسلم اخي الفاضل (ضي النور) ياجعل دروبك كلها نور في نور نعم هذا ماارجو توضيحه بالنسبة للكمبوكس اذهب إلى خلايا T -U - V - W -X تحت مسميات روؤس الأعمدة أضف البيانات التي تريدها تحت المسميات انا أرتأيت أن هذه الحقول يلزمها قائمة منسدلة لتعدد المسميات الثابته والمستحدثه فتقدر تضيف او تمسح خيار فرضاً أنا : الجنسية (السعودية - اليمن - مصر --بنجلاديش - الهند ) أي شيء هذا لابد من كمبوكس المهنه ( من عامل - إلى مدير) حط ماتحطه من مسميات الديانه ( مسلم - مسيحي - هندوز ) وأضن هذا الحقل مايلزمه كمبوكس ربما مكان إصدار الإقامة ( المدينه - جدة - مكه ) الحالة ( موجود - غير موجود ) واذا كان عمل هذا العمود كملاحظات فربما لانحتاج الكمبوكس على العموم أي هذه الأعمدة لايلزمها الكمبوكس اسدح طلبك فقط ولاعليك وبالنسبة للفورم احنا اتفقنا أن الفورم السابق يستخدم للطباعة ؟؟؟؟؟؟ فقط ( ولشيت الناتج فقط) هذا اتفقت مع نفسي فقط لإن باقي الشيتات لابد من فورمز اخر لها لإن بياناتها تختلف عن شيت الناتج و أما الفورم الجديد ( للإدخال -- الحذف -- التعديل ) الإدخال تنقر زر (إضافة موظف جديد) تحط البيانات بعدها تدوس زر ( إضافة ) ===================== التعديل ( تبحث عن إسم الموظف وسوف تظهر لك بياناته في التكستات عدل ماتريد تعدل ) بعدها دوس زر تعديل ===================== الحذف ( إستخدم تكست البحث) البحث برقم الإقامة (قابل للتعديل لو تريد) ظهر رقم الإقامة مع بياناته بعدها إنقر مرتين على الإسم الذي سوف يظهر في الليست بوكس سوف يظهر لك مربع إدخل الرمز للحذف وهو (1234) ودوس موافق ===================== وأما باقي الشيتات الداتا تختلف اذاً لابد من فورمز جديد للكلام ذا وسوف يتم إرفاق الإضافات قريباً إن شاء الله مع وافر تحياتي وتقديري

السلام عليكم جزاك الله خير استاذ احمد على الكود المختصر بعد اذن استاذنا الحبيب لتعدد الحلول اخي الفاضل بأمكانك الاستعانه بهذا الكود يقوم بإنشاء ورقة جديدة وتسميتها SUM_DATA_ALI ويلصق جميع بيانات الأوراق فيها Sub Cop_A() Dim WRK_A As Workbook Dim SH_A, TG_A As Worksheet Dim RG_A As Range Dim C_CT As Integer Set WRK_A = ActiveWorkbook For Each SH_A In WRK_A.Worksheets If SH_A.Name = "SUM_DATA_ALI" Then MsgBox "وجود إسم ورقة تجميع البيانات مسبقا 'SUM_DATA_ALI'" & vbCrLf & _ "برجاء تغير الإسم أو حذف الورقة", vbOKOnly + vbExclamation, "تحذير !!!" Exit Sub End If Next SH_A Application.ScreenUpdating = False Set TG_A = WRK_A.Worksheets.Add(After:=WRK_A.Worksheets(WRK_A.Worksheets.Count)) TG_A.Name = "SUM_DATA_ALI" Set SH_A = WRK_A.Worksheets(1) C_CT = SH_A.Cells(1, Columns.Count).End(xlToLeft).Column With TG_A.Cells(1, 1).Resize(1, C_CT - 1) .Value = SH_A.Cells(1, 1).Resize(1, C_CT - 1).Value End With For Each SH_A In WRK_A.Worksheets If SH_A.Index = WRK_A.Worksheets.Count Then Exit For End If Set RG_A = SH_A.Range(SH_A.Cells(2, 1), SH_A.Cells(Rows.Count, 2).End(xlUp).Resize(, C_CT - 1)) TG_A.Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(RG_A.Rows.Count, RG_A.Columns.Count).Value = RG_A.Value TG_A.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(RG_A.Rows.Count, 1).Value = SH_A.Name TG_A.Cells(1, 1) = "Sheet Name": TG_A.Cells(1, 2) = SH_A.Cells(1, 1): TG_A.Cells(1, 3) = SH_A.Cells(1, 1).Offset(0, 1) TG_A.Cells(1, 1).Resize(1, 3).Borders.Color = 1: TG_A.Cells(1, 1).Resize(1, 3).Font.Bold = True TG_A.Columns.AutoFit Next SH_A Application.ScreenUpdating = True End Sub

اخي ارجو منك إعطائي فكرة عن التقارير مثلا تريد 4 تقارير تقرير 1 : تقرير للموظفين الهاربين ويحتوي على 1- 2- 3- تقرير 2 تقرير للموظفين المقمين يحملون رخصة ويحتوي على 1- 2- 3- تقرير 3 تقرير للموظفين مخالفات مرور ويحتوي على 1- 2- 3- تقرير4 تقرير للموظفينحديثى الدخول ويحتوي على 1- 2- 3- هل اتضح مااريد توضيحه منك يعني بدل مااعمل شيء ويطلع مايلبي احتيجاتك كذا ضيعنا وقت وجهد على الفاضي رجائي التوضيح ولو فيه افكار اخرى ارجو طرحها بيض وجهك تحياتي

السلام عليكم اخي الفاضل انا عند وعدي ولاكن ضروف الوقت عندي ضيقه عملت جزء من العمل على عجاله ارجو منك الإطلاع على المرفق وأي ملاحظات أو تعديلات أرجو توضيحها تحياتي مهم جدا _alidroos4.rar

السلام عليكم ابشر بشيء يسر خاطرك

السلام عليكم حط هذه المعادلة في C2 =IF(ISERROR(A2+B2);0;A2+B2) واسحب لاسفل

ماهو المطلوب ؟؟؟

اخي الفاضل عند كلمة اضف الرد تلاقي كلمة (استخدام المحرر الكامل) انقر عليها ويجيك زر (اختار ملف) انقر عليه وحدد مكان الملف المراد ارفاقه ومن ثم إضغط موافق وبعدها تحت زر (اختار ملف) تلاقي زر (ارفق هذا الملف ) انقر عليه وبعده اضغط (اضف الرد) بالتفصيل الممل

ممكن ليش لا إرفق ملف وماهو المدى في كل الشيتات

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

نحط قيمة 1 في خليه A1 وهذي المعادلة =(A1*2)^2 في A2 وخليه A3 نحط فيها هذه المعادلة =A2*2 ومن ثم نسحب المعادلة التي في خليه A3 إلى A30 وراح يطلع نفس الناتج (10,737,418.23) ولاكنمايدري كيف طلع نفس الناتج ===>

وعلى هذا الرابط مع إضافة زر للسنه لم اراه الا الان == تم إضافة المرفق للمشاركة TS_alidroos_2.rar

جزاك الله كل خير على هذا التوضيح أستاذ عماد ====> بليد في الرياضيات

إستخدم هذا المرفق بدلاً عن مرفق مشاركة السابقة مهم جدا _alidroos3.rar

الاستاذ القدير الحسامي ممكن شرح للدالة ضربت الصفوف من A1:A30 كم في كم

السلام عليكم تفضل. a1.rar

السلام عليكم بعد اذن اساتذتي الافاضل عبدالله المجرب واحمد زمان حفظكم الله الاخ الفاضل عندك في ورقة DATA اكثر من 100 صنف قيمة المبيعات sales فيها تظهر خطاء #DIV/0! وبسببها لم يتم جمع المبيعات في كل التقارير فقمت بتعديل الخطاء إلى رقم 1 ولكي تراجع من قبلك عملت عليها لون أصفر في شيت DATA على العموم اطلع على المرفق لعله يكون طلبك واذا لم اصب ارجو التوضيح ولي ملاحظة على ملفك ؟؟؟؟؟؟ عند عمل تسطير على الشيت كامل يسبب بطئء في فتح الملف هذا التسطير الذي ماله داعي في الأوراق من الأفضل انك تعمل ملف جديد وتنسخ اليه البيانات والأكواد إرفاق الملفات للموقع فيه مشكله عندي او ان الحجم فاق الحجم الافتراضي حمل الملف من الرابط التالي http://www.4shared.com/file/cG7YYP6n/TS_alidroos.html

اضنه الناتج عفوا هكذا 536,870.91 الطريقة A1 = 0.001 A2 = A1*2 بعدها السحب حتى 30 صف حل بدوي

تفضل للادخال الجديد انقر على زر ادخال جديد وبعد كتابة البيانات في التكستات لنقر على زر الاضافة تم إزالة الرسالة وجرب عندك هل عاد تظهر ام لا تفضل المرفق مهم جدا _alidroos2.rar

بالنسبة للخلية التي مكتوب فيها 1 في شيت مخالفات مرورية مجرد تجربه وأما فورم إدخال بيانات وين تقصد فين اخر شيت شيت الناتج ام ماذا

طلبك غير واضح

ياعمي والله اسف بكل تعديل بخطاء السموخه يااخي تفضل واي ملاحظات او تعديلات انا موجود مهم جدا _alidroos1.rar

السلام عليكم اخي الفاضل انفر مرتين على رقم الإقامة في أي شيت ولاحظ بشرط ان يكون رقم الأقايم في اول عمود لاتغير موقع الحقل في كل الأوراق مهم جدا _alidroos.rar