أبو عبد الملك السوفي قام بنشر نوفمبر 25, 2015 قام بنشر نوفمبر 25, 2015 السلام عليكم ارجوا ممن يطلع على ه>ا الموضوع ويملك اوفيس 2007 ان يجرب هذا الملف فيدخل لصفحة التقرير الشهري ويضغط ايقونة run ويخبرني هل العمودين m l تم استدعاؤهما ام لا ويحبذا لو يرفق صورة للنتيجة لاني اعمل مع الاستاذ القدير العيدروس على كود لكنه الظاهر انه يعمل في اوفيس 2007 ولا يعمل في 2010 ولم نعرف السبب هذا رابط الملف http://www.up-00.com/?nQVL وهذا رابط الموضوع لمن اراد المشاركة في الحل http://www.officena.net/ib/topic/64859-%D8%AA%D8%B9%D8%AF%D9%8A%D9%84-%D9%83%D9%88%D8%AF-%D8%A7%D9%84%D8%A3%D8%B3%D8%AA%D8%A7%D8%B0-%D9%8A%D8%A7%D8%B3%D8%B1/?page=2#comment-423947 جزاكم الله كل خير
الـعيدروس قام بنشر نوفمبر 25, 2015 قام بنشر نوفمبر 25, 2015 اخي ابو عبدالملك نصب البرنامج الذي في المرفقات البرنامج لتسجيل الشاشه فيديو وافتح الملف الذي في المشاركه ع الرابط http://www.officena.net/ib/topic/64859-تعديل-كود-الأستاذ-ياسر/?do=findComment&comment=423789 وارفق الفيديو هنا بعد ضغطه Recor_Scren.rar
ياسر خليل أبو البراء قام بنشر نوفمبر 25, 2015 قام بنشر نوفمبر 25, 2015 الملف يعمل على أوفيس 2007 ... أخبرتك من قبل أن التعديل على الأكواد سيكون صعب ..لقد نسيت التعامل مع ملفك بشكل كبير ولذلك وجدت صعوبة في متابعة الموضوع .. لما لا يتم عمل المطلوب في كود منفصل عن الكود الأصلي طالما أن الكود الأصلي يعمل بشكل جيد لديك ..مجرد اقتراح أخي أبو نصار ..يرجى شرح الدوال المعرفة في الحل المقدم من قبلك لمعرفة كيفية الاستفادة منها مستقبلاً تقبلوا تحياتي
أبو عبد الملك السوفي قام بنشر نوفمبر 25, 2015 الكاتب قام بنشر نوفمبر 25, 2015 السلام عليكم أستاذ ياسر لا مانع من عمل كود منفصل لكم ما سبب عدم عمله على 2010 استاذ العيدروس صانصب البرنامج جزاكم الله كل خير وابعد عنكم كل شر
الـعيدروس قام بنشر نوفمبر 25, 2015 قام بنشر نوفمبر 25, 2015 شرح تنصيب البرنامج والعمل عليه فيديو و 3 صور خطوات لإخراج ملف فيديو شرح_3.rar الاخ الحبيب ياسر خليل ابو البراء ان شاء الله سيتم شرح الدوال وارفاقها في المشاركه السابقه
الـعيدروس قام بنشر نوفمبر 25, 2015 قام بنشر نوفمبر 25, 2015 اذا كان في جزء من الكود غير متوافق مع اللغه عندك سيظهر رسالة خطاء وحسب ماشفت بالفيديو لم يظهر اي رسائل خطاء عموما انسخ السطر التالي والصقه واتبع الطريقة في الفيديو المرفق Debug.Print Ali_C(CStr(.Cells(I, 22)), CStr(.Cells(I, 3)), 1) وقبل تنفيذ الكود اضغط "Ctrl+G" وانت في واجة الفيجول ثم نفذ الكود بالضغط على علامة المربع التي في واجهة الفيجول وشوف هل ستظهر النتائج في مربع الايميديت شرح_4.rar
أبو عبد الملك السوفي قام بنشر نوفمبر 25, 2015 الكاتب قام بنشر نوفمبر 25, 2015 السلام عليكم ساجرب واخبرك بالنتيجة
أبو عبد الملك السوفي قام بنشر نوفمبر 25, 2015 الكاتب قام بنشر نوفمبر 25, 2015 ألا يوجد حل استاذ العيدروس كاستبدال الكود بآخر او فصله عن كود الاستاذ ياسر
الـعيدروس قام بنشر نوفمبر 25, 2015 قام بنشر نوفمبر 25, 2015 اذهب الى الدالة التاليه في الكود Private Function Ch_Month(Mn As String) Dim Mm& Dim Tn$, X$ For Mm = 1 To 12 Tn = MonthName(Mm) If Tn = Trim(Mn) Then Mm = Mm - 1 X = MonthName(Mm) Exit For End If Next If Mm Then Ch_Month = X End Function واستبدلها بهذا التعديل Private Function Ch_Month(Mn As String) Dim Im, Tn, X Dim Ar On Error GoTo 1 Ar = Array("يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليو", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") For Im = 0 To UBound(Ar) Tn = Ar(Im) If Tn = Trim(Mn) Then Im = Im - 1: X = Ar(Im): Exit For Next Im Ch_Month = X 1 End Function اضن السبب تسمية الاشهر لديك ربما تكون بالفرنسية في الـ VBA 2
أبو عبد الملك السوفي قام بنشر نوفمبر 25, 2015 الكاتب قام بنشر نوفمبر 25, 2015 الحمد لله الحمد لله الحمد لله وأخيرا نجح الكود يجب ان نقيم وليمة لاعضاء المنتدى شكرا استاذ العيدروس اتعبتك والله جعلها الله في ميزان حسناتك بوركت وبورك علمك 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.