angelloay قام بنشر فبراير 3, 2011 قام بنشر فبراير 3, 2011 السلام عليكم عندي مشكلة صغيرة وانتم اهل الخبرة في هذا المنتدى العظيم فقد حللتم جميع مشاكلي السابقة مشكلتي هي انه اريد كتابة تاريخ تلقائي في خلية ما عند كتابة اي رقم او اسم في خلية اخرى نجحت في تنفيذ الفكرة ولكن هناك مشكلة انه عند تغير تاريخ اليوم تتغير جميع التواريخ السابقة اللتي سبق وكتبتها بالطريقة نفسها والفكرة هي كالتالي: لدي مجموعة من الاسماء وعليهم مالغ مستحقة بجانبهم وعند تسديد ماعليهم من ديون يتم تسجيل تاريخ اليوم ولا يتغير بتغير اليوم التالي . استخدمت الدالة التالية =IF((O5>0);(TODAY());("") وطلب ثاني: اريد ان اضيف خيار في القائمة او زر في الاكسل لنقل اي اسم احدده الى صفحة اختارها يدويا هل يمكن ذلك؟ الملف والصورة بالمرفقات وشكرا لمساعدتكم date.rar
ابو القبطان قام بنشر فبراير 3, 2011 قام بنشر فبراير 3, 2011 اخي اليك مرفق من اعمال اساتذة المنتدى ، ومن مقتنياتي لأعمالهم الذهبية auto date.rar auto date.rar
ابو القبطان قام بنشر فبراير 3, 2011 قام بنشر فبراير 3, 2011 اخي اليك مرفق من اعمال اساتذة المنتدى ، ومن مقتنياتي لأعمالهم الذهبية .. احاول رفع المرفق ،، ولكن يوجد عطل يعيق الرفع Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo t_time If Target.Column = 1 Then Cells(Target.Row, 3) = Now t_time: Application.EnableEvents = True Application.ScreenUpdating = False End Sub تعذر ارفاق الملف .. فأرسلتلك الكود عسى ان يفيدك .. دعواتك .. ربنا يهدي الحال auto date.rar auto date.rar 1
angelloay قام بنشر فبراير 3, 2011 الكاتب قام بنشر فبراير 3, 2011 (معدل) مشكور اخي وحبيبي حليتلي نصف المشكلة والله انو عمالقة وشكرا كتييييييييييييييييييييييير بس لما ركبتوا مااشتغل معي طيب مو لازم يكون في بالكود اختيار للخلاياي يلي بدي ياها تتغير؟ مالقيت اي شي ياريت الحل تم تعديل فبراير 3, 2011 بواسطه angelloay
angelloay قام بنشر فبراير 3, 2011 الكاتب قام بنشر فبراير 3, 2011 (معدل) لقيت الحل وشكرا كتير الك بس بقي النص الثاني من المشكلة ياريت تساعدوني وشكرا اريد ان اضيف خيار في القائمة او زر في الاكسل لنقل اي اسم احدده الى صفحة اختارها يدويا هل يمكن ذلك؟ مثال على ذلك عندما ننقر على اي ملف نجد زر ارسال الى نضغط عليه فتظهر خيارات الارسال : بلوثوت . قرص مرن . سواقة . سطح المكتب الفكرة نفسها ولكن عند الضغط على اسم في ملف الاكسل بزر الفارة اليمين تظهر خيارات النقل وعند الضغط عليها تظهر نافذة لاختيار الورقة والصف او الخلية المراد النقل اليها تم تعديل فبراير 3, 2011 بواسطه angelloay
صاحب السعادة قام بنشر فبراير 3, 2011 قام بنشر فبراير 3, 2011 انا في غاية السعادة بكم وبهذا المتندى الرائع 1
nashwan28 قام بنشر مايو 28, 2011 قام بنشر مايو 28, 2011 السلام عليكم شباب انا منبهر بهذا المنتدى الفضيع حاولت تطبيق التاريخ التلقائي تنفذ تمام بس عندي اغلاق الاكسل واعادة فتحي يمتسح هذاولا ينفذ التاريخ التلقائي ارجو منكم الافادة Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo t_time If Target.Column = 1 Then Cells(Target.Row, 3) = Now t_time: Application.EnableEvents = True Application.ScreenUpdating = False End Sub و مشكورين
nashwan28 قام بنشر مايو 28, 2011 قام بنشر مايو 28, 2011 عفوا شباب طبعا محمل اوفيس 2010 مرفق لكم الملف الذي اريد ان انفذه و اذا كان عندكم افكار افضل لا تبخلوش علينا مشكورين daily report.rar
hamada1963 قام بنشر يوليو 22, 2014 قام بنشر يوليو 22, 2014 (معدل) السلام عليكم لو اردت وضع اكثرمن خلية في الصفحة بالتاريخ بنفس الكود بنفس الطريقة اي كل تاريخ مستقل بالخلية الخاصة به كذلك لو اردت تحديد الخلايا التي سوف استخدمها للتاريخ ليس العمود كله ولكم جزيل الشكر تم تعديل يوليو 22, 2014 بواسطه hamada1963
amgadkh2003 قام بنشر أكتوبر 27, 2018 قام بنشر أكتوبر 27, 2018 شكرا جزيلا للأخ السائل و الأخوة الذين تفضلوا بالإجابات و المشاركة و كذلك الشكر موصول للمشرفين على المنتدى منتدانا العظيم و تحياتى
الردود الموصى بها