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

day


rahekk

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

السلام عليكم

بحيث يكون يومي الاربعاء والاثنين بالتبادل

لم افهمها

البند الثالث حله هكذا

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As String
Application.EnableEvents = False
x = Application.WorksheetFunction.Weekday(Cells(1, 1))
  If x = 1 Or 5 Or 3 Then
   N = 1
    For i = 1 To 9
     Range("a1").Offset(i, 0).Value = Cells(1, 1).Value + N
    N = N + 1
  Next
End If
Application.EnableEvents = True
End Sub

و اسف لانى لم اتمكن من عمله الا بالكود

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

السلام عليكم

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

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

السلام عليكم

الاخ العزيز احمد يعقوب

انا اقصد بالتبادل يعني لو في a1 كتبت تاريخ يوافق يوم اربعاء يكون التااريخ التالي في a2 يوم الاثنين وفي a3 يكون يوم الاربعاء

اما لو كتبت في a1 تاريخ يوافق يوم اثنين يكون التاريخ التالي في a2 يوم الاربعاء و في a3 يكون يوم الاثنين

الاخ العزيز احمد لو اثقلت عليك تعطيني مثال اكون لك شاكر

في الانتظار

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

اخي العزيز

انا تخيلت ان العمليه سهله ولكن..........

علي العموم هذه محاوله مني

و قد نجح فيها المطلوب الاول و الثاني

وهذا العمل عن عام 2008

ارجو اخباري بالنتيجه

_______date____________.rar

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

السلام عليكم

الاخ العزيز aa_haah2008

اشكرك على الاهتمام بالموضوع والمشاركة ولكن لم تضبط الا في سنة2008 فقط مرة ثانية اشكرك وانا من المتابعين لنشاطك الرائع في المنتدى

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

جزاكم الله خير

تصدق ماني عرف كيف أبدأ

وما أدري وش الشي اللي لازم أشرحه بس على بركة الله

استخدمت التالي:

1)_ دالة WEEKDAY

وهي تعطي الرقم 1 ليوم الأحد 2 يوم الاثنين ...إلخ

2)_ الدالة IF

(موجودة في خلية التاريخ)

هل تعلم أن التاريخ 03/06/1429=07/06/2008=39606

<<< مثال :

اذا كان اليوم =1(الأحد) يضيف 2 للانتقال ليوم3 (الثلاثاء) التالي

اذا كان اليوم الثلاثاء يضيف 2 للانتقال ليوم الخميس التالي

اذا كان اليوم الخميس يضيف 3 للانتقال ليوم الأحد التالي

3)_الدالة LOOKUP

لترجمة اليوم 1=الأحد ...

هههههههههه

بصراحة أنا متحمس ودي أشرح بس ماني عارف وش المطلوب شرحة

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

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

اخواني الافاضل مجهود رائع بالفعل

هل من المكن عمل خلية واحدة ادخل بها التاريخ اهجري وخليه اخرى تعطيني تاريخ اخر

بمعنى اذا ادخلت تاريخ 25/04/1429هـ في الخلية المقابلة احصل على تاريخ 24/04/1430هـ

اتمنى ان اجد الحل لديكم

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

اخي خالد

السلام عليكم

ارجو تقبل التعديل البسيط

لرقمين بالمعادلة

و لكم تحياتي

حلو حسب التعدل أصبح تداور الأيام بهذا الشكل

السبت_الأحد_الثلاثاء_الخميس_الجمعة

الاثنين_الأربعاء

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information