هادى محمد المامون سالم

بسم الله الرحمن الرحيم اخى الكريم فعلا انا عدلت فى الورقه الثانيه فقط و لم أعدل فى الورقه الاولى و تركتها لك لتعدلها الموضوع بسيط جدا و ليس له علاقه بالداله لنفرض انك تريد تصحيح الخطأ فى الورقه الاولى الخليه F4 قف على الخليه F4 Data Validation Settings ستجد فى مربع Source =$M$3:$M$78 قم بالتعديل الى =$M$3:$M$110 و كذلك فى باقى الخلايا التى تريد التعديل عليها ومن الممكن زياده أو أنقاص الصفوف من 110 الى العدد الذى تريده السلام عليكم

بسم الله الرحمن الرحيم أرفقت لك الملف بعد التعديل السلام عليكم abc_01.rar

بسم الله الرحمن الرحيم أرفق الملف السلام عليكم

بسم الله الرحمن الرحيم 1 - من صفحه vba 2 - أدراج user form 3 - ثم قم باضافه ComboBox 4 - قف فى اى مكان على الفورم ثم ريت كليك ثم view code 5 - أنسخ هذا الكود Private Sub UserForm_Activate() For Each i In Worksheets ComboBox1.AddItem (i.Name) Next i = i + 1 For i = 1 To Sheets.Count Sheets(i).Visible = xlSheetVisible Next End Sub الشرح استخدمت جمل For.....Next مرتان المره الاولى لاضافه اوراق العمل فى ComboBox المره الثانيه لاظهار جميع اوراق العمل ثم استخدمت مفاتيح لاظهار الفورم و اوراق العمل السلام عليكم

بسم الله الرحمن الرحيم أرفقت لك ملف من مشاركه لى سابفه أتمنى ان ينفعك السلام عليكم 0311200601_Hide_01.zip

بسم الله الرحمن الرحيم تمام كما أشار أخى alwjeeh2007 أرفقت لك ملف به مفتاح لأظهار القوائم و اخر لأخفائها السلام عليكم Hide_Unhide_N.rar

بسم الله الرحمن الرحيم هذا الكود لا عاده شريط القوائم ملف - تحرير 00000 Sub CommandBars_Show() Application.CommandBars("Worksheet Menu Bar").Enabled = True End Sub السلام عليكم

بسم الله الرحمن الرحيم مرحبا معنا اخى الكريم فى المنتدى بصراحه حاجه هايله و فى انتظار المزيد السلام عليكم

بسم الله الرحمن الرحيم لك حق و سيتم مراعاه ذلك مستقبلا ان شاء الله السلام عليكم

بسم الله الرحمن الرحيم Sub Auto_Open() MsgBox "السطر الاول" & Chr(13) & "السطر الثانى" End Sub السلام عليكم

بسم الله الرحمن الرحيم لك حق اخى الكريم و لكن برجاء متابعه المشاركه المثبته بأعلى الصفحه ( نقاط هامه لمرتادي قسم الأكسيل*, - تقرأ وتنفذ بعناية تامه ) لأستاذنا الفاضل حسام نور و اليك جزء منها مع العلم انى لا اقوم بالحذف بل اكتفى بنقل الاسم القدبم فى مربع وصف الموضوع السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Open_Close_01.rar

بسم الله الرحمن الرحيم هايل الله يفتح علبك السلام عليكم

بسم الله الرحمن الرحيم برجاء عند استعجال الرد الاشاره اليه بكلمات خفبفه مثل للرفع او Up أظن من حق الاعضاء و المشرفين ان يقضوا العيد مع أهلهم و أبناءهم بخصوص سؤالك تستطيع تحميل اى داله تفقيط المنتشره بالمنتدى و تغيير كلمه جنيه الى درجه و قرش الى درجه مثلا و لأضافه (فقط) ممكن اضافه فى اخر المعادله & "فقط" و سلام السلام عليكم

بسم الله الرحمن الرحيم Sub Auto_Close() MsgBox "Bay" End Sub السلام عليكم

بسم الله الرحمن الرحيم Sub Auto_Open() MsgBox "hi" End Sub السلام عليكم

بسم الله الرحمن الرحيم الله يفتح عليك السلام عليكم

بسم الله الرحمن الرحيم Sub Rand_Number() Dim MyValue MyValue = Int((9999999 * Rnd) + 1000000) MsgBox (MyValue) End Sub علما بأن 1000000 بدايه المجال و 9999999 نهايه المجال السلام عليكم

بسم الله الرحمن الرحيم أكتب الاسم ثم ALT + Enter و هكذا و ذلك للأنتقال الى السطر التالى فى الخليه السلام عليكم

بسم الله الرحمن الرحيم مرفق ملفات الاخ gelani بصيغه xls ولكن ؟؟؟؟؟ السلام عليكم بسم الله الرحمن الرحيم هل المقصود بالتعداد الرقمى هو عدد الحروف فى الخليه ما المقصود بالتعداد نقطى ؟ السلام عليكم ______RE.rar

بسم الله الرحمن الرحيم أولا : هذه النقطه اكتشفتها حديثا عند محاولت لتطبيق الداله الوارده فى ثانيا لقد قمت فى ملفك فى عمود "C" (قيمة المحفظة الفعلية) بأسخدام بيانات من ملف اخر و عند تعديلى لهذا العمود يدويا عملت الداله بشكل جيد , و قد يكون هذا هو سبب الخطأ . ثانيا : فى المعادلات الطويله أفضل دائما كتابتها فى داله (Function) و ذلك لسهوله التعامل و التعديل و بصراحه الكود المكتوب فى العمود "G" (الحد الأدنى للمجموعات الجديدة) به نتائج مكرره ولم استطع معرفه السبب و قد يكون لشىء فى ذهنك و لكن طالما ان الكود بهذا القدر من المعادلات يفضل أستخدام داله (Function) و ذلك لسهوله التعامل و التعديل و كمثال لجزء من الكود Public Function Mn(ByVal nmb As Integer) As Integer Select Case nmb Case Is < 13000 Mn = 0 Case Is >= 13000 And nmb <= 15000 Mn = 3 Case Is > 15000 And nmb <= 12000 Mn = 3 End Select End Function من الممكن تطبيقه فى العمود "G" (الحد الأدنى للمجموعات الجديدة) =Mn(C1) و تستطيع الاضافه و التعديل كما شئت السلام عليكم

بسم الله الرحمن الرحيم يتم ذلك عن طريق رفع الملفات على احدى مراكز التحميل السلام عليكم بسم الله الرحمن الرحيم النسخه موجوده بمنتديات أوفيسنا مع التعريب السلام عليكم

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

بسم الله الرحمن الرحيم الملف المرفق لمشاركه لى سابقه لأظهار و أخفاء أوراق العمل السلام عليكم 0311200601_Hide_01.rar

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