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

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

بارك الله فيك أخي الغالي عبد الباري البنا ولا تحرمنا تواجدك معنا ... تقبل وافر حبي وتقديري

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

مشكور أخي سليم على المداخلة جرب الكود بهذا التعديل Private Sub Worksheet_Change(ByVal Target As Range) Dim str As String If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A20")) Is Nothing Then Application.EnableEvents = False str = Format(Target.Value, "000000") Target.Value = Mid(str, 1, 2) & ":" & Mid(str, 3, 2) & ":" & Mid(str, 5, 2) Application.EnableEvents = True End If End Sub

أخي الكريم عاطف أهلا ومرحباً بك في المنتدى ونورت بين إخوانك نتمنى لك قضاء أمتع الأوقات في التعلم والاستفادة والإفادة لك ولغيرك جرب الكود التالي في حدث ورقة العمل (يمكنك تغيير النطاق في الكود) النطاق الذي ستجربه هو النطاق A1:A20 ويمكنك تغييره برجاء الاطلاع على رابط التوجيهات في الموضوعات المثبتة في المنتدى للضرورة (حتى يمكنك التعامل بكفاءة مع المنتدى) Private Sub Worksheet_Change(ByVal Target As Range) Dim str1 As String, str2 As String, str3 As String If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A20")) Is Nothing Then Application.EnableEvents = False str1 = Mid(Target, 1, 2) str2 = Mid(Target, 3, 2) str3 = Mid(Target, 5, 2) Target.Value = str1 & ":" & str2 & ":" & str3 Application.EnableEvents = True End If End Sub تقبل ترحيبي وتحياتي

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

أخي الكريم ارفق ملف وتفضل بإلقاء مزيد من التوضيح ..

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

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

أخي الكريم يرجى إرفاق الملف للإطلاع عليه .. قد تكون الحماية مرتبطة بالبارتشن C .. وعند عمل فورمات يقوم الملف بإعطائك فرصة لمدة 30 يوم على السيريال الجديد الخاص بالهارد (مجرد تخمين) ارفق الملف ليساعدك الأخوة في المنتدى

جرب هذا الكود عله يفي بالغرض Sub PrintTwoPagesWithDifferentScale() With ActiveSheet .PageSetup.PrintArea = "$A$3:$F$20" .PageSetup.Zoom = 150 .PrintOut IgnorePrintAreas:=False .PageSetup.PrintArea = "$H$25:$O$75" .PageSetup.Zoom = 70 .PrintOut IgnorePrintAreas:=False End With End Sub أو جرب الكود التالي وأعملنا بالكود الذي سيعمل معك بشكل أفضل Sub PrintTwoPagesWithDifferentScale() With ActiveSheet .PageSetup.PrintArea = "$A$3:$F$20" .PageSetup.Zoom = 150 .PrintOut From:=1, To:=1, Copies:=1 .PageSetup.PrintArea = "$H$25:$O$75" .PageSetup.Zoom = 70 .PrintOut From:=1, To:=1, Copies:=1 .Range("A1").Select .PageSetup.Zoom = 100 End With End Sub

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

أخي الحبيب سليم عمل في قمة الروعة .. الآن في نظري اكتمل بعد تصحيح الملف الأول بارك الله فيك وجزاك الله خير الجزاء ولا تحرمنا من هداياك الثمينة (بس لي رجاء يا ريت متنساش الإعلان عن المتغيرات ..) تقبل تحياتي

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

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

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

وهذا حل آخر إثراءً للموضوع الدالة المعرفة Function Kh_Names(FullName As String, ParamArray Index1()) As String Dim I As Integer Dim Kh_Split, MyArray, Arr 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 Arr In MyArray RE = Replace(Arr, " ", "^") SN = Replace(SN, Arr, 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 Full Names UDF Function.rar أخي الحبيب توكل لم أطلع على حلك إلا بعد أن قدمت المشاركة الخاصة بي فأعتذر عن تكرار الحل .. إذا أنها تقريباً نفس الدالة المعرفة المستخدمة تقبل تحياتي

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

أخي الكريم مصطفى كان من الممكن بعد أن تضع المعادلة أن تنسخ النتائج ثم تقوم بلصق خاص في العمود F ثم لصق القيم عموماً تفضل الكود التالي عله يفي بالغرض Option Explicit Sub ConvertAll() Dim I As Long For I = 7 To Cells(Rows.Count, "F").End(xlUp).Row If Cells(I, "F") = 1 Then Cells(I, "F") = "الأولى" ElseIf Cells(I, "F") = 2 Then Cells(I, "F") = "الثانية" ElseIf Cells(I, "F") = 3 Then Cells(I, "F") = "الثالثة" ElseIf Cells(I, "F") = 4 Then Cells(I, "F") = "الرابعة" ElseIf Cells(I, "F") = 5 Then Cells(I, "F") = "الخامسة" ElseIf Cells(I, "F") = 6 Then Cells(I, "F") = "السادسة" ElseIf Cells(I, "F") = 7 Then Cells(I, "F") = "السابعة" ElseIf Cells(I, "F") = 8 Then Cells(I, "F") = "الثامنة" ElseIf Cells(I, "F") = 9 Then Cells(I, "F") = "التاسعة" ElseIf Cells(I, "F") = 10 Then Cells(I, "F") = "العاشرة" Else Cells(I, "F") = Cells(I, "F") End If Next I End Sub Convert Numbers YasserKhalil.rar

أخي الكريم مصطفى بدون أكواد جرب الملف التالي .. تحويل الارقام.rar

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

جرب تستبدل الفراغ الموجود في آخر المعادلة بهذا الجزء عله يكون المطلوب ATTENDANCE!H9

أخي الحبيب وليد لم أفهم طلبك الثاني ..ممكن مزيد من التوضيح

أخي الكريم وليد ممكن تستخدم الدالة IFERROR التي تتعامل مع الأخطاء بهذا الشكل =IFERROR(Formula,"") كلمة Formula شيلها وضع مكانها معادلتك التي ينتج عنها خطأ .. مثال عملي من ملفك في الخلية I6 =IFERROR(IF((ATTENDANCE!J9-ATTENDANCE!H9)+(ATTENDANCE!I9-ATTENDANCE!K9)>=8,8,(ATTENDANCE!J9-ATTENDANCE!H9)+(ATTENDANCE!I9-ATTENDANCE!K9)),"") إذا لم تعمل المعادلة قم باستبدال الفاصلة بفاصلة منقوطة تقبل تحياتي

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