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

جرب المرفق adding 1.rar

السلام عليكم في حدث ضع ThisWorkBook هذا الكود Private Sub Workbook_Open() Sheets("اسم ورقة العمل ضعه هنا").Select End Sub

السلام عليكم هل تقصد بانك تدخل الكلمات في الخلية بلا فواصل وتريد دالة لعمل الفواصل!!

اخي الفاضل بالنسبة لهذه الدالة هي عبارة عن دالتين دالة التاريخ DATE ودالة الاقتصاص MID =DATE(MID(A2;1;4);MID($A2;5;2);MID(A2;7;2)) كما هو معروف فدالة DATE لها ثلاثة نتغيرات هي Year & Month & Day لذا تم استعمال الدالة MID لاقتصاص الارقام من خلايا العمود A والاقتصاص كان حسب عدد الارقام مثلاً السنة 4 ارقام وتبدا من اول رقم MID(A2;1;4) والشهر رقمين ويبداء من الرقم الخامس MID($A2;5;2) وكذلك الايام عددها رقمين وتبداء من السابع MID(A2;7;2) ونفس الحالة بالنسبة للوقت مع اختلاف عدد الارقام وموضعها ان شاء الله اكون وفقت في الشرح

السلام عليكم اخي ابو نصار سلمت يدك الا اختصرت الكود بارك الله فيك وفتح لك من العلم اوسعه ابواحمد

تمت بنجاح ونرجو التثبيت للفائدة

ان شاء الله تفضل المرفق Date and Time.rar

وهذه الدالة لتحويل الوقت =TIME(MID(B2;1;2);MID(B2;3;2);MID(B2;6;2)) والله اعلم

تم دمج الموضوعين للفائدة ==================================== كل الشكر للاخوين محمود فوكس مان وايهاب على الشرح الجميل. ابو احمد

اخي الفاضل جرب هذا الحل ضع هذه المعادلة في اي خلية فاضية (مثلاً F2 ) ثم اسحبها للاسفل سينتج عنها تاريخ يمكنك ضبطه او نسخه ولصقه لصق خاص كقيمة بدل الارقام في العمود A =DATE(MID(A2;1;4);MID($A2;5;2);MID(A2;7;2))

اخي الفاضل تم دمج الموضوعين لتشابه الطلبين ======================== الكود سيصبح Option Explicit Sub mousa() Dim sheeto As String sheeto = "mousa" & " " & Sheets.Count Sheets.Add.Name = sheeto End Sub

اضغط الملف ببرنامج وينرار ثم ارفقه يعني لا ترفقه مباشرة كملف اكسل

اخي الفاضل اين المرفقات

بارك الله فيك ونفع بك اعمال ممتازة تشكر عليها

السلام عليكم لاحظت هذه المشكلة الكلمات تعرض بالعكس كما في الصورة

السلام عليكم جرب المرفق هل هذا ما تقصده قائمة منسدلة.rar

السلام عليكم اخي الفاضل ارى ان تقوم بالاتي تغيير موضع عمود التاريخ وتجعله الاول بدل موضعه الحالي (في الاخير) ثانياً تابع هذا الموضوع http://www.officena.net/ib/index.php?showtopic=37671

الاستاذ الفاضل ابو نصار عمل مميز ونشاط ملحوظ ================ اثراءً للموضوع هذا الكود بعد التعديل Sub Khboor_Tarheel() On Error Resume Next Application.ScreenUpdating = False For A = 5 To [C200].End(xlUp).Row Dim cl As Range Set myrng = Range("C5:C" & [C200].End(xlUp).Row) If Cells(A, 3) <> "" Then MySheets = Cells(A, 3) With Sheets(MySheets).[B200].End(xlUp) .Offset(1, 0) = Cells(A, 4) .Offset(1, 1) = Cells(A, 5) .Offset(1, 2) = Cells(A, 6) .Offset(1, 3) = Cells(A, 7) End With End If Next A Application.ScreenUpdating = True MsgBox "!تم الترحيل بنجاح", vbInformation + vbMsgBoxRight, "تم الترحيل" Range("C5").Select For Each cl In myrng If cl.Value <> "" Then Range(Cells(cl.Row, 4), Cells(cl.Row, 7)).Value = "" End If Next cl On Error GoTo 0 End Sub

السلام عليكم اخي الفاضل نرجو منك التحلي بالصبر ما بين المشاركتين 20 دقيقة فقط اخي استعمل الدالة VLOOKUP لجلب البيانات ويمكنك ان تستعمل خاصية البحث في المنتدى فهو يحوي كنوز ابواحمد

السلام عليكم اضافة الى الطريقتين اعلاه يمكن استخدام هذا السطر ايضاً Range("D5:F14").Value = Empty والله اعلم

السلام عليكم بهذا الرابط موضوع مشابه http://www.officena.net/ib/index.php?showtopic=35525 ان شاء الله يفي بالغرض

اخي الفاضل ضع هذا السطر Range("D5:F14").Value = "" قبل هذا السطر في الكود On Error GoTo 0 ولاحظ النتيجة

اخي الفاضل ضع هذه المعادلة في الخلية d1 =IF(AND(A1>B1;A1>C1);"جيد";IF(AND(B1>A1;B1>C1);"جيد جداً";IF(AND(C1>A1;C1>B1);"ممتاز")))

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

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