التصدير للإكسيل

[aidiah]

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

وعندما اقوم بتصدير ملف للإكسيل لا يمكنني التعامل مع الأرقام التي به حيث إنها تظهر بتنسيق يبدو وكأنه صورة لا يمكن التعامل معها فما الحل :

حاولت ارفاق نسخة من الملف ولم اتمكن

[يحيى حسين]

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

^{أخي الأرقام هل تظهر كا أنها نص أم انها صورة هناك فرق}

^{حاول ارفاق ملفك على رابط خارجي غذا كان حجم الملف كبير}

^{او تأكد من ضغط ملفك ثم قم بإعادة رقعه هنا}

^{==============}

^{دمتم في حفظ الله}

[aidiah]

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

^{أخي الأرقام هل تظهر كا أنها نص أم انها صورة هناك فرق}

^{حاول ارفاق ملفك على رابط خارجي غذا كان حجم الملف كبير}

^{او تأكد من ضغط ملفك ثم قم بإعادة رقعه هنا}

^{==============}

^{دمتم في حفظ الله}

الأخ العزيز يحيي :

الأرقام تظهر في صورة نص

Book111.zip

[يحيى حسين]

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

أخي يوجد عدة طرق لحل هذه المشلكة

قم بتحديد المدى او العامود ثم من التاب داتا اختر TextTocolumn و إضغط انها و ستجد ان جميع الداتا تحولت لأرقام

الطريقة الثانية

قم بكتابة الرقم 1 في اي خلية فارغة ثم اعمل كوبي له

و اذهب و حدد العمود الذي ترغب في تحويل بياناته ثم اختر لصق خاص PastSpecial ثم حدد في الجزء الوسط عملية الضرب Mutilply

و هذا كود بسيط جدا لحل هذه المشلكة

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

Sub Excel4Us()

With Selection

	.TextToColumns

End With

End Sub

او جرب هذا الكود و يقوم بعمل التحويل لكامل الجدول

Sub Excel4Us()

Dim LastR As Long

LastR = Range("a" & Rows.Count).End(xlUp).Row

Cells(15, 1).Value = 1

Cells(15, 1).Copy

Range("a2:h" & LastR).PasteSpecial , xlPasteSpecialOperationMultiply

End Sub

و لكن تذكر انه يجب عليك اعادة تنسيق الخلايا بعد ان تطبق هذه الاكواد

==============

دمتم في حفظ الله

[aidiah]

الأخ العزيز يحي

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

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

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