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

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

المشرفين السابقين
  • Posts

    13,165
  • تاريخ الانضمام

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

  • Days Won

    412

كل منشورات العضو ياسر خليل أبو البراء

  1. العالم الجليل علامة الإكسيل والله لكم يطير قلبي فرحاً بكلماتك الرقيقة جزاكم الله خيرا على تشجيعكم لي وإننا مهما بلغنا فلن نبلغ قطرة في بحر علمكم فمنكم دائماً نستفيد جزاك الله عنا خير الجزاء
  2. باشمهندس شرف الملف يعمل لدي بشكل ممتاز هل نقلت الكود إلى ملفك أم أن الملف الذي أرفقته هو الذي قمت بتحربته ؟ أرجو الإفادة.. ملحوظة فيه بعض الأعمدة مخفية في الورقة الأولى!! وفيه بعض النطاقات التي تم تسميتها -------
  3. سر يا أخي كيماس على هذا الدرب فهو أحسن الدروب للفهم سهل الله لك دروباً إلى الجنة وبارك فيك وفي وقتك ومالك وأولادك
  4. المهندس شرف إليك الملف التالي عله يفي بالغرض وجدير بالذكر أنه لولا الدالة التي أبدعها العالم الجليل خبور خير لما كان هذا الحل !! فلله الفضل ثم لهذا العالم الكبير فيما وصلنا إليه أخوك أبو البراء SeparationOfNames.rar
  5. جزاكم الله خيرا أخ توفيق على هذه الدعوات المباركة بارك الله فيك وزادك من علمه وحعله نافعا لك في الدنيا والآخرة
  6. الأخ الحبيب خبور خير والله إنه لشرف كبير لي أن تثني على عملي فأنت عالمنا ومعلمنا وملهمنا جزاك الله خيرا على هذا التشريف سلمت يداك وسلمت من كل سوء
  7. أخ أيسم هل جربت المعادلات مع الأسماء المركبة مثل عبد الله وأبو الخير؟؟
  8. أخي الحبيب جرب الحيلة التالية إليك الملف المرفق به الشرح لمعرفة إحداثيات اللون عن طريق دالة RGB Test.rar
  9. إخواني أعتقد أنها فكرة غير صائبة إذ أن كسر حماية الملف يعد انتهاكاً لحقوق الغير ترى لم وضع صاحب الملف حماية على ملفه إذاً ؟
  10. أخي الحبيب طالما أنك جربتها فلما السؤال عموما ما تزعلش .. على حد علمي أنها لا تعمل معها إلا إذا عرفت ColorIndex الخاص باللون المراد واستبدلته في الكود بدلا من 41 و 7 يعني ممكن!!! مفيش حاجة مستحيلة!!
  11. يسعدني أخي محمد صالح أن تكون أول من يرد على موضوعي كل عام وأنت والأمة الإسلامية كلها بخير ننتظر منك الإضافات الرائعة كما عودتنا..
  12. السلام عليكم إخواني الكرام في المنتدى الغالي أقدم لكم اليوم درس عن السلاسل النصية في VBA ، أتمنى أن تستفيدوا منه إن شاء المولى .. . أخوكم ياسر خليل أبو البراء حمل من هنا
  13. أخي أيسم الغالي إليك حل آخر::: جرب الكود التالي Function SheetName() Application.Volatile True SheetName = ActiveSheet.Name End Function
  14. أخي الحبيب جرب الملف التالي عله يفي بالغرض أخوك أبو البراء FirstLastColoredCells.rar
  15. أخي أيسم جرب تكتب الدالة في ورقة العمل بالشكل التالي(خدعة بسيطة منقولة للأمانة) =SheetName()&TEXT(NOW();"")
  16. جرب أن تضع هذا الكود في صفحة ورقة العمل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Me.Range("A1:C15")) Is Nothing Then Application.CalculateFullRebuild End If End Sub
  17. ببساطة انقر نقراً مزدوجا على الخلية التي بها المعادلة بعد تغيير اسم الورقة سيتم تغيير اسم الورقة للاسم الجديد
  18. بارك الله فيك أخي كيماس جزيت عنا خيرا معلومة بسيطة لكنها جد مفيدة
  19. جرب الملف التالي وربنا يسهل الحال TT.rar
  20. بسم الله ما شاء الله منتدى إلتقاء المبدعين ...أعمال وحلول كلها رائعة إثراءاً للموضوع أقدم لكم كود يقوم باستخراج أوراق العمل ويضعها في العمود A وهو من أعمال الأخ يحيى حسين - جزاه الله خيرا إليكم الملف المرفق أخوكم أبو البراء ExtractSheetNames.rar
  21. أخي عامر جرب الملف التالي وهي عبارة عن دالة تقوم باسترجاع اسم الكمبيوتر جرب طريقة أخرى يدوياً لمعرفة اسم الكمبيوتر على أيقونة My Computer على سطح المكتب اعمل كليك يمين ثم التبويب Computer Name ثم قم بقراءة اسم الكمبيوتر من الجزء Full Computer Name ComputerName.rar
  22. أخي الحبيب لو ارفقت ملف ربما نستطيع المساعدة
  23. أيوا تمام المفروض تضغط إنتر يظهر اسم الكمبيوتر الخاص بك قم بالدخول إلى محرر الأكواد صفحة الأكواد الخاصة بالمصنف ثم قم بتعديل الاسم SICOWIN إلى الاسم الذي ظهر لك (اسم الكمبيوتر الخاص بك)
  24. أخ عامر جرب تعمل دبل كليك في الخلية A1
  25. الأخ الكريم أمير إليك في الملف التالي تصحيح الكود - وإن كان سهلاً - كسر هذه الحماية عموما أرفقت لك ملف ... عند فتحه قم باختيار Cancel ثم غير في السطر الأول من الكود اسم الكمبيوتر من SICOWIN إلى الاسم الظاهر لديك في A1 وإن شاء الله يعمل معك أخوك أبو البراء ProtectUsingComputerID.rar
×
×
  • اضف...

Important Information