طارق محمود

السلام عليكم تفضل أخي المرفق j_k3.rar

السلام عليكم أخي الكريم مرفق ملف به شرح الكود ومكانه والفكرة بالتفصيل الممل كل سطر من الكود وأمامه الشرح بالعربي بنفس اللون واللون االأخضر لمزيد من التوضيحات تفضل نسألكم الدعاء 2Machines_explain.rar

السلام عليكم أخي الكريم مرفق نتيجة الطباعة تلميذين من كل قسم بيانات مختلفة وأسماء مختلفة مرفق أيضا الملف بالأكواد لعل الكود عندك به شيئا أو خطأ ما تفضل أخي ezzarqtouni_PDF.rar 11-5_New.rar

ياأخي الكريم أرجو التركيز راجع الفيديو في الثانية 55 من الفيديو وقف عرض الفيديو ستجد أنه تم اختيار الأولي 2 أي قسم2 للطباعة وفي الدقيقة 1 والثانية 34 من الفيديو وقف عرض الفيديو ستجد أنه المطبوع إسم عيسي1 أي قسم2 وأول درجات الإسلامية 12 يعني كله مضبوط

السلام عليكم أخي العزيز عندي مضبوطة أو مازلت لم أفهم إقرأ التالي ثم شاهد الفيديو لتمييز البيانات فقط وضعت درجة التربية الإسلامية لأول تلميذ من كل قسم متناسبة مع رقم القسم أي 11 للقسم الأول ، 12 للقسم الثاني ، 13 للقسم الثالث ، 14 للقسم الرابع الورقة 1 بها بيانات القسم 3 وسأختار في الورقة 11 طباعة القسم 4 جعلت الطباعة علي الأكروبات PDF لكي تري نتيجة الطباعة سأطبع فقط 3 أسماء للمشاهدة ezzarqtouni.rar

السلام عليكم أخي العزيز راجع الرابط http://www.officena.net/ib/index.php?showtopic=31131&st=0&p=157251&hl=%E3%DB%E1%DE&fromsearch=1&#entry157251 وأيضا http://www.officena.net/ib/index.php?showtopic=34480&st=0&p=180688&hl="%C8%CF%E6%E4%20%DD%CA%CD"&fromsearch=1&#entry180688 وكذلك http://www.officena.net/ib/index.php?showtopic=17535&st=0&p=78286&hl="%C8%CF%E6%E4%20%DD%CA%CD"&fromsearch=1&#entry78286 ويمكنك لبحث بالمنتدي فهناك الكثير من هذه الأمثلة

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

السلام عليكم أخي العزيز الشرط لايسمح لك بمليء بيانات في سطر في حالتين (1) إذا كان الذي يعلوه فارغ أو (2) أنك وضعت أرقاما في كلا الطرفين المدين و الدائن يعني زيادة تأكيد أنك حتي هذا السطر قد أدخلت البيانات بشكل صحيح

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

السلام عليكم بعد اذن اخي يحي في هذه الحالة عدلي المعادلة في الخلية F2 إلي =IF(E2="","",1)

السلام عليكم ضع الكود في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = 0 Then Exit Sub If Target.Row < 3 Or Target.Column < 5 Or Target.Column > 6 Then Exit Sub Cells(Target.Row, 8).FormulaR1C1 = "=R[-1]C+RC[-3]-RC[-2]" End Sub أيضا بالمرفق ومعه كذلك تحديد للبيانات بحيث لايجوز مليء بيانات دائن او مدين بسطر إذا كان الذي يعلوه فارغا تفضل المرفق وبه الكود وتحديد البيانات كشف حساب2.rar

نعم أخي أحمد الماكرو (الكود) مكتوب في حدث الورقة كالتالي Private Sub Worksheet_Change(ByVal Target As Range) ' ActiveSheet.Unprotect If Target.Column = 2 And Target.Row = 5 Then GoTo 100 Exit Sub 100 Dim myRange As Range Set myRange = Range("D9:AV20") myRange.Interior.ColorIndex = xlNone ' Clear Previous Colors no_CY = [B6].Value uLoad = [B5].Value MH_T = [B4].Value [D9].Select For cy = 1 To no_CY If Int(cy / 2) <> cy / 2 Then cy_Color = 5 Else cy_Color = 3 For mc1 = 1 To uLoad ActiveCell.Interior.ColorIndex = cy_Color ActiveCell.Offset(0, 1).Select Next mc1 ActiveCell.Offset(1, 0).Select For MH = 1 To MH_T ActiveCell.Interior.ColorIndex = cy_Color last_MH = ActiveCell.Column ActiveCell.Offset(0, 1).Select Next MH ActiveCell.Offset(1, 0).Select For mc2 = 1 To uLoad ActiveCell.Interior.ColorIndex = cy_Color ActiveCell.Offset(0, 1).Select last_col = ActiveCell.Column Next mc2 ActiveCell.Offset(-2, -MH_T - uLoad).Select If ActiveCell.Column + uLoad <= last_MH Then Cells(ActiveCell.Row, last_MH).Select Next cy [C13] = "Total Time =" & last_col - 4 Range("d13", Cells(13, last_col - 1)).Interior.ColorIndex = 4 End Sub ولو فيه أي استفسارات فلاتتردد

