Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

عاطف عبد العليم محمد

03 Special Member
  • Content Count

    203
  • Joined

  • Last visited

Everything posted by عاطف عبد العليم محمد

  1. السلام عليكم ورحمة الله وبركاته ساجدة العزاوي اكسل لعلك تتفضلين وتضعي هنا الكود والشرح ـ جزاكم الله خيرا
  2. الأخ الكريم محي الدين ابو البشر لاحظت ان الكود لايعمل اذا كان عدد الارقام المطلوب تغييرها أقل من 4 هل هذا صحيح ؟ B = Sheets("الارقام").Range("d3").Resize(Sheets("الارقام").Cells(Rows.Count, 4).End(xlUp).Row - 5, 2) مالفكرة من ذلك ؟ و هل ممكن تغيير ذلك حتى لو رقم واحد هو المطلوب تغييره ؟ ولو سمح وقتك بشرح السطر عاليه وفقك الله
  3. Range("c6").Resize(UBound(A)) = Application.Transpose(A) الأخ الكريم محي الدين ابو البشر جزاك الله خيرا ، أرجو تعديل الكود لأني اريد الأرقام أن تتغير في نفس العمود c بعد تعديل في الكود عاليه كانت d6 تمام أن شاء الله وفقكم الله
  4. عذرا يوجد خطا في الملف وهذا الصحيح السلام عليكم بحثت في مواقع اخرى ولم اهتدي لكود مناسب لعل الاستاذة الكبار في المنتدى يفيدونا بحث واستبدال متكرر.xlsx
  5. استاذ حسين مامون السلام عليكم ورحمة الله وبركاته ما اريد أخي الفاضل ماكرو يبحث عن الرقم القديم الموجود في صفحة الارقام وليكن الأول وهو 1246 يبحث عنه في صفحة قيود اليومية فإذا وجده يبدله بالرقم الجديد وهو 1300 فيتم تبديل كل 1246 لتصبح 1300 ثم يعود الماكرو ليبحث عن الرقم القديم الثاني الموجود بصفحة الارقام وهو 1247 يبحث في صفحة اليومية ويبدله بالرقم الجديد 1301 وهكذا شكرا جزيلا لك الأخ /محي الدين ابو البشر السلام عليكم ورحمة الله وبركاته شكرا جزيلا لكم وأريد الحل بماكرو كما اسلفت في الردود السابقة وفقكم الله
  6. السلام عليكم ورحمة الله وبركاته مرفق ملف في صفحة قيود اليومية يوجد عمود يراد البحث فيه واستبدال القيم صفحة ارقام بها الارقام التي يراد البحث عنه والارقام المراد ان تستبدل بها شاكرا لكم بحث واستبدال متكرر.xlsx
  7. السلام عليكم ورحمة الله وبركاته وفقك الله ، يبدو انني ازعجتك فالمعذرة على جهلي في الدين وفي الاكسيل
  8. شكرا للاستاذ سليم حاصبا بالبحث وجدت انه سبق ان افادني بموضوع زيادة التاريخ الهجري تم اضافة 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)) وفق الله الجميع
  9. باقي ما يخص التاريخ الهجري ، بانتظار افادة من الافاضل هذه لزيادة التاريخ الميلادي 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)
  10. السلام عليكم ورحمة الله وبركاته اخي مجدي وفقك الله ما معني ان البرنامج معد خصيصا للفرضين ؟ حاولت ان اضع بدون زوجة ( متوفاة ) ، لم يقبل وافترض وجود زوجة ؟
  11. السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم ارجو المساعد في كود زيادة التاريخ بالخلايا بزيادة عدد اشهر وبحسب التاريخ سواء هجري او ميلاي وقد بدات المحاولة بالهجري ولكن لم افلح 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
  12. السلام عليكم جرب حفظ الملف بصيغة EXCEL BINARY WORKBOOK عند الاغلاق يطلب الحفظ قد يكون به معادلة تجعله يطلب ذلك بها الوقت مثلا
  13. السلام عليكم ورحمة الله وبركاته هل يمكن عمل ماكرو يبحث عن الموديول MyNewModule فإن كان موجود حذف الموديول وان كان غير موجود نفذ الماكرو فأضاف الموديول لدي هذا الماكرو الذي يضيف موديول MyNewModule شكرا لكم Public Sub AddNewModule() Dim proj As VBIDE.VBProject Dim comp As VBIDE.VBComponent Set proj = ActiveWorkbook.VBProject Set comp = proj.VBComponents.Add(vbext_ct_StdModule) comp.Name = "MyNewModule" Set codeMod = comp.CodeModule With codeMod lineNum = .CountOfLines + 1 .InsertLines lineNum, "Public Sub ANewSub()" lineNum = lineNum + 1
  14. نعم يا استاذ احمد توجد خطوة قبل تنفيذه وشرحها الاخ djikay كما يلي ! in the VBA editor go the the Tools menu and choose References. In that dialog, scroll down to and check the entry for Microsoft Visual Basic For Applications Extensibility 5.3. If you don't set this reference, you will receive a compiler error. انا فعلت ماذكر عاليه وتم تنفيذه الماكرو بنجاح واظن ذكر اشياء اخرى لم اقرئها جيدا ولم افعلها اذا مشى الحال ابلغني خاصة اذا كنت تستطيع التعديل عليه
  15. وجدت الحل وتم تجربته https://stackoverflow.com/questions/24807623/inserting-a-module-into-a-new-workbook-using-vba
  16. الاخ / أحمد يوسف شكرا على الاهتمام والرد حسب معرفتي البسيطة بالانجليزي فالشرح عن اضافة موديول بالطريقة العادية بدون ماكرو ..... وان كنت مخطئ فعذرا و انسخ لي الكود من فضلك
  17. السلام عليكم ورحمة الله وبركاته كما في العنوان هل يمكن اضافة او حذف موديول بالماكرو ؟
  18. السلام عليكم هذا فورم ممتاز من ابداع عبدالله باقشير (خبور خير) غفر الله لنا وله فورم ادخال و تعديل مرن بمعية فورم ادخال التاريخ (1).rar
  19. السلام عليكم حدث عندي مرارا ان Excel has stopped working الاكسيل يتوقف عن العمل عند فتح الملف ويصمم على عدم فتح الملف وفي حالات أخرى يعطيني رسالة cant find project or library وكنت اضطر الى اختيار وضع تعطيل كافة وحدات الماكرو فيفتح الملف وأنسخ مايلزم لنسخة موجودة احتياطيا من الملف ثم احذف الملف وكانت هذه عملية مرهقة وقد قرأت عن حلول لم تنفع معي وأخيرا وجدت حل وهو اختيار تعطيل كافة وحدات الماكرو فتح الملف ادراج موديول جديد ( او حذف موديول) تمكين وحدات الماكرو حفظ الملف الخروج اعادة فتح الملف وعندها بحمد الله يفتح تمام هذا لمن اراد ان
  20. اخي Emad Sabry جزاك الله خيرا ان تطوعت بالرد وارجو ان تصبر علي لجهلي انا بدأت من آخر ما كتبت وقبل دا افتح شيت اكسل ومن developer هتلاقى adds in شيل علامة الصح من جنب solver وجرب لم توجد علامة صح من البداية ثم
×
×
  • Create New...