رقم الفاتوره

[الشيباني1]

اخواني الاعزاء تحية طيبه في المرفق نموذج لفاتورة اتساءل عن امكانية احلال رقم الفاتوره محل اسم الملف (book 1 )في اعلى يمين الملف ويتغير تباعا" لغرض حفظها بهذا الرقم بعد طباعتها مع الامتنان

Book1.zip

[طارق محمود]

السلام عليكم

أخي الكريم

تفضل المرفق

بعد طباعة الفاتورة

(1) إضغط الزر الأخضر

سيتكون رقم الفاتوره أوتوماتيكيا في الخلية A1

وسيكون عبارة عن رقم من 8 خانات تحتوي التاريخ والوقت

مثلا 12100703 تعني 12 أكتوبر الساعة 7:03 صباحا

أي بصيغة ddmmhhmm

(2) ثم إضغط الزر الأحمر

لحفظها بنفس الرقم الموجود في الخلية A1

وممكن إضافتهما معا في زر واحد طبعا

لكني فضلتها هكذ للتوضيح

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

12101201.rar

تم تعديل أكتوبر 12, 2010 بواسطه TareQ M

[الشيباني1]

استاذي العزيز حل بديع ورائع ولكن زر الحفظ لا يحفظ واتساءل عن امكانية استبدال التاريخ والوقت في الخليه (A1) برقم الفاتوره الموضح في الخليه (I8) مع شكري وتقديري

[طارق محمود]

زر الحفظ يعمل جيدا

عملت تعديل بسيط في الماكرو

الكود أصبح سطر واحد

Sub save_file()

 ActiveWorkbook.SaveAs Filename:=[I8].Value & ".xls" 

End Sub

جرب مرة اخري مع هذا المرفق

4.rar

تم تعديل أكتوبر 12, 2010 بواسطه TareQ M

[الشيباني1]

استاذنا العزيز اشكرك وجزاك الله كل خير وطلب اخير باذن الله ان يتم الحفظ في الملف التالي :F:\Invoices مع الامتنان

[طارق محمود]

غير فقط السطر الوحيد في الكود

من

ActiveWorkbook.SaveAs Filename:=[I8].Value & ".xls"

إلي

 ActiveWorkbook.SaveAs Filename:="F:\Invoices\" & [I8].Value & ".xls"

[الشيباني1]

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

[طارق محمود]

هل بالامكان حفظ الفاتوره كصوره ؟

طبعا يمكن بأكثر من وسيلة

أول وسيلة إضغط زر PRINT SCREEN

ثم إعمل لصق او Past في ملف آخر حتي ولو لم يكن إكسل

ثم قصقص وضبط قبل الحفظ

وسيلة اخري أن تطبعها عل طابعة وهمية WIindos-Image غالبا ماتكون موجودة بنظام الويندوز

[الشيباني1]

استاذي العزيز مع اعتذاري على هذه الاطاله ، هل بالامكان التعديل على كود الحفظ ليحفظ الفاتوره كصوره فقط ؟ مع تقديري

[الشيباني1]

استاذنا العزيز معذرة على الالحاح ولكن الحاجة ملحه لكود من اياديكم الكريمه لحفظ المدى (b2:j46) من الفاتوره كصوره وبرقمها الذي تتضمنه في ملف اسميته (f:\ invoices) لما لذلك من فائدة للعمل من حيث الترتيب والحجم مع شكري وتقديري

[طارق محمود]

السلام عليكم

مؤقتا نزل البرنامج لو غير موجود عندك

من الرابط

http://explore.live....-live-writer-xp

مع إختيار مايناسبك لو الويندوز ليست XP

ثم شغل البرنامج وليس من الضروري تشغيل باقي الأجزاء غير الرايتر

أنظر الصورة

وإلي لقاء غدا

[الشيباني1]

استاذنا العزيز تحية طيبه كنت قد وعدت بحل اتمنى ان يكون المؤخر خيرا" ان شاء الله مع تقديري وشكري

تم تعديل أكتوبر 18, 2010 بواسطه TareQ M

[طارق محمود]

السلام عليكم

من خلال البحث في بعض المواقع الأجنبية

وجدت إمكانية تحويل الرسم البياني بالإكسل Chart إلي صورة بامتداد gif

عن طريق كود بسيط نسبيا

وفي هذا ميزات كثيرة أهمها

(1) صغر حجم الصور

(2) لاداعي لتنزيل برامج تحويل إلي صور

تفضل المرفق وبه زر أخضر لتحويل المجال المطلوب إلي صورة

4.rar

[الشيباني1]

السلام عليكم

من خلال البحث في بعض المواقع الأجنبية

