ادخال التاريخ تلقائيا فى خليه ما بمجرد التعديل على خليه اخرى

[XXX_WALID_XXX]

السلام عليكم

اريد ادخال التاريخ تلقائيا فى خليه محدده ومعينه ولتكن m13 وذلك بمجرد التعديل على خليه اخرى ولتكن a1 ولنفرض ان المقصود بالتعديل هو ان تكون قيمة الخليه a1 اكبر من صفر

فمثلا اذا جعلنا قيمة الخليه a1 مثلا 120 فاريد حينئذ ان يكتب التاريخ فى m13 كالاتى 28/12/2007 وتلقائيا

وارجو شرح كيف اركب هذا الكود بالتفصيل

ومعذرة لكثرة طلباتى (طلعت عينى وانا بحاول اعالج الموضوع ده ومش عارف)

وشكرا لكم ...وجزاكم الله تعالى خيرا

[abumaher]

السلام عليكم ورحمة الله وبركاته

ان شاء الله يكون هذا المطلوب

______________.rar

[XXX_WALID_XXX]

شكرا مره اخرى لك اخى ابو ماهر

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

فظهر عندى شئ اخر وانظر لترى

________.rar

[abumaher]

السلام عليكم ورحمة الله وبركاته

شوف التعديل

________.rar

[XXX_WALID_XXX]

جزاك الله خيرا ابو ماهر ومنتحرمش منك

بس معلش هتقل عليك انت الى ليا بعد الله تعالى

ممكن جنب التاريخ الوقت بالساعات والدقايق والثوانى وصباحا او مساءا او الوقت بطريقه 24ساعة

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

يعنى لو كتبت اليوم فى الخليه a1 مثلا120 هيظهر الوقت والتاريخ الى كتبت فيه 120 ويفضل ثابت ميتغيرش

شكرااااااا

ومفيش اكتر من جزاك الله كل خير ويزيدك علم نافع اللهم امين

[abumaher]

السلام عليكم ورحمة الله وبركاته

شوف التعديل

من تسيق الخلايا ممكن تختار وضع التاريخ

________.rar

[XXX_WALID_XXX]

شكراابو ماهر كفيت ووفيت والله

تم العمل وجزاك الله خيرا

[XXX_WALID_XXX]

السلام عليكم
الاخ العزيزابو ماهر
حدث ما كنت اخشاه وهو ان التاريخ ليس ثابت بل يتغير الى وقت وتاريخ اللحظه التى افتح فيها ملف الاكسيل
فامس عدلت الملف ونسخت الكود بتاريخ امس لكن عندما فتحت الملف اليوم وجدت التاريخ مختلف وتحول لتاريخ اليوم وكنت اريد ان يظل التاريخ ثابت ولا يتغير ويثل ثابت ما دمت لم اعدل على الخليه
لكن كون التاريخ يتغير بمجرد غلق وفتح الملف فارجو معالجه الامر هذا
فى انتظارك اخى

[الســـــــاهر]

السلام عليكم

انظر المرفقات

_________.rar

[XXX_WALID_XXX]

اسف للازعاج

وشكرا لمحاوله المساعده

كل ما اريده تثبيت التاريخ فلا يتغير التاريخ الا اذا غيرت من قيمه الخليه b4وهى سعر الذهب فعند وضع سعر الذهب مثلا 120 يظهر التاريخ فى o3 وبالتالى يظهر التاريخ الهجرى

كل مااريده ان يظهر التاريخ فى o3 بمجرد كتابه سعر الذهب فى b4 (سعر البيع) والطلب المهم والرجاء هو ان يظل التاريخ ثااااابت بعد ذلك فلا اريد ان يتغير فهو تاريخ لهذا ليوم فى اليومية

فلا اريد فتح الملف وغلقه فاجد كل التواريخ تغيرت او عند الكتابه فى اى خليه اخرى يتغير التاريخ اريد ان يظل ثابت والملف المرفق قد يوضح طلبى

_________________.rar

[احمدزمان]

اساتذتنا الأفاضل

السلام عليكم و رحمة الله و بركاته

اضع طلبي هنا لأنه متعلق بنفس الموضوع

اذا كنا نريد ادراج تاريخ اليوم تلقائيا في العمود D امام كل خلية تتغير قيمتها في العمود A

مثال

اذا وضعت القيمة 2 في الخانة (A5) غانة يعطيني تاريخ اليوم في الخلية التي امامها مباشرة وهي (D5).

