عــزيــز

ديسمبر 31, 2021

بارك الله فيك الكود يعمل بشكل ممتاز.

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

ديسمبر 30, 2021

السلام عليم

لدي صفحة اكسل تعرض معلومات العمال وتتغير بمجرد تغيير رقم التعريفي للعامل في الخلية C1 (وارقام التعريفية للعمال من 1 إلى 2000)

وهدفي هو تصدير ملف كل عامل في صفحة على شكل ملف PDF على جهازي

فعلت ذلك عبر ماكرو ونجحت ولكن اضطر لتكرار كتابة رقم العامل في كل مرة

ActiveCell.FormulaR1C1

كما تشاهدون في كود التالي:

  Range("C1").Select
    ActiveCell.FormulaR1C1 = "1"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Ahmed\Desktop\" & Range("Sheet1!c2") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

    Range("C1").Select
    ActiveCell.FormulaR1C1 = "2"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Ahmed\Desktop\" & Range("Sheet1!c2") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

    Range("C1").Select
    ActiveCell.FormulaR1C1 = "3"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Ahmed\Desktop\" & Range("Sheet1!c2") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

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

يكون شبيه بهذا من اجل الاختصار

    Range("C1").Select  from 1 to 2000

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Ahmed\Desktop\" & Range("Sheet1!c2") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

وشكرا مسبقا

نوفمبر 25, 2017

On 10/11/2017 at 10:10 PM, mennad sofiane said:

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

لاشكر على واجب :wink2:

أكتوبر 23, 2017

السلام عليكم

إليكم القرآن الكريم بصوت أشهر القراء بروابط مباشرة MP3 حيث يمكن الاستماع مباشرة لها ويمكن أيضا تحميل الملف مباشرة نحو جهازكم.

لا تنسوا النشر لأن الدال على الخير كفاعله وشكرا

سبتمبر 11, 2017

14 ساعات مضت, ياسر خليل أبو البراء said:
معرفة رقم آخر صف سترشدك لذلك

نفترض أنك عرفت رقم آخر صف ووضعته في متغير باسم lastRow

ق بالإشارة إلى الخلية بالشكل التالي
Range("A" & lastRow). >>>>
وعلى حسب الصورة المرفقة ستكون ترجمة ذلك الجزء هو A11

بارك الله فيك على الإجابة و المجهودات المقدمة

الكود الذي ينفذ المهمة الذي وصلت له هو:

ActiveSheet.Range("a1").End(xlDown).Offset(1,0).Select

ويعمل بشكل سليم.

شكرا لك

سبتمبر 11, 2017

السلام عليكم

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

لدي جدول يبدأ من A1 إلى D10

أريد كود ماكرو يقوم بتحديد الخلية Selection التي تأتي مباشرة بعد نهاية الجدول وفي مثالنا هذا هي A11

ملاحظة: يجب أن لا يتضمن كود ماكرو اسم الخلية A11 بل يجب أن تحدد أتوماتكيا لأن الجدول في كل مرة تزداد البيانات المسجلة فيه.

في المرفقات صورة للتوضيح أكثر

وشكرا لكم على الدعم المقدم للأعضاء

مايو 1, 2017

بارك الله فيك

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

أبريل 29, 2017

السلام عليكم

سؤالي: أريد أي دالة أو طريقة من أجل معرفة المخزون الحالي وفي وقت حقيقي وطبعا هو الفرق بين كمية المشتريات والمبيعات، وقد ارفقت ملف من اجل التطبيق عليه وفيه3 مصنفات:

المصنف الأول: المشتريات

المصنف الثاني: المبيعات

المصنف الثالث: المخزون الحالي

كل مصنف يحتوي على عمودين : الأول اسم السلعة، والثاني الكمية

شكرا لكم مسبقا

example.zip

فبراير 12, 2017

السلام عليكم
كما في العنوان القرآن الكريم كاملا بصوت عبد الباسط عبد الصمد بروابط مباشرة، حيث يمكن الاستماع لأي سورة من سور القرآن الكريم، أو تحميلها.

لا تنسوا النشر، فالدال على الخير كفاعله

سبتمبر 18, 2016

5 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم عزيز