وجدت إمكانية تحويل الرسم البياني بالإكسل Chart إلي صورة بامتداد gif

عن طريق كود بسيط نسبيا

وفي هذا ميزات كثيرة أهمها

(1) صغر حجم الصور

(2) لاداعي لتنزيل برامج تحويل إلي صور

تفضل المرفق وبه زر أخضر لتحويل المجال المطلوب إلي صورة

استاذنا العزيز مع تقديري واعجابي بكل ما تقدم في المنتدى من حلول وافكار لم اجدها حتى في المنتديات الاجنبيه ، لدي بعض الاستفسارات حول الرد الاخير :

1- لم اجد الورقة المسماة (TAREQ)ضمن اوراق الملف ولا حتى المخفيه .

2- لم اجد في الكود اية اشارة الى ملف الحفظ (f:\INVOICES )لغرض تغييره بعد ان دعتني الحاجة الى ذلك .

3- الصورة الناتجه عن الكود رائعه وذات حجم رائع .

ارجو شاكرا" فضلكم اسعافي وتوجيهي لاتمام الموضوع لحاجتي الماسة الى النتائج مع امتناني

[طارق محمود]

السلام عليكم

أخي الكريم

1- لم اجد الورقة المسماة (TAREQ)ضمن اوراق الملف ولا حتى المخفيه .

من محرر الفيجوال بيزيك دائما تجد جميع الشيتات بحالاتها الثلاث المخفية جدا والمخفية والظاهرة

إضغط F4

وقف علي الشيت TAREQ ثم غير حالته من مخفي جدا إلي ما تريد

أنا فضلت ان أخفيه حتي لايغير أحد شيء ، مقاس الصورة مثلا

2- لم اجد في الكود اية اشارة الى ملف الحفظ (f:\INVOICES )لغرض تغييره بعد ان دعتني الحاجة الى ذلك

في السطر الثالث من الأسفل من الكود الثاني

يوجد أمر يجعل مسار الصورة هو نفس مسار الملف

FName = ThisWorkbook.Path & "\" & a & ".gif"

عندي مشكلة في رفع الملفات عالموقع

أنظر الصورة في الرابط التالي

http://www.4shared.com/photo/7ahGdCZ6/tofimoon.html

[الشيباني1]

استاذنا العزيز مع تقديري لكل ابداعاتك ارجو ارشادي الى كيفية حفظ القائمه في المسار المطلوب وهو (F:\invoices)حيث ان الكود يحفظها في الملف المحدث (TAREQ) مع الامتنان

[طارق محمود]

غير فقط السطر الثالث من الأسفل من الكود الثاني

من

 FName = ThisWorkbook.Path & "\" & a & ".gif"

إلي

 FName = "F:\Invoices\" & a & ".gif"

[الشيباني1]

رائع بكل معنى الكلمه جزاك الله خير الجزاء وادامك الرحمن لنا مرجعا

[الشيباني1]

استاذنا العزيز عند تطبيق التغيير (مسار الحفظ ) على المثال المرفق اليكم لم تظهر اية مشكلة ولكن بعد نسخ الكود الى الملف الذي استخدمه وهو طبق الاصل من حيث المدى واسم الورقة وانشاء صفحة باسم (TAREQ)واجراء ما يلزم للتنفيذ لم يحفظ الجدول وظهر التعليق التالي الذي ارجو ان يكون حله بسيطا" باذن الله (Run - time is error 1004 )ثم( worksheet من الفئة chart objects لا يمكن الحصول على الخاصية )شاكرا" مساعدتكم مع الامتنان

[طارق محمود]

أولا ، لابد أن تعلم أن صورة الشيت المراد حفظها يتم تركيبها أولا علي شارت أعددتها خصيصا لهذا الغرض

ولأنها ضبطت معي من ثالث محاولة لذا فرقم الشارت 3

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

 ActiveSheet.ChartObjects("Chart 3").Activate

الإحتمال الأول للخطأ أن تكون أنشأت صفحة فاضية عادية ثم سميتها TAREQ

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

إحتمال آخر أن يكون رقم الشارت لم يعد 3

ولتلافي هذا

قف علي الشارت وانقر صورة الفاتورة ثم الغيها

ثم قف علي الشارت نفسها ، كليك يمين الماوس

ستجد أحد الخيارات Chart Window

أنقر عليه ستجد رقمها يظهر بالأعلي

مثلا ان كانت Chart 1

تغير ذلك في السطر السادس من الكود وخلاص

[الشيباني1]

استاذنا الكبير الآن وضحت الرؤيه وتم التوصل الى ما كنت اطمح اليه الكلمات تعجز عن الشكر جزاكم الله خير الجزاء وادامكم علما" لمنتدانا الرائع