أخي العزيز السلام عليكم يبدو ان الحل بالأكواد هو الأيسر في حالتكم هذه عموما أرجو مراجعة مشاركتي رقم 11 في الموضوع السابق ثم غير في الخلية B5 في المرفق بتلك المشاركة كل ماتريد تحقق وهذا هو الكود وهو مكتوب في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) ' ActiveSheet.Unprotect If Target.Column = 2 And Target.Row = 5 Then GoTo 100 Exit Sub 100 Dim myRange As Range Set myRange = Range("D9:AV20") myRange.Interior.ColorIndex = xlNone ' Clear Previous Colors no_CY = [B6].Value uLoad = [B5].Value MH_T = [B4].Value [D9].Select For cy = 1 To no_CY If Int(cy / 2) <> cy / 2 Then cy_Color = 5 Else cy_Color = 3 For mc1 = 1 To uLoad ActiveCell.Interior.ColorIndex = cy_Color ActiveCell.Offset(0, 1).Select Next mc1 ActiveCell.Offset(1, 0).Select For MH = 1 To MH_T ActiveCell.Interior.ColorIndex = cy_Color last_MH = ActiveCell.Column ActiveCell.Offset(0, 1).Select Next MH ActiveCell.Offset(1, 0).Select For mc2 = 1 To uLoad ActiveCell.Interior.ColorIndex = cy_Color ActiveCell.Offset(0, 1).Select last_col = ActiveCell.Column Next mc2 ActiveCell.Offset(-2, -MH_T - uLoad).Select If ActiveCell.Column + uLoad <= last_MH Then Cells(ActiveCell.Row, last_MH).Select Next cy [C13] = "Total Time =" & last_col - 4 Range("d13", Cells(13, last_col - 1)).Interior.ColorIndex = 4 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub أرجو مراجعة المشاركة المشار إليها جيدا ثم أنتظر ردك

السلام عليكم أخي الكريم يوجد برامج جاهزة لعمل الجداول الزمنية مثل البيمافيرا Primavera والـ إم إس بروجكت MS-Project ويوجد بمنتدي أوفيسنا هذا أقسام خاصة بكل منها إختر الصفحة الرئيسية لأوفيسنا واختر ماتشاء عموما الحل بالإكسل مرفق Project_Tareq.rar

السلام عليكم الأخوة المهندسين الأعزاء المهندس /أحمد ، المهندس RaedAlahli أصحاب هذا الموضوع مرفق لكم الحل بالأكواد كلمة السر للحماية 123 تفضلوا أنتظر تعليقاتكم 2Machines.rar

السلام عليكم أخي العزيز المهندس RaedAlahli مرحبا بك عضوا عزيزا بين إخوانك عذرا ان تأخرت في الرد عليك أنا أعلم ذلك ولكني كنت أفضل "بنفس الطريقة يمكنك رسم أكثر من دورة Cycle" كما قلت في المشاركة 3 لابد أن تحاول أخي فهذا الموضوع سيأخذ وقت وفرصة أن تتقن التنسيق الشرطي (شرحت بعضا من في مشاركتي السابقة) وتستطيع البحث فالمنتدي مليء بالأساتذة العظام ولهم باع طويل في مثل هذه المواضيع شكرا ، أعلم هذا، لذلك أترك السائل يحاول قليلا

تفضل المرفق محمل مرة أخري مع جزيل الشكر للأخ الكريم الغالي الأستاذ الخالدي ربط الاعتمادات.rar

تفضل أخي المرفق 11-5.rar

السلام عليكم أخي الكريم أول نقطة تريد في أوائل الكود iFind() وبعد سطر End If بسطرين ستجد السطر If (Sheets(MySheets).Cells(F, "B") Like "*" & [D7] & "*") Then بدله بـ If Sheets(MySheets).Cells(F, "B") = [D7].Value Then تم تعديل الكود ثاني نقطة و ثالث نقطة أنظر المرفق - الزرين الأصفرين Employs v2.rar

