Hisham85

مشكور جدًا على ردك استاذ حسين المفاجأة بقى المتغير بتاعى عبارة عن Characters بعينها داخل الخلية هو عبارة عن "بسط" فى معادلة كبيرة بتتبنى باللووب والمطلوب فقط انى احط تحت الكراكترز دول خط اللى بيحصل ان لما اللووب بتلف وتجيب (الجزء الجديد من المعادلة) عشان يُضاف على القديم بتلغى الخطوط اللى كنت حطتها، ولما تيجى عند وضع خطوط للمتغير الجديد، بتضع خط تحت الجديد فقط وتترك القديم بدون خط وهكذا، وفى نهاية المعادلة تكون كل المتغيرات (مكونات المعادلة) بدون خطوط باستخراج المتغير الأول مثلا يكون هكذا 0.25 (542.3-289.6) + المطلوب وضع خط تحت ما بين الأقواس لتصبح هكذا 0.25 (542.3-289.6) + عند تجدد قيمة المتغير تصبح قيمة المعادلة هكذا 0.25 (542.3-289.6) + 0.20 (250.8-173.6) + ثم عند أخذ فورمات للكاراكترز الجديدة، تعطى فقط للجديدة لتصبح هكذا 0.25 (542.3-289.6) + 0.20 (250.8-173.6) + ثم فى نهاية اللووب تختفى جميع الخطوط الجزء الذى يتم إلغاء الفورمات فيه فى الكود هو التالى ActiveCell = ActiveCell & Space(1) & MyVariable يقوم بإلغاء تنسيق الخطوط السابق للكراكترز التى قمت بتنسيقها هل من حل؟

السلام عليكم عندى لووب متجدد بيجدد قيمة خلية بناء على قيمة متجددة للمتغير كالآتى ActiveCell = ActiveCell & " " & MyVariable المفروض بعد السطر ده بعمل فورمات معين للمتغير، لكن بيحصل بعد كده ان لما القيمة الجديدة تضاف، بترجع تلغى الفورمات للمتغير ده، وتدى الفورمات فقط للقيمة الجديدة للمتغير... بمعنى ان المتغير فى البداية مثلا قيمته نَص وليكن 1 + بعدها بحط تحت النَص ده خط مثلا فبيكون كده 1 + .. ثم بعد كده اللوب بيجيب القيمة الجديدة للمتغير بتكون 2 + فتصبح الخلية اللى انا واقف عليها = 1 + 2 + الخط يتحط للنص الثانى فقط ويتلغى من الأول .. حد عنده حل للمسألة ديه؟

عمل رائع ولكن للأسف لم أتمكن من متابعته، تظهر لى رسالة خطأ علمًا بأن نظام تشغيلى ويندوز 10 x64 أحدث إصدار والأوفيس 2013 فما الحل؟

مشكور جدًا أخى سليم الحقيقة أنا كنت أبحث عن كود ديناميكى، وبحيث يكون شيت 1 هو شيت main وشيت 2 هو شيت داتا وفى كل مرة يتم انشاء عدة شيتات غير معلومة العدد قبل البدء فى العمل وتوصلت لأحد الأكواد الذى يعمل بشكل جيد أحببت مشاركتكم إياه For i = 1 To ThisWorkbook.Sheets.Count - 2 Sum = Sum + Sheets(i).Range("L2") Next i

ألف شكر أستاذ بكار ؛ جارى التحميل

مشكور جدًا على الرد، جارى التجربة

سلام عليكم عندى ملف فيه مجموعة شيتات منهم اتنين قواعد بيانات (أسمائهم ثابتة ومعلومة) data و main مثلا ، باقى الشيتات فيهم خلية ثابتة ولتكن L2 ، محتاج كود يجمع قيم L2 من كل الشيتات ديه ما عدا شيتين قواعد البيانات، ويجيب لى المجموع فى رسالة مثلا.. ملف مرفق كمثال Sum multiple cells across sheets.xlsx

السلام عليكم تم عمل المطلوب و رجاء مراجعة النتائج بالملف المرفق Net Salaries.xlsm

عمومًا ده شيت فيه المطلوب لكن بطريقة الدوال داخل الشيت إذا حبيتى تحويل الدوال للفورم، ممكن تقومى برفع الملف وهحاول اضيفهم فيه Net Salary.xlsx

تمام ، هنا لازم نستخدم دالة if لتحديد الشرائح المطلوبة بس انا عندى سؤال، ليه حضرتك عملتى يوزرفورم وما اشتغلتيش على الشيت مباشرة؟

و نلاحظ أن الاكسل يتعامل مع علامة الضرب X بعلامة النجمة * وتمت كتابة الخمسة من مائة كرقم عشرى 0.05 للتسهيل كما يفضل أيضا عند استخدام التكست بوكس فى الأرقام والعمليات الحسابية إضافة أمر القيمة Value لتصبح مثلا TextBox.Value لاستخلاص القيمة بدقة عند التعامل مع الأرقام

طبعا التعديل هو وضع معادلة حضرتك (ضمن) دالة التقريب المطلوبة وهى دالة Ceiling وهى دالة تقوم بتقريب الأرقام العشرية لأقرب (أكبر) عدد صحيح، بصرف النظر عن قيمة الرقم العشرى كانت أصغر أو أكبر من 0.5 والدالة التى تقوم بعكس دور هذه الدالة هى الدالة Floor حيث تقرب لأقرب (أقل) عدد صحيح .. يعنى فى مثال حضرتك للرقم 84.3 دالة سيلينج تجعله 85 ودالة فلور تجعله 84 وتكوين الدالة فى الاكسل يكون اسم الدالة ثم خانتين الأولى نضع فيها العدد المطلوب تقريبه، أو الحسابات التى تصل بنا للعدد المطلوب تقريبه والثانية نضع بها طول التقريب، إن كان لأقرب عدد واحد نضع (1) إن كان التقريب مطلوب لأكثر من ذلك نضع العدد المطلوب = Ceiling(84.3;1) هذه صيغة الدالة فى شيت الاكسل لكن عند التعامل مع محرر اكواد الاكسل يجب استدعاء دوال الاكسل أولا عن طريق أمر Application والمقصود هو ابلكيشن الاكسل ثم أمر الدوال WorksheetFunction ثم نختار الدالة المطلوب إدراجها

عن طريق دالة من دوال التقريب ما رأيك بهذا التعديل؟ TextBox3.Value = Application.WorksheetFunction.Ceiling(TextBox1.Value * 0.05, 1)

ليه ممكن دالة لا تعمل؟

السلام عليكم مشكور جدًا على المعادلات القيمة لكن معادلة النوع لم تظبط معى لا أعرف أين المشكلة الرقم القومى عندى فى خانة D10