تنفيذ تنسيق لخلايا باكسيل

[السيد عبد الفتاح]

السادة / خبراء ومشرفي المنتدى المحترمين

تحيه طيبه وبعد

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

اخوكم / السيد عبد الفتاح

تصدير VLOOKUP.rar

[طارق محمود]

السلام عليكم

أخي الكريم

إستعمل هذا الكود

Sub adjust()


 R_N = Selection.Rows.Count




 For Each i In Selection


 If IsNumeric(i) Then GoTo 100


 Let new_i = ""


 For j = 1 To Len(i)


 	d_i = Mid(i, j, 1)


 	If Asc(d_i) > 57 Or Asc(d_i) < 49 Then d_i = ""


 	new_i = new_i & d_i


 Next j


 i.Value = new_i




 100


 Next i


 

ضعه في ملف آخر كملحق للإكسل نفسه Add-In

وليس في الملف

وتستطيع إستدعاؤه بأي حرف تحدده

ثم تظلل المجال الذي به البيانات وتجري الماكرو

تم تعديل نوفمبر 7, 2010 بواسطه TareQ M

[طارق محمود]

مرفق صورة لتوضيع كيفية عمل إلحاق

ADD-In

[السيد عبد الفتاح]

الأخ العزيز / TareQM

جزاك الله خيرا وقد تم تنفيذ الماكرو بنجاح

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

نسألكم الدعاء

Date.rar

[طارق محمود]

السلام عليكم

أخي سيد

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

Sub Adj_Date_Format()

For Each se In Selection

	se.Value = Trim(se)

	se.NumberFormat = "dd/mm/yyyy;@"

Next


End Sub

تم تعديل نوفمبر 7, 2010 بواسطه TareQ M