ناصر سعيد

جزاك الله كل خير

جزاكم الله خيرا كثيرا

Sub اضافة_حذف() On Error Resume Next Dim XX As Shape Set XX = ActiveSheet.Shapes("الدائرة") With XX.TextFrame.Characters If .Text = "إضافة الدوائر" Then Circles1 .Text = "حذف الدوائر" Else RemoveCircles1 .Text = "إضافة الدوائر" End If End With On Error GoTo 0 End Sub Sub Circles1() Dim c As Range Dim MyRng As Range, V As Shape Dim X As Integer, G As Integer, R As Integer, d As Integer '================================================ G = 2 ' عمود رقم الجلوس R = 10 ' صف الدرجات Set MyRng = Range("o11:dn500") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ X = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 For Each c In MyRng If Cells(c.Row, G) = 0 Or Cells(c.Row, G) = "" Then GoTo 1 If IsNumeric(Cells(R, c.Column)) And Not IsEmpty(Cells(R, c.Column)) And (c.Value < Cells(R, c.Column) Or c.Value = "غ" Or c.Value = "غـ") And c.Value <> "" Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left + 1, c.Top + 1, c.Width - 2, c.Height - 2) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 3 d = d + 1 End If 1 Next ActiveWindow.Zoom = X Application.ScreenUpdating = True MsgBox "تم إضافة " & d & " دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub Sub RemoveCircles1() Dim shp As Shape, d As Integer For Each shp In ActiveSheet.Shapes If shp.AutoShapeType = msoShapeOval Then shp.Delete: d = d + 1 Next shp MsgBox "تم حذف " & d & " دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub لو تكرمتم اريد شرح لكل سطر في الكود جزاكم الله خيرا

جزاكم الله خيرا

بارك الله لك فى علمك وذريتك

جزاك الله خيرا

بارك الله فيكم وجزاكم الله خيرا

وتظهر هذه الرساله

رقم الجلوس الاول لايأتي وانما ييدأ من الاسم التاني

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

اشكرك اخي المحترم وليد جزاك الله كل خير تفضل كشوف المناداة وأرقام الجلوس معدل1.rar

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

جزاك الله كل خير العمل مفيد وجميل .. ولكنه ثقيل ممكن تزيل الاكواد الغير ضروريه منه حتى يكون اكثر سرعه

جزاك الله كل خير وبارك لك هذا هو المرفق كشوف المناداة وأرقام الجلوس.rar

جزاك الله خيراً على هذا العمل الرائع والمميز جداً . جعله الله في ميزان حسناتك

عند اكتمال البيانات تعطي نفس الخطأ جزاك الله كل خير

بها جهد مبذول وطيب ولكن تأتي برسالة خطأ جزاك الله كل خير

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

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

أشكرك اخي الكريم وليد لو يتم اللجنه الواحده في نصف الورقه جزاك الله كل خير

وهذا هو الملف الموضوع في رابط خارجي ملفات مرفقة tafkeet.rar 1.84كيلو 0 عدد مرات التحميل

وهذا هو الملف الموضوع في رابط خارجي tafkeet.rar

هذا هو الملف المرفق للسهوله التفقيط فى Excel لا توجد دالة محدددة فى Excel لعمل تفقيط ولكن ....... يمكن عمل كود لدالة موجودة بالفعل وتم تصميمها من قبل باستخدام vb. وإليك الدالة والطريقة رابط الملف http://www.4shared.com/file/bwJstD4k/tafkeet.html بعد فك الضغط ستجد ملف اسمه tafkeet.bas. أما كيفية تنفيذها فبرجاء القراءة والتطبيق بروية وفقاً للخطوات التالية #1 افتح برنامج Excel ثم اضغط على Alt+f11 لتظهر النافذة التالية #2 ثم تختار import file. وتحدد ملف tafkeet.bas الذى انزلته من المرفقات #3 والآن نعود إلى صفحة Excel. ضع قيمة فى الخلية f10 وقف فى خلية أخرى وانسخ المعادلة التالية =NoToTxt(A10;"جنيهاً";"قرشاً") على أساس أن (a10) هي الخلية الموجود فيها الرقم المراد تفقيطه (يفضل نسخها كما هى) وإن لم تستطع قراءة المعادلة فهى موجودة فى الصورة التالية فى شريط الصيغة فتجد أنه تم تحويل الأرقام فى الخلية f10 إلى نص كما فى الصورة التالية #4 * ملاحظة يمكن التعديل فى المعادلة لتصبح ريال وفلس بدل جنيه وقرش وكذلك يمكنك بالطبع تغيير اسم الخلية f10 إلى أى خلية تريدها أرجو أن أكون وفقت فى الشرح

للرفع لان هذا وقت الامتحان والحاجه لهذا العمل جزاكم الله خيرا

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