halwim

شكرا أستاذنا الفاضل ،، وعلى ما يبدو لي وحسب تجربتي أنه يتعامل مع التاريخ الهجري حتى إلى غاية سنة مئة (100) هجرية أي من أواخر القرن الأول في الإسلام و للتجربة يتم كتابة السنة هكذا ( 0100 ) جزيت كل خير تحياتي

أستاذي الكريم " تامر" شكرا على التنبيه بالنسبة لتعليقكم الأول ، آسف على تقديم هذه المعلومة فبعد تنبيهكم تأكدت وبان لي صواب ماقلتم ،، بالنسبة للتعليق الثاني تم التعليق في محله على الرابط المذكور.

السلام عليكم ورحمة الله وبركاته ، بالنسبة للصفحة الثانية ( امكانية تحويل عناوين اى معادلة عند ادخالها من نسبى الى مطلق ) جميلة جدا ولكن ألاتوجد طريقة تعطي الخلية صفة الإطلاق دون التأثير على القيمة عند السحب ؟ فمثلا أنا قمت بترقيم العمود A من A1:A15 ثم ذهبت للعمود B ووضعت في الخلية B1 علامة المساواة ( = ) ثم حددت الخلية A1 ثم ضغطت إنتر ، الآن أصبحت الخلية A1 = B1 تحتوي على رقم 1 بعد هذا قمت بسحب الخلية B1 إلى B15 هنا المشكلة أصبح المدى B1:B15 بأكمله يحمل رقم واحد 1 ؟ ! المطلوب تعديل الكود بحيث تصبح جميع خلايا المدى B1:B15 كلها خلايا مطلقة ، بمعنى أنها تساوي قيمة الخلية المجاورة لها من العمود A بحيث تكون أرقام العمود B مطابقة لأرقام العمود A فمثلا A1=B1 A2=B2 A3=B3 وهكذا الخ... مع وجود المثبت $ في جميع خلايا عمود B أي بشرط أن تكون معادلات العمود B مطلقة ، حتى لا تتأثر بإدراج صف جديد أوبحذف صف . نحتاج لهذه المهمة عندما تكون السجلات مرقمة بكود يرقم العمود الأول بعدد السجلات يعمل مع حذف أو إضافة أي سجل في أي مكان بين السجلات السابقة . أتمنى أن يتم إعادة المرفق وفيه مايلي : 1- كود في صفحة مستقلة يتيح بأن يكون لكل خلية مرجع مطلق يخصها عند سحب معادلة من خلية في مدى معين . 2- أيضا كود في صفحة مستقلة يتيح للمستخدم تحديد عمود معين لتنفيذ مهمة المراجع المطلقة بالتثبيت تلقائيا عند إدراج المعادلات . 3 - كود يتيح للمستخدم إمكانية تحديد أي مدى يتم كتابته (من:إلى) وذلك لتنفيذ مهمة المراجع المطلقة تلقائيا عند إدراج المعادلات . تحياتي

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

السلام عليكم ورحمة الله وبركاته ، لا أطيل عليكم ،، عندنا مدى أو نطاق من الخلايا له حود سميكة ونقش ملون وخط معين وليكن المدى هو A1:H15 نريد إذا تم إدراج صف جديد بوسط المدى كلنا نعلم أن الصف الجديد سيكون لونه أبيض وحدوده عادية وووالخ المطلوب أن يكون الصف الجديد المدرج في الوسط ، حاملا لجميع خصائص وتنسيقات الصفوف التي فوقه أوالتي تحته بشكل تلقائي ، بحيث يأخذ نفس الأسلوب فلو فرضنا أن أحد أعمدة المدى يتطلب خلية مطلقة ($) فيصبح بمجرد كتابة أي قيمة تكون الخلية مطلقة . هل يمكن ذلك ؟ أرجو إرفاق ملف بالجواب . ولكم الشكر مقدما تحياتي

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

