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

عبدالله المجرب

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    5,409

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

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

  • Days Won

    47

 نوع المحتوي 

كل منشورات العضو عبدالله المجرب

  1. عبدالله المجرب
    لنغير قليلاً عند توجيه السؤال الى صاحب مزرعة حيوانات عن عدد الحيوانات التي معه فقال: كلها أرانب ماعدا أربعة وكلها بط ماعدا ستة وكلها دجاج ماعدا ثمانية فكم كان معه من كل نوع من هذه الحيوانات ؟ الحل بفتح الرقم السري للمرفق والرقم السري هو كلمة abuahmed مع مجموع هذه الحيوانات ككل بدون فاصلة يعني لو عدد الحيوانات 50 ستصبح الكلمة abuahmed50 ===== ان شاء الله تجدو الحل بسهولة وبطريقة حسابية وذلك للفائدة مع شرح الطريقة Book1.rar
  2. عبدالله المجرب
    ان شاء الله اذا نال استحسان الاعضاء سيتم ادراجه ضمن المواضيع المثبتة بإذن الله
  3. عبدالله المجرب
    اخي الفاضل الميكرو يتم تسجيله للقيام بحفظ أوامر قمت انت بالقيام بها ويمكن ان يستفاد من تسجيل الميكرو في معرفة مسميات الاوامر بلغة الفيجوال بيسك مثال لو قمت بعمل تسجيل ميكرو لاخفاء ورقة عمل ستحصل على الكود التالي Sheets("ورقة2").Select ActiveWindow.SelectedSheets.Visible = False ويمكن الاستفادة من هذا في معرفة ان اخفاء الاوراق ياخذ القيمة False في الامر Visible لذا يمكنك ان تخفي عدد من الاوراق دفعة واحدة باستخدام حلقات التكرار وهذا الامر وبالنقيض فان الاظهار ياخذ القيمة True لنفس الامر وهكذا لمختلف الاوامر والله اعلم
  4. عبدالله المجرب
    شكراً لمرورك ابا ادم وتشجيعك
  5. عبدالله المجرب
    تم التثبيت مؤقتاً لعموم الفائدة
  6. عبدالله المجرب
    جرب هذا الكود قبل ذلك حدد نطاق الطباعة Sub Abu_Ahmed_2011() For i = 101 To 105 [B7].Value = i ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next End Sub
  7. عبدالله المجرب
    السلام عليكم يبدو ان العام 2012 سيدخل علينا بالزوابع === اخي المحترم ماهكذا تكون الردود لم يتم حذف مشاركتك ابداً الذي حدث اني قمت بتفيير العنوان فقط من عنوان لا يمت الى الموضوع المطروح بصلة الى عنوان مقارب للمطلوب والمشاركة على هذا الرابط http://www.officena....showtopic=39438 كما انك قمت اليوم بنشر نفس الموضوع وفيه نفس اللهجة التي تبين انك تعرضت لللظلم فقمت انا بارسال اليك رسالة خاصة بأن موضوعك لم يحذف وانكا تم تعديل العنوان وكذلك تم دمج مشاركة اليوم مع سابقتها وقمت بتعديل هذه المشاركة وهذه صورة عن وقت ارسال الرسالة اليك على الخاص ===== للمرة الاخيرة اقولها لك نرجو ثم نرجو ان يتم الالتزام بقواعد المشاركة واذا اردت شكر احد او تهنئته فاستخدم المنتدى الاجتماعي ولك وللجميع جزيل الشكر
  8. عبدالله المجرب
    السلام عليكم اخي ايهاب (الكود يعمل في الكلف الموجود به فقط )
  9. عبدالله المجرب
    هنا ستحتاج الى تعريف متغيرات (DIM AS) كما ستحتاج الى ضبط (SET) لهذه المتغيرات مثل Dim Tgt As Range والضبط Set Tgt = Sheet17.Range("c6") وهنا نلاحظ بضبط وتعريف المتغيير Tgt بانه الخلية c6 في ورقة العمل Sheet17 ويمكنك استبدال Sheet17 باسم الشيت لتصبح هكذا Set Tgt = Sheets("اسم الشيت").Range("c6")
  10. عبدالله المجرب
    اخي ايهاب سيصبح الكود هكذا Option Explicit Sub ali_Copy() On Error Resume Next Application.ScreenUpdating = False Application.EnableEvents = False Dim Rng1 As Range, i As Integer Set Rng1 = Worksheets("سعر البيع").Range("c6:c1005") For i = 2 To Sheets.Count Sheets(i).Range("c6").Offset(0).Resize(Rng1.Cells.Count).Value = Rng1.Value Next i End Sub ومهما اضفت من شيتات سيتم الترحيل اليها
  11. عبدالله المجرب
    كما قال الاستاذ الفاضل ابو خليل حدد خيارك ليتم نقل الموضوع الى القسم الذي تختاره
  12. عبدالله المجرب
    شكراً جزيلاً ابو انس على هذه الهدية
  13. عبدالله المجرب
    لا زال المطلوب به غموض (على الاقل بالنسبة لي) هل تتكرم وتوضح (حبذا لو تضع النتائج التي ستظهر لو كانت المعادلة موجودة)
  14. عبدالله المجرب
    اخي الفاضل هناك شروط للتكرار (لان استمرار التكرار لن يتوقف الميكرو فاذا وضعت شرط لوقف التكرار فيمكن عمل هذا الشيئ والله اعلم) == بالنسبة للعملية العكسية سيصبح الكود Sub Macro1() ' ' Macro1 ماكرو ' ' Range("A1:G10").Select With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("H1").Select End Sub وهو مسجل
  15. عبدالله المجرب
    اخي جمال لو عندك برنامج RealPlayer يمكنك الوقوف اعلى يمين الفيديو وهو بيشتغل ستظهر لك ايقونة للتنزيل خاصة ببرنامج RealPlayer
  16. عبدالله المجرب
    اخي الشهابي تم اضافة المرفق الى الشرح وبه ما طلبت
  17. عبدالله المجرب
    لا تستعجل اخي سعد احنا ماشيين حبه حبه وسنصل بإذن الله الى هذه المصطلحات الان الموضوع يخص الماكرو وتسجيله
  18. عبدالله المجرب
    نرجو تحديد المطلوب (حتى يتم تعديل عنوان الموضوع )
  19. عبدالله المجرب
    سيصبح الكود هكذا Sub Macro1() With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 255 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("H1").Select End Sub قم بتحديد اي عدد تريد ثم فعل الكود
  20. عبدالله المجرب
    جاءت متاخر يادا النور يا دا النور هدية السنة الهجرية مرحباً بعودتك ابا علي == تم التثبيت لعموم الفائدة
  21. عبدالله المجرب
    النشرة الدورية العدد العاشر- عدد خاص عن بعض أعمال وردود الاستاذ أبوهادي رابط العدد من هنا * سيتم توزيع الوصلة بالبريدعلى جميع الاعضاء من قبل الاستاذ محمد طاهر. *ستصدر النشرة دوريا بصورة نصف شهرية بإذن الله تعالى وسيكون هناك أعداد خاصة لبعض أعمال رواد منتدى أوفيسنا. مرفق الملف فى صيغة Pdf news 10 AbuHadi.pdf
  22. عبدالله المجرب
    الدرس الاول: * شرح تسجيل ووضع وصف وإختصار للماكرو وطريقة استدعائه بإذن الله الموضوع مطروح للاستفسارات والنقاش لمدة يومين بعدها سيكون معكم الاستاذ ابو عبدالله في شرح لطريقة حذف الماكرو شرح الكود.rar
  23. عبدالله المجرب
    السلام عليكم هل يمكن ارفاق الملف ببيانات وهمية ليتم تحديد سبب المشكلة
  24. عبدالله المجرب
    اين المرفق!!!!!
  25. عبدالله المجرب
    طبعاً كتابي مثل الردود العادية وسيرد الاساتذة على هذه الاستفسارات
×
×
  • اضف...

Important Information

  I accept