طارق محمود

أخي العزيز أي تغيير في الورقة الأولي حتي 14 مادة وأي زيادة أو نقصان في المواد أو الطلاب سيتم تحديثها في الورقة الثانية تفضل المرفق zxs5.rar

ممكن لو ليك صبر علي القراءة الإنجليزي سأرفق لك جزء من كتاب جميل إسمه Formulas and Functions with Microsoft® Office Excel 2007 مرفق الجزء الخاص بالتنسيق الشرطي Conditional Format EXCEL-2007-Formulas & Functions -With m.s Office__ Conditional Format.pdf

أخي الكريم تستطيع مراجعة http://office.microsoft.com/ar-sa/results.aspx?Scope=FX%2CHA%2CHP%2CQZ%2CRC%2CXT&Query=%D8%A7%D9%84%D8%AA%D9%86%D8%B3%D9%8A%D9%82+%D8%A7%D9%84%D8%B4%D8%B1%D8%B7%D9%8A&App=XL أو http://www.officena.net/ib/index.php?showtopic=12945&hl=%2B%D8%AA%D8%B9%D9%84%D9%8A%D9%85+%2B%D8%A7%D9%84%D8%AA%D9%86%D8%B3%D9%8A%D9%82+%2B%D8%A7%D9%84%D8%B4%D8%B1%D8%B7%D9%8A وعموما التنسيق الشرطي هو أن تطلب من الاكسل عمل تنسيق معين عند تحقق شرط كذا (أو مجموعة شروط) عالسريع أيضا أنظر الفيديو cond_format.rar

السلام عليكم غيرت الكود تماما كالتالي Private Sub Worksheet_Activate() If IsEmpty(Sheet1.[c5]) Then MsgBox "لايوجد مواد للترحيل .... !!" & Chr(10) & "الورقة الأولي بها خطأ": Sheet1.Select: Exit Sub If IsEmpty(Sheet1.[b6]) Then MsgBox "لايوجد طلاب .... !!" & Chr(10) & "الورقة الأولي بها خطأ": Sheet1.Select: Exit Sub Application.ScreenUpdating = False ' حذف السابق [A9:B999].ClearContents With [C4:V100] .UnMerge .FillDown End With ' ترحيل المواد n1 = Sheet1.[B5].End(xlToRight).Column - 2 For x = 1 To n1 c = 1 + x * 2 Sheet3.Columns("A:B").Copy Cells(1, c) Cells(5, c).FormulaR1C1 = "=ورقة1!RC[-" & x - 1 & "]" Cells(9, c).FormulaR1C1 = "=ورقة1!R[-3]C[-" & Int((c - 2) / 2) & "]" Cells(9, c + 1).FormulaR1C1 = "=R6C[-1]*RC[-1]" Next ' ترحيل الطلاب With Sheet1 nr = .[b6].End(xlDown).Row .Range(.[b6], .Cells(nr, 1)).Copy [A9] End With nr = [b8].End(xlDown).Row Range([C9], Cells(nr, "W")).FillDown Application.ScreenUpdating = True End Sub ليوافق طلباتك وزودت أعمدة المواد حتي 10 مواد تفضل المرفق zxs4.rar

أخي العزيز / saw2010 تقول "نعم استاذى رحعت لكن للاسف لم ينفع معايه" هل جربت تعدل عليه أو تضع ملاحظاتك عليه يدويا ليناسب عملك وتعيد إرساله وسأقوم أنا أو أحد الأخوة بتحقيق ماتريد لكن بدون ملف ومقترح من عندك ، ستكون المساعدة صعبة

أخي jo11 شكرا لمرورك العطر ورائحة الورود الزكية

كما قلت سابقا بالمشاركة #2 بالتنسيق الشرطي إذا أردت : راجع بالمنتدي كثير من المواضيع تشرح هذا جيدا

السلام عليكم أخي الحبيب ستجد في ملفك في حدث فتح الملف الكود التالي Private Sub Workbook_BeforeClose(Cancel As Boolean) ... .. End Sub وهو كود لم أتصفحه جيدا ولكنه كملخص يمنع تغيير الأكواد عند غلق الملف ، يجبر الاكسل علي ألا يحفظ تغييرات الكود أما عن موضوعك الآخر (( هل للكود حد اقصي في الاسطر والاوامر .. وما هذه الرساله ؟؟ )) أرد عليك بأنه لايوجد شيء بالكمبيوتر لانهائي >> كل شيء له حد أقصي ولكنني لم أتعرض لهذا الطول من قبل وتستطيع دائما تقليل طول الكود باستخدام أكواد فرعية والحلقات وأوامر كثيرة لاتنزعج مع الممارسة ستجد ذلك شيقا

السلام عليكم تفضل أخي الكريم ورقة إكسل وبها الشرح شرح المعادلة.zip

هل راجعت الملف المرفق في مشاركتي السابقة؟

تفضل جدول التغييرات.rar

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

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

