نجوم المشاركات

السلام عليكم ورحمة الله وبركاته الرجاء من الاخوه العباقره مساعدتي في هذا الطلب مع فائق شكري وتقديري. لدي شاشة ادخال بيانات وفيها Txt Box عدد 2 في الاول مطلوب كتابة اسماء ... الطلب في هذا كود يظهر لي اول حرفين من اي اسم عند كتابة اول حرف باللغه العربيه. وفي الثاني مطلوب كتابة ارقام الطلب كود يمنع تكرار الرقم برسالة تنبيه معينه تفيد بان الرقم مكرر. ارجو الرد ولكم جزيل الشكر والامتنان.

بسم الله الرحمن الرحيم تحية طيبة للجميع اساتذة ماهى برنامج access runtime و بماذا تفيد بحيث ارى كثير من المواقع تتحدث عن برنامج و لكن بماذا تفيدنا بشكل عام

السلام عليكم أخي العزيز بالمرفق ستجد الآتي تم عمل التعديلات التالية في الإدخال (1) بدلا من تغيير معادلات كلا من إسم العامل : الإدارة/المنطقة والوردية N/U/ هكذا ،، الآن بمجرد وضع رقم العامل فسيتغير تلقائي كل تلك الحقول الصفراء - جرب تضع S786 لتغيير رقم العامل أو أنظر شييت 2 (2) إضافة قائمة منسدلة للـفترة الخضراء ، وقائمة منسدلة أخري لأرقام العمال ، الخضراء أيضا لتختار منهما (3) بمجرد إختيار الفترة سيتم أوتوماتيك تعديل البيانات الخاصة بالعامل في تلك الفترة (من ورقة Inbut data) ، أي ليس عليك تغيير معادلات كل عامل علي حدي (4) إضافة ماكرو (كود) تلقائي يتم تفعيله بمجرد ماتدخل للشيت (1) ، يعمل فقط علي الشيت (1) مؤقتا يقوم بتقسيم الساعات كما تحب أنتظر رأيك لأن الملف مازال به ترتيبات كثيرة 3.rar

السلام عليكم صممت مسابقة ثقافية بسيطة بالباوربوينت، لكني محتاج الى فكرة او طريقة تصميم عداد لحساب النقاط المسابقة مكونة من ثلاثة مراحل ، والمتسابقين ثلاثة فرق ، وكل مايطرح سؤال يحسب عدد النقاط ، يعني اذا فريق جاوب راح يكتبلو في عدادو 10 نقاط ، واذا زاد جاوب على سؤال اخر ، يحصل على 10 نقاط اخرى ارجو ان تكمون الفكرة قد وضحت لكم وشكرا

ارجو مساعدتي للملف اكسل 2010 برنامج فك باسورد للاكسل 2010

Public Bn As Boolean Public Sub Ali_Brnt() With ActiveSheet C = .Cells(.Rows.Count, 6).End(xlUp).Row For Cl = C To 36 Step -1 If .Cells(Cl, 6).Value = 0 Then .Cells(Cl, 6).EntireRow.Hidden = Not Bn Next .PrintPreview .UsedRange.EntireRow.Hidden = Bn End With End Sub

شكرا الأستاذ نزار وسيكون الكود بالشكل الأتى : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula Then MsgBox "Sorry" 'ActiveSheet2.Protect Else 'ActiveSheet2.Unprotect End If MyPassword = "123 For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True Next MySheet End Sub