ويكون ذلك عن طريق الكود - حتى لاتتغير قيمة التاريخ بتغير تاريخ اليوم في الجهاز

ولكم خالص شكري مقدما

[أبوعبد الله]

أخي العزيز

السلام عليكم ورحمة الله وبركاته .

رجاء الاطلاع على المرفق وقد تم تعميم ما طلبت على كامل العمود ( B ) وكامل العمود ( O ) بحيث إذا قمت بإدخال أو تعديل السعر في أي خلية من العمود ( B ) يتم وضع تاريخ اليوم في الخلية المقابلة من العمود ( O ) مع تثبيت التاريخ طالما لم يتم تغيير السعر في الخلية المقابلة - ( مسألة أن يكون التاريخ هجري هذه تتوقف على تنسيق التاريخ بجهازك من ال REGIONAL AND LANGUAGE OPTIONS ) . أرجو أن يكون هذا طلبك .

تحياتي

أبو عبدالله

_____________.rar

تم تعديل ديسمبر 30, 2007 بواسطه إكسيلجي

[XXX_WALID_XXX]

الحمد لله رب العالمين شكرا لتجاوب الاخوه

لكن يبدو ان الامر ما زال غير مفهوم والطلب لم استطيع اناان اوضحه

فالرجاء تحميل الملف المرفق فقد بينت طلبى وشكرا جزيلا لكم

وجزاكم الله خيرا

__________________.rar

[الســـــــاهر]

السلام عليكم

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

على العموم تم التعديل ارجو ان يكون طلبك

عفواً اخي حصل خطأ في الكود وتم تعديله

ارجو اعادة التحميل

وهذا هو الكود ويكتب في نفس الصفحة

If Target.Cells(6, 2) > 0 Then
   Cells(3, 15) = Now

شرح الكود:

اذا كان الهدف (6,2) وهي تمثل الخلية B2

اكبر من صفر فقم بإدراج التاريخ والوقت في الخلية (3,15 ) وهي تمثل الخلية O3

تم التعديل النهائي ان شاء الله

_________________.rar

تم تعديل ديسمبر 30, 2007 بواسطه assahir

[XXX_WALID_XXX]

اخى الساهر

فعلت الاتى من قبل

فتحت صفحه الفيجيوال بيزكalt+11

ونسخت الكود الاتى :-

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Cells(1, 1) > 0 Then

Cells(13, 13) = Date

End

End If

End Sub

واغلقت الملف وفتحت ملف جديد وذهبت للفيجيوال بيزك ومن ادراج اخترت موديل ولصقت الكود والنتيجه لا شئ

فرجاء شرح الاستفاده ولوتطلع على ملفى السابق فى المشاركه 13فساكون ممتن لك وشاكر ففيه وضحت ما اريد

وشكرا

[الســـــــاهر]

تم التعديل النهائي ان شاء الله

المشكلة كانت في كونك عامل دمج للخلايا مما جعلني اخطأ في العد

راجع المرفق بالمشاركة السابقة

[XXX_WALID_XXX]

اخى الساهر شكرا جزيلا

اتصرفت ونسخت وعدلت المهم وصلت لانى عدلت على الملف الىانت عدلته لى

المهم جيت انسخ الصفحه عشان اعمل منها 31 يوم عشان هى يوميه

لقيت المعادله تنطبق على اول صفحه فقط اما النسخ فلا تقبل المعادله

ومرفق الملف للتوضيح

________________________.rar

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

استاذ اكسلجي

جزاك الله اللف الف خير

هذا هو المطلوب ولك خالص شكري وتقديري

[الســـــــاهر]

السلام عليكم

عشان تنسخ الكود اتبع الاتي في جميع الصفحات

اضغط بزر الماوس اليمين على الصفحة اللي اسمها 1 تطلع لك قائمة اختار منها

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

ثم اذهب للصفحة اللي بعدها و بنفس الطريقة افتح صفحة الفيجوال تبعها و اعمل لصق

و على كدة

تم تعديل ديسمبر 30, 2007 بواسطه assahir

[XXX_WALID_XXX]

يا سلااااااام الحمد لله كده تمام

معلش اعذرنى اصلى معنديش اى خبره فى الفيجيوال بيزك ولا الاكواد

بس ملحوظه جميله وحلت الموضوع

بس خليك معايا وجنبى عشان مش هنستغننى عن خبرتك وعلمك

جزاك الله كل خير