السلام عليكم لابد من إرسال الملف أخي / نور حتي يقلل من وقت الذي يريد المساعدة ولاتنسي ضغطه قبل الإرسال بــ winrar أو winzip وإن كنت تخشي علي خصوصية بيانات العمل غير الأسماء مثلا أولاداعي أساس لإظهارها , إحذف عمود (أعمدة) البيانات الغير مؤثرة علي المعادلة

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

السلام عليكم الأخت الفاضلة أهلا ومرحبا بك بين إخوانك وأخواتك لرفع ملفات للموقع (غير الصور) يجب ضغطها أولا بالـ winrar أو winzip وترفعي طبعا الملف المضغوط وان شاء الله ستجدي الكثيرين يتقدموا للمساعدة

هذا غير ممكن ياأخي العزيز منذ فترة بسيطة قام الـ IT في الشركة بتنصيب الويندوز لجهاز كان قديم ومركون ووجدنا التاريخ فيه 1980 أو شيء من هذا القبيل عند شراء جهاز جديد ، يكون حصل له (مسبقا لدي البائع - الذي غالبا يكون الموزع بنفس البلد) تنصيب مبدئي للأساسيات (قبل الويندوز) ومنها التاريخ وإذا ظل مغلق لفترة طويلة فتفرغ البطارية الصغيرة الموجودة داخل كل جهاز والتي تحتفظ بهذا التنصيب ومن حيل الـ IT إذا كان علي الجهاز باسوورد ، بيرفعوا هذه البطارية ويفتحوا الجهاز ثم يعيدوا تركيبها

السلام عليكم أخي العزيز لم أنتبه بالأمس للحواجز الموجودة في كود حدث حفظ الملف وأعدت عمل الملف مرة أخري تفضل الملف sssssss_2.rar

حتي هذه لابد أن تكون متصل بالنت وإلا كيف سيحدد الجهاز الوقت؟

السلام عليكم أولا أهلا ومرحبا بك أخي الكريم (عبد العزيز) بين إخوانك ثانيا كان الأفضل تبدأ سؤالك في موضوع جديد (لأنه ليس له علاقة بهذا الموضوع) ثالثا ممكن حل سريع بمعاملة الرقم كما يعامل الوقت ساعات ودقائق وثواني مثلا لو الرقم في A1 في خلية أخري إجعلها = A1÷24 وهذه الأخري إجعل تنسيقها كالتالي [h]:mm:ss مرفق ملف ساعات-دقائق ثواني.rar

السلام عليكم أخي أحمد مرفق شيت به شرح للكود الرئيسي الشاحنات المتوقفة -شرح الكود.rar

السلام عليكم أهلا ومرحبا بك أخي فتحي بين إخوانك إن شاء الله تكون من الرواد في المنتدي أخي الكريم معظم الأعضاء لايدري عن جدول 9 شيئا (وأنا منهم) ويفضل دائما إرفاق مثال وبه ماتريد بالضبط لاتبخل في شرح ماتريد لتحصل علي أجابات جيدة

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

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

أخي العزيز يوجد حل مضبوط ولكنه طويل نسبيا كالتالي لابد أن يكون الجهاز متصل بالنت (أو علي الأقل وقتما تريد تحديث التاريخ) خصص ورقة في الملف بعيدا عن ورقات عملك (في آخر الملف مثلا) من خارج الإكسل ابحث (بالجوجول مثلا) عن أي موقع يكون به تاريخ / وقت متجدد أنا وجدت لك مثلا هذا الرابط للتاريخ والوقت في مصر : http://www.timeanddate.com/worldclock/city.html?n=53 وتستطيع من نفس الرابط السابق ضبط البلد التي تريد بها التوقيت وسيتغير في الرابط فقط الرقم الأخير 53 المهم تحفظ / تنسخ هذا الرابط الذي تريده وفي الإكسل في تلك الورقة التي خصصتها لذلك ، قف علي الخلية A1 مثلا من قائمة بيانات (Data) إختر Get External Data >> From Web ستظهر لك قائمة بأعلاها العنوان Address الذي تريد ربط الإكسل به إعمل لصق Paste للعنوان الذي حفظناه في الخطوة (5) حسب سرعة النت لديك ستظهر الصفحة بالنت التي تخص العنوان وسيظهر معها أسهم صفراء كليك علي سهم البيانات التي تريد إستيرادها من النت كليك علي Import أسفل القائمة بعد ثولني ستجد اللبيانات التي كانت بصفحة النت ، عندك بورقة الإكسل إذا كنت بدأت العملية من الخلية A1 (الخطوة 6) فستجد الوقت والتاريخ بالخلية B5 يمكنك ربط أو مقارنة ماتريد في باقي الملف بتلك الخلية B5 للتحديث في أي وقت بعد ذلك (لابد أن تكون متصل بالنت) ثم كليك بيمين الماوس علي الخلية A1 وإختر آخر خيار بالأسفل Refresh مرفق ملف وبه الوقت/التاريخ بعد عمل الخطوات السابقة الوقت_التاريخ.rar