علي الشيخ

الاخ علي الشيخ جزاك الله خيرا على هذه الاكواد المهمة 

سبحان الله كنت افكر في كتابة موضوع و هو كيفية حفظ صفحة واحدة ضمن الشيت بصيغة pdf

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

فهل يمكن تطبيق فكرتك على نموذج الشهادة؟؟ وكيف؟؟

أخي الكريم كل عام وانت بخير 

طيب ممكن ترفق الملف أو الشيت اللي عاوز تطبق عليه أي من الأكواد 

وقولي المطلوب بالتحديد وان شاء الله اطبقلك المطلوب عليه 

موضوع هام جدا

حفظ  كل ورقة عمل PDF باسم الخلية A1  وإرسالها بالإيميل ... لا تعمل

جزاك الله خيرا

السلام عليكم وأسعدني مرورك أخي الكريم

لابد أن يكون في الخلية A1 الإيميل المراد إرسال الرسالة إليه حتى يعمل الكود

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

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

أتمنى من الله أن تكونوا جميعا بألف خير وصحة وصيامكم خفيف ومقبول إن شاء الله 

موضوع اليوم هو تجميعة للأكواد الخاصة بحفظ الإكسل كـ PDF سواء الصفحات أو النطاقات أو ملفات الإكسل كاملة مع إمكانية إرسالها عن طريق الأوت لوك Outlook

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

يحتوي الملف على أكواد تقوم بعمل التالي

بإذن الله سيتم قريبا طرح موضوع عن إرسال الـ PDF من الإكسل عن طريق الإيميل ولكن ليس بواسطة Outlook ولكن بعد الـ Mail Clients الأخرى أو حتى بدون برنامج للإيميلات 

====

رابط للإخوة الزائرين

http://www.up-00.com/?4Jrg

ودمتم في رعاية الله 

PDF and EMIL.rar

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

ليس لدي 2010 حاليا لكي أوفر لك صور

ولكن الطريقة على ما اتذكرها وبسيطة إن شاء الله

من قائمة File

Print

وفي الإعدادات هتلاقي تحت في Page Set up

اضغط عليها ثم اضغط Paper/Quality

Paper Option

وتحتها Custom

اضغط عليها وادخل الطول Length والعرض Width واضط اوك وهيتم الطباعة بمشية الله

الخطوات قولتلها من 2007 وان شاء الله هتتطبق نفسها في 2010 عادي

اتفضل جرب الرابط التالي وان شاء الله يظبط معاك

http://www.microsoft.com/en-us/download/confirmation.aspx?id=17851

احنا بقى بمشية الله لازم نحللك مشكلة الفريم ورك اللي معطل شغل برامج كتير عندك

انت الاكس بي بتاعك سيرفس باك كام؟

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

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

الحمدلله إن الحال مشي تمام

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

فلو اوك بالنسبة لك أتفضل ده رابط تحميل

http://www.gulfup.com/?wZJIlg

والشكر لصاحب اللينك الأصلي 

والبرنامج تثبيت تلقائي فقط فك الضغط وابدء التثبيت وهيقوم بكل شئ تلقائيا

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

http://arabsh.com/index.php?p=download&f=0e3e424b66f1&type=file

وا ن شاء الله أقولك طريقة الاستخدام بعد التحميل والطريقة بسيطة وهيكون الأوفيس متفعل تمام بدون أي مشاكل

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

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

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

السلام عليكم

إلحاقا لرد الأستاذ محمود

إنت حدد العمودين من فوق ( يعني أقف على اسم العمود نفسه A مثلا أو B بحيث يتم تظليل العمود بالكامل ) ومن قائمة Date

Filter

Auto Filter

وهيمشي الحال ان شاء الله..

---

لو رامات الجهاز بتاعك على الأقل 512 تقدر تنزل أوفيس 2007 والنسخ متوفرة وهتساعدك أكتر سواء تطبيق الشروحات أو ايجاد مساعدة من الأعضاء

تحب نوفرلك لينك وتجرب تنزله وتثبته؟

ولا يهمك أخي ربنا يوفقك

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

ويفيدنا

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

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

مثلا في المثال اللي ذكرته انت الخلية B15 فيه المبلغ

وعاوزه يتكتب بالعربية في الخلية B12

اكتب المعادلة التالية في الخلية B12

=xa(B15)

ولو عاوز المبلغ يكون بالفرنسية في الخلية B11

في الخلية B11 اكتب المعادلة

=xf(B15)

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

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

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

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

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

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

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

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

وعامة انتظر ردود الأخوة ان شاء الله يفيدوك أكتر

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

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

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

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

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

اخي الفاضل قم بتحميل الملف المرفق

فهو وفك الضغط عنه

هيظهرلك فولدر فيه ملفين 

ومنهم ملف اسمه Setup

افتحه واضغط على Install NumberToWords

ثم اضغط أوكي أوكي 

واقفل الملف

وروح أفتح أي ملف إكسل وفي الخلية A1 اكتب المعادلة التالية 

=xf(B1)

وفي الخلية A2 اكتب المعادلة التالية 

=xa(B1)

وفي الخلية B2 اكتب أي رقم يعجبك 

وان شاء الله تضبط معاك وهكذا بقى معادلة تحويل الارقام إلى العربية هي xa

ومعادلة التحويل إلى الفرنسية هي xf

Perso.rar

ما شاء الله تبارك الله شرح كافي ووافي ومفيد جعله الله في ميزان حسناتك 

السلام عليكم

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

شيت2.rar

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

أنا شفت الملف والمشكلة في المعادلات الحالية 

احذف المعادلات من كل الأعمدة اللي فيها معادلات 

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

لأن حاليا أنت قمت في عمود المتبقي= الموجود - المصروف

ودلوقتي عاوز تضع في الموجود : التجهيز + المتبقي 

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

والأخوة يفيدوك أكثر بمشية الله

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

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

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

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

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

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

End Sub

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

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

 

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

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

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

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

 

طيب أخي ايه نوع القائمة المنسدلة لديك ؟

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

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

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

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

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

صوما مقبولا وإفطار شهيا للجميع بمشية الله 

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

الممكنة في الخطوات البسيطة بمشية الله 

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

التطبيق:

بعد إدارج التعليق يتم عمل التالي:

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

والملف المرفق فيه بعض الأمثلة الأخرى ..

ودمتم بخير

Comments.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.officena.net/ib/index.php?showtopic=62229#entry402735