ياسر خليل أبو البراء

الأخ الحبيب الغالي سليم مشكور على مرورك العطر وإطرائك الجميل بارك الله فيك وجمع الله بيننا في الجنة في مستقر رحمته الأخ الكبير الحبيب عبد الله المجرب جزيت خيراً على مرروك العطر وبارك الله فيك تقبلوا ودي واحترامي وتحياتي

إليك شرح لأسطر الكود لعله يوصلنا لحل .. Sub Auto_Open() 'يتم تنفيذ الأسطر بمجرد فتح المصنف '--------------------------------- 'إظهار نافذة المصنف الحالي kh_wVisible True End Sub Sub Auto_Close() 'يتم تنفيذ الأسطر بمجرد إغلاق المصنف '--------------------------------- 'إخفاء نافذة المصنف الحالي kh_wVisible False 'إغلاق المصنف الحالي مع حفظ التغيرات ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) End Sub Sub kh_wVisible(ibol As Boolean) 'يقوم الكود بإظهار وإخفاء نافذة المصنف '------------------------------------- Dim nBook As String 'تعيين المتغير ليساوي اسم المصنف الحالي nBook = ThisWorkbook.Name 'بدء التعامل مع نافذة المصنف الحالي With Windows(nBook) 'يقوم بالإظهار [True] قيمته [ibol] إذا كان المتغير المسمى 'يقوم بالإخفاء [False] قيمته [ibol] إذا كان المتغير المسمى If .Visible = Not ibol Then .Visible = ibol End With End Sub أخي الكريم صلاح .. المتغير المنطقي ibol يكون بشكل افتراضي False أي أن الحالة الافتراضية هي إخفاء المصنف .. وفي حالة تعطيل الماكرو لا يتم تنفيذ السطر الخاص بإظهار المصنف ، بالتالي لن يظهر المصنف لأنه لن يأخد القيمة المنطقية True تقبل تحياتي

أخي الحبيب ياسر فتحي دايما سباق بالرد على موضوعاتي ..مشكور على مرورك العطر وجزيت خير الجزاء تقبل ودي وحبي واحترامي وتحياتي

جرب الكود التالي ThisWorkbook.Saved = True Application.Quit في الحدث Worksheet_BeforeClose

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

السلام عليكم ورحمة الله وبركاته **************** إخواني الكرام في المنتدى الغالي أقدم لكم دالة في منتهى الجمال والروعة صادفتني أثناء تصفح الانترنت ، تقوم الدالة باستخراج القيم الغير مكررة في عمود وعدد مرات تكرار هذه القيم في العمود المجاور الدالة المعرفة بهذا الشكل Function CountUniq(Rng As Range, Ref As Long, Key As Integer) Dim E With CreateObject("Scripting.Dictionary") For Each E In Rng.Value If E <> "" Then .Item(E) = .Item(E) + 1 Next CountUniq = IIf(Key = 1, .keys()(Ref - 1), .items()(Ref - 1)) End With End Function وإليكم ملف مرفق لتطبيق الدالة ولمعرفة كيفية الاستفادة منها أرجو أن تنال إعجابكم أخوكم أبو البراء Count Unique UDF Function.rar

افتح الفورم في محرر الأكواد اللي بيظهر أثناء فتح الملف .. هتلاقي زر الأمر خروج نهائي .. شوف السطر اللي فيه Close وضع مكانه السطر اللي أشرت إليه هتحل جزء بسيط من المشكلة وليس حل للمشكلة بشكل كامل

جزيت خيراً أخي الفاضل أبو نبأ مشكور على مرورك العطر

تفضل أخي الحبيب Private Sub Worksheet_Change(ByVal Target As Range) 'إذا كان عدد الخلايا التي سيتم التعامل معها أكبر من واحد يتم الخروج من الإجراء الفرعي If Target.Cells.CountLarge > 1 Then Exit Sub 'إذا كانت الخلية الهدف التي سيتم تعديلها في أي صف أكبر من الصف رقم 1 'كما أنها في العمود الثاني يتم تنفيذ التالي If Target.Row > 1 And Target.Column = 2 Then 'الخلية المجاورة للخلية الهدف With Target.Offset(, 1) 'يتم وضع المعادلة التي تحقق المطلوب والحصول على القيمة فقط .Formula = "=MOD(" & (Target - Target.Offset(, -1)) & ",1)": .Value = .Value End With End If End Sub تقبل تحياتي