السلام عليكم أخي العزيز هل رأيت المشاركة رقم 3 لأخونا الغالي الأستاذ الخالدي فهي تعمل علي 2003

السلام عليكم تفضل المرفق وبه الطلبات J_K2.rar

أخي العزيز لاأدري أي عمود هذا؟؟ عموما لإلغاء الأصفار في اكسل 2003 من Tools Options أنظر الصورة

السلام عليكم أخي العزيز لقد فهمت انك تريد الطباعة من الورقة 1 عذرا الآن : عدلت لك الكود كالتالي سينسخ محتويات الورقة 1 في ورقة أخري كمرجع ثم يغير الورقة 1 لتحتوي علي بيانات القسم المطلوب ثم يطبع منها حيث أن كل العلاقات بالورقة 11 المجهزة للطباعة مرتبطة بتلك التي بالورقة 1 ثم يسترجع البيانات من الورقة المرجع إلي الورقة 1 ثم يلغي المرجع وهذا هو الكود بعد التعديل xclass = Sheets("11").[am1].Value mySheet = "ÞÓã" & xclass 'Backup Sheets("1").Copy After:=Sheets(Sheets.Count) old_class = [C3].Value n_name = ActiveSheet.Name Sheets(mySheet).Range("G9:R64").Copy Sheets("1").Select Range("G9").Select ActiveSheet.Paste [C3] = xclass Sheets("11").Activate Dim i As Integer s = Range("Z3").Value For i = 1 To Range("Z3").Value Range("J5").Value = i If i <= Range("Z3") Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i Sheets(n_name).Range("G9:R64").Copy Sheets("1").Select Range("G9").Select ActiveSheet.Paste [C3].Value = old_class Application.DisplayAlerts = False Sheets(n_name).Delete Sheets("11").Activate End Sub تفضل المرفق 11-4.rar

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

السلام عليكم أخي المهندس أحمد أخي العزيز: الملف ليس بالأكواد بل بالتنسيق الشرطي Conditional Format وقد إعتبرت أنك تعلم ذلك ، معذرة علي عجالة: كيفية عمل التنسيق الشرطي في إكسل 2003 أولا تظلل المساحة من الخلايا التي تريد عمل ذلك لها ثم من Format ثم Conditional Format ستجد قائمة صغيرة بها أربع مستطيلات ثم تجد حالتين في أول مستطيل من اليسار 1- الحالة العادية Cell Value Is أن تربط الشرط بقيمة الخلية مثلا تريد أن يكون لون الفونط أحمر إذا قلت القيمة عن 50 فتجعل المستطيل الأول Cell Value Is المستطيل الثاني Less Than سيختفي المستطيل الرابع (لأنه لايلزم إلا في حالة حصر الرقم بين كذا وكذا) المستطيل الثالث 50 ثم اضغط زر Format الموجود أسفل الأزرار السابقة وشكل كما تريد من لون الفونط ولون الخلية و... كل هذا في حالة تحقق الشرط جربها ستجدها مفيدة 2- الحالة الثانية Formula Is أن تربط الشرط بصيغة الخلية وهذه الحالة التي استخدمتها أنا في ملفك هذا Conditional Format2.xls الموجود بالمشاركة رقم 3 من الموضوع وبمجرد اختيار الحالة الثانية Formula Is ستختفي المستطيلات الثلاثة ولايبقي إلا واحد لتكتب فيه الصيغة Formula إرجع مرة أخري للملف وأظهر الأعمدة E-F-G ظلل المجال H18:AZ21 ثم استدعي التنسيق الشرطي Conditional Format ستجد أنني استخدمت الحالة الثانية Formula Is وستجد الشرط كالتالي =AND($F18>0.5,$F18<=H$17,$G18>H$17) والفورمات باللون الأزرق ومعني هذا أنك تريد من الإكسل أن يلون بالأزرق أي من الخلايا يحقق هذا الشرط ومعني الشرط نفسه أن الخلايا العلوية التي بها الزمن والمعبر عنها بــ H$17 إذا كانت أكبر من أو تساوي الـ $F18 ، مايقابلها في العمود F وفي نفس الوقت تكون أقل من $G18 ، مايقابلها في العمود G أعلم أنه ليس سهلا لمن لم يكن علي علم به ولكنه موضوع مفيد فلتصبر ولتتقنه وستندهش مما ستسطيع عمله بإذن الله