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

[بكار للأبد]

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

 

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

فاتورة رقم (       )

 

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

 

 الملف مرفق

save number.rar

 

عذراً على خطأ العنوان وتم تعديل الخطأ وسامحونى فى الله

[احمد عبد الناصر]

السلام عليكم

 

جرب هذه 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [c2].Address Then
Dim N As String
For i = 1 To Len(Target)
If IsNumeric(Mid(Target.Value, i, 1)) Then
N = N + Mid(Target.Value, i, 1)
End If
Next
ActiveWorkbook.SaveAs Filename:=N, FileFormat:=56
End If
End Sub

ملاحظة : لا يأخذ الرقم بين الاقواس بل اي رقم في الخلية , لا اعلم ان كان هذا مناسب لك .

 

تحياتي

save number+saveas.rar

[بكار للأبد]

حضرتك انا ممكن أضع فعلا الرقم فى خلية منفردة واكتب كلمة (الفاتورة رقم) فى الخلية التى قبله بحيث تبدو جملة متصلة

 

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

[احمد عبد الناصر]

السلام عليكم

 

استاذ بكار ,

 

هل جربت الملف الذي ارفقته ؟!

[بكار للأبد]

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

[احمد عبد الناصر]

عدل  الخلية C2   مثلا لتصبح     فاتــــــــورة رقم (       60      )

 

 

و اعلمني بالنتيجة 

 

تحياتي

[بكار للأبد]

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

فجزاك الله كل خير وأطعمك من الجنة أشهى لحم طبر

[احمد عبد الناصر]

السلام عليكم

 

حمدا لله ان الكود قد ادى الغرض و شكرا لدعائك 

 

ويبدو اني لم اوضح كيفية عمل الملف معذرة 

 

جزاك الله كل خير وأطعمك من الجنة أشهى لحم طير

[احمد فضيله]

الاخ الحبيب الاستاذ الكبير/ احمد عبد الناصر

 

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

[احمد فضيله]

بعد اذن اخي الحبيب الاستاذ / احمد عبد الناصر

 

فقط لاثراء الموضوع يمكنك متابعة الموضوعات على الروابط التاليه :

 

http://www.officena.net/ib/index.php?showtopic=36602

 

http://www.officena.net/ib/index.php?showtopic=36678

 

 

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

 

 

[يوسف السيد]

أ:احمد ... حل رائع ولكن اريد ان اسالك عن الجملة  FileFormat:=56

فماذا يمثل الرقم 56
ولى طلب اخر اعتقد له علاقة بما اسال عنه حيث اننى اريد الحفظ ولكن كملف امتدادة XLs  يعنى ملف اكسيل عادى بلا ماكرو

[احمد عبد الناصر]

الاخ الحبيب الاستاذ الكبير/ احمد فضيله  , تقبل تحياتي

 

 

استاذ يوسف ,

 

هذا رابط فيه تفصيل لما ذكرت http://msdn.microsoft.com/en-us/library/office/ff198017.aspx

 

و كما فهمت فعند حذف FileFormat:= سيحفظ بصيغة الملف الحالية .

 

تحياتي

[يوسف السيد]

الاستاذ الفاضل : احمد عبدالناصر

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