أخي الكريم في معادلة VLOOPUP أضف قبل الدالة IFERROR( وفي نهاية المعادلة أضف فاصلة أو فاصلة منقوطة حسب الإعدادات لديك لتصبح بهذا الشكل ,"") لتصبح المعادلة بهذا الشكل (كمثال) =IFERROR(VLOOKUP(A1,$G$1:$H$10,2,0),"") تقبل تحياتي

أخي الكريم صلاح والله بحاول بقالي ربع ساعة ولكن يبدو أنني لم أوفق في الوصول للمشكلة عموما حاول بهذا السطر .. قد يحل المشكلة Application.Quit بدلاً من الأمر Close الخاص بالمصنف !! الملف معقد إلى حد كبير وفيه إخفاء لنطاق مسمى بس على مين تخفيه !! عموماً حماية الملف جيدة جداً .. إن شاء الله تجد العون من الأخوة الكرام بالمنتدى

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

الأخ الكريم الحمد لله أن تم المطلوب على خير يرجى تغيير اسم الظهور للغة العربية كما يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

الأخ الحبيب صلاح واخد ميرسي على واخد بابا غنوج ..أما واخد خرستوبولي فمعرفوس والله يا خواجة بيجو ...ممكن أجيب لك واخد كتيوفان (حلو بعد الأكل خبيبي)

الأخت الفاضلة سامية أهلا بك في المنتدى ومرحبا بين إخوانك يرجى تغيير اسم الظهور للغة العربية إليك الملف التالي عله يفي بالغرض ... الملف يتعامل بدالة معرفة يمكن من خلالها فصل الاسم بما في ذلك الأسماء المركبة .. Function kh_Names(FullName As String, ParamArray iNdex1()) As String Dim i As Integer Dim kh_Split, MyArray, Ar Dim Kh_String As String, Sn As String, Re As String On Error GoTo Err_Kh_Names '====================================== MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق", " النصر", " العهد", " النور", " بالله") '====================================== Sn = Application.WorksheetFunction.Trim(FullName) For Each Ar In MyArray Re = Replace(Ar, " ", "^") Sn = Replace(Sn, Ar, Re) Next '====================================== kh_Split = Split(Sn, " ", , vbTextCompare) On Error Resume Next For i = 0 To UBound(iNdex1) Kh_String = Kh_String & " " & kh_Split(iNdex1(i) - 1) Next On Error GoTo 0 Kh_String = Replace(Trim(Kh_String), "^", " ") kh_Names = Kh_String Exit Function Err_Kh_Names: kh_Names = "" End Function تقبلوا تحياتي Split Compound Names UDF Function.rar

أخي الفاضل جرب المعادلة التالية =IF(TEXT(G7,"ddd")=TEXT(I7,"ddd"),"مطابق","غير مطابق") تقبل تحياتي

أين الرسالة ؟ يرجى إرفاق ملف أفضل .. كما يرجى تغيير اسم الظهور للغة العربية

الأخ الفاضل صالح إليك الملف المرفق بمجرد تسجيل وقت الانصراف يتم تسجيل مجموع ساعات العمل Time Calculate V2.rar

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

الأخ الكريم أحمد إليك الملف المرفق عله يفي بالغرض Sub HideRowsUsingSpinner() Dim lRow As Long Application.ScreenUpdating = False If Not IsEmpty(Range("F3")) Then Cells.EntireRow.Hidden = False lRow = Range("F3").Value + 4 Rows("" & lRow & ":39").Hidden = True End If Application.ScreenUpdating = True End Sub تقبل تحياتي Hide Rows Using Spinner Form Control.rar

الأخ الفاضل طارق هلا أرفقت الملف سؤال آخر متى يحدث هذا التغير أي متى يكون الملف Read-Only قد يكون لديك كود معين يسبب هذا الأمر أو يمكن أن تكون هناك إضافة AddIn تكون قد تسببت في المشكلة؟

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

الأخ الكريم صالح مشكور على تغيير اسم الظهور للغة العربية إليك الملف المرفق Time Calculate.rar

الأخت الكريمة أم سارة أهلا ومرحبا بك في المنتدى بين إخوانك إليك الملف من غير حماية كشــف حضور وغياب الطلاب أو موظف.rar

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