إن شاء الله إذا تيسر لي الوقت سأقوم بطرح موضوع كامل بخصوص الطريقة ... جاري العمل عليها الآن وربنا ييسر الأمور

بارك الله فيك أخي ياسر، الله يوفقك ويأجرك ويسهلك عملك ويجزيك كل خير.

سبتمبر 17, 2016

1 ساعه مضت, ياسر خليل أبو البراء said:

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

شكرا لك على الافادة

أظن أن الموضوع الذي تقصده هو:

ولكن ينقصه أساسا الملفات المرفقة مخصصة لكل عميل عن الآخر.

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

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

شكرا جزيلا لك

سبتمبر 9, 2016

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

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

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

وبخصوص البريد المستعمل فهو نفسه البريد الافتراضي في برنامج Outlook 2016

الملف في المرفقات

شكرا جزيلا لكم

Email.zip

سبتمبر 7, 2016

منذ ساعه, ياسر خليل أبو البراء said:

أخي الكريم عزيز

إليك الرابط التالي فيه شرح مفصل لما ستقوم بعمله للحصول على المطلوب ..

لاحظ فقط في الكود المقدم لك في الموضوع ستقوم بتغيير اسم ورقة العمل من Sheet1 إلى Sheet2 .. حيث أن ورقة العمل لديك في الملف المرفق باسم Sheet2

الموضوع بالكامل مع ملف مرفق مع شرح لما يتم في الكود بشكل عام في هذا الرابط

تقبل تحياتي

بارك الله فيك أخي ياسر

بعد التجربة الكود يعمل بشكل ممتاز وسريع و بدون أي خطأ

أتمنى أن يعطيك الله ما تتمناه في قلبك ولك مني دعوة في ظهر الغيب

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

شكرا جزيلا لك

سبتمبر 7, 2016

19 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم يجب وضع تصور للملف لتيسير تقديم المساعدة

الفكرة موجودة ولكن ينقص الملف المرفق للعمل عليه

تقبل تحياتي

19 ساعات مضت, عمر الحسيني said:

بعد اذن اخي ياسر خليل أبو البراء

الاخ عــزيــز

انت تبحث عن الطريق الاصعب عن طريق الدوال

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

وطريقتك الصعبة

هي ان تنشئ ملفات بأسماء العملاء

ثم تفتح الملف الرئيسي

ثم تفتح ملف العميل الاول

وتضع علامة تساوي في خلية ثم تقف في الخلية المناظره لها في الملف الرئيسي في الجزء الخاص بالعميل وتضغط انتر

تفعل ذلك في كل الخلايا لهذا العميل ثم تغلق ملف العميل الاول

ثم تعيد الكرة مع باقي ملفات العملاء

ربنا يكون في عونك

واذا مللت من ذلك

فكلنا في خدمتك

لقد عملت ملف موجود بالمرفقات

ما أريده هو فصل عمليات كل عميل لوحده فقط في ملف اكسل جديد (حتى لا يطلع العملاء على بعضهم البعض لما ارسل الملفات) وطبعا أريد طريقة اتوماتيكية و ليس يدوية

هذه الصورة للملف المرفق

شكرا جزيلا لكم على تعاونكم معي

Test 01.zip

سبتمبر 6, 2016

23 ساعات مضت, عمرو.محمد said:

نعم ينفع ولكن ارفق ملف للعمل عليه

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

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

شكرا لك

سبتمبر 5, 2016

السلام عليكم

لدي ملف اكسل به صفحة تحتوي على جدول كل العملاء و رصيد كل عميل والعمليات التي قام بها

هل هناك طريقة لفصل معلومات كل عميل لوحده في ملف اكسل جديد؟ بمعنى لو كان لدي صفحة بها 20 عميل سينتج عنها 20 ملف اكسل جديدة أي ملف جديد لكل عميل

وشكرا لكم

يوليو 24, 2016

10 ساعات مضت, محي الدين ابو البشر said:

اللسلام عليكم

اسف

اليك المرفق

azziz.rar

بارك الله فيك

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

شكرا

يوليو 23, 2016

