السلام عليكم شلونكم ممكن تصميم يظهر امام كل البرامج وان يكون فيه زر نسح النص وزر لصق النص وزر قص النص وزرWindows + V

[ابو مارفن]

السلام عليكم شلونكم ممكن تصميم على الاكسل مثل يوزر فورم او اي اداه اخرى يظهر على حافة الشاشة اليمنى امام كل البرامج وان يكون فيه زر نسح النص وزر لصق النص وزر قص النص وزر يظهر محتويات قائمة وندوز+V مع جزيل الشكر 

[أبومروان]

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

محاوله بسيطه لعله يكون المطلوب 

فورم شفاف للنسخ واللصق والكت 

show.xls

[ابو مارفن]

السلام عليكم نعم نفس الصوره التي صورتها احتاجها ان تظهر امام كل البرامج وان اتمكن من تحريكها بالماوس في كل الاتجاهات لدي برنامج اون لاين عند تحديد النص بالماوس وكلك يمين لايظهر ( نسخ النص والقص واللصق) اريد ان استعملها في هذا البرنامج

استاذ لم اتمكن من فتح الملف الذي ارفقه حضرتك 

تم تعديل أغسطس 7 بواسطه ابو مارفن

[ابو مارفن]

حاولت افتح الملف مرات عديدة ولم تفلح 

[ابو مارفن]

ان امكن مساعدتي لحل مشكله فتح الملف مع جزيل الشكر 

[Foksh]

4 ساعات مضت, ابو مارفن said:

ان امكن مساعدتي لحل مشكله فتح الملف مع جزيل الشكر 

أخي الكريم الخطأ واضح وصريح جداً .. فقط غير قيمة usl.Show لتصبح us.Show فقط . يعني مقصدي هو تصحيح استدعاء اسم النموذج فقط لا غير .

[ابو مارفن]

استاذ العزيز جربت ونفس الحاله

[Foksh]

33 دقائق مضت, ابو مارفن said:

استاذ العزيز جربت ونفس الحاله

من المستحيل اخي الكريم..

تحقق وتأكد جيداً، فهذا محتوى الرسالة من المرفق 🕵🏻‍♂️

[عبدالله بشير عبدالله]

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

الملف به مشكلتان

الاولى  اجاب عنها  معلمنا Foksh  

16 ساعات مضت, Foksh said:

أخي الكريم الخطأ واضح وصريح جداً .. فقط غير قيمة usl.Show لتصبح us.Show فقط . يعني مقصدي هو تصحيح استدعاء اسم النموذج فقط لا غير .

اما الثانية تكمن في الوجدة النمطية القياسية تحتاج الى تعديل مع تعديل بالكود للتوافق

 امر هام : ما قام به معلمنا Foksh او ما  أَضَفْتُهُ للملف ليس له علاقة بطلبك الاساسي او حل لطلبك  بل تصحيح للاخطاء الواردة بالملف المرفق فقط

لكما تحياتي ولكل احبابنا بالمنتدى

اليك الملف بعد التعديلات

QQ1.xlsb

[ابو مارفن]

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

 وان يحتوي الفورم على زر اختصار Windows + V فهو يفتح سجل الحافظة (Clipboard History) العناصر المنسوخة مسبقا 📋.

وكذلك اضافه زر البحث عن الكلمات ctrl +F

وان يعمل على برامج اخرى مفتوحه اون لاين

وان اتمكن من تحريك الفورم في كل الاتجاهات ( يمين او يسار او اعلى او اسفل ) مع جزيل الشكر والتقدير لكم

تم تعديل منذ 22 ساعات بواسطه ابو مارفن

[Foksh]

23 دقائق مضت, عبدالله بشير عبدالله said:

اما الثانية تكمن في الوجدة النمطية القياسية تحتاج الى تعديل مع تعديل بالكود للتوافق

جزاك الله خيراً أستاذ @عبدالله بشير عبدالله ، فعلاً كنت قد التفت الى حل المشكلة التي أشار لها صاحب الموضوع أخي أبو مارفن ، ولم أتيقن أنه قد يكون إصدار الآكسيس 2010 .. ففعلاً على الإصدار 2010 لم تعمل معي النسخة حتى مع تعديلي لاسم النموذج في الاستدعاء . ولكنه عمل معي حين ردي السابق على الاصدار 2019 في جهاز آخر .. 

 

فعلاً في العجلة الندامة 😅

[عبدالله بشير عبدالله]

