عبد الفتاح كيرة

برنامج مشهور اسمه format factory مجانى و موسع جدا هنا http://www.formatoz.com/download.html

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

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

نشكر لك خلقك العالى قبل علمك الجم فقد وصلنى ردك الأول الذى حذفته و قد ألهمنى الله الحل بينما كنا نكتب فى وقت واحد فأردت أنت أن تقدمنى فى الرد جزاك الله خيرا و زادك علما و خلقا طيبا و أنبه إلى أن الكلمة التى نبحث عنها لابد أن تكون مشكولة أيضا يعنى لو بحثنا عن " أتى " بدون تشكيل فالنتيجة = 0

تفضل يا أخى فتح الله علينا بتلوين الخلية محاولة ناجحة و لله الحمد و هذا هو الكود المبارك بالتعاون مع المعادلات Sub Macro1() ' ' Macro1 ãÇßÑæ ' ' Application.ScreenUpdating = False For i = 2 To 100 Range("B" & i).Select With ActiveCell.Characters(Start:=Range("i" & i), Length:=Range("j1")).Font .Name = "Arial" .FontStyle = "ÛÇãÞ" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .Color = -16776961 .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End With Next i Range("a1").Select Application.ScreenUpdating = False البحث عن كلمة داخل خلية وتلوينها.zip

لا أظن هذا سهلا مع وجود التشكيل فحركات التشكيل فتحة ضمة كسرة سكون تحتسب حرفا فقد استخدمت الدوال الممكنة لتحديد موضع بداية ورود الكلمة فإنها تعطى رقما أبعد من المكان الحقيقى مثلا كلمة أتى المشكلة تأتى فى الآية الثانية فى رقم 41 بينما موضعها الحقيقى فى 21 وذلك بسبب حروف التشكيل خذ ما أنجزته بالملف لعل الله يفتح علينا بالمزيد وفوق كل ذى علم عليم البحث عن كلمة داخل خلية و تحديد موضعها.zip

أرفق ملفا

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

جيد لكن هل الناتج 9 صحيح؟ أعتقد الناتج = 8

أخى استخدم المعادلة التالية =SUMPRODUCT((C4:C20>=4)*(C4:C20<5))

أنت تقول تريد طباعة كل سطر على حدة ثم قلت ونرغب في طباعة من رقم 10 الي رقم 20 هل سيطبع كل سطر على ظرف؟ يعنى كل عنوان شخص على ظرف

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

تفضل أخى الملف بعد التعديل نقاط التلاميذ-kemas2.zip

عفوا خطأ بسيط If Val(Me.Controls("TextBox" & i).Text) > 10 Then TextBox1.Text = "" Exit Sub عدل السطر الثانى إلى Me.Controls("TextBox" & i).Text = ""

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

أضف السطور التالية داخل الحلقة For i = 1 To 4 If Val(Me.Controls("TextBox" & i).Text) > 10 Then TextBox1.Text = "" Exit Sub myc.Offset(0, i + 6).Value = Me.Controls("textbox" & i).Text Me.Controls("textbox" & i).Text = "" Next i ثم لإجبار مربع النص على قبول الأرقام فقط دون الحروف ضع الكود التالى فى حدث keypress لكل مربع نص Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End Sub

جزاكم الله خيرا إخوتى الكرام موضوع منذ فترة طويلة أخ aghanem من تحت ركام الموضوعات جزاكم الله خيرا

نعم يمكنك إضافة السطور التالية قبل كود كل مربع نص If Val(TextBox1.Text) > 100 Then TextBox1.Text = "" Exit Sub كى تتجاهل القيمة التى هى أكبر من 100 ومثله طبعا لمربع النص الثانى

تفضل مولانا استخدم الكود التالى مع الزر المسمى " ترحيل " Private Sub CommandButton1_Click() Dim myrng As Range Dim myc As Range With Sheets("ÍÌÒ ÇáäÞÇØ") Set myrng = .Range("b9:b100") For Each myc In myrng If myc.Value = Me.ComboBox1.Value Then For i = 1 To 4 myc.Offset(0, i + 6).Value = Me.Controls("textbox" & i).Text Me.Controls("textbox" & i).Text = "" Next i myc.Offset(0, 13).Value = Me.Controls("textbox5").Text Me.Controls("textbox5").Text = "" End If Next myc End With End Sub نقاط التلاميذ-kemas.zip

شكرا أخى مزلزل شكرا أخى aghanem

تفضل أخى وجدت ذلك عندى CONTROL 1.rar

ما الــ plag ؟ رحمك الله ؟

تفضل مولانا

تفضل مولانا

شكرا لك أستاذى بارك الله فيك