نجوم المشاركات

وعليكم السلام ورحمة اله وبركاته .. 🙂 هناك طريقتان تخطران في بالي الآن .. الأولى : حرك النافذة (النموذج) إلى الموضع الذي تريده والحجم الذي تريده ثم إضغط على Ctrl+S في الكيبورد والأكسس سيحفظ لك حجم وموضع النموذج وسيفتح عليه في المرة القادمة .. آمل أن تعمل معك على نسخة 2003 🙂 .. الثانية : استخدم الكود التالي عند الفتح ، مع التركيز على خاصيتي الطول والعرض وتغيير الأرقام حتى تصل إلى الأرقام الحقيقية لطول وعرض النموذج ( هذه الأرقام بوحدة التويبس وليس السانتيمتر ) .. DoCmd.MoveSize , , 5200, 7800 للعلم : خاصيتي Right , Down هذه تحددان مكان ظهور النموذج عند فتحه .. جربهما قد تجدهما مفيدتين لك أيضا 🙂

خاصية Auto Resize (تقريباً ستكون تغيير الحجم تلقائيًا في النسخة العربي) ضمن خصائص النموذج

تاريخ بالتفصيل.xlsx السادة الاعضاء السيد الاستاذ / سليم حاصبيا @سليم حاصبيا اذا تكرمت هل من حل للنتجة السالبة في خانة اليوم كما هناك عدم دقة في فرق الايام

بعد اذن الاخ علي هذا الكود Option Explicit Sub Extract_by_Groupes() Rem Created By Salim Hasbaya On 19/2/2020 If ActiveSheet.Name <> "ورقة1" Then Exit Sub Application.Calculation = xlCalculationManual Dim ObjReg As Object Dim ObjMatches, a%, My_word, i% Dim k%, col%, last_row last_row = Cells(Rows.Count, 1).End(3).Row Range("E6:G" & last_row).Clear Set ObjReg = CreateObject("VBScript.RegExp") With ObjReg .Pattern = "(\W+)(\d+)[%-:,_](\W+)" .Global = True End With For k = 6 To last_row If ObjReg.test(Range("a" & k)) Then Set ObjMatches = ObjReg.Execute(Range("a" & k)) For Each My_word In ObjMatches 'The variable match will contain the full match a = My_word.Submatches.Count 'total number of groups in the full match col = 5 For i = 0 To a - 1 Cells(k, col) = My_word.Submatches(i) col = col + 1 Next Next End If col = 5 Next With Range("E6:G" & last_row) .Borders.LineStyle = 1 .Font.Size = 14 .Font.Bold = True .InsertIndent 1 .Columns.AutoFit .Interior.ColorIndex = 40 End With Set ObjReg = Nothing Application.Calculation = xlCalculationAutomatic End Sub الملف مرفق Extract Number.xlsm

السلام عليكم هذه المعادلة تعطي الفرق مهما كان ترتيب التاريخين و مهما كانت السنوات =ABS(MONTH(A1)-MONTH(B1))+12*ABS(YEAR(A1)-YEAR(B1))