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

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

03 عضو مميز
  • Content Count

    201
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

17 Good

عن العضو عاطف عبد العليم محمد

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    accountant

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. الأخ الكريم محي الدين ابو البشر لاحظت ان الكود لايعمل اذا كان عدد الارقام المطلوب تغييرها أقل من 4 هل هذا صحيح ؟ B = Sheets("الارقام").Range("d3").Resize(Sheets("الارقام").Cells(Rows.Count, 4).End(xlUp).Row - 5, 2) مالفكرة من ذلك ؟ و هل ممكن تغيير ذلك حتى لو رقم واحد هو المطلوب تغييره ؟ ولو سمح وقتك بشرح السطر عاليه وفقك الله
  2. Range("c6").Resize(UBound(A)) = Application.Transpose(A) الأخ الكريم محي الدين ابو البشر جزاك الله خيرا ، أرجو تعديل الكود لأني اريد الأرقام أن تتغير في نفس العمود c بعد تعديل في الكود عاليه كانت d6 تمام أن شاء الله وفقكم الله
  3. عذرا يوجد خطا في الملف وهذا الصحيح السلام عليكم بحثت في مواقع اخرى ولم اهتدي لكود مناسب لعل الاستاذة الكبار في المنتدى يفيدونا بحث واستبدال متكرر.xlsx
  4. استاذ حسين مامون السلام عليكم ورحمة الله وبركاته ما اريد أخي الفاضل ماكرو يبحث عن الرقم القديم الموجود في صفحة الارقام وليكن الأول وهو 1246 يبحث عنه في صفحة قيود اليومية فإذا وجده يبدله بالرقم الجديد وهو 1300 فيتم تبديل كل 1246 لتصبح 1300 ثم يعود الماكرو ليبحث عن الرقم القديم الثاني الموجود بصفحة الارقام وهو 1247 يبحث في صفحة اليومية ويبدله بالرقم الجديد 1301 وهكذا شكرا جزيلا لك الأخ /محي الدين ابو البشر السلام عليكم ورحمة الله وبركاته شكرا جزيلا لكم وأريد الحل بماكرو كما اسلفت في الردود السابقة وفقكم الله
  5. السلام عليكم ورحمة الله وبركاته مرفق ملف في صفحة قيود اليومية يوجد عمود يراد البحث فيه واستبدال القيم صفحة ارقام بها الارقام التي يراد البحث عنه والارقام المراد ان تستبدل بها شاكرا لكم بحث واستبدال متكرر.xlsx
  6. السلام عليكم ورحمة الله وبركاته وفقك الله ، يبدو انني ازعجتك فالمعذرة على جهلي في الدين وفي الاكسيل
  7. شكرا للاستاذ سليم حاصبا بالبحث وجدت انه سبق ان افادني بموضوع زيادة التاريخ الهجري تم اضافة 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)) وفق الله الجميع
  8. باقي ما يخص التاريخ الهجري ، بانتظار افادة من الافاضل هذه لزيادة التاريخ الميلادي 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)
  9. السلام عليكم ورحمة الله وبركاته اخي مجدي وفقك الله ما معني ان البرنامج معد خصيصا للفرضين ؟ حاولت ان اضع بدون زوجة ( متوفاة ) ، لم يقبل وافترض وجود زوجة ؟
  10. السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم ارجو المساعد في كود زيادة التاريخ بالخلايا بزيادة عدد اشهر وبحسب التاريخ سواء هجري او ميلاي وقد بدات المحاولة بالهجري ولكن لم افلح 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
  11. السلام عليكم جرب حفظ الملف بصيغة EXCEL BINARY WORKBOOK عند الاغلاق يطلب الحفظ قد يكون به معادلة تجعله يطلب ذلك بها الوقت مثلا
  12. السلام عليكم ورحمة الله وبركاته هل يمكن عمل ماكرو يبحث عن الموديول 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
  13. نعم يا استاذ احمد توجد خطوة قبل تنفيذه وشرحها الاخ 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. انا فعلت ماذكر عاليه وتم تنفيذه الماكرو بنجاح واظن ذكر اشياء اخرى لم اقرئها جيدا ولم افعلها اذا مشى الحال ابلغني خاصة اذا كنت تستطيع التعديل عليه
×
×
  • اضف...