deebsagheer

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

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

الرجاء المساعده في المطلوب كما هو موضح بالملف المرفق مع الشكر المصنف7.xlsx

شكرا جزيلا لاهتمامك لكن انا الحمد لله حليت المشكله و كانت متمثلة في اعدادات لغة الكمبيوتر التي لم تكن تدعم اللغة العربية هل هذا الكود يوضع في بداية أكواد كل اليوزر فورم ام مرة واحده

اتفضل فقط كان الملف كبير و لا يمكن تحميله فقمت بتصغير مساحته بحذف بعض اوراق العمل rent.xls

لدي ملف به أكواد فيجوال بيسيك يعمل على ويندوز 8 بشكل ممتاز و عند فتحه على جهاز به ويندوز 10 يتم حذف مشروع فيجوال بيسيك الموجود و يظهر أسماء الأوراق المكتوبه بلغة عربيه كرموز غير مفهومه و يعطي عند الفتح رسالة name conflicts with existing module ,project, or object library ثم اذا وافقت تظهر رسالة عثر اكسيل على محتوى غير قابل للقراءة في الملف هل تريد استرداد محتويات هذا المصنف؟ اذا كنت تثق بمصدر المصنف انقر نعم. فيتم اظهار بيانات الملف لكن مع رسالة جديده بها مشروع فيجوال بيسيك مفقود فقط عناصر تحكم actives

المشكلة أن الملف على كمبيوتر يستخدم ويندوز اصدار 32 بت و إذا نقلت الملف على كمبيوتر يستخدم ويندوز اصدار 64 بت فإنه يتم حذف الأكواد تلقائيا و لا تظهر شاشة VBA

المشكله كما عرضت في هذه المشاركه يبدو ان نظام الويندوز 32 و عندما نقلت الملف على نظام ويندوز 64 ظهرت هذه المشكله

واجهتني نفس المشكله فما هو الحل افادكم الله

السلام عليكم لدي ملف اكسيل 2007 يعمل بأكواد فيجوال بيسيك و عند فتحه باستخدام اكسيل 2016 لا تعمل الأكواد. أرجو المساعده في حل المشكله و لكم التحية و الشكر

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

الإخوه الأعضاء السلام عليكم و رحمة الله و بركاته أرجو تعديل الكود بالملف المرفق حتى يعمل بصورة صحيحه و لكم الشكر مقدما تجربه.rar

في الرئيسيه اجعل الخلايا A1 A2 A3 A4 تمثل هايبر لينك لكل ملف تريد فتحه تلقائيا بمجرد فتح الملف الرئيسي ثم اكتب هذا الكود في الصفحة الرئيسية للملف الرئيسي thisworkbook Private Sub Workbook_Open() Range("A1").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Range("A2").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Range("A3").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Range("A4").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True End Sub

http://www.officena.net/ib/index.php?showtopic=52482

أطلب من الأستاذ عبد الله با قشير المحترم أن يلبي طلبي هذا على الفورم المقدم منكم على هذا الرابط http://www.officena.net/ib/index.php?app=core&module=search&do=search&fromMainBar=1 الطلب: أريد إضافة زر لعرض الصوره الظاهره مكبره كما تظهر في برامج مستعرض الصور حيث أنها ممكن أن تكون صورة عقد مثلا و تحتاج إلي تكبير لقراءة البنود. و لكم الشكر الجزيل مقدما