ابو حمادة

السلام عليكم ورحمة الله تعالى وبركاته كل عام وانتم والامه الاسلاميه بخير رجاء المساعده عندي ملف به كود محتاج تعديله حسب المطلوب المعيار فى العمود (i) يوجد عمودين كل عمود به قيمه ليتم استخراج النسبه المئويه منهم حسب اختياري من اليوزر فورم العمود الاول (Q) العمود الثاني (R) يوجد تكست بوكس فى اليوزر فورم اسمه (TextBo_05) ودا لتحديد النسبه المئويه ويوجد ايضا تكست بوكس فى اليوزر فورم اسمه (TextBo_06) ودا لتحديد قيمة الحد الادنى ويوجد ايضا قائمه منسدله اسمه (TexR_01) لاختيار من اريد اضافه النسبه لهم المطلوب عند تنشيط (CheckBo_06) يتم حساب قيمة العمود (Q) فى النسبه المئويه واذا كان الناتج اقل من قيمة الحد الادنى يتم اضافه قيمة الحد الادنى على القيمة الموجوده فى العمود (Q) وان كان ناتج النسبه اكبر من الحد الادنى يتم اضافه الناتج على قيمة العمود (Q) واذا تم تنشيط (CheckBo_07) يتم حساب قيمة العمود (R) فى النسبه المئويه واذا كان الناتج اقل من قيمة الحد الادنى يتم اضافه قيمة الحد الادنى على القيمة الموجوده فى العمود (R) وان كان ناتج النسبه اكبر من الحد الادنى يتم اضافه الناتج على قيمة العمود (R) مثال الحد الادنى 50 جنيه قيمة العمود = 100 النسبه = 10% يعني اذا تم حساب قيمة العمود فى النسبه هكذا 100*10% = 10 10 يعني اقل من الحد الادنى وهو 50 الناتج المفروض = قيمة العمود (Q) + الحد الادنى 50 الناتيج = 150 بدلا من 110 بمعني اخر اريد اقول لسطر الحساب اضرب قيمة العمود(Q) فى النسبه واذا كان الناتج اقل من الحد الادنى يرفع الناتج الى الحد الادنى ويتم جمعه الى قيمة العمود (Q) اتمنى اكون قدرت اوصل المطلوب مرفق ملف Private Sub CommandButton1_Click() Dim ws As Worksheet: Set ws = Sheets("add") Dim CL, C2 As Range Application.ScreenUpdating = False ' _________________________________________________________________________________ For Each CL In ws.Range("i6:i" & ws.Range("i" & Rows.Count).End(xlUp).Row) If Me.CheckBo_06.Value = True Then If CL.Value = Me.TexR_01.Value Then محتاج تعديل هذا السطر اذا كان ناتج النسبه المئويه اقل من قيمة الحد الادنى جنيه (50 جنيه) يتم رفعه الى 50 جنيه واضافتها لقيمة العمود (R) CL.Offset(0, 9) = Format(Round(CL.Offset(0, 9) + CL.Offset(0, 8) * Me.TextBo_05.Value / 100, 2)) End If Next ' _________________________________________________________________________________ If Me.CheckBo_07.Value = True Then For Each C2 In ws.Range("i6:i" & ws.Range("i" & Rows.Count).End(xlUp).Row) If C2.Value = Me.TexR_01.Value Then محتاج تعديل هذا السطر اذا كان ناتج النسبه المئويه اقل من قيمة الحد الادنى (50 جنيه) يتم رفعه الى 50 جنيه واضافتها لقيمة العمود (R) C2.Offset(0, 9) = Format(Round(C2.Offset(0, 9) + C2.Offset(0, 9) * Me.TextBo_05.Value / 100, 2)) End If Next Application.ScreenUpdating = True End Sub Test1.rar

شكر لكم اساتذتى الافاضل ولكن هناك عدة مشاكل الكود اشتغل لما اضفط ( Next ) قبل End sub ولكن تقيل جدا جدا فى التنفيذ والنتيجه خطأ وايضا هذا السطر بالكود الاول N.Offset(0, 118) = Format(Round(N.Offset(0, 171) + N.Offset(0, 172) + N.Offset(0, 173) + N.Offset(0, 174), 2)) لم يدرج فى الكود هذا علما انا هذا السطر يجب تنفيذه قبل مسح باقي البيانات فلذلك النتيجه خطأ هل هناك حل لتخفيف الكود علما ان الكود الاول بالرغم انه طويل ولكن اسرع من هذا الكود مع انه صغير ولكم منى جزيل الشكر

