اذهب الي المحتوي
أوفيسنا

زاكي بوشلاغم

03 عضو مميز
  • Posts

    480
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو زاكي بوشلاغم

  1. بارك الله فيك اخي ربي جازيك اخي وشكرا جزيلا
  2. ممكن تشرح كيفية حفظ ملف ماكرو بارك الله فيك
  3. السلام عليكم اخي هذا الملف نرجو منكم حماية الخلايا في ورقة :ادخال نفقات Private Sub Worksheet_Change(ByVal Target As Range) Dim protectedRange As Range Set protectedRange = Union( _ Range("E10:I10"), _ Range("E13:I13"), _ Range("E20:I20"), _ Range("E27:I27"), _ Range("E33:I33"), _ Range("E46:I46"), _ Range("E56:I56"), _ Range("E62:I62"), _ Range("E68:I68") _ Range("E74:I74") _ ) If Not Intersect(Target, protectedRange) Is Nothing Then كمال نرجو منكم الشرح كيفية حفظ الملف لكي يكون الماكرو فعال وشكرا Application.EnableEvents = False Application.Undo MsgBox "لا يمكن تعديل هذه الخلية، يرجى فك حماية الورقة للقيام بذلك" Application.EnableEvents = True End If End Sub casse 2026 .xlsx
  4. شكرا اخي لكن عندما ادخل كود ماكرو في الملف واغلق الملف وعند فتح الملف لا يعمل ما الحل اخي
  5. اريد كود الحماية الخلايا من e10 الى I10 من e13 الى I13 من e20 الى I20 من e27 الى I27 من e33 الى I33 من e46 الى I46 من e56 الى I56 من e59 الى I59 من e62 الى I62 من e68 الى I68 من e68 الى I68 حيث كود الحماية يكون هذا Private Sub Worksheet_Change(ByVal Target As Range) Dim protectedRange As Range Set protectedRange = Range("A2:K2") هنا ادراج جميع الحلايا المراد حمايتها لم اعرف كيف ادخلها من E13.الئ I13 ................ If Not Intersect(Target, protectedRange) Is Nothing Then Application.EnableEvents = False Application.Undo MsgBox "لا يمكن تعديل هذه الخلية، يرجى فك حماية الورقة للقيام بذلك" Application.EnableEvents = True End If End Sub
  6. السلام عليكم اريد خلق ماكرو حمابة الخلايا كبف يتم ذلك
  7. اخي لم تصلح معي اريد كود visual basic macro اي صنع ماكرو يقوم بحماية الخلايا المراد حمايتها مثل ماكرو المقدم لكم في الاعلى كيف اصنع ماكرو في ورقة ايكسل الخاصة بي
  8. السلام عليكم عندي ملف ايكسل اريد. حماية بعض الخلايا بكود فيزيال بازيك كيف يتم ذلك شكل كود macro visual basic Private Sub Worksheet_SelectionChange(ByVal Tr As Excel.Range) Set Rng = Range("e10,f10,g10,h10,i10") If Not Intersect(Tr, Rng) Is Nothing Then Tr.Offset(0, 1).Select Set Rng = Nothing End If End Sub
  9. الورقة محمية بكود ماكرو نتمنى فحص كلي لجميع الاسابيع لكي نتخلص من مشكل قيمة صفر السالب (-0)وشكرا
  10. مشكل يظهر في الاسبوع الثاثي الاحد(2) رقم المنتوج 11 (ثوم) ورقة الإستهلاك اليومي جانفي100officena 2026.rar
  11. اخي اذهب الى الاسبوع الاحد (2) في خانة طبيعة مواد المستهلاكة رقم 11 (ثوم )تجد مشكل غير في الخانة هذي وتستمر الى باقي الاسابيع ما الحل حيث خانات الاخرى سليمة وان امكن قم بتفحص جميع الخانات وشكرا . ورقة الإستهلاك اليومي جانفي100officena 2026.rar
  12. السلام عليكم اخي اريد ان انزع قيمة ناقص مع الصفر (-0) حيث اريح بدا يظخر الصفر تظهر علامة -مثل باقي الخانات ويضهر لون الاحمر في ارقام السالبة فقط وازالة رمز تاقص(-) في الصفر
  13. شكرا اخي لكن اريد دمج الصفة 13-2 في صفحة واحدة a3 مثل ميزانية 2022 وهكذا حتى تصبح صفحتين A4 في ضفحة واحدة A3مثل ميزانية 2022 اخي نرجو منكم جعلها مثل ميزانية 2022 وشكرا مع المحافظة على المعادلات ان امكن الصفحة 13-2 و12-3 وهكذا
  14. السلام عليكم اريد تعديل مشروع الميزانية 2025 من شكل A4الى الشكل A3مثل ميزانية 2022 حيث شكل الصفحات يكون مثل ميزانية 2022 على شكل A3 بارك الله فيكم في المسعجل وهذا دون تغيير المعادلات داخل مشروع الميزانية 2025 تعديل ميزانية 2025.rar
  15. لسلام عليكم اريد حساب التسيير2023 على شكل A3حيث تكون الصفحة الواحدة على شكل A3 حيث تكون الصفحات على الشكل التالي الصفحة 1 تتكون من غلاف A3فقط الصحفة 2: تتكون ص1 فقط على شكل A3 الصفحة 3: تتكون من ص2 و شكل A3 الصفحة 4: تتكون من ص3وص12 على شكل A3 الصفحة 4: تتكون من ص4 وص 11 على شكل A3 الصفحة 5: تتكون من ص5وص10 على شكل A3 الصفحة 6: تتكون من ص6 وص9 على شكل A3 الصفحة 7: تتكون من ص7وص8 على شكل A3 Copie de حساب التسيير لسنة 2023 (1).xls
  16. السلام عليكم اريد حساب التسيير2023 على شكل A3حيث تكون الصفحة الواحدة على شكل A3 حيث تكون الصفحات على الشكل التالي الصفحة 1 تتكون من غلاف A3فقط الصحفة 2: تتكون ص1 فقط على شكل A3 الصفحة 3: تتكون من ص2 و شكل A3 الصفحة 4: تتكون من ص3وص12 على شكل A3 الصفحة 4: تتكون من ص4 وص 11 على شكل A3 الصفحة 5: تتكون من ص5وص10 على شكل A3 الصفحة 6: تتكون من ص6 وص9 على شكل A3 الصفحة 7: تتكون من ص7وص8 على شكل A3 السلام عليكم انتظر ردكم بارك الله فيكم Copie de حساب التسيير لسنة 2023 (1).xls
  17. السلام عليكم اريد مشروع ميزانية 04 2024 شكل A3حيث تكون الصفحة الواحدة على شكل A3 حيث تكون الصفحات على الشكل التالي الصفحة 1 تتكون من غلاف A3فقط الصحفة 2: تتكون ص1 فقط على شكل A3 الصفحة 3: تتكون من ص2 وص13 على شكل A3 الصفحة 4: تتكون من ص3وص12 على شكل A3 الصفحة 4: تتكون من ص4 وص 11 على شكل A3 الصفحة 5: تتكون من ص5وص10 على شكل A3 الصفحة 6: تتكون من ص6 وص9 على شكل A3 الصفحة 7: تتكون من ص7وص8 على شكل A3 مثل مشروع الميزانية 2023 في عمود معاينة الميزانية مشروع ميزانية 04 2024.rar ميزانية -2023-.rar شكرا جزيلا اريدها قبل غدا يوم السبت وشكرا مستعجل
  18. السلام عليكم اريد نقل ملف معاينة ميزانية من ملف calasseur 1 الى ملف ميزانية اكسل 2023 بار ك الله فيك مستعجل Nouveau dossier.rar
×
×
  • اضف...

Important Information