أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
mmagedmemo ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil هل يمكن تغيير مسار الصورة فى الحفظ ونقلها للمسار الجديد اكسيل اسئله واجابات


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





طلب معادلة في برنامج حجز قاعات

السلام عليكم ورحمة الله وبركاته أعزائي الكرام بعد التحية الحارة والسلام عليكم ورحمة الله وبركاته ... بحاول اعمل برنامج ..


موضوع مغلق


28-09-2021 02:37 مساء
بكار للأبد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-01-2018
رقم العضوية : 3730
المشاركات : 282
الجنس : ذكر
تاريخ الميلاد : 13-9-1973
الدعوات : 2
يتابعهم : 6
يتابعونه : 10
قوة السمعة : 2216
 offline 

السلام عليكم ورحمة الله وبركاته

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

- في خانة التاريخ يرجى إدخال نتيجة او تقويم ميلادي في كل خلية حتى يدخل المستخدم التاريح من خلالها زي الانترنت حتى أتلاشي اختلاف التنسيق بين مستخدم وآخر .
- يرجى عند اختيار التاريخ أن يتم ترتيبه تلقائيا بمعنى إذا أدخل المستخدم تاريخ نشاط في 1/10/2021 واستمر في الإدخال بترتيب الأيام 2/10/ ، و 3/10 وهكذا فإذا أدخل تاريخ 1/10يذهب بصفه ليترتب تلقائيا بعد تاريخ 1/10/2010  وهكذا .. أرجو أكون قد أوضحت الفكرة
- وهل هناك معادلة او طريقة عندما ادخل التاريخ عن طريق النتيجة أو غيرها ( لو تعذرت ) أن يقوم بكتابة اسم اليوم بالعربي في خانة اليوم يعني مثلا لو كتبت 6/10/2021 يكتب في خانة اليوم (الأربعاء) وهكذا .
- يرجى عدم السماح بتكرار الميعاد مرتين في نفس اليوم ونفس القاعة ويظهر رسالة تقول له أن الميعاد موجود من قبل 

مرفق الملف المرجوالتعديل عليه
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

وجزاكم الله كل خير وأطعمكم من الجنة أشهى لحم طير أمين يا رب العالمين
 
 
  برنامج حجز قاعات 2021.xlsx   تحميل xlsx مرات التحميل :(8)
الحجم :(13.078) KB



أفضل إجابة مقدمة من Eslam Abdullah وهي:
[قمت بتعديل الكود بتاريخ 04/11/2021]
عشان مشكلة التصفيه لعمود فقط وليس نطاق فى حالة النطاق العادى
ولو ليك فى الأكواد ممكن تستخدم السطر الخاص بفلترة النطاق للجدوال ايضا
لكن انا اتعاملت مع الجدول باسلوبه افضل عشان السرعه والاداء

مرفق ملف عمل بتعديل الكود حيث يعمل مع الـ Table ومع الـ Range بشكل تلقائى
وبنفس الشروط السابقه يوجد سطر لتحديد [رقم بداية الصفوف ورقم العمود الخاص بالفلترة] وهو:

Dim rw%, col%: rw = 3: col = 2 'rw for title - col for filter

وآلية عمل الكود بتلوين تلك الخلية بلون غير [الأسود] وإلا يتوقف عن العمل

 مرفق ملف تطبيق عملى على شيت نوفمبر بما ان سؤالك مركز عليه
(ولقيت باقى الشيتات فاضية فمسحتها عشان يكون ملف عمل بسيط لاى حد)

والكود كامل كالتالى تقدر تضيفه كما هو بأى شيت

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False

Dim rw%, col%: rw = 3: col = 2 'rw for title - col for filter
If Target.Row > rw And Target.Column = col And Cells(rw, col).Font.Color <> 0 Then
If Not Cells(rw, col).ListObject Is Nothing Then
With Cells(rw, col).ListObject
    'Cells(rw, col).Value = .ListColumns(col - .Range.Column + 1).Name
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range(.Name & "[[#All],[" & Cells(rw, col).Value & "]]"), Order:=xlAscending
    .Sort.Header = xlYes
    .Sort.Apply
End With
Else
    Cells(rw, col).Sort Key1:=Cells(rw, col), Order1:=xlAscending, Header:=xlYes
End If: End If

Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
عرض الإجابة




03-10-2021 09:54 مساء
مشاهدة مشاركة منفردة [1]
soufisamchi
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-07-2018
رقم العضوية : 7354
المشاركات : 29
الجنس : ذكر
تاريخ الميلاد : 1-1-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 170
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif طلب معادلة في برنامج حجز قاعات

السلام عليكم ورحمة الله وبركاته


 تفضل اتمنى انى فهمت مقصودك 
 
 
  برنامج حجز قاعات 2021.xlsx   تحميل xlsx مرات التحميل :(6)
الحجم :(15.876) KB


