محمد عبد الناصر

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

شكرااااااااااااااا استاذ ياسر

السلام عليكم ورحمة الله وبركاته ؛؛ انهارده جايب ليكم طريقة سهله جدااااااا لفك باسورد اى ملف اكسيل عباره عن موقع بتدخل عليه وتعمل زى ما فى الصوره المرفقه ياريت اللي جرب الموضوع يقول عشان يأكد الموضع الموقع unlock-excel.tk

السلام عليكم ورحمة الله وبركاته ؛؛؛ الكود ده بينقل الارقام اللي اقل من 91 فى الشيت 2 عايز اكتب اقل من 90 الي 1 (90:1) بس مش عارف اعملها ياريت حد يساعدنى فيها Sub CopyRows() Dim LR As Long, I As Long, X As Long LR = Sheets("Sheet1").Cells(Rows.Count, "g").End(xlUp).Row X = 5 Application.ScreenUpdating = False Sheets("Sheet2").Rows("5:1000").ClearContents For I = 6 To LR If Cells(I, "g").Value > 91 Then Rows(I).Copy Sheets("Sheet2").Range("A" & X): X = X + 1 Next I Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

بالظبط ده المطلوب ربنا يعزك كود رائع

فى الملف المرفق يوجد اسطر مكرره اعتماد على الرقم الى مكتوب فى الخليه A عايز كود يلون السطر المكرر 11.rar

السلام عليكم ؛ كنت عايز كود احدد بيه الخلايا الى الارقام فيها مكرره يعنى انا عندى فى خليه مكتوب 6.2.2.1 وخليه تانيه مكتوب فيها 6.2.2.1 يلون الخليتين باللون الاحمر

السلام عليكم ورحمة الله وبركاته ؛؛ عايز فى الملف المرفق ده انا كاتب فى الخلايا من 1 الى 30 الى هيا عدد ايام الشهر الهجري عايز فوق كل رقم يكتبلى هو يوم ايه يعنى يوم 1 فى شهر شوال ده يوم ايه سبت ولا حد ولا ايه Book1.rar

لو سمحت استاذى الكريم بعد ما عملت تعديلات على البرنامج بيعمل تفقيط لعدد الساعاات غلط ولعدد الايام غلط عايز يعمل تفقيط للساعات على حسب ان دوام اليوم 7 ساعات لو غاب 7 ساعات يكتب يوم لو غاب 14 ساعه يكتب يومان لو غاب 15 ساعه ونص يكتب يومان و ساعه وثلاثون دقيقه الملف المرفق ده ربنا يجعله فى ميزان حسناتك MD.rar

هو المطلوب بعينه في ميزن حسناتك اخى الكريم شكرااااااااااا

السلام عليكم ورحمة الله وبركاته ؛؛ فى الملف المرفق عايز احول الوقت لعدد ايام بحيث كل 7 ساعات يكتب يوم لو 14 ساعه يومين لو 21 ساعه يكتب ثلاث ايام وكده ولو 10 ساعات يكتبلى يوم وثلاث ساعات لو 10 ساعات ونص يكتب يوم وثلاث ساعات وثلاثون دقيقه ياريت حد يطبقهالى فى الملف المرفق ده جزاكم الله كل خير Salary.rar

الله ينور يا استاذ ابو عيد

السلام غعليكم ورحمة الله وبركاتة ؛؛؛ عايز اعمل تفقيط لعدد الساعات ياريت حد يطبقهالى فى الملف المرفق عشان ع1.rarايز اعملها ف اكتر من ملف 1.rar

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

انا اسف بجد لتعب حضرتك معايا بس حضرتك حتيط فى الملف المرفق كود قفل طباعه مش بتاعى الى عايزه الكود الى انا عامله فوق بيسمح ليا انى اطبع عن طريق امر ماكرو وقافل اى امر طباعه تانى الى هو ده عايز بقى الكود ده مع ملف اخفاء الشيتات واظهارها عند تفعيل الماكره والملف المرفق الى انا عامله ده بتاعك بس شيلت كود قفل الطباعه بتاعك وحطيت بتاعى انا هاتلاقى مشكله فى الفتح والقفل Private Sub Workbook_BeforePrint(Cancel As Boolean) If PrvntPrnt = 0 Then Cancel = True End Sub Private Sub Workbook_Open() PrvntPrnt = 0 End Sub xD.rar

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

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

