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

ياسر خليل أبو البراء

المراقبين
  • Content count

    12,537
  • تاريخ الانضمام

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

  • Days Won

    388

ياسر خليل أبو البراء last won the day on February 8

ياسر خليل أبو البراء had the most liked content!

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

7,082 Excellent

عن العضو ياسر خليل أبو البراء

  • الرتبه
    مراقب عام

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    Teacher
  • Location
    مصر
  • Interests
    Programming - Chess

Contact Methods

  • MSN
    yahk777@hotmail.com
  • Yahoo
    yakh777@yahoo.com

اخر الزوار

10,193 زياره للملف الشخصي
  1. وعليكم السلام ورحمة الله وبركاته بارك الله فيك أخي العزيز زيزو العجوز .. حل آخر إثراءً للموضوع ... الأخ السائل : أولاً ستقوم بتغيير أسماء الأشكال الموجودة في ورقة العمل لديك لأن الأسماء الطويلة للأشكال ستسبب لك أخطاء في الخطوات التالية ، ويمكن تغيير أسماء الأشكال الموجودة في ورقة العمل بهذا الكود Sub RenameAllShapes() Dim i As Long For i = 1 To Sheet1.Shapes.Count Sheet1.Shapes(i).Name = "Shape" & i Next i End Sub الخطوة الثانية هي تعيين ماكرو لكل الأشكال مرة واحدة بدلاً من تعيين ماكرو لكل شكل على حدا باستخدام الماكرو التالي Sub AssignMacroToAllShapes() Dim shp As Shape For Each shp In ActiveSheet.Shapes shp.OnAction = "IncrementMe" Next shp End Sub الماكرو الأخير والأساسي هو الماكرو التالي والذي سينفذ بمجرد الضغط على أي شكل من الأشكال الموجودة لديك في ورقة العمل Sub IncrementMe() Dim lRow As Long Dim lCol As Long Application.ScreenUpdating = False With Sheet1.Shapes(Application.Caller) lCol = .TopLeftCell.Column lRow = .TopLeftCell.Row Cells(lRow, lCol).Offset(, 1).Value = Cells(lRow, lCol).Offset(, 1).Value + 1 End With Application.ScreenUpdating = True End Sub ** ملحوظة قبل تنفيذ أي خطوة انسخ كل الأكواد في موديول قبل البدء في عملية التنفيذ .. بعد النسخ قم بتنفيذ الخطوة الأولى والثانية مرة واحدة فقط ... أما الخطوة الثالثة ستكون مرتبطة بالأشكال الموجودة في ورقة العمل تقبل تحياتي
  2. ربما بسبب ضعف الانترنت لديك ..قمت بنسخ الرابط والتعديل ولصقه مرة أخرى ويعمل بشكل جيد الآن تقبل تحياتي
  3. وعليكم السلام أخي الحبيب وأستاذي الغالي محمد صالح بارك الله فيك وجزاك الله خيراً .. وجعل ما تقدمه في ميزان حسناتك يوم القيامة تقبل وافر تقديري واحترامي
  4. ممكن توضبح أكثر للمطلوب .. ما هي ورقة العمل المطلوب عليها وأين تصميم الورقة المطلوب العمل عليها؟
  5. بسم الله ما شاء الله أخي الغالي أبو يوسف ملف رائع وله رونق خاص ومميز تقبل وافر تقديري واحترامي
  6. غير في الإعدادات ..اتبع الخطوات في الصورة
  7. وعليكم السلام ما هكذا ستجد استجابة من أحد حتى لو كان عنده علم بالموضوع ، فمثل هذا الأسلوب ينفر الأعضاء ، وأعتذر عن صراحتي في الحديث أنا شخصياً لا أحب أن يوجه لي النداء عضو معين لأن ذلك ينفر من لديه علم بالموضوع ويجعله يعزف عن المشاركة تقبل اعتذاري
  8. السلام عليكم أخي الكريم محمود لا أدري ماذا أخبرك ؟!! قم بالإطلاع على التوجيهات في الموضوعات المثبتة في صدر المنتدى لربما تجد الإجابة على تساؤلاتك في كثير من الأحيان تكون الحلول بسيطة وتكون المشكلة في عرض المشكلة ، هذه نقطة .. نقطة أخرى عادةً لا يلتفت الأعضاء إلى الموضوع ذو المطلبات المتعددة ، فراعي حين طرح أي موضوع أن تركز في نقطة واحدة فقط .. واطرح ما شئت من موضوعات بشرط أن يكون الموضوع يتعامل مع نقطة واحدة فقط ، فهذا أدعى للاستجابة والله أعلم تقبل تحياتي
  9. وعليكم السلام بدون تجربة الكود واعتماداً على الكود الذي أرفقته أخي الكريم .. تم التعديل بالشكل التالي (وضعت تعليق على السطر الجديد) Sub HidUnused() Dim rng As Range Dim cell As Range Dim x As Variant Set rng = Range("A10:A30") 'تم إضافة متغير وتعيين قيمة له ثم يستخدم المتغير في الكود x = Range("A1").Value 'Or x=405 For Each cell In rng If cell.Value <> x Then cell.EntireRow.Hidden = True ElseIf cell.Value = x Then cell.EntireRow.Hidden = False End If Next cell End Sub
  10. جربي المعادلة التالية =IFERROR(INDEX($B$2:$B$4,MATCH(F2,$A$2:$A$4,0)),"")
  11. السلام عليكم جرب الكود التالي Sub FillUsingArrays() Dim arr(1 To 50000, 1 To 5) Dim i As Long Dim j As Long Dim iRow As Long Application.ScreenUpdating = False arr(1, 1) = "السنة": arr(1, 2) = "الشهر" arr(1, 4) = "السنة": arr(1, 5) = "الشهر" iRow = 2 For i = 4000 To 1 Step -1 For j = 1 To 12 arr(iRow, 1) = i & " ق م" arr(iRow, 2) = Choose(j, "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليه", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") iRow = iRow + 1 Next j Next i iRow = 2 For i = 1 To 2020 For j = 1 To 12 arr(iRow, 4) = i & " ب م" arr(iRow, 5) = Choose(j, "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليه", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") iRow = iRow + 1 Next j Next i Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr Application.ScreenUpdating = True End Sub
  12. أعتقد المشكلة بسبب تلف في الملف الأصلي ولذا اقترحت عليك الفكرة .. وطالما نجحت نفذ الخطوات ثم انقل الملف لمكانه الأصلي
  13. جرب المصنف باسم آخر من خلال الخيار Save As وأعطه اسم مختلف في مكان آخر وجرب فتح الملف الجديد والعمل عليه والحفظ ..
  14. السلام عليكم الموضوع لا يتم حله إلا بالكود .. أو إذا أردت الدخول على الصفحة الرئيسية في كل مرة .. قم بالوقوف عليها في كل مرة قبل الإغلاق واحفظ المصنف
  15. شاهد الفيديو التالي