04-10-2021 09:01 صباحا
مشاهدة مشاركة منفردة [2]
بكار للأبد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-01-2018
رقم العضوية : 3730
المشاركات : 282
الجنس : ذكر
تاريخ الميلاد : 13-9-1973
الدعوات : 2
يتابعهم : 6
يتابعونه : 10
قوة السمعة : 2216
 offline 
look/images/icons/i1.gif طلب معادلة في برنامج حجز قاعات
السلام عليكم ورحمة الله وبركاته

جزيل الشكر سيدي الكريم هذا هو المطلوب ولكن هل يمكن معادلة لترتيب التاريخ  بمعنى إذا أدخل المستخدم تاريخ نشاط في 1/10/2021 واستمر في الإدخال بترتيب الأيام يعني 2/10 و3/10 و4/10 و5/10 وهكذا فإذا أدخل تاريخ 1/10 مرة أخرى بغرض عمل حجز آخر يذهب التاريخ بصفه ليترتب تلقائيا مع الصف بتاعه بعد تاريخ 1/10/2010  وهكذا .. أرجو أكون قد أوضحت الفكرة

05-10-2021 11:19 مساء
مشاهدة مشاركة منفردة [3]
soufisamchi
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-07-2018
رقم العضوية : 7354
المشاركات : 29
الجنس : ذكر
تاريخ الميلاد : 1-1-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 170
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif طلب معادلة في برنامج حجز قاعات
تفضل بكار للابد هل هذا ما تريد ؟؟
 
 
  برنامج حجز قاعات 2021.xlsx   تحميل xlsx مرات التحميل :(11)
الحجم :(15.685) KB


06-10-2021 12:18 مساء
مشاهدة مشاركة منفردة [4]
بكار للأبد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-01-2018
رقم العضوية : 3730
المشاركات : 282
الجنس : ذكر
تاريخ الميلاد : 13-9-1973
الدعوات : 2
يتابعهم : 6
يتابعونه : 10
قوة السمعة : 2216
 offline 
look/images/icons/i1.gif طلب معادلة في برنامج حجز قاعات
تمام حضرتك متشكر جدا ، بس انا كنت عايز معادلة او كود يخلي التاريخ يترتب تلقائيا بمعنى لو كتبت تاريخ نشاط في 1/10/2021 واستمريت في الإدخال بترتيب الأيام يعني 2/10 و3/10 و4/10 و5/10 وهكذا فإذا أدخلت تاريخ 1/10 مرة أخرى علشان اعمل حجز آخر يذهب التاريخ مع صفه بالكامل ليصعد ليترتب تلقائيا مع الصف بتاعه بعد تاريخ 1/10/2010 وهكذا .

03-11-2021 06:24 مساء
مشاهدة مشاركة منفردة [5]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 90
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif طلب معادلة في برنامج حجز قاعات
[قمت بتعديل الكود بتاريخ 04/11/2021]
عشان مشكلة التصفيه لعمود فقط وليس نطاق فى حالة النطاق العادى
ولو ليك فى الأكواد ممكن تستخدم السطر الخاص بفلترة النطاق للجدوال ايضا
لكن انا اتعاملت مع الجدول باسلوبه افضل عشان السرعه والاداء

مرفق ملف عمل بتعديل الكود حيث يعمل مع الـ Table ومع الـ Range بشكل تلقائى
وبنفس الشروط السابقه يوجد سطر لتحديد [رقم بداية الصفوف ورقم العمود الخاص بالفلترة] وهو:

Dim rw%, col%: rw = 3: col = 2 'rw for title - col for filter

وآلية عمل الكود بتلوين تلك الخلية بلون غير [الأسود] وإلا يتوقف عن العمل

 مرفق ملف تطبيق عملى على شيت نوفمبر بما ان سؤالك مركز عليه
(ولقيت باقى الشيتات فاضية فمسحتها عشان يكون ملف عمل بسيط لاى حد)

والكود كامل كالتالى تقدر تضيفه كما هو بأى شيت

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False

Dim rw%, col%: rw = 3: col = 2 'rw for title - col for filter
If Target.Row > rw And Target.Column = col And Cells(rw, col).Font.Color <> 0 Then
If Not Cells(rw, col).ListObject Is Nothing Then
With Cells(rw, col).ListObject
    'Cells(rw, col).Value = .ListColumns(col - .Range.Column + 1).Name
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range(.Name & "[[#All],[" & Cells(rw, col).Value & "]]"), Order:=xlAscending
    .Sort.Header = xlYes
    .Sort.Apply
End With
Else
    Cells(rw, col).Sort Key1:=Cells(rw, col), Order1:=xlAscending, Header:=xlYes
End If: End If

Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
 
 
  ترتيب جدول تلقائى.rar   تحميل rar مرات التحميل :(1)
الحجم :(26.787) KB




الكلمات الدلالية
قاعات ، برنامج ، معادلة ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 02:24 صباحا