شكرا لاهتمامك استاذي الفاضل انا جربت الكود بتظهر رسالة خطأء وبيتم تحديد اخر سطر فى الكود ( 1 End Sub ) كما واضح فى الصورة

السلام عليكم ورحمة الله تعالى وربركاته كل عام وانتم بخير بمناسبه حلول شهر رمضان المعظم اعاده الله علينا وعليكم وعلى امة المسلمين باليمن والخير والبركات استفسار 1- لدى ملف به عدد اعمده كثيره جدا وصفوف تتخطي 10 الاف صف الكود يعمل كما اريد ولكن الكود طويل جدا وبياخد وقت فى تنفيذ الكود عمل الكود عباره عن اذا تحقق الشرط يتم مسح بيانات الصف باكمله ماعدي بعض الاعمده لها عمليات حسابيه هل من الممكن اختصار الكود المرفق لكي ينفذ ما اريد بسرعه افضل من هذا Sub Click3() On Error GoTo 1 Dim ws As Worksheet: Set ws = Sheets("add") Dim N, C2 As Range ' On Error Resume Next For Each N In ws.Range("H6:H" & ws.Range("B" & Rows.Count).End(xlUp).Row) If N.Value = "محمود" Or N.Value = "احمد" Then Application.ScreenUpdating = False N.Offset(0, 111) = "" N.Offset(0, 112) = "" N.Offset(0, 113) = "" N.Offset(0, 114) = "" N.Offset(0, 115) = "" N.Offset(0, 116) = "" ' N.Offset(0, 117) = "" N.Offset(0, 118) = Format(Round(N.Offset(0, 171) + N.Offset(0, 172) + N.Offset(0, 173) + N.Offset(0, 174), 2)) N.Offset(0, 119) = "" '' N.Offset(0, 120) = "" '' N.Offset(0, 121) = "" '' N.Offset(0, 122) = "" '' N.Offset(0, 123) = "" '' N.Offset(0, 124) = "" '' N.Offset(0, 125) = "" '' N.Offset(0, 126) = "" '' N.Offset(0, 127) = "" '' N.Offset(0, 128) = "" '' N.Offset(0, 129) = "" '' N.Offset(0, 130) = "" '' N.Offset(0, 131) = "" '' N.Offset(0, 132) = "" '' N.Offset(0, 133) = "" '' N.Offset(0, 134) = "" '' N.Offset(0, 135) = "" '' N.Offset(0, 136) = "" '' N.Offset(0, 137) = "" '' N.Offset(0, 138) = "" '' N.Offset(0, 139) = "" '' N.Offset(0, 140) = "" '' N.Offset(0, 141) = "" '' N.Offset(0, 142) = "" '' N.Offset(0, 143) = "" '' N.Offset(0, 144) = "" '' N.Offset(0, 145) = "" '' N.Offset(0, 146) = "" '' N.Offset(0, 147) = "" '' N.Offset(0, 148) = "" '' N.Offset(0, 149) = "" '' N.Offset(0, 150) = "" '' N.Offset(0, 151) = "" '' N.Offset(0, 152) = "" '' N.Offset(0, 153) = "" '' N.Offset(0, 154) = "" '' N.Offset(0, 155) = "" '' N.Offset(0, 156) = "" '' N.Offset(0, 157) = "" '' N.Offset(0, 158) = "" '' N.Offset(0, 159) = "" '' N.Offset(0, 160) = "" '' N.Offset(0, 161) = "" '' N.Offset(0, 162) = "" '' N.Offset(0, 163) = "" '' ' N.Offset(0, 164) = "" N.Offset(0, 165) = Format(Round(N.Offset(0, 180) + N.Offset(0, 181), 2)) N.Offset(0, 166) = "" '' N.Offset(0, 167) = "" '' N.Offset(0, 168) = "" '' N.Offset(0, 169) = "" '' N.Offset(0, 175) = "" '' N.Offset(0, 177) = "" '' N.Offset(0, 178) = "" '' N.Offset(0, 179) = "" '' ' N.Offset(0, 180) = "" '' ' N.Offset(0, 181) = "" '' N.Offset(0, 182) = "" '' ' N.Offset(0, 183) = "" '' N.Offset(0, 184) = "" '' N.Offset(0, 185) = "" '' N.Offset(0, 186) = "" '' N.Offset(0, 187) = "" '' N.Offset(0, 188) = "" '' N.Offset(0, 189) = "" '' N.Offset(0, 190) = "" '' N.Offset(0, 191) = "" '' N.Offset(0, 192) = "" '' N.Offset(0, 193) = "" '' N.Offset(0, 194) = "" '' N.Offset(0, 195) = "" '' N.Offset(0, 196) = "" '' N.Offset(0, 197) = "" '' N.Offset(0, 198) = "" '' N.Offset(0, 199) = "" '' N.Offset(0, 200) = "" '' N.Offset(0, 201) = "" '' N.Offset(0, 202) = "" '' N.Offset(0, 203) = "" '' N.Offset(0, 204) = "" '' N.Offset(0, 205) = "" '' N.Offset(0, 206) = "" '' N.Offset(0, 207) = "" '' N.Offset(0, 208) = "" '' N.Offset(0, 209) = "" '' N.Offset(0, 210) = "" '' N.Offset(0, 211) = "" '' N.Offset(0, 212) = "" '' N.Offset(0, 213) = "" '' N.Offset(0, 214) = "" '' N.Offset(0, 215) = "" '' N.Offset(0, 216) = "" '' N.Offset(0, 217) = "" '' N.Offset(0, 218) = "" '' N.Offset(0, 219) = "" '' N.Offset(0, 220) = "" '' N.Offset(0, 221) = "" '' N.Offset(0, 222) = "" '' N.Offset(0, 223) = "" '' N.Offset(0, 224) = "" '' N.Offset(0, 225) = "" '' N.Offset(0, 226) = "" '' N.Offset(0, 227) = "" '' N.Offset(0, 228) = "" '' N.Offset(0, 229) = "" '' N.Offset(0, 230) = "" '' N.Offset(0, 231) = "" '' N.Offset(0, 232) = "" '' N.Offset(0, 233) = "" '' N.Offset(0, 234) = "" '' N.Offset(0, 235) = "" '' N.Offset(0, 236) = "" '' N.Offset(0, 237) = "" '' N.Offset(0, 238) = "" '' N.Offset(0, 239) = "" '' N.Offset(0, 240) = "" '' N.Offset(0, 241) = "" '' N.Offset(0, 242) = "" '' N.Offset(0, 243) = "" '' N.Offset(0, 244) = "" '' N.Offset(0, 245) = "" '' N.Offset(0, 246) = "" '' N.Offset(0, 247) = "" '' N.Offset(0, 248) = "" '' N.Offset(0, 249) = "" '' N.Offset(0, 250) = "" '' N.Offset(0, 251) = "" '' N.Offset(0, 252) = "" '' N.Offset(0, 253) = "" '' N.Offset(0, 254) = "" '' N.Offset(0, 255) = "" '' N.Offset(0, 256) = "" '' End If Next Application.ScreenUpdating = True 1 End Sub وجزاكم الله خيرا

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

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