منا بعمل كده عايز احوط كود قفل الطباعه وكود اخفاء الشيتات واظهارها مع بعض بيجبلى ايرور بحوط الكود كده بالظبط Private Sub Workbook_BeforePrint(Cancel As Boolean) If PrvntPrnt = 0 Then Cancel = True End Sub Private Sub Workbook_Open() PrvntPrnt = 0 End Sub Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Cancel = True Or bIsClosing = False Then Exit Sub Run "HideAll" End Sub Private Sub Workbook_Deactivate() If bIsClosing = False Then Exit Sub Run "HideAll" End Sub Private Sub Workbook_Open() Run "ShowAll" End Sub بيجبلى ايرورر عشان انا عامل حاجه غلط فى الكود مش عارف ايه هيا

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

حضرتك اخر حاجه بس عايز اضيف كود قفل الطباعه ده Private Sub Workbook_BeforePrint(Cancel As Boolean) If PrvntPrnt = 0 Then Cancel = True End Sub Private Sub Workbook_Open() PrvntPrnt = 0 End Sub على الكود ده مش عارف اعملها Private Sub Workbook_BeforeClose(Cancel As Boolean) bIsClosing = True End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Cancel = True Or bIsClosing = False Then Exit Sub Run "HideAll" End Sub Private Sub Workbook_Deactivate() If bIsClosing = False Then Exit Sub Run "HideAll" End Sub Private Sub Workbook_Open() Run "ShowAll" End Sub

والله وصلت لكود كده جميل اوى اوى ونفعت معايا الحمد لله عن طريق ان بحوط كود فـــ Thisworkbook Private Sub Workbook_BeforeClose(Cancel As Boolean) bIsClosing = True End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Cancel = True Or bIsClosing = False Then Exit Sub Run "HideAll" End Sub Private Sub Workbook_Deactivate() If bIsClosing = False Then Exit Sub Run "HideAll" End Sub Private Sub Workbook_Open() Run "ShowAll" End Sub وبعمل موديول جديد بحوط فيه الكود ده Public bIsClosing As Boolean Dim wsSheet As Worksheet Sub HideAll() Application.ScreenUpdating = False For Each wsSheet In ThisWorkbook.Worksheets If wsSheet.CodeName = "Sheet1" Then wsSheet.Visible = xlSheetVisible Else wsSheet.Visible = xlSheetVeryHidden End If Next wsSheet Application.ScreenUpdating = True End Sub Sub ShowAll() bIsClosing = False For Each wsSheet In ThisWorkbook.Worksheets If wsSheet.CodeName <> "Sheet1" Then wsSheet.Visible = xlSheetVisible End If Next wsSheet Sheet1.Visible = xlSheetVeryHidden End Sub واقفل الملف وبسيف من غير ما افعل ماكرو ولا اى حاجه اهم حاجه انى اعمل سيف enable macro وهو كده بيخفى كل الشيتات ما عدا الشيت الى اسمو فى الاصل Sheet1 ولو حد اخد الملف كوبى الملفات بتختفى ولما يفعل الماكرو بتظهر جربه كده حضرتك لو نفع ممكن انا او حضرتك تعمل بيه موضوع عشان الكل يستفيد ان لازم الى قاعد شغال على الملف يفعل الماكرو

طيب مفيش طريقه اخلى الى شغال على البرنامج غصب عنه يفعل الماكرو لو اخده كوبى ؟؟؟؟؟؟؟؟

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

السلام عليكم ورحمة الله وبركاته ؛؛ كنت محتاج كود تفعيل الماكرو على الجهاز اوتوماتيك بحيث اى ملف افتحه بعد كده يكون الماكرو مفعل ميطلبش منى enable content

ايوه حضرتك فى اى عمود F فى ملف الاكسيل