سيد الأكرت

اين ملف الشيت اخي الكريم نرجو تحميله والاستفادة منه

بارك الله فيك

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

أخي الكريم صباح الخير ويارب يكون الصيام خفيف عليك ومقبول بإذن الله

وما تقلت علي أو أي شئ أخي بيسعدنا كلنا نقدم المساعدة اللي نقدر عليها

 

اللي حضرتك طلبته هو فعلا اللي بيحصل انك تقدر تعمل فلتر للرقم اللجنة في أثناء حماية الصفحة

انا استخدم أوفيس 2007 ويعمل معي الكود بشكل سليم بدون مشاكل

في إمكانية تجرب على 2007؟

معذرة كنت بالعمل ولسه فاتح ،

إذن المشكلة إن الفلترة لا تعمل مع 2003 وللاسف الشيت باوفيس 2003 هل يمكن الوصول الى قائمة اخرى تحل الموضوع

السلام عليكم أخي الكريم وصوما مقبولا وإفطارا شهيا بمشية الله 

انت بتحاول تضغط مرتين في الخلية ؟ 

لانك لو بتحاول كده مش هتقدر إلا لو فكينا حماية الخلايا دي انت عاوزها تكون قابلة للتعديل؟

 

لأن اللي احنا عاملينه إنك مجرد تعمل فلتر فقط للقيم الموجودة في رقم اللجنة 

انا حاليا مش واضح ليا ايه اللي انت عاوز تنفذه تحديدا في أرقام اللجان

أنا عارف إنى تعبتك معاي ، واللى أنا عايزه أن يكون القائمة المنسدلة مفتوحة في حالة حماية الورقة لكي استطيع اختيار لجنة معينة مثل 1 أو 2 لتظهر اسماء تلاميذ اللجنة دي فقط دون غيرها وبذلك استطيع طباعة كل لجنة على حدة وبالطبع سيكون الشيت محمى وفى هذه الحالة فان خانة رقم اللجنة تكون محمية ولا استطيع اختيار أي لجنة منها

السلام عليكم

اتفضل أخي شوف الملف المرفق

السلام عليكم

اتفضل أخي شوف الملف المرفق

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

 

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

ارجو ان يكون المعنى واضح

 

السلام عليكم أخي

حضرتك تقصد الفلترة Auto filter وهي مش بتشتغل على الشيت المحمي إلا بأكواد 

 

ضع الكود التالي في حدث Thisworkbook وان شاء الله تقدر تعمل فلتره عادي والشيت محمي 

Private Sub Workbook_Open()
Worksheets("كشوف المناداة ").EnableAutoFilter = True
Worksheets("كشوف المناداة ").Protect contents:=True, Password:="123", userInterfaceOnly:=True

End Sub

والباسورد زي ما حطيناها 123

لو حبيت تغيرها لازم تغيرها في الكود اللي فوق وفي الكود السابق بتاع إخفاء رقم اللجنة

 

للأسف أخى الكريم لم يظهر سهم القائمة أيضا رغم تنفيذي لهذه الخطوة إن أمكن أن تعدلها على الشيت المرفق " شيت 2 " وترسلها واكون شاكرا لك ، أو إن أمكن أن تدلنى على قائمة منسدلة بطريقة اخرى تصلح مع الكود

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

ارجو ان يكون المعنى واضح

شيت2.rar

سوف ارفعها لحضرتك بعد الفطار فالآن أذان المغرب بمصر وكل عام وانت بخير

مرحبا أخي الفاضل 

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

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

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

 

 

السلام عليكم وربنا يتقبل صيامكم وصيامنا 

اتفضل أخي شوف المرفق

 

وكلمة سر الورقة الثانية هي 123 يمكنك تغييرها من خلال الكود الله

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

 

 

إفطار شهيا أخي وربنا يتقبل الصيام

 

لم استخدم كود في اخفاء الشيتات ولكنها من ضمن إعدادات الإكسل للملف بتاعك وفي نسخة 2007 أو 2010

من أيقونة الإكسل أو تبويب File

اختر Excel Option

هتفتح نافذه إختر منها Advanced

وابحث في النافذة على  Show Sheet Tabs واحذف منها اللعلامة واَضغط أوكي

ولإظهارها رجع فيها العلامة 

 

--- 

لجعل الملف يفتح على أي صفحة انت تحددها 

افتح محرر الأكواد

وفي حدث Thisworkbook

انسخ الكود التالي

Private Sub Workbook_Open()
Sheets("الصفحة الرئيسية").Activate
End Sub

ويمكنك تغيير اسم الفصحة كما تشاء 

