أ / محمد صالح

إذا كانت sheet1 هي شيت أخرى غير النشطة فلابد من تكرار اسمها قبل أي مرجع خلايا فيها مادامت الخلايا متباعدة لأنه لو حذفنا اسم الشيت من الخلية الثانية سيعتبر الاكسل اننا نقصد نفس الخلية في الشيت الحالي بالتوفيق

بعض ما عندكم صديقي 👍😍🌹

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

ربما يفيدك هذا الرابط

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

وهل هذا الفهم خطأ؟ أليس 1 ديسمبر 2021 اصغر من 2 ديسمبر 2021 وهما معا أصغر من 1 يناير 2022 ؟؟

؟؟؟ هذا الذي اقوم به وتعمل معي فتح تبويب المطور الغاء تنشيط وضع التصميم ان كان نشطا الضغط على السهم لفتح القائمة

أنصح بالتحول إلى الاصدارات الاحدث فقد صدر بعد 2010 أربع نسخ 2013 2016 2019 365 وربما يفيدك هذا الرابط من موقعي الشخصي

هل انت في وضع التصميم ؟ يعني أثناء تصميمك للملف هل يظهر حول القائمة 8 مقابض لتغيير حجمها؟ يمينا ويسارا واعلى واسفل

القائمة تعمل بصورة طبيعية ربما تكون انتقلت لوضع التصميم design mode من تبويب المطور developer بالتوفيق

خالص دعواتي بالتوفيق

ربما تقصد هذا Debug.Print CDbl(DateValue("your string date"))

إذا كنت تقصد الذي بين for و next فهو نفس السطر في الكود المختص الذي فيه n بين 6 و 116

مع كل مجموعة اعمدة متتالية يمكن استعمال الحلقة النكرارية مثلا من 6 الى 25 ومرة اخرى من 28 الى 45 بهذا تركنا العمود رقم 26 و 27 بدون ترحيل وهكذا

رائعة بارك الله لك

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

مرة أخرى يجب تسمية العناصر بنفس ترنيب الشيت عنصر العمود f يكون اسمه txt6 عنصر العمود g يكون اسمه txt7 عنصر العمود h يكون اسمه txt8 وهكذا الى نهاية الخلايا التي تتم ترحيلها

مساهمة من العبد لله لإثراء الموضوع تم الاستغناء عن جدول قيم الحروف والزر في النموذج وتم استعمال دالة بسيطة Public Function CharVal(SearchStr) As Long Dim i As Long, myval As Long If Not IsNull(SearchStr) Then Dim d As Object: Set d = CreateObject("Scripting.Dictionary"): d.Add "أ", 1: d.Add "ب", 2: d.Add "ج", 3: d.Add "د", 4: d.Add "ه", 5: d.Add "و", 6: d.Add "ز", 7: d.Add "ح", 8: d.Add "ط", 9: d.Add "ي", 10: d.Add "ك", 20: d.Add "ل", 30: d.Add "م", 40: d.Add "ن", 50: d.Add "س", 60: d.Add "ع", 70: d.Add "ف", 80: d.Add "ص", 90: d.Add "ق", 100: d.Add "ر", 200: d.Add "ش", 300: d.Add "ت", 400: d.Add "ث", 500: d.Add "خ", 600: d.Add "ذ", 700: d.Add "ض", 800: d.Add "ظ", 900: d.Add "غ", 1000: d.Add "ا", 1: d.Add "إ", 1: d.Add "آ", 1: d.Add "ء", 1: d.Add "ى", 10: d.Add "ئ", 10: d.Add "ؤ", 6: d.Add "ة", 5: d.Add " ", 0 For i = 1 To Len(SearchStr) myval = myval + d(Mid(SearchStr, i, 1)) Next i End If CharVal = myval End Function يتم استدعاؤها بعد تحديث مربع النص Private Sub text1_AfterUpdate() Me.text3.Value = CharVal(Me.text1.Value) End Sub تحياتي للجميع mas_charval.mdb

يمكنك دمج المعادلتين معا ضع هذه المعادلة في الخلية H3 =IF(COUNTIF($A$3:$A3,$A3)>1,"",IFERROR(MODE(IF($A$3:$A$900=$A3,$F$3:$F$900)),INT(HARMEAN(IF($A$3:$A$900=$A3,$F$3:$F$900))))) مع الضغط على ctrl+shift+enter بالتوفيق

ياريت توضح اكتر ايه الحطأ بالضبط الرصيد المتاح هو ناتج اضافة الوارد على رصيد اول المدة وطرح المنصرف منهما

أخي الكريم الكود في التعديل الأخير لا يذهب للشيت ليدجر لو لاحظت تم حذف السطر الخاص ب ThisWorkbook.Sheets("ليدجر").Activate ناتي للخطأ الذي ظهر في اول سطر في التعديل الجديد هل قمت بإعادة تسمية العناصر على النموذج ؟ حوالي 110 عنصر يتم اعادة تسميتهم ب txt6 & txt7 & txt8 وهكذا حتى txt116 لا أعتقد أنك قمت بهذه الخطوة

كان يمكنك التوصل لها بمفردك لانها عبارة عن دمج نص مع معادلة باستخدام & تفضل هذا ملفك بعد المطلوب الاخير لاحظ معادلة التنسيق الشرطي في الحليتين بالتوفيق UBIED.xlsx

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

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

تفضل هذا ملفك بعد تعديل معادلتك والتنسيق الشرطي واضافة حلي السابق مع التعديل ليراعي الخليتين الفارغتين بالتوفيق UBIED.xlsx