Ali Mohamed Ali

أحسنت استاذ سليم بارك الله فيك كود ممتاز

تفضل لك ما طلبت -كما انه تم ضبط كود الإدخال والترحيل الى الشيت الضغط على الإنتر بدلا من الزر.xlsm

هذا لكيفية جلب المجموع للخلايا الظاهرة فقط دون المخفية

طبعا بعد اذن استاذنا الكبير سليم تفضل اخى الكريم لك ما طلبت استخراج تاريخ الميلاد من الرقم القومى على ثلاثة خلايا.xlsx

أهلا بك اخى الكريم فى المنتدى عليك بإستخدام خاصية البحث فى المنتدى فهناك موضوعات كثيرة تخص المرتبات

وعليكم السلام تفضل لك ما طلبت Book2.xlsx

تفضل لك ما طلبت وضعت كود لطباعة كل الإستمارات استمارة متابعة حفظ.xlsm

بعد اذن استاذنا الكبير سليم هذه معادلة أخرى لإثراء الموضوع أوفيسنا.xlsx

اذا كنت تقصد هكذا بقائمة منسدلة فتفضل وان لم يكن هذا هو المطلوب فعليك بتوضيح المطلوب بالتفصيل على الملف استمارة متابعة حفظ.xls

تفضل Sub LinkChecks() 'بداية الكود i = 5 'ترمز i هنا الى رقم الصف ويساوى هنا الصف الخامس For Each cb In ActiveSheet.CheckBoxes 'كما ترمز Cb الى شيك بوكس بمعنى فى كل الشيك بوكس الموجود فى الورقة النشطة التى تعمل عليها cb.LinkedCell = Cells(i, "h").Address 'الخلية التى يعمل عليها الشيك بوكس تبدأ فى العمود h -وكما وضحنا سابقا رقم الصف وهو 5 ,وذلك يعنى ان تبدأ من الخلية H5 i = i + 1 'وهذا السطر يعنة الصف الخامس ثم الذى يليه Next cb 'ثم الشيك بوكس التالى End Sub 'نهاية الكود

تفضل Sub LinkChecks() 'بداية الكود i = 5 'ترمز i هنا الى رقم الصف ويساوى هنا الصف الخامس For Each cb In ActiveSheet.CheckBoxes 'كما ترمز Cb الى شيك بوكس بمعنى فى كل الشيك بوكس الموجود فى الورقة النشطة التى تعمل عليها cb.LinkedCell = Cells(i, "h").Address 'الخلية التى يعمل عليها الشيك بوكس تبدأ فى العمود h -وكما وضحنا سابقا رقم الصف وهو 5 ,وذلك يعنى ان تبدأ من الخلية H5 i = i + 1 'وهذا السطر يعنة الصف الخامس ثم الذى يليه Next cb 'ثم الشيك بوكس التالى End Sub 'نهاية الكود

بارك الله فيك استاذنا الكريم وجزاك الله كل خير

تفضل هذا الملف وجدته عندى لعله يفيدك ترحيل الى دفتر اليومية القيود.xlsm

بارك الله فيك وجزاك الله كل خير على كلمات حضرتك الرقيقة والحمد لله الذى بنعمته تتم الصالحات

وعليكم السلام لك ما طلبت بالعربى والإنجليزى تفقيط عربى وانجليزى.xlsm

اهلا بك اخى الكريم فى المنتدى عليك برفع الملف حتى تتم المساعدة ان شاء الله على اكمل وجه

تفضل لك ما طلبت جمع الخلايا المحددة التي بها علامة صح.xlsm

وعليكم السلام اخى الكريم-كان عليك من البداية استخدام خاصية البحث فى المنتدى فقد تم تناول هذا الموضوع بالضبط هنا https://www.officena.net/ib/topic/88079-إضافة-عنصر-تحكم-لجمع-خلايا-محددة/?tab=comments#comment-556263

تفضل طبعا بعد اذن استاذ أحمد يوسف هذا ملف لأستاذنا الكبير سليم حاصبيا له منا كل المحبة والإحترام وبارك الله فيه قائمة منسدلة مطاطية تنقص بالإختيار.xlsx

تفضل اصلا لا يوجد Label 40 فقط يوجد 41 تفضل الكود هيكون هكذا Private Sub CommandButton2_Click() 'Beep DataBase1.CommandButton2.Visible = False DataBase1.CommandButton3.Visible = False DataBase1.Label41.Visible = False DataBase1.Label54.Visible = False DataBase1.PrintForm DataBase1.CommandButton2.Visible = True DataBase1.CommandButton3.Visible = True DataBase1.Label41.Visible = True End Sub وهذا هو ملفك هنا nw11 قاعدة بيانات الطلاب.rar

وعليكم السلام -اهلا بك اخ كريم بالمنتدى كان عليك من البداية استخدام خاصية البحث فى المنتدى فهذا الموضوع تكرر كثيرا ويتم باداة Solver https://www.officena.net/ib/topic/85879-معادلة-جمع-بعض-الارقم-التى-تحقق-ناتج-معين/?tab=comments#comment-544481 https://www.get-digital-help.com/2010/01/05/identify-numbers-in-sum-using-solver-in-excel/ https://www.officena.net/ib/topic/69588-ايجاد-قيمة-ثلاثة-مجاهيل/?tab=comments#comment-452852 https://www.officena.net/ib/topic/56398-مساعدة-فى-عمل-معادلة-جمع-تلقائى-لايجاد-مجموع-تشكيلات-لرقم-معين/?tab=comments#comment-435133 https://www.officena.net/ib/topic/7520-الوظيفة-الإضافية-solver/?tab=comments#comment-33991 https://www.officena.net/ib/topic/37745-جدول-توزيع-مواد-على-مجموعات-اريد-المساعدة-مع-الشكر/?tab=comments#comment-203888 او يمكنك تجربة هذا بالدالة المعرفة GetCombination Number.xlsm

أحسنت استاذ سليم كود ممتاز جعله الله فى ميزان حسناتك

تفضل لك ما طلبت -وايضا تم الرد فى المشاركة الرئيسية لك دليل الهاتف2.xlsm

تفضل لك ما طلبت دليل الهاتف2.xlsm

لا يمكن المساعدة والحل هكذا لابد من ارفاق الملف نفسه وان كان حجمه كبيرا يمكنك رفعه على موقع خارجى مثل : https://www.mediafire.com/#myfiles