وإذا أردت ظهور رسالة تنبيه لتجهل المستخدم يقوم باستخدام قائمة التنقلات بين الصفحات ممكن تخلي الكود هكذا

Private Sub Workbook_Open()
    Sheets("الصفحة الرئيسية").Activate
        MsgBox "يمكنك استخدام قائمة التنقلات بين الصفحات للتنقل خلال محتوى الملف", vbInformation, "مرحبا"
End Sub

بعد تنفيذ الخطوات ظهرت مشكلتان عندى الأولى بالفعل فتح الملف على الصفحة الرئيسية ولكن عند اختيار صفحة لا تختفى بقية الصفحات من أسفل بل تظهر أسماؤها كلها والثانية عند عمل كود كشف المناداة وجدت أن سهم القائمة المنسدلة لا يظهر ليمكنننى من اختيار رقم اللجنة عند حماية الورقة

هل يمكننى ارسال الملف كاملا لحضرتك لتفيدنا بعلمك

السلام عليكم وربنا يتقبل صيامكم وصيامنا 

اتفضل أخي شوف المرفق

 

وكلمة سر الورقة الثانية هي 123 يمكنك تغييرها من خلال الكود الله

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

 

السلام عليك اخي الكريم

 

اليك الحل لعله يكون المطلوب

هناك مشكلة فى الملف اخى الكريم ويبدا بعبارة صادف اكسيل خطأً

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

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

اتمنى عمل المطلوب واكون شاكرا وكل عام وانتم بخير

شيت.rar

تم حل المشكلة

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

ارجو المساعدة ان امكن

رابط الملف

http://www.mediafire.com/download/uceffc1fbewomrs/الصف_الرابع.rar

 

بسم الله الرحمن الرحيم

الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ،

تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ،

الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار،

وشغلهم بمراقبته وإدامة الأفكار ،

وملازمة الاتعاظ والاذكار،

ووفقهم للدؤوب في طاعته والتأهب لدار القرار،

والحذر مما يسخطه ويوجب دار البوار،

والمحافظة على ذلك مع تغاير الأحوال والأطوار.

أحمده أبلغ حمد وأزكاه، وأشمله وأنماه.

أما بعد:

رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته

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

ولهذا ساقدم

سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له

في موضوع مستقل

وسأشرح كيفية استخدام الكود ماتيسر لي

إن شاء الله

وعلى الله قصد السبيل

******************************************

هذا

كود التنقل الى اي صفحة في ملف اكسيل

طريقة الاستفادة من الكود

افتح ملف اكسيل

اضغط على الرز ALT وانت ضاغط على الزر

اضغط على F11 الموجود أعلا لوحة المفاتيح

ستظهر شاشة الماكرو

اضغط على موديول 1

سيتم فتح الموديول

الصق فيه الكود الموجود

تحت هذا السطر

[/center]
	' ' هذا الكود للعالم العلامة عبد الله باقسير

Sub GO_TO()
On Error Resume Next
Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute
If Err.Number > 0 Then
	Err.Clear
	Application.CommandBars("Workbook Tabs").ShowPopup
End If
Activewindow.ScrollColumn = 1
Activewindow.ScrollRow = 1
On Error GoTo 0
End Sub

في هذا الكود البسيط والمفيد

عند الضغط على الزر

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

اختر منها الورقة التي تبعاها

ودمتم في حفظ الله

 

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

أخى الكريم ربنا يباركلك ويكثر من أمثالك والشكر شيء قليل لتعاونك ومتابعتك

شكرا لك

أرجو استكمال هذه الفاتورة بحيث يظهر بها كل الأصناف التي نزلت للعميل سيد بدلالة رقم الفاتورة فهي يظهر بها الصنف الأول وهو البيض فقط فأرجو تعديل المعادلات لتشمل بقية الاصناف حيث أنها كلها في فاتورة واحدة وكذلك أي رقم آخر

فاتورة.rar

شكرا لك أخى الكريم

معذرة أخي الكريم فلم أقصد التعب لأخواتي في المنتدى وكل عام وانتم بخير رفعت الملف مرة اخرى بالصورة المطلوبة

الملف.rar

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

ثم عمل قائمة منسدلة لفرز الناجح والراسب وطريقة عملها إن أمكن 

معادلة غياب.rar

شكرا لكم

عندى جدول حصص اكسيل اريد ان اكتب في الخانات اسماء الفصول مثل 2/3 وهكذا ولكنها تتحول الى ارقام او تواريخ ميلاد كيف يمكن كتابتها واكون شاكرا لكم

تمام يا باشا ربنا يباركلك ويكتر من امثالك

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