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

عبدالله باقشير

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

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

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

  • Days Won

    57

كل منشورات العضو عبدالله باقشير

  1. السلام عليكم بارك الله فيك اخي بن علية تفضل المرفق اخي قصي استعمال دالة IF.rar
  2. السلام عليكم استخدم المعادلة التالية: =IF(ROW()-10<=$N$2;INDEX($D$4:$G$8;MATCH(C11;$C$4:$C$8;0);MATCH(D11;$D$3:$G$3;0));"") حيث ان الخلية N2 توجد فيها معادلة حساب عدد الاولاد =COUNTA(C11:C1000) ويمكنك استبدال المعادلة بدلا من مرجع الخلية =IF(ROW()-10<=COUNTA(C11:C1000);INDEX($D$4:$G$8;MATCH(C11;$C$4:$C$8;0);MATCH(D11;$D$3:$G$3;0));"") خبور خير استخراج بيان جدول3.rar
  3. السلام عليكم تفضل المرفق استخراج بيان جدول1.rar
  4. السلام عليكم شاهد المرفق برنامج كاس العالم 2010 الاصدار الثاني.rar ========================================== ممكن اخي الكريم ولكن ما الفائدة من ذلك ؟؟ ============================================= الملف اخي الفاضل مفتوح ولكن لا يصلح ده الملف للتغيير فية لوجود صور اعلام المنتخبات ولكن في الاصدار الاول ممكن خبور خير
  5. السلام عليكم استخدم الكود التالي: Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode <> 1 Then Cancel = 1 End If End Sub خبور خير
  6. السلام عليكم لم افهم مقصدك بالضبط ولكن شاهد المرفق فد يكون ما طلبت استخراج بيان جدول.rar
  7. السلام عليكم بارك الله فيك اخي الخالدي وبارك الله فيك اخي ولد طيبة ========================= وللزيادة في الخير: بالامكان استخدام الكود التالي: Private Sub Worksheet_Change(ByVal Target As Range) Dim X As Integer If Target.Address = Range("A2").Address Then With Range("العملات_المتوفرة") For X = 1 To .Rows.Count If .Cells(X, 1).Value = Target.Value Then Target.Offset(0, 1).NumberFormat = .Cells(X, 2).NumberFormat End If Next End With End If End Sub شاهد المرفق نسخ تنسيق الخلية من خلية أخرى بشرط1.rar
  8. السلام عليكم مثلا : بامكانك استخدام معادلة الصفيف التالية: ={OFFSET($A$1;0;SMALL(IF($A$1:$I$1<>"";COLUMN($A$1:$I$1);"");COLUMN())-1)} هام : صفيف أو صيغة صفيف (صيغة الصفيف: هي صيغة توضع لإجراء عدة حسابات على مجموعة من القيم أو أكثر وإرجاع نتيجة واحدة أو عدة نتائج. يجب وضع صيغ الصفائف بين القوسين { } ثم إدخالها بالضغط على المفاتيح CTRL+SHIFT+ENTER.) ودمتم خبور خير تجاوز الخلايا الفاضية.rar
  9. السلام عليكم بارك الله فيك اخي الحسامي تقبل تحياتي وشكري =================== ولزيادة الخير : اعمل ارتباط لزر الاختيار اللي في الخلية A2 في الخلية D2 واستخدم الكود التالي: Sub Macro1() Range("D2:D5").Value = Range("D2").Value End Sub خبور خير
  10. السلام عليكم استخدم المعادلة التالية =INDEX(D4:G8;MATCH(C11;$C$4:$C$8;0);MATCH(D11;$D$3:$G$3;0)) شاهد المرفق وهناك عدة طرق اخرى خبور خير استخراج بيان جدول.rar
  11. السلام عليكم هذه محاولة اولية سريعة ولكن لم ادقق فيها بشكل متمحص وقد جربتها على الملف بشكله الحالي ولكن اريد رايكم هل انا ماشي على الخط الصحيح ؟ وعندها سنتابع المحاولة على ضوء معطيات الردود وبالله التوفيق خبور خير
  12. السلام عليكم الشكر واصل لجميع المشاركين حفظكم الله تقبلوا تحياتي وشكري =================== قم بنسخ الكود الى اي ملف وسيعمل تلقائيا بالنسبة للرابط : لا يفتح عندي قم باضافة ملفك في المنتدى في موضوع منفصل عن هذا =========================================== لقد اضفت زر لعمل خطة ادخال اتوماتيكيا شاهد المرفق خبور خير برنامج الجدول المدرسي الاصدار الثاني4.rar
  13. السلام عليكم اخي العزيز العمل ده قديم توجد اعمال اخرى حديثة منها: http://www.officena.net/ib/index.php?showtopic=25042 استخدم UCase UCase(TextBox1) خبور خير
  14. السلام عليكم شكرا لاشعاري بذلك واظن السبب الانتقال الى السرفر الجديد ساقوم باشعار الادارة بذلك تقبل تحياتي وشكري
  15. السلام عليكم ورحمة الله وبركاته برنامج الجدول المدرسي الاصدار الثاني مقدمة عامة عن عمل البرنامج: يصلح لجميع المدارس ايا كان نوعها في اي قطر من الاقطار العربية وذلك للميزات والامكانيات التالية: مميزات البرنامج 1 - عدد الحصص اليومية 12 حصة يتمدد وينكمش من 6 حصص الى 12 حصة. 2 - عدد ايام الاسبوع 7 ايام يتمدد وينكمش من 5 ايام الى 7 ايام. 3 - عمل قوائم للفصول لكل مدرس وامكانية التبديل بينها وبين قائمة كل الفصول. 4 - يتسع 120 معلم و120 فصل و120 مادة. 5 - التحكم في عرض اوراق المصنف يمينا او يساراً ========================= امكانيات البرنامج 1 - استخراج جداول الفصول (الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 2 - استخراج جداول المعلمين (الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 3 - استخراج جداول المواد(الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 4 - استخراج جداول اجمالي الفصول 5 - استخراج جداول اجمالي المعلمين الاعدادات الاولية في بداية العمل على البرنامج في الرئيسية 1 - غير العام وبداية العمل بالجدول في الخلايا D2:D3 2 - غير العناوين للمحافظة والادارة والمدرسة في الخلايا B6:B8 3 - اضغط زر حذف جميع البيانات لحذف جميع البيانات في المصنف 4 - ادخال اسماء الايام في جدول الاسبوع خمسة ايام افتراضية 5 - تحديث قائمة الحصص باختيار عدد الحصص التي تريدها في الرئيسية انشاء قوائم للفصول لكل مدرس في الصف المقابل للمدرس في الاعمدة F:O حول البرنامج برنامج مجاني الاصدار الثاني برمجة / خبور خير باستشارة الاستاذ / محمدي عبد السميع الذي سيقوم بالردعلى استفساراتكم خبور خير برنامج الجدول المدرسي الاصدار الثاني.rar
  16. السلام عليكم استخدم دالة اجمع اذا SUMIF =SUMIF('29'!$B$4:$B$226;C36;'29'!$C$4:$C$226) شاهد المرفق خبور خير مبعات مفرغه من كروت صنف باليوم.rar
  17. السلام عليكم الشكر واصل لجميع المشاركين حفظكم الله تفضل اخي يوسف المرفق نتائج دور المجموعات خبور خير نتائج دور المجموعات.rar
  18. السلام عليكم الله يكرمكم جميعا انا الذي سعدت بالمشاركة معكم احبائي حفظكم الله ورعاكم تقبلوا تحياتي وشكري خبور خير
  19. السلام عليكم استخدم الدالة VLOOKUP =VLOOKUP(E10;'2'!$G$12:$H$18;2;0) خبور خير
  20. السلام عليكم قمت بالتعديل بحيث انه يقوم بحفظ خلايا بمدى ملائم للشرت ويقوم بحذف الشرت بعد حفظ الصورة بدون اظهار رسالة الاكسل لتاكيد الحذف ويتم حفظ الصورة في فولدر ملف الاكسل هذا بشكل سريع وساقوم بالتعديل بطرق اخرى Sub Export_Range_Images() ' ========================================= ' Code to save selected Excel Range as Image ' ========================================= Dim P Dim oRange As Range Dim oCht As Chart Dim oImg As Picture P = ActiveWorkbook.Path & "\" Set oRange = Range("A1:O35") Set oCht = Charts.Add Application.ScreenUpdating = False Application.DisplayAlerts = False oRange.CopyPicture xlScreen, xlPicture oCht.Paste oCht.Export Filename:=P & "SavedRange.jpg", Filtername:="JPG" oCht.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub خبور خير حفظ صورة من نطاق خلايا معين.rar
  21. السلام عليكم حل ولا اروع اخي طارق بارك الله فيك وجزاك الله خيرا تقبل تحياتي وشكري خبور خير
  22. السلام عليكم تفضل المرفق خبور خير Numero_Examen1.rar
  23. السلام عليكم بارك الله فيك اخي الكريم وجزاك الله خيرا تقبل تحياتي وشكري
  24. السلام عليكم ورحمة الله وبركاته برنامج كاس العالم 2010 بالمعادلات الاضافات الجديدة: وهي استخدام صور اعلام المنتخبات في جدول المباريات وانتقاله بالمعادلات الى جدول المجموعات حسب ترتيب الفرق وتتغير اماكنها حسب تغير ترتيب المنتخب في مجموعته. ملاحظه الملف محمي ولكن بدون باسبورد وجعلته اساسا للتعلم ودمتم في حفط الله اخوكم خبور خير برنامج كاس العالم 2010 الاصدار الثاني.rar
  25. السلام عليكم الله يعطيكم العافية جميعاً وجزاكم الله خيرا تقبلوا تحياتي وشكري
×
×
  • اضف...

Important Information