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

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


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

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

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

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

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

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

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

Important Information