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

أبو يوسف النجار

03 عضو مميز
  • Content Count

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

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

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

18 Good

عن العضو أبو يوسف النجار

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    معلم

اخر الزوار

651 زياره للملف الشخصي
  1. توفى الأستاذ نادر عد الرحمن عضو بالمنتدى رحمه الله فقد كان من الأعضاء المميزين وله مشروعات مميزة إنا لله وإنا إليه راجعون نادر.bmp
  2. السلام عليكم لدي ملف أرسلته لصديق وظهرت الرسالة كما بالصورة ما هو سبب ظهور هذه الرسالة وعدم ظهور أي فورم ، فهل هو اختلاف بين اصدار الويندوز أم 32 بت و 64 بتأم هناك سبب آخر
  3. السلام عليكم السؤال الأول : كيف أجعل الفورم عند العرض ليكون في منتصف الشاشة وليس على اليسار بالأعلى كما هو بالملف وهل التغيير في خصائص الفورم أم في كوده الموجود بالملف وهو للعلامة الكبير / عبد الله باقشير السؤال الثانى : عند جعل الفورم ملء الشاشة بالكود تتغير أماكن الصور والليبل بالفورم فهل من طريقة لتثبيت اماكنها عند تكبير الفورم ليكون ملء الشاشة ( الملف بالمرفقات ) ولكم جزيل الشكر كيفية تغير موضع الفورم ليكون بمنتصف الشاشة.rar
  4. جزاكم الله خيرا استاذ ali mohamed ali والشكر موصول للاستاذ الخدوم محمد الدسوقى
  5. السلام عليكم كيف اغير شكل الماوس بفورم عند الوقوف على CommandButton في فورم ليكون شكل الارتباط يعنى كف
  6. السلام عليكم هل توجد طريقة لعدم فتح ملف معين نهائيا في اكسل إذا كان الماكرو معطل عند المستخدم أرجو الافادة للأهمية وجزاكم الله خيرا
  7. حبيبي المحترم وأستاذى الذي دائما أتعلم منه ( ياسر خليل أبو البراء ) دمت بخير وشكرا جزيلا فقد أرسل لي الرد بمنتدى آخر وله جزيل الشكر الكود الجديد Sub Grab_Class_List() Dim ws As Worksheet, sh As Worksheet, s1 As String, s2 As String Dim i As Long, j As Long, p As Long, n As Long, arr, temp Set ws = ThisWorkbook.Worksheets(1) Set sh = ThisWorkbook.Worksheets(2) sh.Range("B6:I35").ClearContents s1 = sh.Range("K1").Value: s2 = sh.Range("K2").Value arr = ws.Range("B10:G" & ws.Range("B" & Rows.Count).End(xlUp).Row).Value ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2) + 1) For i = 1 To UBound(arr, 1) If arr(i, 3) = s1 And arr(i, 6) = s2 Then p = p + 1 For j = 1 To UBound(arr, 2) temp(p, j) = arr(i, j) Next j temp(p, j) = p End If Next i On Error Resume Next n = WorksheetFunction.Round(p / 2, 0) sh.Range("B6").Resize(n, 4).Value = Application.Index(temp, Evaluate("ROW(1:" & n & ")"), Array(j, 1, 5, 6)) sh.Range("F6").Resize(n, 4).Value = Application.Index(temp, Evaluate("ROW(" & n + 1 & ":" & p + 1 & ")"), Array(j, 1, 5, 6)) On Error GoTo 0 End Sub روعة مستر / ياسر
  8. السلام عليكم ورحمة الله وبركاته الأساتذة عمالقة المنتدى تحية طيبة وبعد الملف بالمرفقات به كود استدعاء قائمة الفصل ممتاز وهو بشرط الفصل فهل يمكن اضافة شرط ثانى مثلا : حالة القيد من المصدر ( بيانات الطلبة ) عمود G ويكون الشرط الثانى بخلية بصفحة الهدف كمثل الهدف الأول الفصل ويبقى تقسيم القائمة لنصفين العدد بالتساوي بجانبى الصفحة ، ولو زاد الكرم يصبح أكثر من شرطين استدعاء بشرطين أو أكثر.rar
  9. حاول تغيير اعدادات اللغة بالويندوز لتتلائم مع منطقتك مصر واللغة العربية مصر
  10. حمل النسخة الأخيرة من برنامج جدول الحصص ومشروح عليها دروس دورة انشاء جدول الحصص مع أبو يوسف ـ الرابط : https://gadwlabuyosef.blogspot.com/2017/09/2018.html
  11. السلام عليكم : موقعنا الأول في الخدمة في الأوفيس تحية طيبة وبعد : بالملف عند التغيير في المعادلة والضغط على انتر لا تستجيب وتظل نص بالخلية لا معادلة في شريط المعادلة المطلوب زيادة الجدول من الشمال الذي يتم عليه عمل المعادلة الملف بالمرفقات فصول.rar
  12. بعد البحث الطويل بالمنتدى وجدت الحل شكرا جزيلا للمنتدى الرائع
  13. السلام عليكم ـــ السؤال : بالملف المرفق كيف ادخل رقم الصف ورقم الفصل فيتم ادراج الفصل تلقائي وبشرط يكون بنفس التنسيق مثال 2/1 وبدون مسافات كهذا 1 / 2 قيمة خليه.rar
  14. برنامج جدول الحصص الألمانى الشهير جدا aSc Timetables وجميع شروحاته في مدونتى أبو يوسف وأتشرف بالصداقة على الفيس بوك تفضل الرابط https://gadwlabuyosef.blogspot.com/
×
×
  • اضف...