نجوم المشاركات

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

الأخ الحبيب أنا لا أمانع ، ولكن الملف يحتاج إلى مزيد من التنظيم والترتيب ، حتى يسهل العمل عليه ..وحتى يكون مريحا لك.. بالنسبة لطبك كن أكثر تحديدا وتفصيلا للطلب حتى يمكن مساعدتك (أي صفحات تريد تفريغها واذكر النطاق المراد تفريغه.. أعتقد موضوع التفريغ موضوع بسيط جدا .. إنك تحدد الورقة المراد تفريغها والنطاق ثم الأمر ClearContents مثلا الورقة لو اسمها Data وتريد تفريغ النطاق A1:C100 يكون الأمر في منتهى السهولة Sheets("Data").Range("A1:C100").ClearContents

جرب هذا الكود ..قمت ببعض التعديلات Sub TarheelTRTN() ''' متغيرات بعدد الصفحات المطلوب الترحيل اليها Dim R As Integer, TR As Long, TN As Integer Dim multipleRange As Range ''' أسماء الصفحات المطلوب الترحيل اليها والمدى المطلوب مسح البيانات الثديمة منه Sheets("TN").Range("C7:K41").ClearContents Sheets("TR").Range("C7:K40").ClearContents ''' عدد الصفوف العليا في الصفحات المنقول اليها البيانات TR = 7: TN = 7 Application.ScreenUpdating = False With Sheets("94") ''' بداية ونهاية صفوف الورقة المصدر For R = 3 To 36 ''''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار If Cells(R, 85) = "ناجح" Then Set multipleRange = Union(Range("I" & R), Range("O" & R), Range("S" & R), Range("W" & R), Range("AA" & R), Range("AE" & R), Range("AI" & R), Range("AM" & R), Range("AQ" & R)) multipleRange.Copy ''' سيتم اللصق في هذا الشيت Sheets("TN").Range("C" & TR).PasteSpecial xlPasteValues Application.CutCopyMode = False TR = TR + 1 End If '''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار If Cells(R, 85) = "دور ثاني" Then Set multipleRange = Union(Range("I" & R), Range("O" & R), Range("S" & R), Range("W" & R), Range("AA" & R), Range("AE" & R), Range("AI" & R), Range("AM" & R), Range("AQ" & R)) multipleRange.Copy ''' سيتم اللصق في هذا الشيت Sheets("TR").Range("C" & TN).PasteSpecial xlPasteValues Application.CutCopyMode = False TN = TN + 1 End If '''''''''''''''''''''''''''''''''''''''''''''''''''' Next MsgBox ("الحمد لله تـــم الترحيل بنجاح إلى أوراق عمل جديدة ") Application.ScreenUpdating = True End With End Sub

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

السلام عليكم ورحمة الله وبركاته تقبلوني عضوا جديدا وتقبلوا منى كل التحية والتقدير

السلام عليكم في محضر الترقيات تم إضافة عمودين ELو EM وكذلك أضافة النطاق FA1:Fj14 كل الخلايا الصفراء في محضر الترقيات بها معادلات قم بسحبها للأسفل حسب الحاجة لن يتأثر الحساب في ورقة محضر الترقيات إذا حذفت الأوراق (نقاط الأقدمية ,تاريخ الخدمة , السنوات الزائدة عن الخدمة) تفضل محضر الترقيات#1.rar

الاخوة الكرام اقدم لك الكنز الثانى من كنوز المنتدى تنسيق شرطى للخلايا وميض + صوت للتنبية للعلامه / محمد يحياوى غائب عنا اليوم حاضر باعماله الماسية اليكم رابط الكنز الثانى http://www.officena.net/ib/index.php?showtopic=40106&hl= تنبيه صوتي مع وميض.zip

انصحك باستخدام البرنامج الذي ذكره اخي الغالي ياسر. بالنسبة للملفات المؤقتة ان شاء الله ما بيكن اي ضرر. اذا اردت ان يتم تنظيف مجلد ال TEMP كل مرة يشتغل الجهاز يمكنك عمل ملف باتش و وضعه في قائمة التشغيل تبع الويندوز في المسار التالي: %appdata%\microsoft\windows\start menu\programs\startup\ في المرفق ملف باسم CleanTemp.bat RMDIR %TEMP% /S /Q MKDIR %TEMP% انسخي الملف الى المسار اعلاه ليتم تنظيف ال Temp كل مرة يشتغل الجهاز CleanTemp.zip

الأخ الحبيب أيسم إبراهيم ليك وحشة كبيرة ..فينك من زمان؟ ادخل لوحة التحكم ثم Regional ans language ثم التبويب Administrative واضغط Change System Locale واختر اللغة العربية ِArabic(Egypt ثم قم بعمل إعادة تشغيل

اطلع على هذا الموضوع ربما يكون فيه طلبك http://www.officena.net/ib/index.php?showtopic=56235&hl=%2B%D8%A7%D9%84%D8%A8%D8%AD%D8%AB+%2B%D9%82%D8%A7%D8%A6%D9%85%D8%A9+%2B%D9%85%D9%86%D8%B3%D8%AF%D9%84%D8%A9 وهذا رابط آخر لعمل كومبوبوكس للقائمة المنسدلة http://www.officena.net/ib/index.php?showtopic=56801&hl=%D9%83%D9%88%D9%85%D8%A8%D9%88%D8%A8%D9%88%D9%83%D8%B3 إذا لم يكن في الموضوعين إجابة شافية يرجى إرفاق ملفك للعمل عليه وتوضيح المطلوب بشكل أدق

يمكن استخدام برنامج تنظيف Ccleaner لتنظيف الملفات المؤقتة وإصلاح أخطاء الريجستري

تفضل اخى الكريم جرب المرفق مشكلة عند الجرد.zip

محاولة اخرى: تاكدي من وجود المجلد Temp و اذا كان موجودا ففرغي محتوياته للوصول للمجلد اضغط شعار وندوز + R وبعدها اكتبي %TEMP%

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

قومي بإزالة الأنتي فيروس ، قد يكون هناك تعارض Conflict يسبب هذا الخطأ .. محاولة أخرى : من القائمة ابدأ Start اكتبي الأمر التالي في الـ Run: services.msc ثم ابحثي عن الخيار Windows Search ثم كليك يمين ثم Properties ثم اختاري Disabled من القائمة المنسدلة الخاصة بالحقل Startup type

الاخ ياسر بارك الله بك و بحلولك الرّائعة

قومي بتحميل هذه الأداة http://www.proposedsolution.com/download_2/office-kb982125-fullfile-x86-glb.exe أغلقي الأوفيس ثم قومي تنصيب الأداة ثم قومي بإعادة تشغيل الويندوز

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

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

ماشاء الله على الشرح الرائع جزاكم الله خيرا

سؤال أخي الحبيب : هل الملف يعمل بكفاءة في ظل النسبة التي ذكرتها أم لا؟ إذا كان يعمل بكفاءة فما الداعي لزيادة النسبة ..؟ عموما افتح ملف الإكسيل ثم اعمل كليك يمين في شريط المهام ثم Task Manager ثم التبويب Processes ثم اعمل كليك يمين على EXCEL.EXE ثم من Set Prority اختر Real-time

أخي الحبيب .. الأفضل هو الضغط على الزر لتنفيذ الأمر مرة واحدة .. لأن الكود في حدث الورقة يجعل التعامل مع الملف بشكل أبطأ نوعاً ما..وما الداعي بأن يقوم بالحساب تلقائيا مع تغير كل رقم ..أليس من الأفضل الانتهاء من إدخال بياناتك ثم الضغط على زر الأمر لحساب المطلوب مرة واحدة (دفعة واحدة) ..أما أنك تريد إرهاق الإكسيل ،وفي كل مرة يتم إدخال رقم يتم الحساب على أساس هذا الرقم ..ريح الإكسيل يريحك عموما إليك الحل كما تريد SUMIF VBA Worksheet_Change.rar

اخى العزيز ... بارك الله فيك سهوله الشرح ودقة الاداء ... انما يدل على انك استاذ كبير جعله الله فى ميزان حسناتك

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

1 – عمل ملف اكسل (كتابة كود الماكرو) 2- انشاء ملف VBScript لتشغيل الماكرو 3 – كتابة ملف دفعي او باتش batch لفحص الوقت 4 – انشاء ملف تنصيب خدمة الويندوز Windows Service _____________________________________________________________________ بالنسبة للخطوة الاولى و هى كتابة كود الماكرو سنفترض التالي: 1- لدينا شيت اسمها Data وهى تحمل مبيعات اليوم 2- شيت اخرى اطلقنا عليها Summary و تحمل اجمالي المبيعات لجميع الايام. 3- ينفذ الماكرو Summary في وقت معين وذلك لتحديث الشيت Summary بإجمالي المبيعات على حسب المعادلة التالي: '/حدث مبيعات السنة Sheets(SHEET_SUMMARY).Range("A2") = Val(Sheets(SHEET_SUMMARY).Range("A2")) + Val(Sheets(SHEET_DATA).Range("A2")) 4 - يفضل متابعة سجل تنفيد الماكرو لهذا تم عمل شيت ثالثة باسم Log لمتابعة اوقات تنفيد الماكرو. كود الماكرو ======= Option Explicit Public Const SHEET_DATA As String = "Data" Public Const SHEET_SUMMARY As String = "Summary" Public Const SHEET_LOG As String = "log" Public Sub Summary() Dim Row As Long '/حدث مبيعات السنة Sheets(SHEET_SUMMARY).Range("A2") = Val(Sheets(SHEET_SUMMARY).Range("A2")) + Val(Sheets(SHEET_DATA).Range("A2")) '/حدث اوقات تنفيد الماكرو Sheets(SHEET_LOG).Range("B3") = Sheets("Log").Range("B3") + 1 Sheets(SHEET_LOG).Range("C3") = Date Sheets(SHEET_LOG).Range("D3") = Time Row = Sheets(SHEET_LOG).Range("B3") + 5 Sheets(SHEET_LOG).Range("A" & Row) = Row - 5 Sheets(SHEET_LOG).Range("B" & Row) = Date Sheets(SHEET_LOG).Range("C" & Row) = Time Sheets(SHEET_LOG).Range("D" & Row) = Environ("UserName") Sheets(SHEET_LOG).Range("E" & Row) = Application.UserName End Sub مخرجات الخطوة الاولى ================= اسم ملف الاكسل : Summary2015.xlsm اسم الماكرو : Summary تحياتي Summary2015.zip

انظر النموذج الجديد new form قم بتحديد اعمار من الى ثم اضغط زر البحث و بنفس الطريقة يمكنك اضافة بحث بالجنس لكن المشكلة لديك انك قمت باستخدام نص اسم الجنس في حقل الجنس بدلا من الرقم مع أنه لديك جدول خاص للجنس و كان من المستحسن استخدام رقم معرف الجنس بدلا من اسمه GESTION congé 08.12.2014.rar

السلام عليكم تم إلغاء N/A وبإمكانك الأن عمل المجموع بكل سهولة تفضل طريقه جديده لعمل حساب المورد#1.rar

اخى الفاضل وأستاذي الكريم أ.ياسر هذا هو المطلوب فعلا بس نريحه ونخليه يكتب المبلغ الأصلي ( رأس المال ) والمبلغ المسترجع والمعادلة تحسبله اللى هو عاوزه بدل ما يحسب الفرق يدوي .. وعلى افتراض ان راس المال1577 في A1 والمبلغ المسترجع 1677 في B1 =((B1-A1)/A1)*100 او ممكن نستغنى عن الضرب في 100 بس ننسق الخلايا كنسبة مئوية ... مرفق ملف للسائل لعله يكون طلبه .. خالص تقديري واحترامي لك أستاذي الكريم تحياتي المكسب.rar

اخى وأستاذي الكريم أ.جمال .. طب ما طالما حضرتك افترضت ان كلمة كيلو فقط هى التى ستكون موجودة بالخلايا وان الخلايا ستسير بتنسيق موحد 10 كيلو 20 كيلو 30 كيلو ... وهكذا يبقي احنا في غنى عن المعادلات تماماً والأكواد وكل اللى فات ده، وباستخدام تنسيق الخلايا ومعادلة الجمع العادية يتحقق طلب السائل حتى كمان نريحه من كتابة كلمة "كيلو" كل مرة .. يكتب الرقم وفقط.. مرفق ملف للتوضيح أستاذنا الفاضل أبو محمد، جزاك الله كل خير على هذا الملف المجمع لكل الطرق ... سيضم الى المكتبة فوراً تحياتي أستاذي الكريم ابن بلدى الغالي انت الأجمل والأروع والأفضل دائما ... مفيش أحسن من كده جبت من الآخر، زادك الله علما وفضلا تحياتي للجميع FormatCell.rar

السلام عليكم بارك الله فيك استاذى الفاضل الرجاء حذف الموضوع الاخر او غلقه واسف على التكرار تم عمل الجدول والنموزج النموزج الرجاء المعاينه وربط النموزج بالبحث gyab.rar

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

طريقة - ليست مباشرة - وهي إدراج صورة الإطار - يكون نفس حجم الورقة A4 باستخدام الفوتوشوب - ومن ثم إدراجه كعلامة مائية وإلغاء خيار تبييض واختيار الحجم 100% xxxxxxxxxxxxx.rar

يتم هذا عن طريق الاشارة المرجعية لكن مع الارقام وليس النصوص فارجو التوضيح اكثر. فيما يخص ربط الخلايا فان غبرنا مثلا العدد 123 الى 1023 في الخلية رقم A1 فسيتم التغيير كذلك في الخلية مثلا D5 في الجدول الآخر اي بعد ربط الخليتين مع بعض وهذا ما يقوم به WORD اصلا في حساب مجموع عدة خلايا في عمود أو صف (A1:A8 ) نتيجة هذا المجموع يكون في خلية اخرى في جدول آخر في نفس الصفحة أو في صفحة بعيدة عنها في نفس المستند . والسلام عليكم ورحمة الله وبركاته.