قنديل الصياد

4-4 الـ Events لعناصر التحكم Control Events مايكروسوفت إكسل - أساسيات اليوزرفوم إكسل

4-3 التعامل مع خصائص عناصر التحكم Control Properties مايكروسوفت إكسل - أساسيات اليوزرفوم إكسل

4-2 نظرة عامة على عناصر التحكم Controls مايكروسوفت إكسل - أساسيات اليوزرفوم إكسل

4-1 إضافة يوزرفوم Userform مايكروسوفت إكسل - أساسيات اليوزرفوم إكسل

كل عام وحضراتكم بخير وجزاكم الله خيرا

جزاك الله خير استاذنا ابو حنين جزاك الله خيرا استاذنا عبد الله باقشير

مرفق ملف للتطبيق على الكوديين قنديل.rar

كود لجعل الخلية باللون الاحمر اذا كانت قيمتها سالبة Sub SelectiveColor2() Dim FormulaCells As Range Dim ConstantCells As Range Const REDINDEX = 3 On Error Resume Next Application.ScreenUpdating = False Set FormulaCells = Selection.SpecialCells(xlFormulas, xlNumbers) Set ConstantCells = Selection.SpecialCells(xlConstants, xlNumbers) For Each cell In FormulaCells If cell.Value < 0 Then _ cell.Font.ColorIndex = REDINDEX Next cell For Each cell In ConstantCells If cell.Value < 0 Then cell.Interior.ColorIndex = REDINDEX Else cell.Interior.ColorIndex = xlNone End If Next cell End Sub

كود لعمل ازالة للحدود لاى خلايا محددة Sub RemoveAllBorders() Dim calcModus&, updateModus&, i Dim rng As Range, ar As Range Dim brd As Border If Selection Is Nothing Then Exit Sub calcModus = Application.Calculation updateModus = Application.ScreenUpdating Application.Calculation = xlManual Application.ScreenUpdating = False For Each ar In Selection.Areas For Each rng In ar For Each i In Array(xlEdgeTop, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlDiagonalDown, xlDiagonalUp) rng.Borders(i).LineStyle = xlLineStyleNone Next i If rng.Column > 1 Then rng.Offset(0, -1).Borders(xlRight).LineStyle = xlLineStyleNone End If If rng.Column < 256 Then rng.Offset(0, 1).Borders(xlLeft).LineStyle = xlLineStyleNone End If If rng.Row > 1 Then rng.Offset(-1, 0).Borders(xlBottom).LineStyle = xlLineStyleNone End If If rng.Row < 65536 Then rng.Offset(1, 0).Borders(xlTop).LineStyle = xlLineStyleNone End If Next rng Next ar Application.Calculation = calcModus Application.ScreenUpdating = updateModus End Sub

وبعد اذن الاخوة الافاضل شرح فيديو لكيفية جعل راس الجدول على الأكسل يتكرر في كل صفحة عند الطباعة

جزاك الله كل خير وتسلم الأيادي ياريس

وعليكم السلام استاذ احمد وجزاك الله خيرا

استاذى الحبيب الاستاذ / أحمد زمان قم بتغيير الملف المسمى ( Copy of Copy of PERSONAL) بالملف المرفق وسيتم التغيير من الجنيه المصرى والقروش الى ريال وهللة تحياتى لك استاذى الحبيب Copy of Copy of PERSONAL.rar

تفقيط مبلغ معين (من الأرقام الى الحروف) سواء باللغة العربية أو الإنجليزية طريقةإستخدام معادلتى التفقيط لأى مبلغ باللغة الإنجليزبة أوالعربية:- 1- أبحث عن الـFolder المسمى XLSTART عل ى جهاز الكمبيوتر الخاص بك وغالبا ستجده فى program files وداخل Microsoft office 2- أنسخ الملفين الموجودين داخلالفولدر المسمى معادلة التفقيط (فى المرفقات) وهما Copy of Copy of EHAB و Copy of Copy of PERSONALوضعهما داخل الفولدر المسمى XSTART السابق الإشارة اليه فى الخطوة رقم1 3- انت الأن جاهز لإستخدام المعادلات 4- لاستخدام المعادلة داخل أى Excel sheet كالأتى إذهب الى الخلية التى تريد ان تكتب داخلها التفقيط وأذهب الى Formula tab واضغط على الأيقونة Insert function وفى المكان المخصص لـ Or select a category إختار User Defined بعدها ستجد المعادلات المطلوبة , إختار المعادلة المطلوبة إذا كانت باللغة العربية أو الأنجليزية وستظهر فى الخلية التى أنت واقف عليها وإختار الخلية الى بها الأرقام المطلوب تفقيطها وأضغط Enter ستجد المبلغ بالحروف المطلوبة معادلة التفقيط.rar

اخى العزيز اليك الملف بعد تفقيط المبلغ الذى اوردته وهو 9821.83 Book1.rar