ارجو الحل التاريخ يحدث نفسه في الاكسل كل يوم

[engineer mohammed rajab]

بسم الله الرحمن الرحيم

 

 

ارجو حل مشكلتي الازلية

 

هذه الدالة

 

 

المعنى منها

 

 

انها اذا دخل رقم في A2

 

يتم ادراج التاريخ اوتوماتيكيا في B2

 

المشكله انه كل مره ادخل الاكسس يحدث التاريخ

 

 

ارجوا حل مشكلتي

 

 

بالتوفيق

Book1.xlsx.zip

تم تعديل ديسمبر 16, 2014 بواسطه engineer mohammed rajab

[ابو تراب]

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

[engineer mohammed rajab]

تم اضافة الملف اخي العزيز

 

 

في انتظار الحل

[ياسر خليل أبو البراء]

أخي الحبيب جرب الملف التالي

في النطاقA2:A20 عند إدخال بيان في هذا النطاق أو الضغط المزودج على أي خلية بها يتم إدراج التاريخ الحالي ..فقط في حالة الإدخال الجديد أو الضغط المزدوج .أما إذا تركت أي خلية في النطاق كما هي فلن يتغير التاريخ ...

 

Insert Date Automatically.rar

[ابو تراب]

بعد اذن اخي ياسر ضفت الكود التالي ليناسب طلب السائل

 

If WorksheetFunction.IsNumber(Target.Value) Then
            Target.Offset(, 1).Value = Date
        Else
            Target.Offset(, 1).Value = ""
        End If

 

[engineer mohammed rajab]

 

أخي الحبيب جرب الملف التالي

في النطاقA2:A20 عند إدخال بيان في هذا النطاق أو الضغط المزودج على أي خلية بها يتم إدراج التاريخ الحالي ..فقط في حالة الإدخال الجديد أو الضغط المزدوج .أما إذا تركت أي خلية في النطاق كما هي فلن يتغير التاريخ ...

 

 

 

 

الف شكر اخي العزيز 

 

ولاكن علمني كيف استاض السمكة

 

 

 

ما الذي قمت به اعتقد ماكرو

 

 

ياريت تعلمني خطوه

 

هطوة

[ياسر خليل أبو البراء]

أخي الحبيب إذا أردت التعلم ..يمكنك تتبع الحلقات التالية

http://www.officena.net/ib/index.php?s=5f592865cf984bdf34b99d5aa707e2fc&showtopic=56941

إن شاء الله تتعلم المزيد عن البرمجة بـ VBA