اذهب الي المحتوي
أوفيسنا

ادراج التاريخ من خلال وضع الماوس على الخلية


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

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

وارغب في مساعدتي عن الضغط على الخلايا الصفراء بالماوس ان يقوم البرنامج بادراج تاريخ اليوم .

وهدف البرنامج متابعة سير سندات الصرف .

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

سندات الصرف.rar

رابط هذا التعليق
شارك

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("I4:N11")) Is Nothing Then Target = Format(Now)
      
End Sub

ضع  الكود السابق فى حدث الورقة  ثم احفظ الملف بصيغة  XLS  أو XLSM

 

 

تم تعديل بواسطه مختار حسين محمود
  • Like 2
رابط هذا التعليق
شارك

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

بارك الله فيك أستاذي القدير " مختار حسين محمود " على الكود الأكثر من الرّائع

جزاك الله خيرًا و زادها بميزان حسناتك

فائق إحتراماتي

88.jpg.70136b38563d61b72185c469c6e97d20.

 

  • Like 1
رابط هذا التعليق
شارك

أستاذنا الكريم مختار السلام عليكم ورحمة الله وبركاته

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

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

  • Like 1
رابط هذا التعليق
شارك

اشكرك استاذي جزيل الشكر .

بيد انني لديه طلبين كون انه لست ضليع بالاكسل .

1ـ لو تتفضل بحفظ الكود في الملف المرفق اكون لك شاكرا  لانني لم لم افهم اين الذي يسمى حدث .

2ـ هل التاريخ المدرج من خلال الكون يتغير مع تغير اليوم ام يحتفظ بصيغته

رابط هذا التعليق
شارك

ادراج التاريخ من خلال وضع الماوس على الخلية.rar

أخى العزيز  عبدالعزيز  بارك الله فيك أخى الكريم على تشجيك المستمر و تشرفت بمرورك

أستاذنا الفاضل محمد حسن بارك الله فيك على تشجيك المستمر  وتشرفت بمرورك

أخى فارس التاريخ يتغير كلما نقرت على الخلية

حدث الورقة : اعمل كليك يمين على اسم الورقة أو الشيت  ستجد كلمة View code  اضغط عليه هتلاقى نافذة محرر الاكواد للورقة أمامك

 

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("I4:N11")) Is Nothing Then Target = Format(Now, "dd-mm-yyyy")
      
End Sub

أخى الشيبانى   تحياتى

 

 

رابط هذا التعليق
شارك

  • 1 year later...

السلام عليكم

جزى الله استاذنا مختار خيراً 

اخى الكريم / hany aboaish قم بفتح موضوع جديد اطرح فيه طلبك مرفق معه نموزج موضح به المطلوب بشكل مناسب وان شاء الله تجد المساعده

تقبل مرورى وتحياتي 

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

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