طلب كود ايام الشهر واخفاء أعمدة

[محمد غنيمي]

ارجو من الأخوة الأعضاء المساعدة في كود حسب المطلوب بالملف

Book1.rar

[أبو حنــــين]

السلام عليكم

جرب اخي المرفق

مثال.rar

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

السلام عليكم

 

تحياتي للاستاذ ابو حنين

 

لاثراء الموضوع

هذا حل اخر كنت اعمل عليه  

 

تحياتي

Book1+.rar

[أبو حنــــين]

جزاك الله خيرا اخي أحمد

و هذا لاخفاء الأعمدة

مثال 2.rar

[حسين العصلوجى]

اثراءا للموضوع ده حل اخر

husin1.rar

[محمد غنيمي]

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

 

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

 

ولكم وافر التحية

[محمد غنيمي]

اشكر الأخوة الأعضاء على الرد وحل المطلوب ولي طلب أخر حسب المرفق بالملف أرجو المساعدة فيه

husin1.rar

[حسين العصلوجى]

الحل بالمشاركة التالية

تم تعديل مارس 9, 2013 بواسطه حسين العصلوجى

[حسين العصلوجى]

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

'unhide all colums
If Target.Column = 17 And Target.Row = 9 Then
For i = 1 To 35
Columns(i).Hidden = False
Next

'hide columns not included in thr selected month
d = Format(DateSerial(Year(Range("Q9")), Month(Range("Q9")) + 1, 0), "dd")
For x = d + 2 To 32
Columns(x).Hidden = True
Cells(15, x) = ""
Next
Else
Exit Sub
End If

'renumber days
Z = 1
For x2 = 2 To 32
Cells(14, x2) = Z
Z = Z + 1
Next

'replace fridays days with Fr dependig on fromula (IF(WEEKDAY(Q9;1)=6;DAY(Q9);CHOOSE(WEEKDAY(Q9;1);DAY(Q9+5);DAY(Q9+4);DAY(Q9+3);DAY(Q9+2);DAY(Q9+1);DAY(Q9+0);DAY(Q9+6))))
For x = 2 To 32
If Cells(14, x) = Cells(12, 15) Or Cells(14, x) = Cells(12, 16) Or Cells(14, x) = Cells(12, 17) Or Cells(14, x) = Cells(12, 18) Or Cells(14, x) = Cells(12, 19) Then
Cells(14, x) = "fr"
End If
Next

End Sub

 

تفضل اخي المرفق بعد التعديل

لعله يكون المطلوب

 

husin1 (2).rar

[محمد غنيمي]

مشكور أخي حسين على هذا المجهود

 

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

 

مثلا الشهر في الشيت الأول فبراير  يصبح عدد الايام 28 يوم كما هو تم تنفيذه ويصبح جميع الشيتات بنفس شكل الشيت الأول

husin1 (2).rar

[حسين العصلوجى]

لم يتضح لي طلب برجاء التوضيح بمثال في الملف وان شاء الله تجد المطلوب

[محمد غنيمي]

لم يتضح لي طلب برجاء التوضيح بمثال في الملف وان شاء الله تجد المطلوب

في المثال المرفق أخذت نسخة من ملف Book  عن طريق ( Move or copy ) ليصبح هناك عدة شيتات Book 2  , book 3 وقمت بنسخ الشهر أرتباط بين الشيت الأول والشتين الأخرين  وعند تغير الشهر في الشيت الأول يتم تعديل كل الشيت ولكن في الشيتان  book 2 , book 3  لم يتغير سوى الشهر فقط

والمطلوب تغيير جميع الشيتات المنسوخة من الشيت الأول , أرجو ان يكون الأمر قد إتضح

[حسين العصلوجى]

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

عموما عدلت لك الكود ليتناسب مع طلبك 

اتمني ان يفي بالغرض

husin1 (2).rar

تم تعديل مارس 10, 2013 بواسطه حسين العصلوجى

[محمد غنيمي]

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

 

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

[حسين العصلوجى]

اخي العزيز

هذه الرسائل ناتجه عن وجود تعارض في الاسماء فعند قيامك بنسخ الصفحة ظهرت لك رسالة تفيد بوجود هذا التعارض لكن من الواضح انك اخترت خيار نعم 

 

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

 

وان شاء الله تجد ماتصبو اليه

[منياوى]

[محمد غنيمي]

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

[محمد غنيمي]

استاذ حسين

 

هل يمكن حماية الورقة من التعديل إلا في خلايا معينة

 

حيث أني حاولت حماية الورقة عن طريق Protect sheet  وعند الأنتقال والعودة لها تظهر هذه الرسالة فهل من حل للمشكلة .

وهل يمكن إضافة زر في الصفحة الأولى يقوم باضافة صفحة جديدة ويطلب مني تغيير أسمها ووضع الإسم في أخر الجدول بالصحفة الأولى (  mydata )

مرفق ملف

 

أعتذر على كثرة الطلبات

 

ولكم وافر التحية

as.rar

تم تعديل مارس 13, 2013 بواسطه white_casper12

[حسين العصلوجى]

ابشر اخى انتظر التعديل

[حسين العصلوجى]

الرسالة هذه سببها انك قمت بحماية الورقة وبالتالي فان الكود لن يعمل

عدلت لك الملف لفك الحماية قبل عمل الكود ومن ثم اعادتها مره اخرى

وكذلك زر نسخ الصفحات واعادة تسميتها واضافتها للجدول

 

H-رواتب.rar

تم تعديل مارس 13, 2013 بواسطه حسين العصلوجى

[محمد غنيمي]

الأخوة الأعضاء

 

استاذ حسين

 

ارجو مساعدتي في دالة If مرفق ملف عند استخدام دالة If  بدلا من إعطائي النتيجة يقوم بإظهار المعادلة الخاصة بالشرط

H-رواتب1.rar

[حسين العصلوجى]

=IF(K12=1;(($AI$10/AQ21)*((F_H*1.5)+(N_H*1)));(($AI$10/AQ20)*((F_H*2)+(N_H*1.5))))

 

ده تصحيح المعادلة

[محمد غنيمي]

السادة الأعضاء

 

الأستاذ / حسين

 

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

 

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

 

وارجو إضافة كود في حالة تكرار إسم الصفحة يعطى رسالة تحذير

 

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

 

وهل يوجد كود يعمل على سرعة فتح الملف وسرعة إغلاقه

 

باسورد فتح الملف  111

 

باسورد الغاء حماية Workbook    -  باسورد     1234

 

 

last v.rar

[محمد غنيمي]

السادة الأعضاء

 

الأستاذ / حسين

 

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

 

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

 

وارجو إضافة كود في حالة تكرار إسم الصفحة يعطى رسالة تحذير

 

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

 

وهل يوجد كود يعمل على سرعة فتح الملف وسرعة إغلاقه

 

باسورد فتح الملف  111

 

باسورد الغاء حماية Workbook    -  باسورد     1234

وهل يمكن تقليل حجم الملف

[محمد غنيمي]

للرفع