day

[rahekk]

السلام عليكم

اخواني أعضاء ومشرفين المنتدى

كلي امل في الله وفيكم في الاجابة على سؤالي مرفق مثال جزيتم خيرا

date.rar

[احمدزمان]

السلام عليكم

جرب WEEKDAY

مع IF

حيث ان السؤال غريب وفية مداخل و مخارج كثير مش فاهمها

[ابو اسامة العينبوسي]

السلام عليكم

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

لم افهمها

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

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

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

تم تعديل يونيو 6, 2008 بواسطه ابو اسامة العينبوسي

[rahekk]

السلام عليكم

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

[rahekk]

السلام عليكم

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

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

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

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

في الانتظار

[عادل حنفي]

اخي العزيز

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

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

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

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

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

_______date____________.rar

[rahekk]

السلام عليكم

الاخ العزيز aa_haah2008

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

تم تعديل يونيو 7, 2008 بواسطه rahekk

[خالد أبو مالك]

إذا ما كنت فاهم غلط

فهذا هو الحل

وهو سهل جداً

khalid2117_date.rar

[عادل حنفي]

اخي العزيز خالد

khalid217

احييك علي هذا

تم تعديل يونيو 7, 2008 بواسطه aah_aah2008

[rahekk]

السلام عليكم

الاخ العزيز khalid2117

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

انا في انتظارك زادك الله من العلم

[خالد أبو مالك]

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

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

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

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

1)_ دالة WEEKDAY

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

2)_ الدالة IF

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

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

<<< مثال :

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

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

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

3)_الدالة LOOKUP

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

هههههههههه

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

[rahekk]

السلام عليكم

الاخ العزيز khalid2117

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

[عادل حنفي]

اخي خالد

السلام عليكم

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

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

و لكم تحياتي

khalid2117_date.rar

تم تعديل يونيو 9, 2008 بواسطه aah_aah2008

[sambam]

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

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

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

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

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

[عادل حنفي]

اخي العزيز

ارجو النظر لهذا الموضوع فقد يعينك علي ماتحتاجه

http://www.officena.net/ib/index.php?showtopic=18708&hl=الهجري

[خالد أبو مالك]

اخي خالد

السلام عليكم

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

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

و لكم تحياتي

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

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

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