السلام عليكم ورحمة الله ، أحسنت أخي أستاذ تامر على هذه المشاركة ولاحرمنا المزيد ، واقعا مشاركة رائعة ! ! جائت في وقت الحاجة ، ولتوي اليوم طرحت سؤال عن هذا الموضوع إضغط هنا ،، وكم كنا سابقا نعاني من تثبيت الخلايا النسبية إلى مطلقة يدويا ، أما حاليا فأصبح الأمر سهل للغاية كل ماعليك تحديد المدى ثم بضغطة زر تصبح جميع الخلايا مطلقة مع الرمز $ وقد كنا سابقا نستخدم البحث والإستبدال لإزالة رمز التثبيت $ لجعل خلايا المدى نسبية . من الأعماق أقول مليون شكرااااا

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

من الأعماق أٌقول لك ألف شكرا أستاذي الفاضل ، والسلام

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

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

أستاذنا أشكركم على تعديل أغلب الطلبات في المشاركة الأخيرة ،، وآسف على التطويل ، بالنسبة للسطر ربما كان تعبيري بالتعقيب غير دقيق . ولو ركزت على كلماتي بعد سطر الكود لتبين لك مقصودي على أي حال ، أريد بالتحديد نقل تواريخ العمود C من الورقة رقم 1 إلى الورقة رقم 2 إلى جانب عمود تاريخ دفع المتبقي . بتعبير آخر أريد الصفحة الأولى تحتوي على ثلاثة أعمدة فقط وهم ؛ عمود الإسم و عمود المبلغ المدفوع و عمود المبلغ المتبقي . ويكون في الصفحة الثانية عمودين فقط هما ؛ عمود تاريخ الدفع و عمود تاريخ دفع المتبقي . أتمنى أن يكون الطلب الأخير في الموضوع وشكرا . تحياتي

سبب المشكلة التقديم والتأخير في مكان الشهر وعندما جعلت صيغة التحقق من الصحة في الخلية B11 هكذ ا: =B11>=DATEVALUE("1/9/2004") بهذه الصيغة انحلت المشكلة ، كما أن الرابط الذي أشرتم إليه نفعني كثير في قضايا مشابهه . شكرا

السلام عليكم ورحمة الله ، أولا :أقدم الشكرك لك على الكود وعلى الشرح الرائع فقد كنت ناويا أن أقوم بالشرح ولكن جاء شرحكم وافيا جزيتم كل خير ثانيا : أرجو التعقيب بالنسبة للسطر : If IsDate(Range(Target.Address).Offset(0, 1)) Then يقوم بأختبار خلية العمود (C) اذا بها تاريخ مسجل يقوم بالتسجيل فى الورقة الثانية وغير ذلك يسجل فى الاولى نريد وضع مسار منصص لإسم الورقة يتيح الفرصة لتغيير مكان خروج كل التواريخ في الصفحة رقم 2 بمافيها تاريخ المبلغ المدفوع الذي في العمود C بحيث تبقى الصفحة رقم 1 خاصة بإدخال البيانات فقط . ثالثا : بالنسبة لتحديد الصفحات بهذه الطريقة : Sheets(2).Range فإنه بمجرد إدراج صفحة جديدة تصبح التواريخ لا تعمل في الصفحة السابقة (رقم 2)بل تخرج في الجديدة بناء على أن الجديدة هي الثانية ، نريد التنصيص على إسم الورقة . تحياتي

أستاذي الحبيب ، شكرا لك على مواصلة ومتابعة الموضوع ، اتضحت لي الأمور . تحياتي

أشكر الأستاذ خبور على مايقدم لنا من خبرته الكبيرة والمفيدة ،، أخي خبور الله يجزيك خير ، سأحاول أن أهضم ما أشرت إليه وإن كنت بحاجة للتوضيح أكثر عن كيفية زيادة صفوف الجدول من أجل توسيع التاريخ الهجري ، هل بالسحب أم بتغيير القيمة ؟ ثم لو أنك توضح وضيفة الأعمدة C، D، E، F ولو إجمالا . * قد عرفت ارتباط تغير النصوص المجمعة بالثواني ولكن لم أعرف كيف تم الربط بشكل تلقائي ؟ قد حذفت شاشة خروج النصوص الصفراء (كائن الشكل التلقائي) ولكن لم أستطع عمل شاشة تستعرض النوص من تصميمي أريد أن أصمم ذلك كيف ؟ شكرااااا

