كل الانشطه

الأمر غريب فعلاً ...🤔... فقد قمت بالتجربة على نسخة أوفيس 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

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

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

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

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

اليك التعديل بحث-لصق-تسخ (1).xlsb

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

خالص الشكر لكل من السادة الخبراء الافاضل Foksh ومنتصر الانسي لسرعة الاسنجابة فى حل مشكلتى وارجو منهم المعذرة لمحدودية امكانياتى البرمجية ببارك الله فيكما

اليك طلبك البحث في الاكسل او المواقع بحث-لصق-تسخ.xlsb

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

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

مشكور استاذنا العزيز عبدالله بشير الله يحفظك ويبارك بجودكم هو هاذا المطلوب بالظبط فضلا وليس امرا اضافه زر البحث على اليوزر فورمctrl +F الله يبارك فيك تحياتي لحضرتك يا طيب

كنت اتمنى من استاذنا أبومروان متابعة الموضوع ولكن للغائب عذره اخي ابو مارفن ليست لدي فكرة عن طلبك ولو بنسبة 1% ولكن ارفقت الكود والطلب الى احدبرامج الذكاء الاصطناعي وبعد محاولات عديدة منه اعطاني كودا حسب تجربتى له يقوم بالنسخ واللصق والقص والحافظة وهو اقصى ما توصل اليه البرنامج QQ1.xlsb هذا ما استطعت افاذتك به متمنيا ان يحقق بعض طلباتك

لا هذه مكتوب كودها بشكل يدوي والصورة من برنامح نقطة بيع للاخ خالد اعتقد من 2018 او قبل بعام لا اتذكر الصورة موجودة في الموقع هذا من عام 2020 حسب معلوماتي لا مشكلة هذه الوسوم يمكن التحكم بها كما يريد المبرمج بالنسبة لإضافتكم الرائعة لم اجربها لكون الاخ شايب لم يعد يتعامل مع اكسس ويكتفي بالمشاهدة وشهادة اثنين من اساتذة الموقع تغني عن التجربة تحياتي

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

أسعدني مرورك أستاذي @شايب . ولهو من سوء حظي أنني لم أكن مهتماً بشغف قبل هذه السنوات الـ 10 التي مضت . ولكن لم تمت فكرة وليدة في رأس صاحبها إلا إن أهملها .. والفكرة هذه أحمد الله على نجاحها وإتمامها المطلوب كما يحب المستخدم . سؤالي ، هل الصورة المرفقة في مشاركتك من تصميم الأداة ؟؟ سؤالي يتعلق بالواجهة العربية من آكسيس وفكرة عرض شريط الريبون أثناء التصميم من اليمين لليسار . دمتم بخير

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

استاذ العزيز عبدالله مشكوره جهودكم الان فتح الملف احتاج ان يظهر امام كل البرامج المفتوحه وان يحتوي الفورم على زر اختصار Windows + V فهو يفتح سجل الحافظة (Clipboard History) العناصر المنسوخة مسبقا 📋. وكذلك اضافه زر البحث عن الكلمات ctrl +F وان يعمل على برامج اخرى مفتوحه اون لاين وان اتمكن من تحريك الفورم في كل الاتجاهات ( يمين او يسار او اعلى او اسفل ) مع جزيل الشكر والتقدير لكم

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

بارك الله فيك

وعليكم السلام ورحمة الله وبركاته.. جرب المعادلة التالية في الخلية B3 كمثال ، وعلى افتراض ان الخلية A3 تحتوي الرقم القومي المكون من 14 رقم :- =IF(A3="","",IF(MOD(VALUE(MID(A3,13,1)),2)=1,"ذكر","أنثى"))

اريد معادلة لتحديد النوع ذكر ، أنثى من خلال الرقم القومي

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

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

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