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

زيادة التاريخ بعدة اشهر وبحسب هجري او ميلادي

Recommended Posts

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

اسعد الله اوقاتكم 

ارجو المساعد في كود  زيادة التاريخ بالخلايا بزيادة عدد اشهر وبحسب التاريخ سواء هجري او ميلاي 

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

Sub chngedate()
Dim i As Integer
Sheets("test").Select
For i = 4 To 200
If Cells(i, 16).Value = 1 And Cells(i, 15).Value Like "الهجري" And Cells(i, 9).Value Like "نصف سنوي" Then Cells(i, 10).Value = Cells(i, 10).Value + 177

  
Next i

End Sub

مرفق الملف ، وجزاكم الله خيرا 

تغيير تواريخ هجري او ميلادي.xlsm

شارك هذه المشاركه


رابط المشاركه
شارك

باقي ما يخص التاريخ الهجري ، بانتظار افادة من الافاضل 

هذه لزيادة التاريخ الميلادي

If Cells(i, 16).Value = 1 And Cells(i, 15).Value Like "الميلادي" And Cells(i, 9).Value Like "نصف سنوي" Then Cells(i, 11).Value = DateAdd("m", 6, Cells(i, 11).Value)
If Cells(i, 16).Value = 1 And Cells(i, 15).Value Like "الميلادي" And Cells(i, 9).Value Like "ربع سنوي" Then Cells(i, 11).Value = DateAdd("m", 3, Cells(i, 11).Value)
 If Cells(i, 16).Value = 1 And Cells(i, 15).Value Like "الميلادي" And Cells(i, 9).Value Like "سنوي" Then Cells(i, 11).Value = DateAdd("m", 12, Cells(i, 11).Value)

 

شارك هذه المشاركه


رابط المشاركه
شارك

شكرا  للاستاذ سليم حاصبا  

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

تم اضافة 

Function Higri_Date(but As Range, How As Integer)
 ad = but.Address(1, 0)
 y = "Left(" & ad & "," & 4 & ")+" & How & " & " & "RIGHT(" & ad & ",FIND(""*"",SUBSTITUTE(" & ad & ",""/"",""*"",1),1)+1" & ")"
Higri_Date = Evaluate(y)
End Function

ثم 

If Cells(i, 16).Value = 1 And Cells(i, 15).Value Like "الهجري" Then Cells(i, 10).Value = (Higri_Date(Cells(i, 10), 1))

وفق الله الجميع 

شارك هذه المشاركه


رابط المشاركه
شارك

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 اعضاء متواجدين الان

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

×
×
  • اضف...