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

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


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

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

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

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

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

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