عبدالسلام ابوالعوافي

اسف اخي .. قمت بالتعديل الان .. جرب تعديل كود_4.rar

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

بارك الله فيك استاذ ياسر .. لكني قمت بتعديل بيسط في الكود كالاتي =SUMPRODUCT(--(MID(A2;ROW($A$1:$A$100);1)=B2)) اي ان الكود سيكون حسب تعديلك =sommeprod(--(stxt(A2;ligne($A$1:$A$100);1)=B2))

اي خلل ؟؟.. بالنسبة لي النتائج صحيحة .. لا اعلم اذا كانت المشكلة في الفرنسية

فرنسية وانجليزية الدوال.rar

تم التعديل اخي .. جرب ان تختار احد الاوبشن بدون ماتختار التشك بوكس

تعديل كود.rar

Private Sub CheckBox1_Change() VisUnVis End Sub Private Sub CheckBox2_Change() VisUnVis End Sub Private Sub CheckBox3_Change() VisUnVis End Sub Sub VisUnVis() OptionButton1 = False OptionButton2 = False OptionButton3 = False OptionButton4 = False OptionButton5 = False If CheckBox1 = False And CheckBox2 = False And CheckBox3 = False Then OptionButton1.Locked = True OptionButton2.Locked = True OptionButton3.Locked = True OptionButton4.Locked = True OptionButton5.Locked = True Else OptionButton1.Locked = False OptionButton2.Locked = False OptionButton3.Locked = False OptionButton4.Locked = False OptionButton5.Locked = False End If End Sub عمل هذا الكود .. اذا لم يتم اختيار اي من التشك بوكسس .. لايمكن اختيار الاوبش بوتنز

=SUMPRODUCT(--(MID(A2;ROW(A1:A101);1)=$B$2))

اول خطا كان في البداية If .CheckBox1.Value And .CheckBox2.Value And .CheckBox3.Value = False Then MsgBox "ÇÎÊÇÑ ãÇÈíä ÇáÞíãÉ ÇáäÞÏíÉ Çæ äÓÈÉ ãÆæíÉ" If .CheckBox1.Value And .CheckBox2.Value And .CheckBox3.Value = True Then عدله الي If .CheckBox1.Value= False And .CheckBox2.Value= False And .CheckBox3.Value = False Then MsgBox "ÇÎÊÇÑ ãÇÈíä ÇáÞíãÉ ÇáäÞÏíÉ Çæ äÓÈÉ ãÆæíÉ" If .CheckBox1.Value= False And .CheckBox2.Value= False And .CheckBox3.Value = True Then لم اراجع الكود بالكامل .. ربما بعد هذا التصحيح ستنحل المشكلة

بعد اذن الاستاذ ياسر جرب salary finished.rar

استاذنا الفاضل ياسر اعتقد ان كلامك صحيح .. المشكلة ليست في الاندر سكور .. المشكلة ان اسم الموديول نفس اسم الفنكشن تحياتي

اخي الكريم .. تم الاجابة علي سؤالك المشكلة في العلامة _ يعني المفروض اسم الفنكشن Kh_Mustowa يكون KhMustowa لان غير مسموح لا الحروف في الفنكشنز

احذف (_) من اسم الفنكشن .. اسم الفنكشن يجب ان يكون احرف فقط

New Microsoft Excel Worksheet1.rar

mail merge - دمج المراسلات .. ابحث عن فيدوهات لشرح طريقة العمل في جوجل

الاسهل هو تصميم الشهادة بالوورد او الفوتوشوب وربطها بقاعدة البيانات .. ولا تحتاج الي اكواد .. لانها جاهزة في البرنامجين

حدد الخلايا واكتب القيمة التي تريدها واضغك كنترول +انتر كما يمكن تحديد الشيتات ايضا .. مثلا حدد اكثر من شيت باستخدام زر الكنترول .. ثم حدد نطاق من الخلايا واكتب القيمة .. كنترول + انتر .. تجد ان القيمة قد كتبت في كل خلايا النطاق في كل الشيتات

تنسيق شرطي =AND($E4<TODAY()+16;$E4>=TODAY())

=IF(F19="عالى";CHOOSE(SUMPRODUCT(--(AE19>={30,36,66,72});--(AE19<=({30,36,66,72}+5));{1,2,3,4});"اول";"اول في يناير";"ممتاز في يناير";"ممتاز");CHOOSE(SUMPRODUCT(--(AE19>={60,54});--(AE19<=({60,54}+5));{1,2});"رئيس وحدة";"رئيس وحدة يناير")) تفضل اخي .. حسب الشروط التي وضعتها .. قم باضافة بقية الشروط

اخي الكريم يمكن اختصار المعادلة او تقسيمها .. لو ترفع لنا كل الشروط

Application.ScreenUpdating = False ActiveWindow.DisplayWorkbookTabs = True Sheets(Array("sheet2")).Select 'محتاج تغيير مسار الحفظ الى سطح المكتب وليس الى نفس مكان تواجد الملف ActiveSheet.ExportAsFixedFormat xlTypePDF, "C:\Users\new\Desktop\nam" _ & "\ تاريخ " & n & Sheet2.Range("a1") & ".PDF" Worksheets("sheet2").Select ActiveWindow.DisplayWorkbookTabs = False Application.ScreenUpdating = True لم اجربه .. اتمنى ان يكون صحيح

قم بانشاء ورقة وسمها EXP Private Sub Workbook_Open() If Sheets("EXP").Range("A1") = 1 Then Application.Quit If Date < #1/1/2016# Or Date > #1/30/2016# Then _ Sheets("EXP").Range("A1") = 1: Application.Quit End Sub

Private Sub Workbook_Open() If Date < #1/1/2016# Or Date > #1/30/2016# Then Application.Quit End Sub