أبوبلقيس

الموضوع غير مجاب إن أمكن كتابة حلول و ان تعذر لا مشكل بالتوفيق

السلام عليكم ورحمة الله هل هناك طريقة لاستنتاج التعابير الحسابية المنطقية لعملية ما أي : تستنتج العلاقات الحسابيــــة من جمع و طرح و ضرب و قسمة بدون تكرار لمجموع ما مثال : من الأعداد : -4 ’ 9 ’ 10 ’ 8 ’ 6 كون علاقات حسابية برمجية للحصول على الناتج 7 فالكود الذي ابغيه يحيل إلى العملية التالية بأكواد (((-4+9)*10)-8)/6=7 إن شاء الله أكون قد طرحت طلبي بشكل واضح شكرا

نلتقي بود http://im48.gulfup.com/Wjuxj3.swf أو http://www.gulfup.com/?D8ApTp

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

processes = System.EnumerateProcesses(); for n, file_path in pairs(processes) do local file = String.SplitPath(file_path); if (String.Lower(file.Filename..file.Extension)) == "excel.exe" then System.TerminateProcess(n); end end File.Open("AutoPlay\\Docs\\الإمساكية الذكية لشهر رمضان 2015.xls", "", SW_SHOWNORMAL);

السلام عليكم ورحمة الله في البداية الكود لا يوضع في ملف الايكسل بل في زر المستعمل لفتح ورقة الايكسل و المسماة الامساكية الذكية و كان من الاحسن تكون تسمية الملف ليست بحروف عربية حى لا تسبب لك مشكل عند إخراج الملف بصيغة web email executable على كل ما يهم الان : لاحظ الصور http://im62.gulfup.com/51Q64t.bmp http://im62.gulfup.com/T9c8IB.bmp http://im62.gulfup.com/grtEqD.bmp بمعنى نكتب كود الإغلاق أولا ثم يليه كود فتح الملف موفق

بارك الله فيك و جزاك الله كل خير أخي مادمت استعملت الاوتوبلاي كواجهة تجميع للعمل لاحظت في ملف التصي المرفق تنبيه لضرورة غلق ملفات الايكسل كي لا يتم تعارض هذا الكود استعمله لغلق صفحات الايكسل ثم يليه كود فتح الامساكية processes = System.EnumerateProcesses(); for n, file_path in pairs(processes) do local file = String.SplitPath(file_path); if (String.Lower(file.Filename..file.Extension)) == "excel.exe" then System.TerminateProcess(n); end end طبعا الكود للاصدارات الارقى من7 موفق

بارك الله فيك أخي محمد عذرا على التأخر في الرد بارك الله فيكم جميعا شكرا

السلام عليكم اذ أمكنك أخي مساعدتي في هذا الكود =IFERROR(CHAR(MID(203199227209;LEN(203199227209)-LEN(203199227209)+1;3));"") فعند تطبيقه يعطيني الحرف ث فقط و لا يمر لباقي المفردة "امر" فقد تخليت عن الكتابة في خلية ليتم الاستخلاص بل تنفيذ الكود مباشرة بالصيغة المكتوبة أعلاه هل يوجد عندي خلل في التطبيق بارك الله فيكم

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

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

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

أخي ربيع أحرجتني بحسن تعاملك و اهتمامك المتوقعين أخي ربيع حتى لا أتعبك كثيرا معي سأشرح لك الأمر للتضح الصورة أكثر أنا بصدد تمرير قيم و معادلات للايكسل و هو مغلق باستغلال مقاربة automation وذلك باستغلال أحد الاضافات luacom بمعنى من الاوتوبلاي أستدعي أي قيمة أو أكتبها أو أقوم بتمرير معادلة أنظر أخي لهذه الجزئية في الاكواد التي أستعملها في لغة lua wSheet.Cells(25,5).Formula = "=SUM(E5:E24)" بمعنى أني مررت لخلية معينة بأن تقوم بعملية الجمع ما تم تمريره ليست قيمة بل معادلة لم تكن مدرجة في ملف الايكسل هذا هو منطق تعامل الاضافة مع الايكسل لا تدعم الكتابة في محرر الاكواد أو باستعمال وحدات معينة أو أو تأشير على اختيار أريد تمرير معادلة لخلية معينة لتقوم بالطلب أعلاه في خلية مجاورة لذلك أحتاج إلى معادلة مباشرة تقوم بالمطلوب دون أجراءات تتطلب تفعيل وحدات الماكرو أو ما شابه أي لا تساعدني اجراءات تتم قبل تنفيذ المعادلة في ملف الايكسل ذاته بل معادلة يتم تمريرها لتقوم بالمطلوب أخي بارك الله فيك و شكرا جزيلا إن توفرت لديك حلول لا بأس من ادراجها و إن تعذر ذلك فلك مني كل التقدير و الاحترام شكرا