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

قصي

05 عضو ذهبي
  • Posts

    1,337
  • تاريخ الانضمام

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

  • Days Won

    1

قصي last won the day on يناير 26 2011

قصي had the most liked content!

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

80 Excellent

1 متابع

عن العضو قصي

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

  • Gender (Ar)
    ذكر
  • Job Title
    مدرس

اخر الزوار

3,118 زياره للملف الشخصي
  1. ‏ طريقة حفظ الخط المستخدم داخل ملف الورد طريقة حفظ الخط المستخدم داخل ملف الورد كي يستطيع الاخرون عرض الخط عند فتح الملف حتى لو كانت الخطوط غير مثبتة بكومبيوترهم https://youtu.be/9zNMSdmcZY0 ضمين الخطوط في ملف الوررد واضهارها باي كومبيوتر بدون مشاكل طريقة حفظ الخط داخل ملف الوررد فلما نرسل المستند لاي شخص سوف يظهر عنده الخط حتى لو كومبيوتره لا يح... حول موقع الويب هذا youtube.com طريقة حفظ الخطوط داخل ملف الورد كي يستطيع الاخرون عرض الخطوط حتى لو كانت الخطوط غيرمثبتة بكومبيوترهم الكود للنابغه ساجده العزاوي
  2. الاستاذ المحترم سليم يحفظك الباري سارب عندما ضغط على ( الزر العجايب ) وانتقلت الى الصفحه 1 ومسحتها وكررت الضغط مره اخرى على نفس الزر لم يحدث جديد وظل المسح كما هو ماتعليقكم حفظكم الله ؟ يحفظكم الباري يارب
  3. وهذا هو الملف بعد اضافه الكود له استدعاء بيانات.rar
  4. Option Explicit Option Base 1 Sub My_code() Dim m%, k%, lr%, i% Dim Main As Worksheet, sh As Worksheet Dim myArray, arr(11), targt$ Set Main = Sheets("Allstudents") Set sh = Sheets("from.school") sh.Range("B7:M1000").Clear targt = "from*" lr = Main.Cells(Rows.Count, "D").End(xlUp).Row m = 7 For i = 3 To 13 arr(i - 2) = i Next myArray = Array(38, 4, 5, 27, 13, 16, 18, 19, 20, 21, 22) For i = 5 To lr If Main.Cells(i, "AD") Like "*" & targt Then For k = 1 To 11 sh.Cells(m, arr(k)) = Main.Cells(i, myArray(k)) Next m = m + 1 End If Next With sh.Range("B7").Resize(m - 7, 13) .Borders.LineStyle = 1 .HorizontalAlignment = 1 .InsertIndent 1 With .Font .Bold = True .Size = 14 End With '++++++++++++++++++++++++++++++++++++++++++++++++++++++ ' الرقم 10 هنا يرمز الى رقم العامود في الجدول حيث يوجد التاريخ 'أقصد العمود K .Columns(10).NumberFormat = "yyyy/m/d" '+++++++++++++++++++++++++++++++++++++++++++++++++++++++ End With End Sub الكود بعد كل الاضافات التي تمت بارك الله في الاستاذ سليم وبارك الله في كل من يساعد على نشر العلم وليس اغلاقه
  5. أي أخ أو اخت يعمل متابعه والله العظيم الا اتابع صفحته ماذا تعني بها ؟
  6. سألت عن صيامه فاجابني بصلاته مثل شعبي موضوعي انني اسال عن من ازال موضوعي امس من له الحق في ذلك ؟ ثانيا الموضوعات التي تسميها = القديمه = هي درر لرجالات التربيه والتعليم ورفعها او اضافة مزيد من الدرر كنز لايفهمه الا من احتسب عمله لله بارك الله فيك وجزاك الله خير الثواب
  7. ارجو اجابه السؤال من الذي ازال موضوعي بالامس ارجو ان يدلي الاستاذ الكبير محمد طاهر مدير المنتدى لهذا التصرف ... سالت من له الحق في غلق المواضيع المميزه فازال المشاركه لو تم اليوم ايضا هذا التصرف ... ساتصل بمدير المنتدى
  8. لعل هذا الموضوع يفيدك
  9. خطوط البسمله الرائعه اجعل لغه الكتابه في لوحة المفاتيح بالانجليزي ثم اختر اسم الخط besmalla ثم اضغط حرف الجيم او الحاء او اي حرف وشوف جمال الخط لاتنسى ان تجعل حجم الخط 48 او اكبر من ذلك للبسمله فقط خطوط البسملة.rar هذا رابط اخر https://up.top4top.net/downloadf-11795x94i1-rar.html?fbclid=IwAR0qKQAF-LSefqqhKPrNJfZKW1e_A8jDlKee9GiY3aJwR9Wt0gXYXbMXrBk
  10. ربنا يحفظك ويبارك فيك عمل ولااروع في شيت الصف الاول استمارات الطلاب ( الشهادات )طريقه الطباعه مجهده لاننا بنطبع طالب طالب مفيش فكره لطباعه الكل مره واحده في نفس الشيت لانعرف كيف نغير اسم المدرسه او نغير اسم الاداره
×
×
  • اضف...

Important Information