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

بالرغم من تجربتى للكود الاسماء تتغير ولا مشكلة تاكد من ان خيارات الحساب تلقائي وليس يدوي طباعة.xlsb

نعم صدقت اخذف من الكود السابق ( بالرغم من اهميته في التسريع) Application.Calculation = xlCalculationManual من بداية الكود وكذلك Application.Calculation = xlCalculationAutomatic من نهاية الكود

وعليكم السلام ورحمة الله وبركاته جرب الكود المرفق Sub PrintFromTo_1() Dim adData As Variant Dim I As Long Dim Rng1 As Range Dim printRows As Long Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual adData = Range("AD1:AD14").Value For I = 1 To UBound(adData, 1) If Len(adData(I, 1)) > 0 Then Cells(1, 13).Value = adData(I, 1) ActiveSheet.Calculate printRows = Range("AG1").Value Set Rng1 = Range("A1").Resize(printRows, 27) Rng1.PrintOut Copies:=1 End If Next I Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End Sub

وعليكم السلام ورحمة الله وبركاته تم العاء AC3 وربط المعادلة بالخلية AC1 للقائمتين مع اضافة كود تلقائي لمسح احد القائمتين عند اختيار الاخرى __المقياس المتدرج 3456 الصفوف العليا2026 - نسخة.xlsb

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

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

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

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

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

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

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

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

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

تفضل كلمة المرور 123 عبارة ترحيبية (1).xlsm

الملف يعمل لدي جرب التعديل عبارة ترحيبية.xlsm اذا لم يعمل اذكر اضدار الاوفيس لديك واي نظام 32 ام 64