6 دقائق مضت, Foksh said:

جزاك الله خيراً أستاذ @عبدالله بشير عبدالله ، فعلاً كنت قد التفت الى حل المشكلة التي أشار لها صاحب الموضوع أخي أبو مارفن ، ولم أتيقن أنه قد يكون إصدار الآكسيس 2010 .. ففعلاً على الإصدار 2010 لم تعمل معي النسخة حتى مع تعديلي لاسم النموذج في الاستدعاء . ولكنه عمل معي حين ردي السابق على الاصدار 2019 في جهاز آخر

بالعكس تمامًا ليس هناك اي عجلة في الاجابة  ،  ولوكان عندى اصدار 2019  لما عرفت المشكلة واجبته بما اجبت به انت وكانت تجربتي على اصدار 2016 حيث ظهرت المشكلة الثانية . وتجربتك الفعّالة على إصدار 2019 هي التي أوضحت الفارق وكشفت أصل المشكلة واختلاف السلوك بين الإصدارات.

جزاك الله كل خير على وقتك ومجهودك الطيّب، ودمت معطاءً ومبدعًا.

[عبدالله بشير عبدالله]

كنت اتمنى من استاذنا أبومروان متابعة الموضوع ولكن للغائب عذره

اخي ابو مارفن  ليست لدي فكرة عن طلبك ولو بنسبة 1%

ولكن ارفقت الكود والطلب الى  احدبرامج الذكاء الاصطناعي وبعد محاولات عديدة منه اعطاني كودا حسب تجربتى له يقوم بالنسخ واللصق والقص والحافظة وهو اقصى ما توصل اليه البرنامج

QQ1.xlsb

هذا ما استطعت افاذتك به متمنيا ان يحقق بعض طلباتك

 

[ابو مارفن]

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

فضلا وليس امرا اضافه زر البحث على اليوزر فورمctrl +F

الله يبارك فيك تحياتي لحضرتك يا طيب

[عبدالله بشير عبدالله]

8 دقائق مضت, ابو مارفن said:

فضلا وليس امرا اضافه زر البحث على اليوزر فورمctrl +F

 

لم افهم  طلبك الاخير بحث غن ماذا

[ابو مارفن]

بحث في الاكسل عن نصوص

[عبدالله بشير عبدالله]

اليك طلبك البحث في الاكسل او المواقع

بحث-لصق-تسخ.xlsb

 

[ابو مارفن]

تسلم استاذ وبارك الله بيك ويجعلها في ميزان حسناتك مشكوره جهودكم 

طلب اخير اريد ان تبقى ازرار الفورم موجوده 

زر الاغلاق والتكبير والتصغير

والغاء شفافيه اليوزر فورم

تحياتي لحضرتك يا ذهب وعذا عل اطاله

[عبدالله بشير عبدالله]

اليك التعديل

بحث-لصق-تسخ (1).xlsb

[ابو مارفن]

استاذ العزيز عبدالله مشكوره جهودك تبين انه لايعمل على  برنامج المايكروسوفت( اكسل وورد)  فقط يعمل على المواقع

تحياتي لحضرتك 

[عبدالله بشير عبدالله]

عزيزي - كما اخبرتك  ان الحل كان بواسطة الذكاء الاصطناعي  وسالته عن سبب عدم العمل على  برنامج الاوفيس بعد الغاء الشفافية واظهار الازرار للفورم بالرغم من انه يعمل غلى الاوفيس والمواقع قبل الغاء الشفافية واظهار الازرار ولم يقدم لي حلول للمشكله

عليه ارى انك تكتفى بالحل فبل الاخير وهو يعمل على المواقع والاوفيس كما تريد بالظبط 

او احد الافاضل بالمنتدى لديه ما يفيد  لالغاء الشفافية واظهار الازرار مع الحفاظ على ان يعمل الفورم في الاوفيس والمواقع

بحث-لصق-تسخ.xlsb

تحياتي

 

[Foksh]

2 ساعات مضت, عبدالله بشير عبدالله said:

سبب عدم العمل على  برنامج الاوفيس بعد الغاء الشفافية

أخي الأستاذ @عبدالله بشير عبدالله ، المشكلة جداً بسيطة إن شاء الله .. فقط قم بإلغاء أو إيقاف السطور الثلاثة التالية :-

        ExStyle = GetWindowLongPtr(hWndForm, GWL_EXSTYLE)
        SetWindowLongPtr hWndForm, GWL_EXSTYLE, ExStyle Or WS_EX_LAYERED
        SetLayeredWindowAttributes hWndForm, 0, 160, LWA_ALPHA