شكرا لاهتمامك استاذي الفاضل Review Share Workbook و يمكن التحكم فى خيارات حفظ التعديلات من تبويب Advanced الاوامر دي انه اصدار انا عمل على اوفيس 2007 اما بخصوص البديل كما ذكرت قاعدة البيانات على الاكسس فهل هناك معادلات حسابيه انا خبرتى بسيطه ولا اعلم عن الاكسيس شيئ بس ال اعرفه ن الكسل هو للاعمال لحسابيه وانا الملف 95% كله مسائل حسابيه فيهما افضل من وجهة نظرك بحكم خبرتك اما عن مراجعه الموضوعات التى نوهت عنها فهى كلها انجلش وانا تعليم فرنساوى ههههههههه مليش فى االانجلش وبقرأ عربي مكسر ههه ولكن ما اريد معرفته حقيقيا هو هل هناك مواقع على الانترنت ينفع يتم عمل موقع مثلا وعمل عليه بينت العاملين ويضا لحساب مرتباتهم زي موقع الجهات الحكوميه مثلا ؟؟

هل من الممكن اعرف الاوامر دي فين بالظبط ......... هل فى ملف الاكسل ولا فين تحديدا ؟؟؟ مع العلم انى اعمل على ويندوز 7 واوفيس 2007 عربي

