عاطف عبد العليم محمد قام بنشر مارس 13, 2019 مشاركة قام بنشر مارس 13, 2019 السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم ارجو المساعد في كود زيادة التاريخ بالخلايا بزيادة عدد اشهر وبحسب التاريخ سواء هجري او ميلاي وقد بدات المحاولة بالهجري ولكن لم افلح 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 رابط هذا التعليق شارك More sharing options...
عاطف عبد العليم محمد قام بنشر مارس 13, 2019 الكاتب مشاركة قام بنشر مارس 13, 2019 باقي ما يخص التاريخ الهجري ، بانتظار افادة من الافاضل هذه لزيادة التاريخ الميلادي 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) رابط هذا التعليق شارك More sharing options...
عاطف عبد العليم محمد قام بنشر مارس 13, 2019 الكاتب مشاركة قام بنشر مارس 13, 2019 شكرا للاستاذ سليم حاصبا بالبحث وجدت انه سبق ان افادني بموضوع زيادة التاريخ الهجري تم اضافة 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)) وفق الله الجميع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.