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

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

قام بنشر

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

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

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

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

سندات الصرف.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