علي السحيب

يمكنك الوصول لما تريد عن طريق إستخدام الدالة 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

بانسبة لإدراج التاريخ ( أول زر الأخضر) لايعمل نهائيا

بالنسبة للزر الثالث ( إدخال التاريخ والوقت ) يتم إدراج لوقت أما التاريخ فلا يظهر

الأزرار تعمل بكفاءة .. ولكن كان يجب عليك أولاً أن تقوم بتحويل اللغة إلى الإنجليزية ليشتغل الكود .. وهذا أيضاً بالنسة لبقية الأزار.

والمرفق يحتوي على زر جديد لتحويل اللغة.

بالنسبة للقائمة المنسدلة فهي جامدة لا تنسدل وكأنها محمية !!

وعند ضغط زر ( فتح القائمة المختارة ) يخرج سطر الخطأ التالي في المحرر :

لونه أصفر

Sub OpenEnglishMenus()

لونه أزرق

.ComboBox1

لكي تعمل القائمة بكفاءة يجب أن تكون لغة برامج الأوفيس هي الإنجليزية وليس العربية.

* أود أن يكون عمل الأزرار مقتصر على نفس الخلية بحيث لا ينتقل التنشيط بعد أداء المهمة بـ TAb إلى خلية أخرى.

تم التعديل.

* يضاف للأزرار شرط وهو إذا كان في الخلية النشطة أي شيء مكتوب يتم رفض إدراج التاريخ أو الوقت ، وتخرج رسالة تقول: عفوا قم بمسح محتويات الخلية أولا .

تم التعديل.

في الختام أود أن أستفسر استفسار عام / مالفرق بين إدراج التاريخ من خلال إدراج دالة في الخلية مثل 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

ممكن تزودني بمرفق أو بكود يقوم بوظيفة ( Ctrl+ ك ) من أجل إدراج التاريخ الحالي في الخلية النشطة بظغطة زر ؟

كما أود تجهيز طريقة أو كود يستضيف عموم إختصارات الكي برد الوظيفية فبدلا من ( ALt+ م ) نريد بظغطة زر يتم فتح القائمة ملف ، وهكذا كيف يتم ؟

شاهد المرفق،

____________________________________________.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