الإصلاح التربوي العام
<script type="text/javascript" src="http://widgets.amung.us/tab.js"></script><script type="text/javascript">WAU_tab('6ocfj484yzd8', 'left-middle')</script>
center][/center]
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا
ادارة المنتدي

الإصلاح التربوي العام


 
الرئيسيةاليوميةس .و .جبحـثالتسجيلدخول

شاطر | 
 

 تمرير أثركتابي بالعربية للايكسل

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
حمادي 100



عدد الرسائل : 250
العمر : 41
نقاط : 7130
تاريخ التسجيل : 22/08/2014

مُساهمةموضوع: تمرير أثركتابي بالعربية للايكسل   الثلاثاء يوليو 07, 2015 7:30 am

تمرير أثركتابي بالعربية للايكسل


------------------------------------------------



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

اليوم لديك مشروع ما , هذا المشروع مقترن بورقة ايكسل
كأن يكون مثلا كتابة بيانات في عناصر الاوتوبلاي لتنقل هذه البيانات
للايكسل
نأخذ مثالا مبسطا
لدينا أنبوت بحيث لما نكتب اسم الطالب فيه باللغة العربية
ينقل هذا الاثر الكتابي مباشرة لورقة الايكسل و ليكن في الخلية a1 على سبيل المثال
--------
افتح مشروعا جديدا
نضع فيه انبوت1 وليكن Input1
نؤشر أو نعلم أو نحدد الإضافة LuaCom
نضع زر فيه نزرع الكود
الكود:

كود بلغة HTML:

        local sFilePath = _DesktopFolder.."\\belkiss.xls"
if sFilePath then
   File.Delete(sFilePath, false, false, false);
   local Excel=luacom.CreateObject("Excel.Application")
   local wBook=luacom.CreateObject("Excel.Document")
   Excel.Visible = true;
   local wBook=Excel.Workbooks:Add()
   wBook.Application.DisplayAlerts = False
   local wSheet = wBook.Worksheets(1)
   wSheet:Activate()
   wSheet:Activate()
v = Input.GetText("Input1");
d=""
for t=1,String.Length(v)do
result = String.Asc(String.Mid(v, t, t));
d=d.."CHAR("..result..")&"
end
wSheet.Cells(1,1).Formula= "="..String.Mid(d, 1, String.Length(d)-1)
wBook:SaveAs(sFilePath)
end

باعتبار أني أعمل على الاوفيس 2003 لذلك لعلك لاحظت اللاحقة xls تعامل مع اللاحقة حسب الاصدرات الملائمة
لديك
الان لنكتب في الانبوت أثر عربي أو مدمج بالارقام أو بلغة أخرى
ترى هل انتقل هذا المحتوى الى ورقة الايكسل؟
نلتقي بود
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
تمرير أثركتابي بالعربية للايكسل
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الإصلاح التربوي العام :: **** البرامج المشروحة-
انتقل الى: