عبدالله باقشير

السلام عليكم اكرمك الله استخدم المعادلة التالية في التحقق من الصحة اعدادات =AND($M2="مسلم";B2<=30) وغير ايضا في رسالة التنبيه عن الخطأ بما تريده من عبارات ملائمة وبالمثل في عمود الدين المسيحي مع تغيير العلامة والخلية ودمتم في حفظ الله

السلام عليكم تفضل المرفق باستخدام التحقق من الصحة فقط بدون اكواد Book1.rar

السلام عليكم طلبك في الموضوع التالي: عدد ايام يوم معين باسمه (السبت ..الاحد) بين فترتين بالمعادلات

السلام عليكم معادلة لاستخراج عدد يوم معين باسمه (السبت ..الاحد) بين فترتين =SUMPRODUCT(--(TEXT(B4-1+ROW(INDIRECT("1:"&C4-B4+1));"dddd")=$D$3)) طلب للاخ ابن المبارك اضغط هنا جعلته هنا لتعم الفائدة عدد ايام يوم معين بالمعادلات.rar

السلام عليكم شاهد المرفق Test2.rar

السلام عليكم اذن استخدم الطريقة هذه التي في المرفق sort.rar

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

السلام عليمكم دي طريقة ممكن تتجاوز هذا الاشكال غ هي الرقم صفر منسقة بتنسيق الارقام يعني لما تكتب صفر سيظهر غ فقط وهو اساسا الرقم صفر شاهد المرفق sort.rar

السلام عليكم عند اظهارك للفورم تتغير القائمة Private Sub UserForm_Activate() Dim myCell As Range, myRange As Range Set myRange = Range("B5:B200") For Each myCell In myRange If myCell = "" Then GoTo 1 If myCell.EntireRow.Hidden = False Then ComboBox1.AddItem myCell 1 Next myCell End Sub شاهد المرفق خالد القدس.rar

السلام عليكم ورحمة الله الاخ الفاضل/ خالد القدس ----- حفظه الله الله يكرمك دنيا وآخرة وجزاك الله خيرا =================================== الاخ الفاضل/ كات ----- حفظه الله الله يشفيك وعايزين ملف من الواقع =================================== الاخ الفاضل/ حسن محمد----- حفظه الله هو اسم لنطاق خلايا البيانات اذهب الى مربع الاسم واختار myrng ستحدد لك نطاق البيانات المشمول للاسم =================================== الاخت الفاضلة/ صفا----- حفظها الله جزاك الله خيرا

السلام عليكم عندك اكواد في موديل الورقة الناسخة يجب ايقاف تشغيلها غير الجزئية هذه من الكود: Application.ScreenUpdating = False '=============================================== ' اسم الورقة التي تريد نسخها Sheets("الناسخة").Copy After:=Sheets(ActiveWorkbook.Sheets.Count) '=============================================== Set xlSheet = ActiveSheet With xlSheet .Name = TextBox1.Text .[F3] = TextBox1.Text End With Set xlSheet = Nothing Application.ScreenUpdating = True بهذه الجزئية: Application.ScreenUpdating = False Application.EnableEvents = False '=============================================== ' اسم الورقة التي تريد نسخها Sheets("الناسخة").Copy After:=Sheets(ActiveWorkbook.Sheets.Count) '=============================================== Set xlSheet = ActiveSheet With xlSheet .Name = TextBox1.Text .[F3] = TextBox1.Text End With Set xlSheet = Nothing Application.EnableEvents = True Application.ScreenUpdating = True

السلام عليكم اخي الفاضل ONLY------حفظه الله طبعا انت حتغير الورقة الناسخة حسب ما تريده هنا في المثال اخترنا الخلية [L6] للاسم حسب فورم النسخ وطبعا انت حتغيره حسب ورقتك المختارة With xlSheet .Name = TextBox1.Text .[L6] = TextBox1.Text End With وقد وضعت ملف من سابق احدث من ده في المنتدى ساعطيك رابطه اذا وجدته تقبل تحياتي وشكري ==================================== اخي الفاضل الجزيرة------حفظه الله الله يكرمك تقبل تحياتي وشكري

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

السلام عليكم لنفرض ان اسم الورقة التي تريدها "الناسخة" Private Sub CommandButton1_Click() On Error Resume Next Dim xlSheet As Worksheet Dim xlSh As Worksheet If Me.BackColor = 192 Then MsgBox "الاسم مرفوض نصياً", vbInformation + vbMsgBoxRight, "تنبيه": GoTo 1 If TextBox1.Text = "" Then MsgBox "خلايا فارغة ", vbInformation + vbMsgBoxRight, "تنبيه": GoTo 1 For Each xlSh In ActiveWorkbook.Worksheets If xlSh.Name = Application.Trim(TextBox1.Text) Then MsgBox "اسم مكرر", vbInformation + vbMsgBoxRight, "تنبيه": GoTo 1 Next xlSh B = MsgBox(" هل تريد اضافة " & vbNewLine & "" & vbNewLine & "الحساب : " & TextBox1.Text, vbOKCancel + vbQuestion + vbMsgBoxRight, "تأكيد اضافة حساب") If B = 2 Then GoTo 1 Application.ScreenUpdating = False '=============================================== ' اسم الورقة التي تريد نسخها Sheets("الناسخة").Copy After:=Sheets(ActiveWorkbook.Sheets.Count) '=============================================== Set xlSheet = ActiveSheet With xlSheet .Name = TextBox1.Text .[L6] = TextBox1.Text End With Set xlSheet = Nothing Application.ScreenUpdating = True End On Error GoTo 0 1 End Sub شاهد المرفق نسخ صفحات1.rar

