ريان أحمد

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

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

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

السلام عليكم عندي ورقة a4 تحتوي على كتابة مسبقة وفي نفس الوقت تحتوي على فراغات كيف أقوم بإعداد الورقة بحيث تكتب الكتابة التي في الورقة في الإكسل في الفراغات التي في الورقة المكتوبة مسبقا

للرفع

UP

UP

للرفع

للرفع

للرفع

للرفع

للرفع

السلام عليكم بارك الله فيك أخي وجزاك الله كل خير نعم هو المطلوب لكن أريد تعديل طفيف والشرح في ا لمرفق الارقام.rar

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

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

السلام عليكم لقد فعلت ما قلت ونجح الكود شكرا أستاذي وبارك الله فيك وفي صحتك وفي عملك وفي عمرك

السلام عليكم حملت الملف ولم تخرج الرسالة

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

السلام عليكم أخي شكرا على الرد لكن ليس هو المطلوب إليك المطلوب بشكل أكثر دقة عندما تستدعي موضف عن طريق رقم ويكوم مستوفي للشروط تخرج رسالة تنبيهية في ' --- MsgBox--- Private Sub Worksheet_Change(ByVal Target As Range) 'On Error Resume Next 'If Target.Address = "$C$3" Then ' If Range("c4").Value + Range("c5").Value + Range("c6").Value _ ' + Range("c7").Value + Range("c8").Value = 0 Then ' If Range("c9").Value = "ãÊÚåÏ " Then ' MsgBox "ÇáãæÙÝ ãÊÚåÏ æÛíÑ ãáÊÒã ÈÇáÃÞÓÇØ"------------------------------------أريد ضهور الرسالة في فورم بدلا منMsgBox تلقاية بدون زر ' Else ' MsgBox "ÇáãæÙÝ ÛíÑ ãáÊÒã ÈÇáÃÞÓÇØ æíáÒãå ÅÈÑÇã ÊÚåÏ" ' End If ' End If 'End If 'If Target.Address = "$C$3" Then ' If Range("c4").Value + Range("c5").Value + Range("c6").Value _ ' + Range("c7").Value + Range("c8").Value > 0 Then ' If Range("c9").Value = "ãÊÚåÏ " Then ' MsgBox "ÇáãæÙÝ ãÊÚåÏ æãáÊÒã ÈÇáÃÞÓÇØ" ' Else ' MsgBox "ÇáãæÙÝ ãáÊÒã ÈÇáÃÞÓÇØ æáßä íáÒãå ÅÈÑÇã ÊÚåÏ" ' End If ' End If 'End If End Sub

السلام عليكم الرجاء التعديل على هذا الكود في المرفق بحيث تخرج في الرسالة يوسر فورم بدلا من رسالة من الإكسل رسالة تنبيهية 4_2.rar

عمل ممتاز وعمل رائع يضاف إلى قائمة أعمالك عندي سؤال كيف يتم تغيير الصورة

فكرة ممتازة بارك الله فيك جزاك الله كل خير

كيف يستعمل هذا البرنامج

ألف مبروك وترقية مستحقة وإلى الأمام

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