كل الانشطه

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

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

السلام عليكم ورحمة الله وبركاته ابغا معرفة تغيير التاريخ من الاعلى للتاريخ الهجري مثلاً : 6 / 3 / 1448 بدل التاريخ الميلادي واريد ان يتغير التاريخ في الخانات السفلى تلقائي بالتسلسل بالشكل هذا الاحد 6 / 3 / 1448 الاثنين 7 / 3 / 1448 الثلاثاء 8 / 3 / 1448 وهكذا .... الله يعطيكم الصحة اللي عنده خبره في هذا الشي يدلني ولكم خالص الشكر

اصدقائي الأعزاء في هذه المجموعة الطيبة ....لدي برنامج محاسبة قديم...كنت اعمل عليه سابقا و توقف عن استخدامه منذ سنوات هذا البرنامج لا يفتح الان...الرجاء المساعدة و اعادة تشغيله ... احتاجه جدا ...علما ان نسخة الأكسس لدي 2016 64bit....البرنامج في المرفقات. الملف اكبر من الحجم المطلوب...لذلك قمت بضغطه لكي أتمكن من تحميله. Acc for test.rar

اساتذتنا الافاضل مشكوره جهودكم قمت بعمل زر للخروج من اليوزر فورم كما هو في الملف واريد ان اقوم باخفاء الملف عند فتحه فقط يظهر اليوزر فورم مع امكانية فتح ملفات اكسل اخرى بشكل طبيعي هل اضيف هذه الاكواد ام تؤثر على عمل الملف Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub وهاذا الكود داخل اليوزر فورم Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.Visible = True ThisWorkbook.Close SaveChanges:=True End Sub ام هناك طريقة اخرى لإخفاء الملف تحياتي وشكري وتقديري لكم خروج وبحث-لصق-نسخ .xlsb

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

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