علي السحيب

يمكنك الوصول لما تريد عن طريق إستخدام الدالة SUMPRODUCT .. والمشاركة رقم 8 من الرابط التالي تحتوي على شرح تفصيلي لكيفية إستخدام الدالة SUMPRODUCT. http://www.officena.net/ib/index.php?showtopic=6055

بصراحة أنا لأول مرة أرى مثل هذه الرسالة التنبيهية .. لأني لا أتعامل كثيراً مع الرسوم البيانية .. ولكن ربما تكون مثلما توقعته أنت بأن هذه هي أقصى قدرة استيعابية للإكسل من الرسوم البيانية.

أولاً .. أعتذر عن التأخر في الرد .. ولكني لم أنتبه لمضوعك .. والذي كان يجب أن يطرح كرد على الموضوع الأساسي لتجنب تكرار المواضيع في المنتدى .. لذا قمت بدمج الموضوعين. على كل حال تطبيقك للكود صحيح وسليم 100% ولا غبار عليه .. المشكلة أنك لم تقم بعمل خطوة مهمة وأساسية في هذا التطبيق .. ألا وهي إلغاء خاصية خروج رسالة الخطأ من قِبل التحقق من الصحة .. ويكون ذلك عبر إختيار الخلية أو الخلايا المعنية ثم الذهاب إلى القائمة بيانات ثم التحقق من الصحة ثم الذهاب إلى آخر تبويب وهو تنبيه إلى الخطأ .. وإزالة علامة الصح عن المربع الموجود في بداية التبويب .. وهذا لمنع خروج رسالة التنبيه الخاصة بالتحقق من الصحة وإعطاء المجال للكود ليقوم بما هو مسند إليه وهو إضافة الكلمة الجديدة إلى القائمة. شاهد المرفق، __________.rar

جميع الشروط تنطبق بشكل صحيح. مثلاً .. الخلية E1 قيمتها 19 والخلية F1 قيمتها 20 .. يعني أن الخلية F1 أكبر من الخلية التي قبلها وهي E1 .. ولذا ظهر لون خلفية الخلية F1 أبيض ولون الخط أخضر ألم يكن هذا ما طلبته؟؟!!! مثال آخر .. الخلية C2 قيمتها 91 .. والخلية D2 قيمتها 80 .. يعني أن الخلية D2 أصغر من الخلية التي قبلها وهي C2 ولذا ظهر لون خلفية الخلية D2 أبيض ولون الخط أحمر .. ألم يكن هذا ما طلبته؟؟!!!!!!!!

أسمحوا لي على المُداخلة .. الكود الذي وضعة الأخ ابو اسامة العينبوسي سليم ولكنه لا يشتمل على نطاق الجدول بأكمله فهو يقوم بفرز البيانات التي في العمود الأول فقط. وبعد التعديل على الكود لكي يشمل جميع أعمدة الجدول .. يصبح هكذا: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.[A3:E1000].SortSpecial xlAscending End Sub وهذا الكود أيضاً يقوم بنفس المهمة: Private Sub Worksheet_SelectionChange(ByVal Target As Range) [A3:E1000].Sort [A3], xlAscending End Sub

هذه الإضافة للإكسل بحق أكثر من رائعة .. أشكرك عليها أخي سيف الدين ..

المسألة متعلقة بأكثر من سطر وبأكثر من نقطة داخل الأكواد الخاصة بكل نموذج .. عشان كذا أفضل أن العمل ينقسم بيني وبينك .. أنت تعدل على النماذج وعلى الجدول .. وأنا أعدل على ألأكواد .. وش رايك؟؟؟

نعم يمكن ربط إسم المستخدم بكلمة المرور .. فمثلاً إذا كان إسم المستخدم علي .. فتكون كلمة المرور 123 .. وإذا كان إسم المتسخدم محمد تكون كلمة المرور 456 .. وهكذا. والكود التالي يعمل عند فتح الملف على حماية الورقة الأولى من المصنف بكلمة المرور 123 .. إذا كان إسم المستخدم Ali H. Al-Sohaib .. إما إذا كان إسم المستخدم غير ذلك .. فتكون كلمة المرور هي 456 .. Private Sub Workbook_Open() If Application.UserName = "Ali H. Al-Sohaib" Then Sheet1.Protect "123" Else: Sheet1.Protect "456" End If End Sub شاهد المرفق، ___________________________________.rar

الأزرار تعمل بكفاءة .. ولكن كان يجب عليك أولاً أن تقوم بتحويل اللغة إلى الإنجليزية ليشتغل الكود .. وهذا أيضاً بالنسة لبقية الأزار. والمرفق يحتوي على زر جديد لتحويل اللغة. لكي تعمل القائمة بكفاءة يجب أن تكون لغة برامج الأوفيس هي الإنجليزية وليس العربية. تم التعديل. تم التعديل. في الختام أود أن أستفسر استفسار عام / مالفرق بين إدراج التاريخ من خلال إدراج دالة في الخلية مثل now وبين إدراج التاريخ من خلال ضغط ( Ctrl+ ك ) وأيهما أفضل ؟؟ عند إستخدام الدالة NOW أو TODAY .. لإدراج التاريخ يكون التاريخ متغير بشكل يومي .. أما بإستخدام Ctrl + ك .. يكون ثابت. شاهد المرفق، ____________________________________________.rar