من الدالة Private Sub UserForm_Activate فقط .. حيث كانت تقوم بإضافة خاصية الشفافية بقيمة 160 

[عبدالله بشير عبدالله]

نعم معلمي الفاضل Foksh

المشكلة التي لم أجد لها حلاً هي أنه عند إظهار أزرار التكبير، التصغير، والإغلاق للفورم:

عند إضافة الكود المخصص لإظهار هذه الأزرار، تظهر الأزرار بالفعل، ولكن تتوقف بعض المهام الرئيسية (مثل النسخ واللصق وغيرها) داخل بعض برامج أوفيس.

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

9 ساعات مضت, ابو مارفن said:

استاذ العزيز عبدالله مشكوره جهودك تبين انه لايعمل على  برنامج المايكروسوفت( اكسل وورد)  فقط يعمل على المواقع

 

  اتمنى  ان تجد حلا للامر لاننى حاولت مع 3 مواقع للذكاء واعطوني خلولا تسبب في توقف مهام الازرار على برامج الاوفيس 

[Foksh]

4 ساعات مضت, عبدالله بشير عبدالله said:

حيث أنه تم إلغاء الشفافية وإظهار أزرار الفورم، تعطلت وظائف النسخ واللصق في أوفيس، بينما بقيت تعمل بشكل طبيعي على بقية البرامج والمواقع الأخرى

الأمر غريب فعلاً ...🤔... فقد قمت بالتجربة على نسخة أوفيس 2010 - 32 ، وبعد إلغاء السطور الثلاثة بقيت عملية النسخ واللصق تعمل ..

ولكن إليك الحل السليم بعد تجربته على أكثر من إصدار بإذن الله تعالى ..

 

• أولاً سنضيف تعريف الثابت التالي داخل المديول :-

Public Const WS_EX_NOACTIVATE As Long = &H8000000

 

• ثم نعدل حدث النموذج بحذف أسطر الشفافية القديمة ونستبدلها بالثابت الذي قمنا بتعريفه WS_EX_NOACTIVATE ، ليصبح :-

Private Sub UserForm_Activate()
    #If VBA7 Then
        Dim Style As LongPtr
        Dim ExStyle As LongPtr
    #Else
        Dim Style As Long
        Dim ExStyle As Long
    #End If
    
    Dim ScreenWidth As Long
    Dim FormWidthPixels As Long
    Dim RightX As Long

    hWndForm = FindWindow(vbNullString, Me.Caption)

    If hWndForm <> 0 Then
        Style = GetWindowLongPtr(hWndForm, GWL_STYLE)
        Style = Style And Not WS_CAPTION
        Style = Style And Not WS_SYSMENU
        SetWindowLongPtr hWndForm, GWL_STYLE, Style
        DrawMenuBar hWndForm

        ExStyle = GetWindowLongPtr(hWndForm, GWL_EXSTYLE)
        SetWindowLongPtr hWndForm, GWL_EXSTYLE, ExStyle Or WS_EX_NOACTIVATE

        ScreenWidth = GetSystemMetrics(SM_CXSCREEN)
        FormWidthPixels = Me.Width * 1.33
        RightX = ScreenWidth - FormWidthPixels

        SetWindowPos hWndForm, HWND_TOPMOST, RightX, 100, 0, 0, SWP_NOSIZE
    End If
End Sub

 

• والنقطة الثالثة وهي كيفية الإستدعاء للنموذج بحيث نستدعيه بدون قيود :-

Private Sub Workbook_Open()
    us.Show vbModeless
End Sub

 

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

 

بحث-لصق-تسخ.xlsb

تم تعديل منذ 5 ساعات بواسطه Foksh
تنسيق وتصحيح خطأ إملائي

[عبدالله بشير عبدالله]

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

•  

 من طلبات الاستاذ  ابو مارفن   

19 ساعات مضت, ابو مارفن said:

طلب اخير اريد ان تبقى ازرار الفورم موجوده 

زر الاغلاق والتكبير والتصغير

والغاء شفافيه اليوزر فورم

  لو تكرمت واظهرت زر الاغلاق والتكبير والتصغير للفورم حتى تكتمل طلبات اخونا ابو مارفن  وخصوصا انني حاولت ولم اصل الى حل  عملي

 

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