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 الطلب: أريد إضافة زر لعرض الصوره الظاهره مكبره كما تظهر في برامج مستعرض الصور حيث أنها ممكن أن تكون صورة عقد مثلا و تحتاج إلي تكبير لقراءة البنود. و لكم الشكر الجزيل مقدما

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

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

إستخدم Advanced filter

أخي العزيز يمكنك استخدام النموذج الموجود في هذا الرابط كنموذج اخال بيانات و تعديل و بحث فهو من أعمال الأخ عبد الله با قشير http://www.officena.net/ib/index.php?showtopic=43782

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

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

الإخوة الأفاضل السلام عليكم و رحمة الله و بركاته المطلوب أولا: من قائمة التحقق من صحة البيانات أريد عدم قبول إدخال أية بيانات في الخلية و تقبل فقط إدراج إرتباط تشعبي. ثانيا: في مشاركة سابقه استطاع الزميل الأخ أحمد عبد الناصر أن يساعدني بهذا الكود بعد اضافه بسيطه مني علي الكود If TextBox18.Text = "" Then MsgBox ("لا توجد صوره") Unload Me Else: For Each photo In Sheets("البيانات").Hyperlinks If photo.TextToDisplay = TextBox18.Text Then photo.Follow Exit For End If Next End If و الكود يعمل بشكل جيد إلا أني أريد أن أضيف شرط على جملة الشرط الاولي و هو أن محتوي TextBox18.Text اذا كان فارغا أو نص عادي يخرج من الفورم و إذا كان ارتباط تشعبي يكمل الكود. أرجو أن يكون طلبي واضح و لكم الشكر مقدما. ارتباط تشعبي متغير في نموذج+-.rar

الإخوه الأفاضل هل يمكن منع إدخال أي بيانات بخلية إكسيل و قصر إستخدام الخليه على الارتباط التشعبي فقط؟ و كيف؟ و إذا كان لدي هذا الكود لإظهار الصوره فكيف لو كانت TextBox18.Text تحتوي على نص و ليس فراغ أو ارتباط تشعبي فكيف أضيف شرط أن يكون التكست ارتباط تشعبي حتى تعمل جملة for If TextBox18.Text = "" Then MsgBox ("لا يوجد صوره") Unload Me Else: For Each photo In Sheets("data").Hyperlinks If photo.TextToDisplay = TextBox18.Text Then photo.Follow Exit For End If Next End If أرجو أن أكون قد أوضحت طلبي ملحوظه هذا الكود من أعمال أحد الأعضاء الأفاضل بعد عمل تعديل بسيط عليه

أنا فعلا استخدمت هذه الطريقه قبل ارسال الطلب و اشتغلت عالملف المرفق لكن عندما اطبقها على ملفي يحدث خطأ و يظلل سطر If h.TextToDisplay = TextBox18.Text Then في محرر الاكواد

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