اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كيفية عمل فورم دائرى فى الاكسيل


الردود الموصى بها

أننى أتسائل عن كيفية عمل فورم دائرى فى الاكسيل

 

وجدت طريقة على أحدى المواقع ولكنها لا تعمل ..... مرفق الملف 

 

ولى تسائل آخر كيف يمكننى التعامل مع خصائص الويندوز والملفات وأخفاء وأظهار الملفات على ويندوز 7 

من خلال أوامر الفيجوال بيزك على الاكسيل ؟؟؟؟

 

وشكرا

عمل الفورم دائرى.rar

رابط هذا التعليق
شارك

أستاذى الفاضل ابن مصر 

 

تحية طيبة وبعد ,,,,,

 

أشكر مرور حضرتك الكريم 

أنا أقصد ان يكون شكل اليوزر فورم دائرى بدلا من الشكل المربع ..... هل هذا ممكن ؟؟؟؟

 

وشكرا

رابط هذا التعليق
شارك

السلام عليكم

 

أخى ابن الملك   وعبدالله بولنوار

 

اليوزرفورم الدائرى الذى تقصده لا يوجد على حد خبرتى المحدودة

 

فهو يأخذ الشكل المربع أو المستطيل المعروف لنا جميعاً

 

أما المرفق الذى تفضل به الأخ عبدالله بولنوار فهو أصلا اليوزفورم المعروف لنا 

 

وتم ادراج صورة دائرية عليه مع تلوين الأجزاء التى حول الصوره الدائرية باللون الأبيض

 

لذلك يبدو لنا اليوزرفورم دائرياً . يعنى كده تم التحايل على الشكل ليبدو دائريأ

 

كما يمكن تحقيق ذلك أيضا بس مش من vba من قائمة insert اختر shapes وتخير الشكل الدائرى ثم اربطه بالكود الذى تريده

                                              تقبلا تحياتى

رابط هذا التعليق
شارك

اخي مختار

 

ليست الفكرة في التلوين

 

بدليل لو انك ظغطت مرتين بجنب الدائرة لا يختفي الفورم مهما اقتربت من الدائرة الا اذا ظغطت مرتين في الدائرة

 

لو كان التلوين ابض كان سيظهر لو كان شفاف كان سيختفي الفورم بمجرد الضغط مرتين بجنب الفورم

 

هذا المرفق الاصلي لصاحبه

 

 

اجعل الفورم يأخذ اي شكل تريده.rar

رابط هذا التعليق
شارك

أخى الفاضل عبدالله بولنوار

 

المرفق التالى هدية منى لك

فورم دائرى هدية لأخى عبدالله بولنوار.rar

  • Like 1
رابط هذا التعليق
شارك

لما لونت الخلفية بالاصفر ؟

 

عند تلوينها تصبح من الفورم

 

الفكرة في الكود

 

جرب حذف الكود و سترى مقصودي دون الحاجة لتغيير الخلفية

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

هنا مربط الفرس زى ما بيقولوا    و ده اللى عايزين نوصلوا واللى بيأكد كلامى

 

أن اليوزرفورم أصلا مربع أو مستطيل وتم التحايل باللون الأبيض الشفاف

 

ولو لاحظت الكود التالى  مديول 1

Public Function Rabie_Sk(uf As Object, colors As Variant, Optional Sk As Variant = True)
    hWnd = FWw(vbNullString, uf.Caption)
    SWLg hWnd, -16, &H80080080: SWLg hWnd, -20, &H80000: DrMBar hWnd
    Select Case Sk
    Case True
        SLWA hWnd, colors, &H2, &H1
    Case False
        SLWA hWnd, colors, 50, &H2
    End Select
End Function

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

 

      تحياتى لك

  • Like 1
رابط هذا التعليق
شارك

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

 

أنا أشكركم جميعا على كل ما قدمتموه لنا من هذا العلم 

 

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

 

وأشكر أ/ عبد الله لمروره الكريم وأشكره على محاولتة معى .

 

شكرا لكم جميعا 

رابط هذا التعليق
شارك

اخى الفاضل  ابن الملك تقصد ربط  Shapes   بالماكرو

 

اذا كان   كذلك فان الـــــ   Shapes  أشكال تلقائية  نربطها بماكرو أو كود معين

بأن تعمل رايت كيليك على الشكل  وتختار   ASSIGN MACRO     ثم  OK

 

تماما كما فى مرفق أخونا عبدالله  لما تضغط على  الشكل فورم   تلاقى اليوزرفورم الدائرى ظهر  والربط بينهما

 

يحدث  عن طريق الكود

Sub boulanouar()
UserForm1.Show
End Sub



جرب واعمل رايت كليك على الدائرة الصغيرة المكتوب فيها فورم  واختار  ASSIGN MACRO    ثم    EDIT

هتلاقى  الــــ فيجوالبيسك فتح وهتشوف الكود السابق الذى يجعل اليوزرفورم يظهر لك

 

تقبل تحياتى

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information