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

الجازع

03 عضو مميز
  • Posts

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

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

كل منشورات العضو الجازع

  1. اخي العزيز هل تم الاستفاده من ردي يعني انا اول مره اشارك معكم بهذا الموضوع ارجو الرد وشكرا
  2. اخي ارجو ان يكون المرفق هو المطلوب وشكرا نطاق الطباعه.zip
  3. اخي العزيز المطلوب هو عرض الشيت بكامل البيانات والرسومات بداخل فورم حيث يتم عرضه بالفورم مع امكانية الطباعه والحفظ ولكم جزيل الشكر والتقدير
  4. موضوع ممتاز جدا جدا كما ارجو ان يستجيب اخي واستاذي ابو عبدالله بتنفيذ طلب الاخوان الاشقاء ولكم مني جزيل الشكر والتقدير
  5. الى جميع المشاركين بهذا المنتدى كل عام وانتم بتمام الصحه واتمنى للجميع متسقبل افضل الى العقول الملئه بالابتكارات والانجازات الشيقه التي تزرع بداخلي روح المشاركه والتعلم وقد اكون اثقلت بطلباتي عليكم لاني افتقر لعلمكم اوفتقر لتشرف بامشاركه منكم لذى ارجو ان لا تنسوني جزاكم الله كل خير......
  6. اخواني الكرام اقدر مدى انشغال كل منا لديه ما يشلغه من انشغالات الحياة لاكن كل ما ارجوه من الله ثم منكم لمن يسمح له الوقت بمساعدتي لاستطيع من اكمال برنامج لقد عملت عليه واستفذت منكم كثييييييييييييييييير جدا جزاكم الله كل خير وعندما انتهي منه سوف ارفعه لكي اسمع اراءكم وتعليفاتكم المشرفه لي وشكرا.
  7. واخيرا تم الرفع واسف على التأخير وشكرا Book2.zip
  8. اخواني لم اتمكن من اضافة المرفق بالموضوع ساحاول حتى يرفع ...
  9. اسعد الله صباحكم كما ارجو من الله ان يكون الجميع بتمام الصحه والعافيه اخواني واخواتي ارجو ان تتقبلو طلبي البسيط جزاكم الله كل خير مرفق لكم ملف يحتوي على صفحة تشمل رسومات بيانيه وجداول واريد ان يتم عرض هذه الصفحه بداخل فورم وامكانية الطباعه والتحكم بالصفحه من خلال الفورم ارجو ان يكون الطلب واضح شاكر لكم مع كل حبي وتقديري,,,,
  10. ممكن بعذ اذنك يا استاذي الحسامي شرح الكود المستخدم وجزاك الله كل خير.
  11. اسعد الله صباحكم والله كم يفتخر الانسان عندما تبتسم له الايام وتجعله يتخاطب ويتعرف على عباقرة العالم كما اتشرف على معرفي الجديده بكم وصدقاً يعجز لساني عن شكركم ولاكم في ميزان حسناتكم جزاكم الله كل خير ونور طريقكم.
  12. ياهلا باهل المدينه اهلها الطيبين يا استاذي طيب ايش الحل انا بشتغل على برنامج بس هذا جزء محيرني من البرنامج ساعدني جزاك الله كل خير يعني كل نخي الفورم يبحث عن البيانات ويطابقها بالجدول ومن ثم يتم ادراجها بالخله المناسبه لها .
  13. استاذي الفاضل انا افضل ان يكون العمل على المرفق لانه جميع البيانات موجوده ما عليه سوى البحث عن موقعها بالجداول ويدرجها لان طريقة الادخال سوف تكون بشكل يومي وعلشان اعمل الرسومات البيانيه لكل جدول يعني تكون جاهزه بس تتذى بالارقام عن طريق الجدوال لو كانت بفكره ثانيه حيكون صعب اني ارسم الرسمه الا بعد الانتهاء من الشهر من ناحية كثرة البيانات والاقسام وفي الختام لا يروق لي سوى ان ادعو لك بكل خير ان شاء الله وشكرا ... اخي احمد انا من المملكه العربيه السعوديه بالاصح من جده لو تسمح لي بتواصل معك عبر الجوال اكون لك من الشاكرين .
  14. اسعد الله صباحك يوجد بالملف اسفل جدول الشهور تفصيل لكل شهر يعني يوجد ثلاثين يوم لكل شهر وشكرا
  15. اسف يا استاذي تم اضافة المطلوب بالمرفق وجزاك الله كل خير.... New WinRAR ZIP archive.zip
  16. اخواني واخواتي الاعزاء اسف على انقطاعي الفتره السابقه عنكم عن المدرسه التي تعلمت ومازلت اتعلم كل يوم منها ومن الاساتذه الافاضل وبفضل الله تعالى انتهيت من مشروع زواجي والحمدلله واليوم لدي لكم طلب ارجو افادتي به جزاكم الله كل خير..... وشكرا 101.zip
  17. اخي العزيز ارجو افادتي بطريقة تغير اللون ونوع الخط المتحرك وشكرا
  18. شكرا جزيل الشكر وارجو من الاخوة البقية مساعدتي بطلبي الاخير.....
  19. اشكرك جزيل الشكر والتقدير ياعبقري
  20. الله يرضى عليك ياعبقري شكرااااااااااااااااااااااا
  21. والله شاكر لك جدا جدا على هذا الشرح لاكم انا لم اقصد شرح الكود انا كنت ابغاك تتفضل عليا بطريقة تحديد الشيت في مدى معين بالكود هذا:- Private Sub ComboBox1_Change() On Error Resume Next Dim c As Range ComboBox2.Clear For Each c In [b1:f1] If c.Text = ComboBox1.Text Then For i = 2 To 6 ComboBox2.AddItem Cells(i, c.Column) Next End If Next End Sub يعني كيف احدد الشيت الذي يبحث فية الخاص بالنطاق [b1:f1]؟؟ اخي كما هو بالموفق لو غيرت مكان الفورم لا تعمل عملية الربط ارجو ان يكون الطلب مفهوم واسف جدا امثلة.rar
  22. مفهوم لاكن كيف يتم تطبيق هذا الشرح على هذا الكود :- Private Sub ComboBox1_Change() On Error Resume Next Dim c As Range ComboBox2.Clear For Each c In [b1:f1] If c.Text = ComboBox1.Text Then For i = 2 To 6 ComboBox2.AddItem Cells(i, c.Column) Next End If Next End Sub وشكرا
×
×
  • اضف...

Important Information