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

السلام عليكم انظر الى المشاركة: http://www.officena.net/ib/index.php?showtopic=24484 جعلناه مستقل للفائدة العامة

السلام عليكم اضافة ورقة جديدةعبر فورم نسخ من ورقة اخرى بالشروط الخاصة بالاكسل طلب لاحدهم جعلناه هنا للفائدة العامة ___________________.rar

السلام عليكم الحل معمول بصيغة صفيف لاحظ اثناء إدخال صيغة صفيف أو تحريرها حدد الخلية أو نطاق الخلايا الذي يتضمن صيغة الصفيف، واضغط F2 لتحرير الصيغة، ثم اضغط CTRL+SHIFT+ENTER ___________.rar

السلام عليكم الشكر واصل للجميع الاستاذ القدير / حسام نور ------------------حفظه الله نبهتني لهذه النقطة و لم انتبه لها سابقا لقد اعتمدت على ان الاسم المركب يبدأ "عبد" وهو قد يكون غير ذلك بالنسبة لحل مؤقت : اي اسم للطالب ( الاسم الاول) يكون مركبا بغير "عبد" ( لانه الاغلب) لا يعمل فراغ بين الاسمين المركبين سؤال : هل هناك اسماء شائعة الاستخدام مركبة حتى ننظر الى القاسم المشترك بينهم لنعمل شرط على اساسه تقبل شكري وامتناني

السلام عليكم مشكوررين الجمع المبارك علشان يكتمل الكنترول ايه ناقصه انا لا امتهن التدريس اخواني ايه الناقص في الكنترول ؟؟؟ هذا اردناه ملف اداري للتوزيعات والكشوفات مسالة الدوائر على الدرجات والشهادات هذا اتجاه اخر في الكنترل صح ولا لا انا مش عارف ؟ هذا حسب علمي وفوق كل ذي علم عليم وضحوا علشان نعرف احتياجاتكم ؟ منتظر اجابات تحياتي وشكري

السلام عليكم الاخ احمد حفظه الله ما دام الموضوع فيه شهداء إن شاء الله سنعمل لك ما تريد بس نريد منك التوضيح الدقيق او لو ترسل ملف للاشارة بامثلة لما تريده بالنسبة لجميع الاخوة وملاحظاتهم لاتظنون انني لم ارد فانني غير مبالي باي ملاحظة لا ولكن نتفرغ احيانا لاعمال اخرى ولا يسعفنا حينها الوقت للرد ولكنني ساعطي لهذا العمل حقه حين استطيع ان اوصل الى فكرة معينة اربط هذه المعطيات مع امكانيات الاكسل لتعطينا عمل سريع ومتقن يحقق ما اريده بان يكون برنامج شامل ولكن كما يقولون حبة حبة والله المعين

السلام عليكم حفظكم ربي ورعاكم تحياتي لكم جميعا الاخ / علي فهيم حفظه الله لقد عملت ملف لمثل ما اردت ولكنه ملف خاص لاحدهم ساوافيك بالرد لاحقا

السلام عليكم لقد حملت الملف من ثاني لعل السابق به شي سنتظر رد الاخوان جميعا

السلام عليكم ورحمة الله وبركاته بِسْمِ اللَّهِ الرَّحْمَنِ الرَّحِيمِ الحمد لله حمداً كثيراً طيباً مباركاً فيه , اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك هذا هو الإصدار الثاني من البرنامج جعلته هدية لاخواني المدرسين تعديلاً للإصدار الأول من البرنامج على ضوء الطلبات التي طرحت من قبلهم اتمنى من المولى تعالى أن يكون محققا مرادهم وإن فاتنا شيءٌ فالله الكمال والله ولي التوفيق التغييرات التي تمت في هذا الاصدار اولاً : - اضافة ورقة جديدة باسم أعمال السنة. ثانياً : - في ورقة كروت ارقام الجلوس لديك امكانية استخراج الكروت بترتيب الفصول وإظهار رقم الفصل في الكرت وذلك بتحفيزه من الزر إظهار رقم الفصل. ثالثاً : - أوراق الملف محمية بكلمة مرور سوف تعرفها عند استخدامك لزر أمان الملف . رابعاً : تغييرات في الشكل تتناسب مع كونه اصداراً جديداً. وفي الملف من التعليمات التي تغني عن اعادتها هنا ومن اجل ان يعطيك البرنامج نتائج صحيحة فعليك قراءة التعليمات بشكل جيد رابط الاصدار الاول: الإصدار الاول من البرنامج تحياتي وسلامي __________________________________.rar

