احمد زعل

السلام عليكم و رحمة الله و بركاته أخواني أرجوا أن تكونوا في تمام الصحة و العافية وبعد.. لقد واجهتني مشكلو مؤخرا و هي كيفية حذف أطار معين و أعادة ترتيب العناصر بعد حذف ذلك الفورم ... حيث الفكرة تكمن أن المستخدم يقوم بأدراج مجموعة من الطلبات على شكل أطار حيث كل طلب يمثل طلب و لكن قد يرغب المستخدم في حذف طلب رقم 2 أي أطار رقم 2 فكيف يتم ذلك مع اعادة ترتيب العناصر أي الطلبات مرة أخرى بشكل مناسب.... في المرفق مثال توضيحي.... أرجوا المساعدة و شكرا لكم... New Microsoft Office Excel Worksheet (3).rar

شكرا لك كثيرا أخي بالفعل لقد نجح و أصبحت المكتبة متوافرة داخل references وأسم المكتبة الناقصة هي MSCAL.OCX أصبح التطبيق يعمل بشكل رائع و لكن بعض الاحيان تخرج لي رسالة التالية compiler error in hidden module . frmcalender2 this error commonly occurs when code is incompatible with the version,platform or architecture of this application وشكرا لك أخي مرة أخرى على تعاونك وجزاك الله كل خير

أولا أشكرك أخي جدا على اهتمامك ثانيا حاولت أن أبحث على الانترنت ووجد أن كان لدي widows 7 64 bit فيجب وضع الملف داخل المجلد c:\Windows\SysWOW64\ ولكن عندما قمت بتشغيله أعطاني هذا الخطا "the module c:\Windows\SysWOW64\comdlg32.ocx was loaded but the call to DllRegersterServer faild with error code 0×8002801c."

أخي الكريم شكرا لك على الرد وقمت بتحميل الملفات من الانترنت و لكن عند الدخول الى Run ووضع المسار التالي regsvr32 %Systemroot%\System32\comdlg32.ocx تظهر لي رسالة التالية :

باتلنسبة للاصدار هو 2010 والمشكلة ظهرت عندما قمت بوضع الملف على server ومن ثم إعادة الملف الى جهازي Windows 7 مع العلم أن تطبيق مخفي و أن المستخدم يقوم بالتعامل مع forms مياشرة دون النظر الى التطبيق أي دون النظر الى Sheet وتبداء المشكلة بالظهور عند إدخال قيم الى داخل sheet المخفي من خلال form الادخال حيث أن الملف يعمل بشكل جيد على جهازي و لكن عن\د نقله الى server ومن ثم إعادة الى جهازي تبداء المشكلة بالظهور وانا أعتذر بشدة لا أستطيع أن أرفق الملف لانه يحتوي معلومات ضرورية و غاية بسرية للشركة وشكرا لكم

السلام عليكم أخواني لدي مشكلة و هي عند تشغيل ملف الاكسل تظهر الرسالة التالية وخاصة عند تشغيل VBA Automation Error: Object has disconnected from its client أرجوا من يملك الحل أن يساعدني و شكرا

شكرا أخي لكن أتوق المشكلة من object الموجودة داخل references ولكن لا أعرف ماهو الكائن المفقود

السلام عليكم أخواني أرجوا المساعدة حيث لدي ملف أكسل يحتوي على Forms و عند نقله الة أجهزة أخرى تظهر الرسالة التالية could not load object because it is not available on this machine ما هو الحل المناسب أرجوا المساعدة..............

السلام عليكم و رحمة الله و بركاته أخواني أريد أن أستشير أهل الاختصاص و الخبرة هنا بشكل خاص و الجميع بشكل عام الموضوع يتعلق بدراسة في الجامعة حيث أنهيت دراسة تخصص نظم معلومات أدارية و أطمح أن أتابع دراسات عليا فسؤال هو أولا : هل هذا التخصص مطلوب في السوق (علما أني أعمل في الوقت الحالي محلل بيانات و معلومات ومطور لبعض البرامج عند الطلب) أنا أشاهد خريجيين لهذا التخصص لا يملكون وظائف ؟ ثانيا : ماذا تنصحوني أن أتابع دراسة ( في مجال الحاسب ) أو (في مجال الادارة) ؟ ثالثا : هل يوجد شهادات لمايكروسوفت حول المسمى الوضيفي ( محلل أعمال) ؟ وشكرا لكم جميعا

مشكور أخي

جزاك الله خيرا

السلام عليكم و رحمة الله و بركاته أخواني لدي سؤال حول الخاصية END بصراحة حاولت أفهم مبداء عمل هذه الخاصية و ولكن لدي أستفسار بسيط وهو أذا أفترضنا أننا نملك الكود التالي range("A1").end(XLdown).row و كانت جميع الحقول فارغة فان الناتج هو 1048576 ولكن أذا كان هنالك قيمة في A2 فأن الناتج هو 2 إذا كان حقل A1 يحتوي قيمة و A2 لا يحتوي فإن الناتج هو 1048576 و سؤال هو حول الحالة الاخيرة لماذا الناتج الخارج هو 1048576 ما دام ان اخر خلية مستعملة أو تحتوي قيمة هي a1 يعني لازم يكون الناتج هو 1 وشكرا

لا شايف صورة و الملف المرفق فارغ أخي أرفق الفورم

شكرا لكم لقيت الحل لازم عرفت المتغير بنوع variant

مرحبا أخواني لدي مشكلة في عمل كود شرطي بأسيتخدام evaluate الكود هو Dim x As Integer x = Workbooks.Application.Evaluate("=IF(A1 = A2,""ahmad"",2)") MsgBox x حيث أن الكود لا يعمل مع أني قراءت مواضيع كثيرة على الانترنت و لم أجد ما اريد أرجو مساعدتي