أستاذنا أشكرك على بذل قصارى جهدك معي ،بذلت عطاء بلاحدود ومعلومات غير محدودة ، أشعر أني أرهقتك بعض الشيء . أستاذي الموقر بالنسبة لكود دفع المتبقي في المشاركة رقم 22 قد سبق أن وعدتنا بشرح الكود، و إن شاء الله سوف أقوم بالشرح نيابة عنك ، فقط أريد منكم تعديل مسارات خروج التاريخ في الكود فمثلا حاليا العمود C مخصص لخروج تاريخ أول دفعة من المبلغ والعمود E مخصص لخروج تواريخ تسديد المبالغ المتبقية المطلوب / أن يكون في الكود إسم الصفحات لكي نحدد من خلاله مكان خروج التواريخ في الورقة رقم 2 أو الورقة رقم 3 وهكذا ،، مع ترك الكود كماهو بجميع خدماته . . . أعتقد أن الطلب بسيط وواضح وغير مكلف . رابط تحميل الملف الذي فيه الكود : http://www.officena.net/ib/index.php?act=A...ost&id=5860 الكود المطلوب التعديل عليه : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Not Intersect(Target, Range("B3:B30")) Is Nothing Then If IsDate(Range(Target.Address).Offset(0, 1)) Then Range(Target.Address).Offset(0, 3) = Date & " " & Time Cells(32, 5) = Date & " " & Time Else Range(Target.Address).Offset(0, 1) = Date & " " & Time Cells(32, 3) = Date & " " & Time End If End If End If End Sub أرجو أن تتقبل دعواتي وتحياتي

أستاذنا الفاضل أشكرك على سرعة الرد ولكن لاتزال المشكلة قائمة ، فمثلا إذا كتبنا المبلغ في الورقة رقم 1 في A2 فإن المبلغ معرض للمسح مع البيان الخاص به في B2 في وقت واحد لذلك يفترض أن يتم خروج تاريخ مسح كل الخلايا المحدة تبعا للخلية A2 بحيث يتم تسجيل تاريخ المسح في الورقة رقم 2 في الخلية A2 والحاصل حاليا عدم خروج تاريخ المسح في الورقة رقم 2 إذا تم مسح أكثر من خلية في وقت واحد ؟ لماذا ؟ المطلوب إذا تم مسح أكثر من خلية لصف أو لعدة صفوف أفقيا من عمود A و B من الورقة الأولى نريد أن يتم خروج التاريخ في كل خلية تقابل هذه الصفوف من الورقة الثانية في العمود A فقط بحيث لايتكرر خروج التاريخ في خلايا العمود B . تحياتي

جميع الأمثلة والتعديلات ، والإضافة الأخيرة تعمل بشكل صحيح ،،، أشكرك على ذلك ولكن لاتزال المشكلة : بالنسبة للمرفق الأخير تقريبا جميع الصيغ تلبي الشروط باستثناء النطاق B11:C15 فإنه لايتم رفض من ولد قبل تاريخ 2004/9 وقد كان نص الشرط في المرفق كالتالي : كل من ولد في شهر 9 من سنة 2004 فصاعدا بغض النظر عن الأيام فإنه يتم قبوله في الروضة مثلا وإذا كان مولود قبل 9/2004 يتم رفضه . قد تخلف الشرط ، وقد قمت بنقل مابين القوسين تماما كماهو هكذا ( 16/08/2004 ) من B11 نسخته من شريط الصيغة ، وهذا يعني أن المولود قد ولد في شهر 8 أي قبل شهر 9 ومع ذلك لم يتم رفضه لماذا ؟ وواضح هنا أن رقم 8 يشير للشهر لأن رقم 16 أكثر من عدد الأشهر فهو يشير للأيام . لماذا اختص هذا الشرط بهذا الترتيب عند كتابة التاريخ دون غيره ؟ تحياتي

