Ali Mohamed Ali

وعليكم السلام اخى الكريم -وكل عام وانتم بخير من الأفضل ارسال ملف وتوضيح ما تريده عليه حتى تجد الأخوة الأساتذة سهولة فى مساعدتك بارك الله فيك

هناك شرح داخلى لكود وضع الدوائر يمكنك تغيير واختيار العمدة التى تريد وضع الدوائر بها وهذا هو الكود مع شرح بسيط له Option Explicit Option Base 1 Sub DrawRedCircles() Dim myArray As Variant Dim Rng As Range Dim Cel As Range Dim Cell As Range Dim L As Long Dim T As Long Dim W As Long Dim H As Long Dim X As Long Dim rRow As Long Dim startRow As Long 'مصفوفة بأسماء الأعمدة المراد وضع دوائر حمراء بها myArray = Array("Q", "U", "Z", "AD", "AI", "AM", "AS", "AT", "AU", "AY", "BE", "BF", "BG", "BK", "BN", "BQ", "BR", "BW", "CA", "CG", "CH", "CI", "CM", "CR", "CV") 'رقم الصف الذى يحتوى على الدرجات النهائية الصغرى rRow = 9 'صف البداية أى أول صف به درجات الطلاب startRow = 10 Application.ScreenUpdating = False Call RemoveCircles With Sheets("Sheet1") For X = LBound(myArray) To UBound(myArray) Set Cel = .Range(myArray(X) & rRow) Set Rng = .Range(myArray(X) & startRow, .Range(myArray(X) & startRow).End(xlDown)) For Each Cell In Rng If Cell.Value < Cel Or Cell.Value = "Û" Then L = Cell.Left: T = Cell.Top W = Cell.Width: H = Cell.Height With .Shapes.AddShape(msoShapeOval, L, T, W, H) .Fill.Visible = msoFalse .Line.ForeColor.RGB = RGB(255, 0, 0) .Line.Transparency = 0 .Line.Weight = 1.5 End With End If Next Cell Next X End With Application.ScreenUpdating = True End Sub

وهذا كود اخر لإثراء الموضوع -بعد اذن اخى أحمد -1استبدال التظليل بدوائر حمراء.xlsm

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

تفضل جرب هذا alma1-1(Recovered).xlsm

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

تفضل أخى الكريم 1-111.xls

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

تفضل اخى الكريم ‏‏الحضور والانصراف معدلة-1.xlsx

وعليكم السلام اخى الكريم لو ممكن رفع الملف مرة اخرى فهناك مشكلة فى تحميله -جزاك الله كل خير

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

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

جزاك الله كل خير جعله الله فى ميزان حسناتك

أخى الكريم اين الملف للعمل عليه ! من فضلك قم برفع الملف

وعليكم السلام -اهلا وسهلا بك أخ كريم فى منتدانا الكريم يمكنك البداية مع هذا الملف فبه بدايات وشرح لهذا الموضوع جزاك الله كل خير شرح رائع وسهل لتعليم VBA بجانب مجموعة أكواد هامة.rar

كود استدعاء وظهور الفورم بدبل كليك فى اى خلية Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.ScreenUpdating = False منع خاصية اهتزاز الشاشة' If Target.Column = 1 And Target.Row > 5 Then "يقصد بهذا السطر هو شرط ومكان الدبل كليك لإظهار الفورم -وفى هذه الحالة يكون الضغط فى أى خلية من العمود الأول A -ولكن بشرط بعد' الصف أو السطر الخامس ,,,,,,,, ويمكنك التغيير فى هذا السطر من الكود لأى ملف أخر تريد عمله' " UserForm1.Show بعد ذلك يظهر لك الفورم' End If End Sub 'نهاية الكود تفضل اخى الكريم أما بالنسبة لأكواد الفورم حاول متابعتها ودراستها بنفسك

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

تفضل اخى الكريم-كل عام وأنتم بخير ورمضان مبارك -1م تشغيل.xlsm

اخى الكريم البرنامج فيه مشكلة ولا يحمل وهذه صورة الرسالة التى تظهر

تفضل هذا هو الملف وبه الكود Book1.xlsm

وممكن تجرب هذا الملف فبمجرد الضغط دبل كليك على اى خلية من العمود الأول A ويكون بداية من الصف السادس سيظهر لك الفورم مباشرة كل عام وانتم بخير ورمضان مبارك Search.xlsm

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

أخى الكريم هذه الطريقة امنة لا تقلق منها ولكنك اذا كنت تريد مزيد من الأمان والخصوصية فعليك بإنشاء موقع خاص بك تتبع هذه المواقع تساعدك فى ذلك http://mawdoo3.com/كيفية_إنشاء_موقع_إلكتروني_مجاني_على_الإنترنت https://ukit.com/ https://cdhost.com/ar/ بارك الله فيكم

تفضل استاذى الكريم وقمت بعمل ايصا تاريخ النهاية فى عمود اخر Fisrt date-1.xlsx

وعليكم السلام استاذى الكريم وكل عام وانتم بخير يمكنك تتبع فيديوهات الشرح فى كل جزئية وتخصص من هذا البرنامج فى هذا الموقع: http://arabhardware.net/forum/showthread.php?t=386972