أخي الكريم
يوجد طريقة بسيطة وهي
1- حدد السطر الذي تريد أن يبقى ثابتا عند الصعود والهبوط
2- إتجه إلى :
Freeze Panes
ثم
Freeze Top Row
والصورة تختص الشرح
تحياتي

يوليو 23, 2016

بارك الله فيك

الماكرو يعمل بشكل رائع

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

يوليو 23, 2016

منذ ساعه, سليم حاصبيا said:

يعمل لغاية 30 اسم (اذا كنت تريد اكثر استبدل في المعادلة الرقم 31 بالرقم الذي تريده واسحب نزولاً)

لا تنس بعد استبدال الرقم 31 بالرقم الذي تريده ان تضغط Ctrl+Shift+Enter وليس Enter وحدها لان المعادلة (صفيف)

بالنسبة لتعدد لاسماء فوق 500 اسم يصبح البرنامج بطيء نظراً لكثرة المعادلات

في هذه الحالة الكود اسرع

بارك الله فيك أخي الكريم

في الحقيقة أحتاج حوالي 25000 خانة و بالتالي أظن انه لا بديل عن Pivot Table كحل اضطراري واضطر كل مرة الى تحديث البيانات بعد اي تعديل. مارأيكم

يوليو 23, 2016

3 دقائق مضت, محي الدين ابو البشر said:

السلام عليكم

أخي العزيز

الرجاء فتح المرفق ونسخ القيمة الوحيدة التي توجد فيه وارسل لي هذه القيمة

سامحني على التأخير

لا يوجد ملف مرفق أرجوا رفعه وانا من يعتذر لاني تعبتك معي

شكرا

يوليو 23, 2016

7 دقائق مضت, سليم حاصبيا said:

جرب هذا الملف

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

مع عدم تكرار الاسم

Refresh_By_Names.rar

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

سؤال: هل يمكن توسيع الجدول ليصبح قادرا على تقبل الآلاف من الأسماء فهو حاليا لا يقبل سوى 30 فقط

وشكرا لك

يوليو 23, 2016

47 دقائق مضت, محي الدين ابو البشر said:

السلام عليكم

أخي العزيز

بكل سرور

هل يمكن أن ترسل لي رقم (motherboard s/n) خاصتك لأجهز لك الملف بشكل نهائي

تفضل: CB30653996

شكرا جزيلا لك على المتابعة

يوليو 23, 2016

السلام عليكم

أعرف انه يوجد عدة طرق لتلخيص الجدول مثل دالة Subtotal ولكن تتطلب ان استعملها بعد كل تعديل للجدول الخام

و طريقة Pivot Table التي تعطي ملخص للجدول الخام و لكن أضطر لتحديث البيانات بعد كل تعديل للجدول الخام

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

شكرا لكم مسبقا

يوليو 23, 2016

14 ساعات مضت, أبوعيد said:

وعليكم السلام

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

بالنسبة لسؤالك في الأعلى

أقول نعم يوجد , أقرأ هذا الموضوع

تحياتي

بارك الله فيك أخي الكريم على الرابط الذي وجهتني إليه و الطريقة الموجودة بالرابط شبيهة بما أريده جزئيا

14 ساعات مضت, محي الدين ابو البشر said:

السلام عليكم

ائراءً للموضوع كما يقال هنا

إليك المرفق

يحتوي ملف اكسل بالاضافة إلى مصف يجتوي ملف نصي الذي يجب وضعه في السواقة او الدرايف c

عندها ملف اكسل سوف يعمل بشكل طبيعي على الكمبوتر الذي يحتوي في المسار c:\temp\names.txt وذا تم نسخ الملف إلى كمبيوتر اخر سوف يغلق بمجرد فتحه

اتمنى أن تعجبكم هذه الطريقة

بالمناسبة يمكن التعديل على هذا بالاعتماد على رقم اللوحة الرئيسية للحاسب (motherboard s/n) اذا احببت خذخ الطريقة يمكن ان ارفق الحل الآخر

officena.rar

بارك الله فيك أخي الكريم الطريقة ناجحة بالمرفق الثاني

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

تسجيل الدخول

المنتدى

مكتبة الموقع

معرض الصور

المدونات

الوسائط المتعددة

مشاركات المكتوبه بواسطه عــزيــز

Important Information