لا يوجد خطوط أكثر يمكن تطبيقها على هذا المصنف!!! هذا ما تقوله الرسالة .. هل هذا المضمون يتعلق بما تقوم بعمله قبل ظهور الرسالة؟؟

بدلاً من هذا كله .. ما رأيك أن يتم إدخال السعر بمجرد كتابة رقم الصنف؟؟؟ شاهد المرفق، VLOOKUP_In_VBA_4.rar

تم التعديل .. شاهد المرفق، VLOOKU_In_VBA_3.rar

المرفق يحتوي على طريقتين لجلب نتائج الطلاب الأولى عن طريق الصيغ والثانية عن طريق الكود. مع ملاحظة أن الصيغ في الصفحة الأولى من المرفق الموجود في المشاركة الأولى في هذا الموضوع تحتوي على خطأ بسيط .. حيث أنه لايتم جلب بيانات الطالب الحاصل على المرتبة الأولى .. وحسب المثال فإن الطالب محمد قد حصل على درجة كاملة 100 بتقدير ممتاز .. ولكنه لم يتم جلب إسمه في جدول النتائج الموجود في نفس الصفحة .. وقد تم تعديل الصيغة وهي موجودة في الصفحة الثانية من هذا المرفق، شاهد المرفق، __________________________________.rar

الكود التالي ينفذ لك ما تريد: Sub Tarheel() Sheet2.[A6:G65536].ClearContents For R = 6 To [A65536].End(xlUp).Row If Cells(R, 6) = 8 Then With Sheet2.[A65536].End(xlUp) .Offset(1, 0) = Sheet1.Cells(R, 1) .Offset(1, 1) = Sheet1.Cells(R, 2) .Offset(1, 2) = Sheet1.Cells(R, 3) .Offset(1, 3) = Sheet1.Cells(R, 4) .Offset(1, 4) = Sheet1.Cells(R, 5) .Offset(1, 5) = Sheet1.Cells(R, 6) .Offset(1, 6) = Sheet1.Cells(R, 7) End With End If Next MsgBox "!تم ترحيل الصفوف المطلوبة بنجاح", vbInformation, "تم الترحيل" End Sub شاهد المرفق، __________________________________________8.rar

يتم ربط خلية معينة بأحد الأشكال التلقائية عن طريق تحديد الشكل التلقائي المُراد ربطه بالخلية ثم الذهاب إلى شريط الصيغ وكتابة علامة ( = ) ثم إختيار الخلية المعنية أو كتابة عنوانها في شريط الصيغ .. وتصبح الصيغة كالتالي مثلاً: =$C$10 شاهد المرفق، ____________________________________________.rar

السلام عليكم، أطلعت على عدة برامج للتحويل من وإلى التاريخ الهجري والميلادي .. ولكن كل ما رأيته لم يكن في مستوى البرنامج المرفق والمُعد من قِبل الخطوط الجوية العربية السعودية. أتمنى أن ينال إستحسانكم، _____________________________________________.rar

تم طرح هذا الموضع على الرابط التالي .. وتم إيجاد الحل عن طريق الصيغ وعن طريق الكود أيضاً. http://www.officena.net/ib/index.php?showtopic=14101

عدد الخلايا مرتبط بالكود .. وإذا بتزود عدد الخلايا .. لابد من التعديل على الكود.

معلومة ممتازة أخي عمر .. أشكرك عليها.

يمكنك أيضاً الحصول على نفس النتيجة من خلال الصيغة التالية: =COUNTA(C9:H9)-COUNTBLANK(C9:H9)

راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=10013

في الكود السابق كان الصف المعين إدراج التاريخ به هو الصف الثاني وليس السابع .. هذا أولاً .. وثانياً كان الكود يعمل بعد تحرير أي خلية وليس عند التنقل بين الخلايا.

أهنئك أخي خبور على هذا الإنجاز الأكثر من رائع،

يكون ذلك عبر إستخدام الدالة COUNTA: =COUNTA(A1:A13)

تم التعديل على الكود السابق .. وتم إضافة عدد من الأكواد الجديدة لإعطاء معلومات عن التالي: 1- عدد أوراق العمل. 2- إسم أول ورقة عمل. 3- إسم آخر وقة عمل. 4- تحريك ورقة العمل إلى نهاية المصنف. 5- تغيير إسم ورقة العمل. 6- إضافة وقة عمل جديدة بإسم مختلف عن أشهر السنة. أتمنى أن يحوز المرفق على إسحسانك، ___________________________.rar