يحيى حسين

السلام عليكم و رحمة الله إضافة لحلول الأخوة هذا حل آخر على فرض أن الرقم في الخلية A1 في الخلية B1 ضع المعادلة التالية =MOD(A1,10) في الخلية C1 ضع المعادلة التالية =MOD(A1-B1,100)/10 في الخلية D1 ضع المعادلة التالية =MOD(A1-MOD(A1,100),1000)/100 دمتم في حفظ الله

السلام عليكم و رحمة الله جرب المعادلة التالية =MROUND(A1,1000) أخي سعيد تحية طيبة لا اتوقع أن الموضوع كما نتصوره نحن فلربما كان هناك خطأ في إيصال الصورة لنا نسأل الله أن لا نعيين على ظلم أو أن نكون سبب في ظلم أحد دمتم في حفظ الله

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

السلام عليكم و رحمة الله أخي جمال استخدام رائع لمعادلات الصفيف و لكن أخي الحبيب بقيت نقطة لو إستخدمت معادلتي الـ Min and max لكن أفضل حل جميل و معادلة جميلة دمت في حفظ الله

السلام عليكم و رحمة الله أخي محمد يا ريت لو توضح المطلوب هل تريد أكبر قيمة من كل عامود ام ماذا

السلام عليكم و يمكن إضافة كود بسيط يقوم بإعطائك الأرقام المفقودة في العامود سي Sub DoIt() Dim i As Integer Dim LR As Long LR = Range("A" & Rows.Count).End(xlUp).Row For i = WorksheetFunction.Min(Range("B2:B" & LR)) To WorksheetFunction.Max(Range("B2:B" & LR)) If WorksheetFunction.CountIf(Range("B:B"), i) = 0 Then Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Value = i End If Next i End Sub

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

السلام عليكم و رحمة الله تفضل أخي الملف المرفق به تطبيق المعادلة أعلاه و بالنسبة لحل الأخ جمال فهو رائع و لكن أخي جمال تبقي مشكلة في حلك هو أن الحد الأعلى و الأدنى لمعادلتك ثابت و هو ما ينطبق على هذه الحاله فقط و في حال رغبة الأخ تطبيقها على مجموعة قيم أخرى فلن تعطي نتيجة صحيحة و هذا ما حاولت تفاديه بمعادلتي بإستخدام معادلتي max and min ============ و لكن أخي جمال يبقى تنوع الحلول متعة الموضوع و عموم الفائدة و أنا مع تعدد الحلول دمتم في حفظ الله الارقام المفقودة.rar

السلام عليكم و رحمة الله يمكنك أخي إستخدام المعادلة التالية أيضاً =VLOOKUP(A2,Sheet1!$A$2:$B$25,2,0)

السلام عليكم و رحمة الله و بركاته اتبع الخطوات التالية قم بتحديد الخلايا ثم اضغط على F5 و اختر Special ثم Balnks و بعدها سيتم تحديد جميع الخلايا الفارغة ضع علامة يساوي و بالسهم أن تقرأ الخلية الأعلى ثم اضغط Ctrl+Enter

السلام عليكم و رحمة الله أخي موضوع الفاصلة و الفاصلة المنقوطة تعتمد على إعدادات الويندوز و لا علاقة لها بالإكسيل و لتغيرها من خلال Control Panel ثم Region ثم Additional Setting قم بتغير list separator

السلام عليكم و رحمة الله أخي جرب معادلة الصفيف هذه =SMALL(IF(ISNA(MATCH(ROW(INDIRECT(MIN($A$1:$A$3)&":"&MAX($A$1:$A$3))),$A$1:$A$3,0)), ROW(INDIRECT(MIN($A$1:$A$3)&":"&MAX($A$1:$A$3))),""),ROW(1:1))

السلام عليكم و رحمة الله أخي هل قام المستخدم بتحديد جميع الصفحات قبل الإدخال في السطر المذكور

السلام علكيم و رحمة الله أخي لتشغيل هذا الكود افتح شاشة البرمجة بالضغط على Alt+F11 ثم اختر من Insert ثم Module ثم لتنفيذ الكود ضع مؤشر الماوس على اول سطر في الكود و اضغط F5

السلام عليكم و رحمة الله أخي يوجد طريقة أبسط من إستخدام الكود و هي بإستخدام التنسيق الشرطي قم بتحديد الجدول الذي ترغب في تطبي التنسيق عليه ثمن قم بوضع المعادلة التالية في التنسيق الشرطي =CELL("row")=ROW() و من ثم اضغط رايت كليك على اسم الشيت و اختر view code و ضع الكود التالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = True End Sub

أخ الحبيب لعمل ذلك يجب أولا تحديد نطاق هذه الخلايا و تعريفه من ضمن منطقة الطباعة PrintArea و الكود التالي سيقوم بتحديد منطقة طباعة من العامود A و لغاية العامود C Sub PrintMySheets() Dim ws As Worksheet Dim LR As Long Set ws = ActiveSheet 'قم بتغييرها حسب اسم الشيت عندك LR = ws.Range("A" & Rows.Count).End(xlUp).Row With ws .PageSetup.PrintArea = "A1:C" & LR .PrintOut End With End Sub و لربطها بزر طباعة من تاب إدراج Insert قم بإدراج أي شكل موجود عندك و من ثم رايت كليك على الشكل بعد إدراجه و إختر assign MAcro و اختر اسم الكود اعلاه

السلام عليكم و رحمة الله أخ مع عدم وضوح سبب لإستخدام هذه الطريقة و مع تأكيدي أن هذا خطأ لبناء أي داتا بيز لكن جرب هذا الكود Sub DoIt() Dim LR As Long LR = Range("A" & Rows.Count).End(xlUp).Row For i = LR To 3 Step -1 Cells(i, 1).EntireRow.Insert Next i Range("A1:C1").Copy Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks) End Sub

قم بإرفاق الملف و إن شاء الله سنقدم ما نستطيع تقديمه

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

السلام عليكم و رحمة الله أخي لتنفيذ طلبك بهذه الطريقة رايت اكليك على اسم الشيت و اختر view code ثم الصق الكود التالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim LR As Long LR = Range("A" & Rows.Count).End(xlUp).Row If Not Intersect(Target, Columns("C:C")) Is Nothing Then Range("A1:E" & LR).Sort Range("C2"), xlDescending End If End Sub

السلام عليكم و رحمة الله أخي يوجد أكثر من طريقة يا ريت لو ترفع مثال بسيط بما لا يتعدى 100 سطر للجدولين حتى يتكمن الأخوة من تقديم أفضل الحلول

المعادلة تصبح صحيحه بعد ضربها بالرقم 24 أليس كذلك

السلام عليكم و رحمة الله يا عيني عليك يا بن علية و الله هذا ما كنت افكر فيه و عجزت عن عنه ActiveSheet.Shapes(Application.Caller).Name ربنا يفتحها عليك

السلام عليكم و رحمة الله شاهد الملف المرفق أخي ترتيب تلقائي.rar

السلام عليكم و رحمة الله جرب أخي المعادلة DateDif =DATEDIF(A3,TODAY(),"m")