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

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


 
الرئيسيةأحدث الصورالتسجيلدخول

 

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

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




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

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

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

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

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

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

اليوم لديك مشروع ما , هذا المشروع مقترن بورقة ايكسل
كأن يكون مثلا كتابة بيانات في عناصر الاوتوبلاي لتنقل هذه البيانات
للايكسل
نأخذ مثالا مبسطا
لدينا أنبوت بحيث لما نكتب اسم الطالب فيه باللغة العربية
ينقل هذا الاثر الكتابي مباشرة لورقة الايكسل و ليكن في الخلية 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

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