السلام عليكم اليكم ثلاث طرق لاستخراج اسم ولي الامر من اسم الطالب مع الحسبان لجميع الاحتمالات 1- بالمعادلة 2- بالكود عبر زر 3- بالكود عند ادخال اسم الطالب هذا جعلنه بخصوص ماذكر وايضا لابلاغكم انكم غدا إن شاء الله على موعد ببرنامج خبور المدرسي الاصدار الثاني تحياتي وشكري _____________________.rar

السلام عليكم ان شاء الله قريباً الاصدار الثاني من البرنامج وبباطنه اضافة كشوفات اعمال السنة عليكم بالدعاء وعلينا الوفاء o3.bmp

السلام عليكم الاخ AHH حفظه الله ان شاء الله اخي الاخ CAT حفظه الله اهلا وسهلا بك اخي العظمه لله وحده تحياتي وشكري

السلام عليكم اخي المبارك احمد يعقوب حفظه الله اخي انا لا امتهن التدريس الاخ برونس حفظه الله اخي حاليا مشغول باعمال اخرى فارجوا المعذرة

السلام عليكم بارك الله فيك اخ اسامة

السلام عليكم بامكانك الان الاحتفاظ بنسخة من الفاتورة عن طريق الاستدعاء في المرفق مثال لذلك ___________________________.rar

السلام عليكم اعتذر على انقطاعي واشكر جميع من رد في هذه المشاركة مرفق ملف نموذج ترحيل واستدعاء لنموذج الفاتورة في هذا الرابط http://www.officena.net/ib/index.php?showtopic=24322 ردا على سؤال الاخ منسق اليك المرفق ____.rar

السلام عليكم صحح هذا الكود بهذه الاضافة: Sub FillList4() If ورقة5.[C10] = "ADD" Then B = 33 Else B = 1 + ورقة5.[C10] ActiveSheet.Cells(11, B) = ورقة5.[C11] ActiveSheet.Cells(12, B) = ورقة5.[C12] ActiveSheet.Cells(14, B) = ورقة5.[C14] ActiveSheet.Cells(15, B) = ورقة5.[C15] ActiveSheet.Cells(17, B) = ورقة5.[C17] ActiveSheet.Cells(18, B) = ورقة5.[C18] ActiveSheet.Cells(20, B) = ورقة5.[C20] ActiveSheet.Cells(21, B) = ورقة5.[C21] ActiveSheet.Cells(23, B) = ورقة5.[C23] ActiveSheet.Cells(24, B) = ورقة5.[C24] End Sub

السلام عليكم الاخوان جميعا حفظكم ربي من كل شر تحياتي وشكري

السلام عليكم استخدم الدالة التالية: RANK إرجاع مرتبة الرقم في قائمة من الأرقام. مرتبة الرقم هي حجمه بالنسبة إلى أحجام القيم الأخرى في القائمة. (إذا وجب عليك فرز القائمة، تكون مرتبة الرقم هي موضع هذا الرقم في القائمة.) بناء الجملة RANK(number,ref,order) Number (الرقم) الرقم الذي تريد العثور على مرتبته. Ref (المرجع) هو صفيف أو مرجع، لقائمة أرقام. يتم تجاهل القيم غير الرقمية في ref. Order (الترتيب) الرقم الذي يحدد كيفية ترتيب الأرقام. إذا كان الترتيب يساوي 0 (صفر) أو كان محذوفاً، يقوم Microsoft Excel بإيجاد مرتبة الرقم كما لو كان ref قائمة مفروزة في ترتيب تنازلي. إذا كان الترتيب قيمة غير صفرية، يقوم Microsoft Excel بإيجاد مرتبة الرقم كما لو كان ref قائمة مفروزة في ترتيب تصاعدي. ملاحظات يعطي RANK الأرقام المكررة نفس المرتبة. وبالرغم من ذلك، يؤثر وجود الأرقام المكررة على مرتبة الأرقام التالية. على سبيل المثال، في قائمة أعداد صحيحة مفروزة في ترتيب تصاعدي، إذا ظهر الرقم 10 مرتين وله المرتبة 5، إذن يكون للرقم 11 المرتبة 7 (لن يكون لأي رقم المرتبة 6). لبعض الأغراض، قد يرغب الشخص في استخدام تعريف مرتبة ما يراعى فيها روابط معينة. ففي المثال السابق، يحتاج الشخص إلى تعديل المرتبة 5.5 للرقم 10. يمكن إجراء ذلك بواسطة إضافة عامل التصحيح التالي إلى القيمة التي تقوم RANK بإرجاعها. يكون عامل التصحيح هذا مناسباً للحالة التي يتم فيها حساب المرتبة في ترتيب تنازلي (الترتيب = 0 أو محذوف) أو في ترتيب تصاعدي (الترتيب = قيمة غير صفرية). عامل التصحيح للمراتب المرتبطة=[COUNT(ref) + 1 – RANK(number, ref, 0) – RANK(number, ref, 1)]/2. في المثال التالي، RANK(A2,A1:A5,1) تساوي 3. يكون عامل التصحيح هو (5 + 1 – 2 – 3)/2 = 0.5 والمرتبة المعدّلة التي تراعي الروابط هي 3 + 0.5 = 3.5. إذا وجد رقم مرة واحدة فقط في ref، سيكون عامل التصحيح هو 0، لأن RANK في هذه الحالة لا ينبغي تعديلها لأحد الروابط. من تعليمات الدوال

