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

السلام عليكم الاخ الكريم / رائد بارك الله فيك تفضل اخي ... هذا هو الكود المستخدم لاظهار شاشة الحفظ باسم Sub sama() Application.Dialogs(xlDialogctrl + xlDialogSaveAs).Show End Sub جزاك الله خيرا اظهار شاشة حفظ باسم.rar

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

هل فكرت أخى بحساب عمرك كم سنة ؟ كم يوم ؟ ممكن لكن كم ساعة ؟ كم ثانية ؟ إحسبها معى هناك بعض المعادلات ستجدها لاتعمل وذلك لأنها تعمل على 2007 المرفق الثانى معرب البيانات أحسب عمرك باليوم والساعة والثانية.rar أحسب عمرك باليوم والساعة والثانية.rar

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

الاخ الكريم / Alalawi9 بارك الله فيك من الواضح ان الاخ / asdawy لديه مشكلة في المتصفح لديه ولاتظهر لديه المرفقات الحمد لله انك اهتديت لما تريد جزاك الله خيرا

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

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

السلام عليكم تحياتي للجميع استاذ حمادة ما شاء الله , اعتقد ان هذه اسرع اجابة في تاريخ المنتدي بعد ترح السؤال ب دقيقتين , تقبل الله منا و منكم صالح الاعمال خالص تحياتي

السلام عليكم الاخ الكريم / رائد بارك الله فيك اليك اخي الكريم كود بسيط يقوم بتنفيذ طلبك ويمكنك فيه اختيار الشيتات المطلوب تنفيذ هذا الامر عليهم او تحديد شيت واحد فقط من خلال هذا السطر في الكود Case "Sheet1", "Sheet2" حيث تم تحديد هنا شيت 1 و شيت 2 لمنع الطباعة بهم واليك الكود كاملا ... ويتم وضعه في حدث الملف في ThisWorkbook Private Sub workbook_BeforePrint(Cancel As Boolean) Select Case ActiveSheet.Name Case "Sheet1", "Sheet2" Cancel = True MsgBox "عفوا لايمكنك الطباعة هنا .. مع تحياتي/ حمادة عمر ", vbInformation End Select End Sub ارجو ان يفي ذلك بطلبك جزاك الله خيرا منع الطباعة في الملف.rar

ما نوع نظام التشغيل عندك 32 بت ام 64 بت

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

Private Sub Command19_Click() On Error GoTo Err_Command19_Click Dim stDocName As String stDocName = "cc" DoCmd.OpenReport stDocName, acPreview Exit_Command19_Click: Exit Sub Err_Command19_Click: 'MsgBox Err.Description Resume Exit_Command19_Click End Sub انظر الى السطر 'MsgBox Err.Description حدث الرسالة مقفل لا حظ لونه الاخضر في صفحة المحرر لقفل سطر برمجي عن العمل نضع في اول السطر علامة التنصيص المفردة ( حرف الطاء)

السلام عليكم الاخ الكريم / Alalawi9 بارك الله فيك وجزيل شكري وامتناني علي كلماتك التي لا اجد من الكلمات ما ارد به عليك ليوفيك حقك في الثناء وجعلني الله دائما عند حسن ظنكم .... جرب اخي الكريم الملف المرفق الخاص بك .. تم وضع الكود فيه ويعمل بالطريقة المطلوبة والشكر موصول لاخي الحبيب / احمد عبد الناصر ... جزاه الله خيرا ** ملحوظة : الحفظ يتم علي بارتيشين الـ D جزاك الله خيرا 111+.rar

السلام عليكم تحياتي للجميع جرب بدل هذا FName = Sheets("Sheet1").Range("b3").Text بهذا FName = Range("b3").Text او غير كلمة sheet1 ب ورقة1 حسب ملفك تحياتي

لا تظهر عندي الا مرة واحدة ! الرسالة الانجليزية هذه صادرة من حدث الزر بعد الغاء الاجراء يمكنك قفل الرسالة من حدث الزر انظر المرفق salary2016.rar

الحمد لله على تمام نعمه وشكرا لك على هذا الدعاء الطيب

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

السلام عليكم الاخ الكريم / ahmedgenedy بارك الله فيك تفضل اخي طلبك الذي تريده ولكن يجب وضع الصور في المجلد photo في نفس الفولدر الموجود به ملف الاكسيل وعندما لا يوجد للرقم المحدد صورة ستجد مكتوب ( لاتوجد صورة ) شاهد المرفق جزاك الله خيرا اظهار صورة الموظف في الخلايا بناء علي رقمه.rar

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

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

السلام عليكم الاخ الكريم / Alalawi9 بارك الله فيك من الافضل ارفاق ملف به مثال لما تريده بالضبط للعمل عليه كما تريد ولكن اليك الكودين التاليين ... وهما للاستاذ / عباد ... ولكن تم التعديل الطفيف عليهم ليتناسب مع ما فهمته من الطلب قم بربط الكود بزر وسيتم حفظ الملف علي D ** الكود الاول يقوم بحفظ الشيت الموجود فيه الخليه A6 فقط اي ينسخ الملف بشيت واحد فقط في ملف مستقل بالاسم الموجود في الخليه المذكورة ** الكود الثاني يقوم بحفظ نسخة من الملف كاملا بكامل شيتاته بالاسم الموجود في الخليه المذكورة Sub copy_sh() Dim F_FOL As String Application.ScreenUpdating = False F_FOL = "D:\" FName = Sheets("Sheet1").Range("a6").Text With ActiveWorkbook Sheets("sheet1").Copy ActiveWorkbook.SaveCopyAs Filename:=F_FOL & FName & ".xls" ActiveWorkbook.Close False .Activate End With Application.ScreenUpdating = True End Sub الكود الثاني : Sub copy_ALL_sh() Dim F_FOL As String Application.ScreenUpdating = False F_FOL = "D:\" FName = Sheets("Sheet1").Range("a6").Text With ActiveWorkbook ActiveWorkbook.Worksheets.Copy ActiveWorkbook.SaveCopyAs Filename:=F_FOL & FName & ".xls" ActiveWorkbook.Close False .Activate End With Application.ScreenUpdating = True End Sub ارجو ان يفي بطلبك جزاك الله خيرا

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

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

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

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

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

ماشاء الله أخى الحبيب ( حمادة ) جميلة جدا بارك الله لك فيها وأنا بحجزها لمحمود بس فرجها على صورتة الأول أحسن ، شكرا أخى الحبيب وجعل قلبك عامرا بالحب للجميع دائما

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

الأخ العزيز / kinggraphic السلام عليكم ورحمة الله وبركاته أهلا وسهلا بك في هذا المنتدى ومرحباً بك عضواً جديداً فيه ويسعدني أن أرد على استفسارك حول التقريب الخاص اللي طلبته وهذه المعادلة حسب التقريب اللي طلبته =IF(A2-INT(A2)>0.5;INT(A2)+1;IF(A2-INT(A2)>0.1;INT(A2)+0.5;IF(A2-INT(A2)=0.1;INT(A2);IF(A2-INT(A2)=0;A2)))) يمكنك أن تغير الخلية التي تريد تقريب الرقم منها وهي هنا في المعادلة الخلية (A2 ) وهذا ملف مرفق تم تعديل المشاركة حيث تم اكتشاف خطأ في المعادلة وتم التصحيح أرجو إن كنت حملت الملف السابق أن تحذفه وتحمل الملف الجديد تقريب خاص.rar

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