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

بسم الله الرحمن الرحيم الكود التالى لاطفاء الماكرو من Tools - Macro - Macros Sub Hid() CommandBars("Worksheet menu bar").Controls("Tools").Controls("Macro").Controls("Macros...").Enabled = False End Sub الكود التالى لاظهلر الماكرو من Tools - Macro - Macros Sub Show() CommandBars("Worksheet menu bar").Controls("Tools").Controls("Macro").Controls("Macros...").Enabled = True End Sub مرفق ملف السلام عليكم Macro.rar

بسم الله الرحمن الرحيم Sub DOIT() Range("C2:C4").ClearContents For i = 2 To 42 Select Case Cells(i, "B").Value Case 90 To 100 Cells(2, "C").Value = Cells(2, "C").Value + 1 Case 80 To 89 Cells(3, "C").Value = Cells(3, "C").Value + 1 Case 70 To 79 Cells(4, "C").Value = Cells(4, "C").Value + 1 End Select Next i End Sub مرفق ملف ليس مضغوط السلام عليكم

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

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

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

بسم الله الرحمن الرحيم يمكن القيام بما تريد و لكن ماذا يحدث اذا ادخلت شهر مثل ديسمبر و ليس له ورقه عمل او رقم معده ليس لها ورقه عمل طالما انك تقوم بادخال البيانات فى ورقه واحده يمكن انشاء ورقه لعرض النتائج سواء بالشهر او رقم المعده او جميع البيانات و الخيار لك السلام عليكم

بسم الله الرحمن الرحيم ملفك المرفق لا يرحل فى الماكن المناسبه جرب الملف المرفق كبدايه لترحيل الكميه الى شهر يناير لتعرف الفكره السلام عليكم Machines_1_01.rar

بسم الله الرحمن الرحيم عمل اكثر من رائع اللهم اجعله فى ميزان حسناتك السلام عليكم

بسم الله الرحمن الرحيم رائع اخى ابو اسامه السلام عليكم

بسم الله الرحمن الرحيم استاذنك فى فتح الموضوع ثم اعاده اغلاقه لكن يجب ان اقول اكثر من رائع السلام عليكم

بسم الله الرحمن الرحيم و للأضافه يمكن الربط بين المجال و الأسم ( الذى تستخدمه قى و رقه العمل ) عن طريق الكود بالكود البسيط التالى Sub NM() Dim My_Range As Range Dim My_Name As String My_Name = "nam" Set My_Range = Range("A1:A10") My_Range.Name = My_Name End Sub و طبعا من داخل ورقه العمل عند كتابه فى مربع الأسم كلمه nam سيتم تحديد المجال السابق تحديده فى الكود مرفق ملف السلام عليكم Name.rar

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

بسم الله الرحمن الرحيم الف حمد لله على السلامه اخى ابو عبدالله السلام عليكم

بسم الله الرحمن الرحيم الاخ GHMN7174 الاخوه الاعضاء طبعا لك حق بنسبه مائه فى المائه و الامر ليس محتاج استفتاء لقد لاحظت هذا الامر منذ اكثر من سنه و كان عدد الصفحات 79 و رقه و قد اخبرت استاذ محمد طاهر بالامر و ارشدنى الى الطريق السليم لتوزيع المواضيع الموجوده بمنتدى الاكسيل العام الا اقسام الاكسيل المختلفه و هى قسم خلاصة مشاركات الاكسيل العام قسم عرض و تحليل البيانات بالاكسيل قسم دوال الاكسيل الجاهزة قسم أكواد فيجوال بيزيك التطبيقات قسم التطبيقات و قد قمت بالعمل فى المواضيع منذ عام 2004 الى عام 2007 فعلا و لك ان تعرف انك تقوم بالتعامل مع اكثر من 2000 مشاركه و يجب ان تركز جيدا مع كل مشاركه و تقوم بتحميل جميع الملفات و الردود و فهمها حتى تتاكد انها وصلت الى القسم الصحيح و الحمد لله و الفضل لله استطعت تقليص عدد الصفحات الى 13 صفحه فقط و ذلك فى شهر فبراير 2007 و قد استغرق العمل منى فى حدود 3 شهور مع تفرغ شبه كامل لهذا العمل و كما اخبرنا الاخ GHMN7174 ان عدد الصفحات الان 83 صفحه و ذلك للزياده الرهيبه فى عدد الاعضاء و المواضيع و الغريب ان استاذ محمد طاهر قام بطرح هذا الموضوع و مواضيع مشابهه على المشرفين منذ حوالى اسبوع و جارى المناقشه و لا اريد ان نطرح موضوع للكلام فقط و لكن اذا كان لديك نيه للمساعده انت او اى عضو حريص على منتدانا الغالى عليه ان يتقدم حتى نتحول الى الاتجاه العملى السلام عليكم