أخي الأستاذ تامر السلام عليكم ورحمة الله وبركاته ، مبدئيا يكفيني إصلاح الكود الذي أشرت إليه فيما تقدم وهذا هو الكود : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:A30")) Is Nothing Then Sheets("ورقة2").Range(Target.Address).Offset(0, 3) = Date & " " & Time Sheets("ورقة2").Cells(31, 4) = Date & " " & Time End If End Sub وهو نفس الكود الموجود في المشاركة رقم 18 وهذا رابط التحميل للملف: http://www.officena.net/ib/index.php?act=A...ost&id=5644 أرجو أن يتم إرفاقه بعد تعديله ، وتصحيحه من مشكلة التعدي على بيانات العواميد المجاوره عند ما نضغط زر المسح del ، فمثلا في الورقة رقم 1 جرب تحديد الخليتين A2 و B2 في وقت واحد ثم إضغط زر DEL ثم إنتقل إلى الورقة رقم 2 الآن يفترض أنك تشاهد تاريخ مسح الخليتين في الخلية D2 فقط ولكن إذا ركزت سوف تشاهد أن التاريخ قد تكرر في D2 و E2 والمطلوب عدم خروج التاريخ في E2 لأن العمود E سوف نخصصه لكتابة نصوص ومع بقاء الكود على وضعه بدون تصحيح فإنه سوف تنمسح النصوص من E2 لوقوعها في العمود E في انتظار كم يا أستاذ ولكم تحياتي

شكرا للأستاذ الكبير محمد طاهر ، معلوماتك أثرت الموضوع شكرا على التشريف والمرور .

السلام عليكم ورحمة الله وبركاته ،، بالنسبة للمرفق الأخير تقريبا جميع الصيغ تلبي الشروط باستثناء النطاق B11:C15 فإنه لايتم رفض من ولد قبل تاريخ 2004/9 ؟ ! بصراحة أعجبني كثير، كان قصدي أن يتم رفض كتابة القيمة التي حددناها كبداية ، فمثلا نحن حددنا القيمة (2000) كبداية في الخلية ( I25 ) و (2004) كنهاية في الخلية ( K25 ) وصحيح أن الفرق 4 لكن المطلوب هو أنه عندما نكتب 2000 في الخلية I25 تتم المقارنة مع الخلية K25 فإن كانت المدة أٌل من خمس سنوات يتم رفض الكتابة في الخلية J26 الزرقاء . وقياسا على هذا تصاغ باقي الأمثلة التحتيه. كما بودي أن يزاد مثال رابع تحت المجال E25:L30 مباشرة وهو عبارة عن مايلي : إذاكان الفرق بين يوم 13/6 ويوم 17/4 من أي سنه فإنه يتم وضع نتيجة الفرق كما في العمود L ثم إنه إذا كان الفارق أكثر من عشرة أيام بين القيمتين يتم قبوله وإلا يتم رفضه . تحياتي

أستاذي أسعدك الله / أرجو أن لا أكون لحوحا ولكن الحاجة للتعديل دعتني للتذكير . وإن غدا لناظره قريب ،، أتمنى أن يكون موعدنا الصبح . تحياتي الكثيرة و الخاصة لسيادتك

تحياتي للأستاذ تامر وإن شاء الله خف الإزدحام بحيث يسمح الوضع إعطائي من وقتكم الثمين لمايلي وآسف على الإلحاح ,, *************************************** أرجو ذكر الطريقة للفائدة .

السلام عليكم ورحمة الله وبركاته ، الحمد لله أخيرا وجدت مبتغاي بخصوص إظهار القوائم وأشرطة الأدوات وبإمكانكم الإستفادة من الرابط : http://www.officena.net/ib/index.php?showtopic=14500 تحياتي