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

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

كتبت لك الحل في المشاركة السابقة واكرر لم توضح الرقم الاصل او الاساسي هل هو في الخلية O10 او K9 لان الحل يختلف والنتيجة تختلف بفرضية ان الرقم الاصل الاولي هو في K9 اليك الملف AS.xlsx

وعليكم السلام ورحمة الله وبركاته اولا لم توضح الرقم الاساسي هل هو في الخلية O10 او K9 اذا كان القيمة في الخلية O10 هي الاساس غيّر معادلة الخلية H10 لتكون: =K10 اما إذا كان الأساس هو نسبة الـ 9% من المجموع الكلي (95975.95) غيّر قيمة الخلية O10 لتكون معادلة بدلاً من رقم ثابت =O9*9% والسبب ان نسبة 9% للرقم 95975.95 ليست 8637.8400 وانما 8637.8355 والفرق بينهما 0.0045 ضرب 12=0.05 (5 سنتيم)

بالرغم من تجربتى للكود الاسماء تتغير ولا مشكلة تاكد من ان خيارات الحساب تلقائي وليس يدوي طباعة.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 هي التي أوضحت الفارق وكشفت أصل المشكلة واختلاف السلوك بين الإصدارات. جزاك الله كل خير على وقتك ومجهودك الطيّب، ودمت معطاءً ومبدعًا.