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

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

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

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

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

  • Days Won

    412

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

  1. وعليكم السلام ورحمة الله وبركاته أخي الكريم علاء عامر الحمد لله أن تم تغيير اسمك للغة العربية ومشكور على الملف المرفق المعبر عن الطلب ..هكذا يكون العمل في المنتدى (أرجو من الجميع أن يحذو حذوك) إن شاء الله سأحاول العمل على الملف الليلة .. ربنا ييسر الأمور تقبل تحياي
  2. يوجد في الموضوعات المثبتة في المنتدى التوجيهات ..اقرأ التوجيه العاشر ..كلف نفسك 5 دقائق
  3. أخي الكريم don't أهلا ومرحباً بك في المنتدى ونورت بين إخوانك Please don't do that otherwise I will be unhappy يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى لتعرف كيفية التعامل مع المنتدى بشكل أفضل ارفق ملفك بعد ضغطه والأفضل أن ترفق شكل بعض النتائج المتوقعة لتجد الاستجابة بشكل أسرع والكلام موجه لجميع الأعضاء (يا ريت الالتزام بالتوجيهات : عنوان واضح ومعبر .. تفصيل للمطلوب .. إرفاق ملف .. ولو لزم الأمر لتتضح الصورة أكثر إرفاق بعض النتائج المتوقعة) يسر على إخوانك يسر الله عليك تقبل تحياتي
  4. أخي الكريم ولما تبخل على إخوانك بتقديم الحل الأخير الذي توصلت إليه .. تعلم العطاء ترتقي .. لا أقصد الإهانة وربي يعلم - حتى لا تأخذ الكلام بمحمل آخر - إنما قصدت أن تقدم الحل الذي توصلت إليه فلربما يوجد من إخوانك من ينتظر مثلك الحل وتقديمك للحل سيكون حلاً لمشكلة بالنسبة إليه تقبل نصحي وتحياتي
  5. أخي الكريم يرجى تغيير اسم الظهور للغة العربية يرجى إرفاق بعض النتائج المتوقعة ... ولما أدرجت أيام الجمعة والسبت في ورقة البيانات؟؟
  6. أخي الكريم مهند لم أطلع على الملف المرفق بعد لضيق الوقت ولكن لا داعي للرفع بدون توضيح .. وضح المسألة أكثر لتجد استجابة من إخوانك بالمنتدى تقبل تحياتي
  7. أخي الكريم يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى لمعرفة كيفية التعامل مع المنتدى بشكل أفضل وفي طرح الموضوع يجب التوضيح للمطلوب قبل إرفاق الملف .. تقبل تحياتي
  8. أخي الكريم ياسر العربي بارك الله فيك على اهتمامك بالموضوع الرائع والمذهل جاري التحميل وسأوافيك بعد التحميل والتنصيب بالنتيجة اتأخرت كتير ع المصطبة (أصلي غاوي قعدة القهاوي) .. بس للأسف عدم تنصيب البرنامج الذي يعد أهم خطوة مفقودة بالنسبة لي بسبب 64 بت تقبل تحياتي
  9. أخي الكريم خالد جرب المعادلة التالية للحصول على الهللة =MOD(SUM(B3:B20),100) وهذه المعادلة للحصول على الريال =SUM(C3:C20)+QUOTIENT(SUM(B3:B20),100) تقبل تحياتي
  10. جرب أن تضيف السطر في حدث التغير في ورقة العمل التي تعمل عليها ..
  11. بالتأكيد لم أمل من الأسئلة أخي الكريم نايف وإلا لكنت قد هجرت المنتدى من سنين بالتأكيد كلامك مضبوط الأعمدة التي بها صيغ ومعادلات تؤثر على كونك تريد آخر خلية بها بيانات ، قالمعادلات توجد بالخلية حتى لو كانت الخلية ناتج المعادلة فارغة ..
  12. بارك الله فيك أخي الحبيب سليم على هذه الروائع ..أنت وحدك مدرسة تقبل وافر تقديري واحترامي
  13. أخي الكريم يرجى تغيير اسم الظهور للغة العربية جرب الكود بهذا الشكل لاختبار لون الخلية Sub Test() If Range("A1").Interior.Color = vbRed Then Range("A10").Value = "راسب" Else Range("A10").Value = "ناجح" End If End Sub أما إذا أردت معادلة فالأفضل أن تعتمد على قيمة الخلية وليس لونها تقبل تحياتي
  14. الحمد لله أن تم المطلوب على خير أخي الكريم نايف ومفيش عذاب ولا حاجة ..أنا بهزر معاك
  15. الرقم واحد يشير إلى رقم العمود المطلوب العمل عليه وبصراحة أنا تايه معاك ومش عارف إنت عايز ايه .. لو كان المطلوب على العمود الثاني قم باستبدال الرقم 1 بالرقم 2 ليدل على العمود B ..
  16. جرب الكود التالي حدد مسار ملف الورد Sub ReadWordDocument() 'غير مسار الملف المراد تحويله Const DOC_PATH As String = "C:\Users\Future\Desktop\Test.docx" Dim sht As Worksheet Dim WordDoc As Word.Document Dim WordApp As Word.Application Dim i As Long, r As Long, c As Long Dim rng As Range, t As Word.Table Set WordApp = CreateObject("Word.Application") WordApp.Visible = False Set WordDoc = WordApp.Documents.Open(DOC_PATH, ReadOnly:=True) Set sht = Sheets("Sheet1") Set rng = sht.Range("A1") sht.Activate For Each t In WordDoc.Tables t.Range.Copy rng.Select rng.Parent.PasteSpecial Format:="Text", Link:=False, _ DisplayAsIcon:=False With rng.Resize(t.Rows.Count, t.Columns.Count) .Cells.UnMerge .Cells.ColumnWidth = 14 .Cells.RowHeight = 14 .Cells.Font.Size = 10 End With Set rng = rng.Offset(t.Rows.Count + 2, 0) Next t WordDoc.Close WordApp.Quit End Sub حدد مسار ملف الورد من خلال السطر الأول ثم قم بتنفيذ الكود
  17. أخي الكريم لكل فعل رد فعل مساوي له في المقدار ومضاد له في الاتجاه كلما وجدت الحماية وجد كسر الحماية ، وكلما وجد كسر للحماية وجدت حماية أفضل .. وما زالت وجهة نظري أن الإكسيل حمايته ضعيفة .. فقط يمكنك وضع باسورد للمصنف نفسه عند فتحه ..!
  18. نعم أخي الحبيب نايف ..اكتب اي قيمة نصية في الخلية (وجرب يا عنيا .. وشوف هيشتغل معاك 100 100 ولا الاحتمال دا ملوخيا)
  19. قم بأخد نسخة من الملف ثم في الملف المنسوخ قم بحذف كل الصفحات الموجودة وأبقي على صفحتين فقط ..لنعرف كيف تريد شكل الملف بعد تحويله هل الملف الورد على شكل جدول ... قم بالبحث في المنتدى عن تحويل ملف ورد إلى إكسيل ستجد بعض الحلول ربما تفيدك
  20. أبي الحبيب أبو يوسف وعليكم السلام ورحمة الله وبركاته أحبك الله الذي أحببتني فيه .. أسأل الله العلي القدير أن يجمعنا في الفردوس الأعلى من الجنة وأن يسعد أيامك وبلادك وتنزاح الغمة إن شاء الله
  21. أخي الكريم أهلاً بك ومرحباً في المنتدى ونورت بين إخوانك يرجى إرفاق الملف المراد تحويله إلى الإكسيل ..
  22. أخي الكريم أحمد محمد العباسي إنت مش عاجز عن الشكر وتقدر تقول "جزاكم الله خيراً" ، وبهذه الكلمة تكون قد وفيتني حقي .. وتقبل الله منك دعائك وكان لك نصيب منه ونورت المنتدى وبرجاء الإطلاع على موضوع التوجيهات (كلف نفسك 10 دقايق) عشان تقدر تتعامل مستقبلاً مع المنتدى بشكل أفضل تقبل تحياتي
  23. الحمد لله الذي بنعمته تتم الصالحات وجزيت خيراً بمثل ما دعوت وتقبل الله منك دعائك تقبل وافر تقديري واحترامي أخي الفاضل أبو عبد الله
×
×
  • اضف...

Important Information