اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

الساده الاعضاء

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

هل من طريقة لعكس محتويات خليه

ملف( ب د اف ) بياناته بالعربي تم تحويله الي شيت اكسيل

ظهرت البيانات بالصوره      ةﺮھﺎﻘﻟا ﺔﻈﻓﺎﺤﻣ مﺎﻋ ناﻮﯾد ح.و

هل توجد طريقه لاعاده بيانات الخليه لتظهر بالصوره

و . ح ديوان عام محافظة القاهره

 

قام بنشر

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

بالفعل مشكلة اللغة العربية قائمة منذ زمن فى كل ما يخص الحاسب الآلى فنجد صعوبة شديدة فى تحويل تنسيقات الملفات عندما تتعلق الأمور بلغتنا العربية لا أدرى لماذا ؟ هل السبب منا ؟

عندما يتم تحويل ملف PDF 

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

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

قام بنشر

الاستاذ / علاء رسلان

شاكر اهتمامك

بالبحث في الشبكه وحدت هذا الكود لكنه لا يعمل بكفأئه

حيث ان هناك بعض الحروف تتقدم في الترتيب علي البعض

مما لايعطي نتيجه سليمه 100%

  • Function ReverseCell(Rcell As Range, Optional IsText As Boolean)
    
    	Dim i As Integer
    
    	Dim StrNewNum As String
    
    	Dim strOld As String
    
    
    
    	strOld = Trim(Rcell)
    
    
    
    	For i = 1 To Len(strOld)
    
    		StrNewNum = Mid(strOld, i, 1) & StrNewNum
    
    	Next i
    
        
    
    	If IsText = False Then
    
    		ReverseCell = CLng(StrNewNum)
    
    	Else
    
    		ReverseCell = StrNewNum
    
    	End If
    
    End Function
  • هل من تصحيح للكود
قام بنشر

الشكر لله أخى و أستاذى أحمد أبو زيزو

جرب هذا الرابط أخى الكريم

http://omar84.com/docs/taw/arabic_writer.html

لعل و عسى يساعدك فيما تريد ، ستتعامل معه ببساطة ستضع النص فى input

ثم تضغطت

Process input

ان شاء الله تحصل على نتيجة مرضية .

  • Like 1
قام بنشر

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

دمت بخير و أعزك الله .

قام بنشر (معدل)

اخوانى السلام عليكم

الدالة ReverseCell  احدى الدوال المدمجة فى الأفيس تؤدى هذا الغرض

موجودة فى أوفيس 2010 فما فوق ولا أدرى أن كانت فى 2007 أو 2003

 

الكود الذى قدمه أخى علاء يعمل وهو لنفس الدالة ReverseCell

ويعتبر هنا دالة  من النوع UDF يستعملها اللى ما عندوش الدالة المدمجة  كأصحاب أوفيس 2003 مثلا

 

سؤال لأخى أحمد أبوزيزو : ازاى حولت ملف الــ PDF  الى اكسل 

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

 

ملحوظة صغيرة أرجو أن تتقبلوها بصدر رحب : كلمة  محتوايات  خطأ والصواب محتويات

وأطلب من الإدارة المراجعة والتصحيح .

 

هذا المرفق التالى تطبيق للدالة

عكس محتويات الخليه.rar

تم تعديل بواسطه مختار حسين محمود
  • Like 1
  • Thanks 1
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information