السلام عليكم ورحمة الله تعالى وبركاته الاخوة الاعضاء اساتذتي الاجلاء كل عام وانتم بكل خير عامل برنامج على الاكسل بيانات موظفين والبرنامج يعمل بكفأة عالليه جدا والحمد لله ولكن يحتوى هذا الملف على اكثر من 10 الاف موظف المطلوب .................. استفسار 1- هل من الممكن فتح البرنامج والتعديل عليه من اكثر من جهاز فى وقت واحد (سواء عن طريق عمل شبكه داخليه وربط اكثر من جهاز ببعض او عن طريق الانترنت ) مع العلم ان البرنامج عند فتحه يظهر فورم لادخال اسم المستخدم وكلمة السر واى تعديل على الملف بيكون عن طريق يوزر فورم معد لذلك 2- ماهى الاضرار التى ممكن تحصل للبرنامج وامته اقول ان الملف حجمه كبير واصبح فيه خطورة على ادء البرنامج 3- هل هناك بديل للاكسل لعمل برنامج يشمل مرتبات العاملين واضافة المعادلات والاكواد مثل الاكسل ويؤدي نفس العمل على الاكسل وبنفس النتيجه فى طرق الحساب اتمنى من اساتذتي الكرام وكل من لديهم الخبره افادتى في ذلك الموضوع

شكرا لاهتمامك استاذي الغالي

مرفق ملف بحث.rar

شكرا لاهتمامك استاذي الفاضل هو بالفعل انا عامل فورم شغال بيه ويعمل جيدا لكن فيه مشكله تقيل جدا في البحث علما انه البحث في 5 الاف اسم ومش عارف دا طبيعي ولا لاء

واذا كان الملف لايوجد به اى معادلات وطرق الحساب اكواد بداخل الفورم ؟؟؟

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

السلام عليكم ورحمة الله تعالى وبركاته هو جميل جدا وخفيف ولكن لو كنت اريد اضافات لبعض اكواد الحساب على هذا الفورم اعمل ايه واحدد ازى التكستات عليه بمعني عايز احسب بعض التكستات واضيف اكواد حسابيه بمعني ادق لو عايز قيمة التكست بوكس 1 اجمعه على تكست بوكس 2 او اضربه فى نسبه مئويه او غير ذلك يتم عمل هذا ازي اتمنى توضيح

Book1.rar

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

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

شكر لاهتمامك وردك ولكن افهم ذلك انت تقصد محرر الاكواد فى الاكسل ما اقصده هل من الممكن ان كان محرر الاكواد محمي بكلمة سر هل يمكن فكها؟؟

شكرا لاهتماك استاذي الكبير حولت استخدم ااكود بيدي خطأ فى سطر k = Cells(Rows.Count, 3).End(3).Row واتمنى لو يتم تحديد ورقة العمل الذي يعمل عليها الكود

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

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام رجاء المساعده ملف للتطبيق : بيانات مكررة.rar محتاج كود لتنقية البيانات المكرره في النطاق من (A6:DZ) معيار التكرار هو الرقم القومي فى العمود (C) في حالة تكرارالرقم القومي اكثر من مره يتم مسح بيانات الصف باكمله للرقم القومى المكرر وجزاكم الله كل خير وزادكم علما نافعا تنفعون به الناس وتنفعون به انفسكم

شكرا لردك استاذي الغالى هو بالفعل يوجد فورم يظهر عند فتح الملف به اسم مستخدم وكلمة سر بس ممكن افهم يعني ايه لو VBA ???

السلام عليكم ورحمة الله وبركاته الاخوة الكرام عندي ملفات اكسل كثيره هذه الملفات عند فتحها يظهر فورم به اسم المستخدم وكلمة السر يجب ادخالها عند فتح الملف عدد الملفات حوالى 120 ملف وكل ملف به عدد من الشيتات من ضمن الشيتات شيت اسمه (add) محتاج كود يعمل الاتى يفتح الملفات كلها ويجلب من كل ملف البيانات الموجوده فى شيت اسمه (add) وينسخها فى ملف واحد اسمه (Data) يعني يتم جمع كل البيانات الموجوده فى كل الملفات لملف واحد هل دا ممكن ولا امر صعب؟؟

هقول لحضرتك حاجه اسهل ممكن فقط تحدد الشيت الذي يعمل عليه الكود ومش مهم النطاق