السلام عليكم المثال العملي الاول نموذج فاتورة

السلام عليكم نموذج فاتورة بفورم بعشرين صف استدعاء اسم الصنف والسعر اثناء اختيارك لرقم الصنف اظهار اجمالي الصنف بعد كتابتك للكمية من صنف معين مع اظهار الاجمالي الكلي للفاتورة متبوعا بالتنقيط اثناء مسحك لرقم الصنف تمسح باقي البيانات في الصف ضبط الاخطاء اثناء الترحيل ويتم ايقاف العملية لإعادة التصحيح طباعة للفاتورة بامكانية اختيار عدد النسخ فاتورة متكاملة بالعناويين وراس الصفحة والتذييل وكانك تتعامل مع ورقة العمل بل اسهل من ذلك وفي النظر والتجربة ما يغني عن الشرح تحياتي وشكري ____________________.rar

السلام عليكم إن شاء الله لن ننساك

السلام عليكم اي كود اخي بتاع الفورم انا عملته هنا في فرم الاعمدة لكن باقي الاكواد ليس لها علاقة بهذا الكود

السلام عليكم هذا ملف توضيحي لحركة الكود سترون كيف تتغير القيم بحيث تدل على عنوان الخلية وموقع العنصر في الفورم في هذا الدرس طبعا توزيع التاكست بوكس داخل الفورم بشكل افقي صف بعد صف اما ليبلات التعريف عملتهم آخر شي اخواني تمام الى حد هنا انتم معايا علشان نواصل نحن الان سنبدا بعد هذه الخطوة بمثال عملي نريد الاطمئنان علشان نخرج بنتائج لها مردود مستقبلي الاخ / هات حفظك الله ورعاك الاخ الجيلاني بالنسبة لما طلبته سابقا على الحسبان الاخ احمد يعقوب والاخ AHH مفهوم الى حد ما وصلت ____________________.rar

السلام عليكم اضافات لابد ان تعرف: 1- الغاية التي نريدها هي استخدام ضابط آخر يشير الى العنصر الذي نريد ترحيل البيانات منه الى ورقة العمل بدلا عن التسمية فعملية وضعك لهذه العناصر في بداية الامر سيعطيك حرية استخدامك لاي عناصرآخرى لتكملة شكل الفورم الذي تريدة من ليبلات وازرار وصور وغيره. وهذا لايعني ان هذا شرط ملزم . 2- بالامكان استخدام وعاء آخر لوضع عناصر اخرى قد تحتاجها لترحيل آخر وهو استخدام الفرمة ( سنتكلم عليه فيما بعد) لان الفرمة هي وعاء لمجموعة معينة تاخذ تسلسل كنترولي من الصفر بالاشارة الى هذا الوعاء. بيان ما عرفناه في الدرس السابق: ترحيل بيانات من عناصر (تاكستبوكس او كومبكس) الى صف واحد فقط يتسلسل تباعا الدرس الثاني: لومعنا فاتورة مثلا : نحتاج الى ترحيل عدة صفوف لتحمل بيانات هذه الفاتورة يعني نريد نرحل عدة صفوف الى ورقة العمل وتاخذ هذه الصفوف ترتيب متسلسل داخل الورقة في المرفق: تتم هذه العملية بهذا الكود فقط Private Sub CommandButton1_Click() On Error Resume Next Dim KH As Integer Dim S As Long, R As Long LastRow = Cells(Rows.Count, "B").End(xlUp).Row KH = 0 For S = 1 To 10 For R = 1 To 5 Cells(LastRow + S, R + 1) = Me.Controls.Item(KH + R - 1).Value Next KH = KH + 5 Next MsgBox "تم الترحيل بنجاح", 524288, "تم الترحيل" End End Sub سيتم الشرح من اسئلتكم _______________________________2.rar