بسم الله الرحمن الرحيم آمــــــــــــــــــــــــين السلام عليكم

بسم الله الرحمن الرحيم 1 يجب اضافه الكود التالى بورقه " List " لتحديد نهايه جمله For Public Function ER() As Integer ER = Range("A1").CurrentRegion.Rows.Count End Function 2 لقد قمت بتعامل خطأ فى الكود التالى Private Sub ComboBox1_Change() و الصحيح Private Sub ComboBox2_Change() 3 لقد قمت بألغاء CombobBox2 من الفورم و انشأت اخر جديد شاهد المرفق السلام عليكم Add_Item_02.rar

بسم الله الرحمن الرحيم الملف به اكواد كثيره و المطاوب مختلف لاضافه اسماء الشركات عن طريق ComboBox تلقائيا عند فتح النموذج شاهد الملف المرفق السلام عليكم Add_Item.rar

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

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

بسم الله الرحمن الرحيم اخى ابو اسامة العينبوسي اخى justice اخى الســـــــاهر اخى zoser0 شكرا على السؤال السلام عليكم

بسم الله الرحمن الرحيم و يمكن الربط بين جمله IF و الجمله التكراريه بأضافه IF...End IF بين For...Next للبحث عن كلمه محدده و هى" Hady1" فى أول ثلاث خلايا بالعمود الأول و ذلك بالتعديل على الكود السابق كالتالى Sub Hady() Dim i As Integer For i = 1 To 3 If Sheets("Sheet1").Cells(i, "A").Value = "Hady1" Then MsgBox (Sheets("Sheet1").Cells(i, "A")) End If Next i End Sub السلام عليكم

بسم الله الرحمن الرحيم التأخير له أسبابه أتمنى أعفائى من الأجابه عن الأسباب و لكن سأحاول تكمله المشوار اليوم سنتحدث عن مرحله جديده فى أعتقادى أنها أهم مرحله لتعلم vba و بصراحه شديده و اجهتنى صعوبه كبيره حتى أستطعت تعلمها و لذلك سأحاول التبسيط على قدر المستطاع و ستكون الدروس بسيطه و صغيره حتى نبعد عن التعقيد الجمل التكراريه الدرس الرابع أليكم مثال بسيط كبدايه اذا اردنا اظهار رساله بمحتويات أول ثلاث خلايا بالعمود " A "بورقه عمل " Sheet1 " بصوره تكراريه نستخدم الكود التالى Sub Hady() Dim i As Integer For i = 1 To 3 MsgBox (Sheets("Sheet1").Cells(i, "A")) Next i جربوا الكود ثم حاولوا تغيير الارقم 1 أو 3 ثم أنظروا ماذا يحدث مرفق ملف السلام عليكم Loop_01.rar

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

بسم الله الرحمن الرحيم من الأفضل وضع تصور و أرفاقه فى ملف لانه برنامج ضخم السلام عليكم

بسم الله الرحمن الرحيم هل ستقوم بتغيير اسم شيت المدخلات يومى ام ستكون جميع ا لبيانات فى نفس الشيت ؟ , و بنسبه لشيت " ALL " هل سيتم استبدال البيانات أم ترحيلها . السلام عليكم