اذهب الي المحتوي
أوفيسنا

deebsagheer

02 الأعضاء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    71

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

مشاركات المكتوبه بواسطه deebsagheer

    حذف أكواد فيجوال بيسيك عند فتح ملف اكسيل على ويندوز10

    في منتدى الاكسيل Excel

    قام بنشر

    شكرا جزيلا لاهتمامك

    لكن انا الحمد لله حليت المشكله و كانت متمثلة في اعدادات لغة الكمبيوتر التي لم تكن تدعم اللغة العربية

    هل هذا الكود يوضع في بداية أكواد كل اليوزر فورم ام مرة واحده 

    حذف أكواد فيجوال بيسيك عند فتح ملف اكسيل على ويندوز10

    في منتدى الاكسيل Excel

    قام بنشر

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

    ثم اذا وافقت تظهر رسالة عثر اكسيل على محتوى غير قابل للقراءة في الملف هل تريد استرداد محتويات هذا المصنف؟ اذا كنت تثق بمصدر المصنف انقر نعم.

    فيتم اظهار بيانات الملف لكن مع رسالة جديده بها مشروع فيجوال بيسيك مفقود فقط عناصر تحكم actives

    عمل هايبر لينك

    في منتدى الاكسيل Excel

    قام بنشر

    في الرئيسيه اجعل الخلايا 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

    طلب إضافه إلى موضوع فورم اضافة وبحث وتعديل مرن مع استعراض الصور (تحكم كامل بالصورة )

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه deebsagheer

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

     

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

    و لكم الشكر الجزيل مقدما

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

    طلب إضافه إلى موضوع فورم اضافة وبحث وتعديل مرن مع استعراض الصور (تحكم كامل بالصورة )

    في منتدى الاكسيل Excel

    قام بنشر

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

    http://www.officena.net/ib/index.php?app=core&module=search&do=search&fromMainBar=1

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

    و لكم الشكر الجزيل مقدما

    الاصدار الرابع : فورم اضافة وبحث وتعديل مرن مع استعراض الصور (تحكم كامل بالصورة )

    في منتدى الاكسيل Excel

    قام بنشر

    عمل جدا جميل و مفيد و أنا شخصيا استخدمته في عملي.

    لي طلب سوف يكون إضافه للعمل إذا أمكن ذلك:

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

    و لكم الشكر الجزيل مقدما. 

    عدم قبول إدخال بيانات لخلية إكسيل ما عدا إرتباط تشعبي

    في منتدى الاكسيل Excel

    قام بنشر

    الإخوة الأفاضل

    السلام عليكم و رحمة الله و بركاته

    المطلوب أولا:

    من قائمة التحقق من صحة البيانات أريد عدم قبول إدخال أية بيانات في الخلية و تقبل فقط إدراج إرتباط تشعبي.

    ثانيا:

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

     

    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

    منع إدخال أي بيانات بخلية إكسيل سوي الإرتباط التشعبي فقط

    في منتدى الاكسيل Excel

    قام بنشر

    الإخوه الأفاضل

    هل يمكن منع إدخال أي بيانات بخلية إكسيل و قصر إستخدام الخليه على الارتباط التشعبي فقط؟ و كيف؟

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

Important Information

  I accept