السلام عليكم اخي الفاضل كات حفظه الله اريد ملفا اقرب الى الواقع او ملف حقبقي من ورقتين ورقة للبيانات فيها علامات مكتملة لكل المواد وورقة فيها نموذج للشهادة وسنرى حينها كيف سنطبق كود الدوائر واذا لم يفلح سنطبق التنسيق الشرطي ارجوا الاهتمام بما طلبت ============================================= اخي الفاضل / خالد القدس حفظه الله جزاك الله خيرا يا طيب القلب اريد رايك في تصميم الرابط ده لمواضيعي في المنتدى http://www.officena.net/team/khboor/topics1.htm ودمتم في حفظ الله

السلام عليكم ورحمة الله الاخ الحبيب / محمدي عبد السميع ----- حفظه الله جزاك الله خيرا =================================== الاخ الفاضل/ بن علية ----- حفظه الله اكرمك الله في الدارين وجزاك الله خيرا =================================== الاخ الفاضل/ alyfahem ----- حفظه الله جزاك الله خيرا =================================== الاخ الفاضل/ آيسم إبراهيم ----- حفظه الله اكرمك الله في الدارين وجزاك الله خيرا اذا اضفنا كود الدوائر في الملف لن يصبح الملف عام للكل ممكن تستخدم التنسيق الشرطي افضل لهذا العمل او كود اضافي للدوائر منفصلا عن كود عمل الشهادات =================================== الاخ الفاضل/ khhanna ----- حفظه الله جزاك الله خيرا =================================== تقبلوا تحياتي وشكري

السلام عليكم الخطوات اعمل الشهادة التي تريدها ثم ادخل المعلومات المطلوبة للكود وسيعمل الملف مع اي ملف شهادات ************************************************ ملحوظة : اذا ادخلت في خلايا الشهادة رقم معين وتريده ان يتكرر في كل الشهادات (بدون تسلسل) ادخله كصيغة نصيه مثلا: العام الدراسي ="2009 /2010" والعكس صحيح لو اردت رقم تسلسلي للشهادات في خلية معينة في الشهادة ابتداءا من الرقم 1 ادخل الرقم 1 في الخلية تريدها في الشهادة ستجد في الشهادة الثانية 2 وفي الثالثة 3 وهكذا تباعا *********************************************** المعلومات المطلوبة اعلى الكود : '*********************************************** '*********************************************** ' اسم ورقة الشهادات Const ShName As String = "الشهادات" ' رقم اول صف للشهادة Const FirstRow As Integer = 12 ' عدد صفوف الشهادة Const CountRow As Integer = 12 'عدد اعمدة الشهادة التي تريد اظهارها في الطباعة Const CountColumn As Integer = 13 ' خلية موقع الطالب لمعادلات الشهادة Const Range_Index As String = "A12" '===================================== ' اسم ورقة البيانات Const Sh As String = "بيانات اساسية" ' نطاق ناجح دور ثاني في ورقة البيانات Const MyND As String = "BK10:BK1000" ' نطاق الاسماء في ورقة البيانات Const MyNSearch As String = "B10:B1000" '===================================== ' خلية عدد كل المتقدمين Const CountAll As String = "C3" ' خلية عدد الناجحين Const CountNA As String = "C4" ' كلمة البحث عن الناجحين Const NA_G As String = "ناجح" ' خلية عدد دور ثاني Const CountDT As String = "C5" ' كلمة البحث عن دور ثاني Const DT_G As String = "دور تان" '************************************************ '************************************************ اذا تم ادخال المطلوب بالشكل الصحيح سيعمل الكود على اي ملف تفضلوا المرفق شهادات جديد.rar

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

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

السلام عليكم ايه دخل تثبيت البرنامج في خلاصه او عدم خلاصه ؟؟ قمت بالغاء التثبيت لنفسح المجال لتثبيت شي آخر واظن ان فترة التثبيت كانت كافية لتبادل الاراء والاقتراحات الجديدة ويمكن ابقاء البرنامج في المقدمة باستخدام كلمة للرفع من المهتمين للبرنامج بعد حين وأخر حتى يبقى في الصفحة الاولى . ودمتم في حفظ الله

السلام عليكم الله يزيدك احسانا ورونقا بارك الله فيك هناك خطا في الكود المماثل للكود التالي بعد التصحيح: Private Sub CommandButton3_Click() Dim M As Integer With Sheets("farest (2)") M = .Range("b" & .Rows.Count).End(xlUp).Row + 1 .Range("b" & M).Resize(1, 5) = Array(ComboBox18, TextBox2.Value, TextBox3.Value, TextBox1.Value, TextBox4.Value) End With MsgBox "تم الترحيل بنجاح" TextBox1 = "" End Sub الخطأ كان هنا: M = .Range("b" & .Rows.Count).End(xlUp).Row + 2 بدلا من 2 غيره 1 M = .Range("b" & .Rows.Count).End(xlUp).Row + 1

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

السلام عليكم لقد قمت باختصار تكرار الاكواد في الفورم رقم 6 واضافة ما طلبت شاهد المرفق M12.rar

السلام عليكم لو ارفقتي ملف كان احسن ولكن حسب ما فهمت من الطلب استخدمي التنسيق الشرطي بالمعادلة التالية: =COUNTIF(MyRng;A1)<>0 النطاق MyRng =ورقة1!$A:$A تفضلي المرفق مقارنة عمودين.rar

السلام عليكم بارك الله فيك اخي مزلزل تقبل تحياتي وشكري