عبدالله المجرب

الحمدلله ان كان هذا طلبك اخي ابو الحسن شكراً لك

العفو منك هذا اقل واجب

اخي الفاضل ابو الحسن شكراً للتشجيع المتواصل == اخي زوهير الحمدلله ان كان هذا ما طلبت تمت الاجابة

بصراحة المطلوب غامض هل تقصد تريد اظهار هذا الرقم (4) وباقي الارقام من ايت تاتي

السلام عليكم تفضل المرفق بعد التعديل عبدالله المجرب.rar

اجر وعافية وشافاك الله اخي انس

السلام عليكم جرب هذا التعديل Sub Abu_Ahmed() Dim cl As Range For Each cl In Selection Select Case Len(cl.Value) Case Is = 4: cl.Value = "00 00 " & cl.Value Case Is = 7: cl.Value = "0" & Mid(cl, 1, 1) & " " & Mid(cl, 2, 2) & " " & Mid(cl, 4, 4) Case Is = 9: cl.Value = "0" & cl.Value End Select Next End Sub

عندي انا يتم تحويل الارقام العربية الى هندية وهذا الكود لعكس العملية 1Sub Abu_Ahmed() For i = 1 To Sheets.Count With Sheets(i) .Cells.NumberFormat = "[$-2000000]0" End With Next End Sub وطريقة عمل الكود هو بتغيير تنسيق الخلايا

حياك الله اخي الفاضل

السلام عليكم جرب هذا الكود Private Sub CommandButton1_Click() Application.ScreenUpdating = False w = 3 Do Until Cells(w, 1).Value = "" LR = Sheets("as").Cells(44, 1).End(xlUp).Row For i = 1 To 5 If Cells(w, i).Value = "" Then Sheets("as").Cells(LR + 1, i).Value = "(////////)" Else Cells(w, i).Copy Sheets("as").Cells(LR + 1, i).PasteSpecial xlPasteValues Sheets("as").Cells(LR + 1, i).Borders.Color = 2 Application.CutCopyMode = False End If Next w = w + 1 Loop Application.ScreenUpdating = True End Sub

اخي جمال الفار بارك الله فيك العين ما تعلى على الحاجب وانت الحاجب هنا

السلام عليكم تم فصل الموضوع للفائدة ==== في المرفق تم ادراج دالة الاستاذ خبور كما تم الاستغناء عن الخلايا المخفية الخاصة بحساب العمر كما تم حل مشكلة الخلايا التي بها خطاء ملف شئون طلبة.rar

السلام عليكم تفضل المرفق Book2 (1).rar

السلام عليكم جرب هذا الكود ضعه في زر أمر او اجعل تفعيله يتم في حدث الفتح Sub Abu_Ahmed() For i = 1 To Sheets.Count With Sheets(i) .Cells.NumberFormat = "[$-1000000]0" End With Next End Sub

بصراحة عن نفسي حاولت ولكن شروط الجمع مربكة

السلام عليكم اخي الفاضل هذا الجزء خاص بتحويل النص الى اعمدة اي بمعنى ان الخلية المستهدفة لو كان بها هذا الاسم (عبدالله المجرب) فسيتم تجزئته الى جزئين الاسم عبدالله في الخلية الاصلية والمجرب في الخلية المجاورة

السلام عليكم هل ممكن ان يكون الكشف هكذا bkri_(v1).rar

السلام عليكم اخي زهير تم عمل كود يعمل لحالتين فقط الحالة الاولى اذا كان في الخلية السنة فقط مثل 1999 سيتم اضافة 00 00 اليه ليصبح 1999 00 00 الحالة الثانية اذا كانت الخلية تحوي السنة والشهر واليوم (اليوم كرقم فردي) مثل 1999 12 1 ستصبح 1999 12 01 == يمكن اضافة حالات اخرى حسب ما تريد ملاحظة لتنفيذ الكود قم بتضليل المدى الذي به الارقام ثم اضغط الزر التاريخ l (1).rar

ارجو منك ان تدلني على الكود المطلوب

السلام عليكم اخي الفاضل تم تعديل العنوان وارجو منك مستقبلاً الانتباه لقواعد المشاركة فيما يخص مناسبة العناوين للمحتوى === ان شاء الله ان كان لدي معرفة بالكود وتوفر الوقت فسارفع لك الشرح

اخي الفاضل انا جربت الكود ثم قمت بحذف هذا الجزء من الكود Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :=":", FieldInfo:=Array(Array(1, 9), Array(2, 2), Array(3, 2), Array(4, 1), Array(5, _ 9), Array(6, 9), Array(7, 2), Array(8, 9)), TrailingMinusNumbers:=True وكانت النتيجة واحدة اي ان هذا الجزء ليس له اي دور فالكود يقوم بعملية نسخ ولصق وتعبئة وخذف اي ان الكود تم تسجيله

هل تقصد انه يتم نسخ البيانات من ملف خارجي صيغته txt

السلام عليكم بعد إذن العلامة خبور تم اضافة الفورم الى الملف === بالنسبة لطلب الاخ / ت : صفاء ارجو التوضيح اكثر يمكن نملك المقدرة على المساعدة السري خبور.rar

ايضاً يمكنك تسجيل ميكر بهذه العملية ثم استخدام كود لتعميمه على جميع اوراق العمل

السلام عليكم هل ممكن وضع مرفق به الكود بالكامل حتى يسهل تتبعه