علي السحيب

لإخفاء الصفوف الفارغة في الصفحة الحالية فقط .. استخدم الكود التالي: Sub Hide() Application.ScreenUpdating = False For A = 1 To 1000 BR = ActiveSheet.Cells(A, 1) If BR = "" Then Rows(A).Hidden = True End If Next Application.ScreenUpdating = True End Sub ولإخفاء الصفوف الفارغة في جميع الصفحات .. استخدم الكود التالي: Sub HideAll() Application.ScreenUpdating = False With ActiveWorkbook For Each Sh In .Sheets Sh.Select For A = 1 To 1000 BR = Sh.Cells(A, 1) If BR = "" Then Sh.Rows(A).Hidden = True End If Next Next End With Application.ScreenUpdating = True End Sub ________________________.rar

من خلال شريط الأدوات Control ToolBox (أدوات التحكم) أختر آخر أيقونة والمسماة More Controls .. والمرسوم عليها مطرقة ومفتاح .. ثم أختر من القائمة Calender Control 0.11 .. ثم قم برسم التقويم في المكان الذي تريد على ورقة العمل.

حاضرين،

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

في هذه الحالة يصبح الكود كالتالي: Private Sub CommandButton1_Click() On Error GoTo Ali Dim Itm As String Dim FndItm As Range If TextBox1 = "" Or TextBox2 = "" Then MsgBox "You have to fill out all fields", vbExclamation, "Blank Fields" If OptionButton1 = False And OptionButton2 = False Then MsgBox "You have to choose the type of the activity", vbExclamation, "Activity Type" TextBox1.SetFocus With Columns(1) Set FndItm = .Find(TextBox1) End With If Not FndItm Is Nothing Then FndItm.Offset(0, 1).Select [IV1] = Selection Selection = [IV1] - TextBox2 If OptionButton1 Then Selection = [IV1] + TextBox2 If OptionButton2 Then Selection = [IV1] - TextBox2 [IV1].ClearContents Unload Me Else Cells(Application.WorksheetFunction.CountA([A1:A65536]) + 1, 1) = TextBox1 Cells(Application.WorksheetFunction.CountA([B1:B65536]) + 1, 2) = TextBox2 Unload Me End If Ali: If Err <> 0 Then End End Sub _______.rar

تجدها على هذا الإمتداد: C:\Program Files\Microsoft Office\Templates

أنا قمت بإنشاءه على أوفيس 2003 .. قم بإستخدام نفس الإصدار لترى النتيجة

تألق وإبداع بلا حدود أخي أبو هادي،

لا أعتقد ذلك،

أولاً نأسف على التأخير، الكود التالي ينفذ ما تريد: Private Sub CommandButton1_Click() Dim Itm As String Dim FndItm As Range If TextBox1 = "" Or TextBox2 = "" Then MsgBox "You have to fill out all fields", vbExclamation, "Blank Fields" TextBox1.SetFocus With Columns(1) Set FndItm = .Find(TextBox1) End With If Not FndItm Is Nothing Then FndItm.Offset(0, 1).Select [IV1] = Selection Selection = [IV1] + TextBox2 [IV1].ClearContents Unload Me Else Cells(Application.WorksheetFunction.CountA([A1:A65536]) + 1, 1) = TextBox1 Cells(Application.WorksheetFunction.CountA([B1:B65536]) + 1, 2) = TextBox2 Unload Me End If End Sub _______.rar

أعتذر عن عدم إكمال لهذا الموضوع .. لأن إنسان ملول بعض الشيء .. وإن شاء الله سوف أعمل على إكمال هذا الموضوع لاحقاً.

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

أرسل الملف المعني ليجري التطبيق عليه،

هل هذا ما تريد، Calender.rar

راجع الرابط التالي .. ربما يكون المثال واضح بالنسبة لك، http://www.officena.net/ib/index.php?showtopic=13691

السؤال الأول إجابته موجودة على الرابط التالي: http://www.officena.net/ib/index.php?showtopic=13691 بالنسبة للسؤال الثاني: استخدم الصيغة التالية لحساب عدد الخلايا التي لا تشتمل على إسم أحمد عندما يكون المعيار يحتوي على خلايا فارغة : =COUNTIF(C2:C13,"<>أحمد")-COUNTBLANK(C2:C13) واستخدم الصيغة التالية لحساب عدد الخلايا التي لا تشتمل على إسم أحمد عندما يكون المعيار لايحتوي على خلايا فارغة =COUNTIF(C2:C7,"<>أحمد") كما في المرفق التالي: ______________________________________.rar

المرفق يحتوي على طريقتين يدلانك على أن هناك بيان مكرر .. الأولى عن طريق التنسيق الشرطي والأخرى عن طريق التحقق من الصحة، أتمنى أن يكون هو ما تريد، __________________.rar

العلامة "" تعني أن تكون الخلية فارغة الغرض من جعل الصيغة طويلة بعض الشيء هو ألا يتم إخراج النتيجة إلا عندما يتم إدخال البيانات في كلتا الخليتين .. فعندما تستخدم الصيغة التي أشرت أنت إليها فإنها تعطيك نتائج سليمة كما ذكرت .. ولكن جرب أن تجعل إحدى الخلايا فارغة .. عندها ستخرج لك نتيجة مع أن إحدى الخلايا المرتبطة بالصيغة خالية من البيانات. أتذكر أن قمت بطرح موضوع يشتمل على شرح شامل عن هذه الدالة وإستخداماتها لحساب الفرق بين التواريخ .. والشرح موجود على الرابط التالي: http://www.officena.net/ib/index.php?showtopic=7916 OR تعني أو .. أي أن الصيغة تعني أنه عندما تكون إحدى الخلايا المرتبطة بالصيغة خالية من البيانات فإنه يتم جعل الخلية التي تحتوي على الصيغة فارغة. في التنسيق الشرطي والتحقق من الصحة .. يجب أن تكون نتيجة الصيغة TRUE لكي يتحقق الشرط. شاهد المرفق، DateVAlidation.rar

هكذا، [A1:A12, B12:D11]

شاهد المرفق، ____________.rar

شاهد المرفق، Conditions.rar

أرسل الجدول الذي لديك لكي أقوم بالتعديل اللازم عليه،

في هذه الحالة يتم تغيير الكود إلى التالي: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$5" Then [C5].Copy [E5].PasteSpecial Paste:=xlPasteAll Application.CutCopyMode = False [C5].Select End If End Sub _________________________.rar

من خلال القائمة إدارج ثم دالة (FX) ثم أختر من القائمة UserDefined .. وعادة ما يكون هذا الخيار في نهاية قائمة تصنيفات الدوال. وستجد هناك جميع الدوال التي تمت إضافتها عن طريق المتسخدم.

لا يوجد أي شرح للمطلوب داخل المرفق،