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

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

تعودت على التعامل مع محرر الاكواد وكانت النوافذ بالشكل التالي

  و تغيرت واصبحت بالشكل التالي

كيف اجعلها كما كانت ؟

جزاكم الله خيرا 

جزاك الله خيرا ورحم الله والديك

وفقك الله ساجدة العزاوي اكسل واهلا بكم 

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

ساجدة العزاوي اكسل

لعلك تتفضلين وتضعي هنا الكود والشرح ـ جزاكم الله خيرا 

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

الأخ الكريم محي الدين ابو البشر

لاحظت ان الكود لايعمل اذا كان عدد الارقام المطلوب تغييرها أقل من 4  هل هذا صحيح ؟

 B = Sheets("الارقام").Range("d3").Resize(Sheets("الارقام").Cells(Rows.Count, 4).End(xlUp).Row - 5, 2)

مالفكرة من ذلك ؟ و هل ممكن تغيير ذلك حتى لو رقم واحد هو المطلوب تغييره  ؟

ولو سمح وقتك بشرح السطر عاليه 

وفقك الله  

    Range("c6").Resize(UBound(A)) = Application.Transpose(A)

الأخ الكريم محي الدين ابو البشر

جزاك الله خيرا  ، أرجو تعديل الكود لأني اريد الأرقام أن تتغير في نفس العمود  c 

بعد تعديل في الكود عاليه  كانت d6  

تمام أن شاء الله

وفقكم الله

شكرا لاهتمامك  اخي حسين مامون

اضفت صفحة توضيح 

بحث واستبدال متكرر.xlsx

عذرا  يوجد خطا في الملف وهذا الصحيح

بحث واستبدال متكرر.xlsx

استاذ حسين مامون

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

ما اريد أخي الفاضل  ماكرو  يبحث عن الرقم القديم الموجود في صفحة الارقام وليكن الأول وهو 1246 يبحث عنه في صفحة قيود اليومية فإذا وجده يبدله بالرقم الجديد وهو 1300  فيتم تبديل كل 1246 لتصبح 1300  ثم يعود الماكرو  ليبحث عن الرقم القديم الثاني الموجود بصفحة الارقام وهو 1247  يبحث في صفحة اليومية  ويبدله بالرقم الجديد 1301 وهكذا 

شكرا جزيلا لك

الأخ /محي الدين ابو البشر

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

شكرا جزيلا لكم وأريد الحل بماكرو  كما اسلفت في الردود السابقة

وفقكم الله

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

مرفق ملف في صفحة قيود اليومية يوجد عمود يراد البحث فيه واستبدال القيم 

صفحة ارقام بها الارقام التي يراد البحث عنه والارقام المراد ان تستبدل بها

شاكرا لكم 

بحث واستبدال متكرر.xlsx

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

وفقك الله ، يبدو انني ازعجتك فالمعذرة على جهلي في الدين وفي الاكسيل

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

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

تم اضافة 

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))

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

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

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

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)

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

اخي مجدي  وفقك الله 

ما معني ان البرنامج معد خصيصا للفرضين ؟

حاولت ان اضع بدون زوجة ( متوفاة ) ، لم يقبل وافترض وجود زوجة ؟

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

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

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

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

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

السلام عليكم 

جرب حفظ الملف بصيغة EXCEL BINARY WORKBOOK

عند الاغلاق يطلب الحفظ  قد يكون به  معادلة  تجعله يطلب ذلك بها الوقت  مثلا 

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

هل يمكن عمل ماكرو يبحث عن  الموديول  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
    .InsertLines lineNum, "  MsgBox " & """" & "I added a module!" & """"
    lineNum = lineNum + 1
    .InsertLines lineNum, "End Sub"
  End With

End Sub

نعم يا استاذ احمد توجد خطوة قبل تنفيذه  وشرحها الاخ 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.

انا فعلت ماذكر عاليه وتم تنفيذه الماكرو بنجاح

واظن ذكر اشياء اخرى لم اقرئها جيدا ولم افعلها

اذا مشى الحال ابلغني خاصة اذا كنت تستطيع التعديل عليه

وجدت الحل وتم تجربته

https://stackoverflow.com/questions/24807623/inserting-a-module-into-a-new-workbook-using-vba

الاخ / أحمد يوسف 

شكرا على الاهتمام والرد

حسب معرفتي البسيطة بالانجليزي فالشرح عن اضافة موديول بالطريقة العادية بدون ماكرو ..... وان كنت مخطئ فعذرا و انسخ لي الكود من فضلك

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

كما في العنوان هل يمكن اضافة او حذف موديول بالماكرو ؟

السلام عليكم 

هذا  فورم ممتاز  من ابداع عبدالله باقشير (خبور خير) غفر الله لنا وله 

فورم ادخال و تعديل مرن بمعية فورم ادخال التاريخ (1).rar

السلام عليكم 

حدث عندي مرارا  ان Excel has stopped working  الاكسيل يتوقف عن العمل عند فتح الملف ويصمم على عدم فتح الملف  وفي حالات أخرى يعطيني رسالة cant find project or library

وكنت اضطر الى اختيار وضع تعطيل كافة وحدات الماكرو فيفتح الملف وأنسخ مايلزم لنسخة موجودة احتياطيا من الملف ثم احذف الملف وكانت هذه عملية مرهقة 

وقد قرأت عن حلول لم تنفع معي  وأخيرا وجدت حل  وهو 

اختيار تعطيل كافة وحدات الماكرو       فتح الملف     ادراج موديول جديد  ( او حذف موديول)     تمكين وحدات الماكرو   حفظ الملف   الخروج   اعادة فتح الملف  وعندها بحمد الله يفتح تمام 

هذا لمن اراد ان يستفيد

ولمن  يريد ان يفيد  هل هناك سريع حل للخطوات السابقة ؟

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

اخي Emad Sabry جزاك  الله خيرا      لم استطع ان اجد رقم زى كدا  6.01.9839