اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

عندي خلية في ورقة اكسيل = now()

وهي مرتبطة بشرط اذا تم ملأ خلية معينة يكتب الوقت والتاريخ في هذه الخلية

سؤالي الان عندما يتم كتابة تاريخ ووقت الكمبيوتر كيف اجمد هذا الوقت لانه وكما تعرفون فان دالة now() تسير حسب ساعة الكمبيوتر كيف اجمدها بحيث يتخزن الوقت كما هو ولايزيد

مع كامل تحياتي

أنور المرتاح

قام بنشر

السلام عليكم

أخي العزيز

في المرفق ، الخلية A1 بها الدالة now

والخلية الصفراء B2 إذا عند ملئها سيتحول قيمة ، الخلية A1 إلي قيمة فقط

وإذا حذفت محتويات الخلية الصفراء B2 ، تعود الدالة now للخلية A1

الكود هو


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$B$2" Then Exit Sub

[A1].Value = [A1]

If [B2] = "" Then [A1].FormulaR1C1 = "=NOW()"

End Sub

تفضل المرفق

تجميد الوقت.rar

قام بنشر

بارك الله فيك وجزاك الله عنا كل خير

ماشاء الله ابداع تبارك الرحمن

بس يا استاذ طارق هل بالامكان عمل هذه المعادلة او هذا المود لأكثر من خلية يعني انا عندي كشف حضور وبمجرد ما ان يكتب الكود السري الخاص به يتسجل في الخلية الوقت الان وبارك الله فيك الحل وصل بتجميد الوقت ولكن هل من طريقة أخرى لعمل هذه المعادلة لكل الكشف يعني ليس الخلية A1 فقط وانما A2 A3 A4 وهكذا وجزاك الله خير

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

السلام عليكم

قام بنشر

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

أخي الكريم، إضافة إلى حل أخي الحبيب طارق حفظه الله إليك الكود التالي :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 2 Then Exit Sub

Target.Offset(0, -1).Value = Now

End Sub

الذي يضيف التاريخ والوقت الحليين في العمود A بمجرد إدخال أي معلومة في العمود B في السطر نفسه... أرجو أن يفي الكود بالغرض المطلوب... وتطبيق الكود على الملف الذي قدمه أخي الحبيب طارق في الملف المرفق...

أخوكم بن علية

تجميد الوقت في عمود حسب عمود آخر.rar

  • Like 1
قام بنشر

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

اكواد ابداعية وانا كان بنفسي اسال هذا السؤال لكنني ترددت لاعتقادي لايمكن ان تكون مثل هكذا دالة لكنني ايقنت بأن منتدانا ينعم بالكثير من الكفاءات والاساتذة الافاضل وزادكم الله من علمه وحفظكم جميعا

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

  • 2 years later...
  • 2 years later...
قام بنشر

الف شكر للاساتذة الفاضل وذادكم الله من علمه 

بالنسبة للتاريخ هو حفظ على اخر مره تم اضافة رقم بالخلية المشترط بها B  لكن ممكن التاريخ يتغير فى حاله اجراء اى تعديل على الخلية B

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information