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

السلام عليكم تفضل المرفق ABUSARAH73.rar

السلام عليكم في الماكرو الي يفتح الفورم اضف بجانب Show كلمة False UserForm1.Show False او الرقم 0 UserForm1.Show 0 او من خصائص الفورم ShowModel اجعلها False خبور خير

======================== الاخ الفاضل / هشام ========================

الاخ الحبيب / هشام (ابوعبدالله) عمل رائع جداً سلمت يداك و

السلام عليكم جرب الكود التالي: Sub SelectUp() On Error Resume Next Dim MyCel As Range, MyRng As Range Dim R As Integer For R = 1 To 2 Set MyCel = ActiveCell Set MyRng = Range(MyCel, MyCel.End(xlUp)).Cells.SpecialCells(xlCellTypeConstants, xlNumbers) MyRng.Activate Next On Error GoTo 0 End Sub

السلام عليكم تم التعديل على كود اخي هشام الله يبارك فيه Sub SelectUp() On Error Resume Next Dim MyCel As Range, MyRng As Range Set MyCel = ActiveCell.Offset(-1, 0) Set MyRng = Range(MyCel, MyCel.End(xlUp)).Cells.SpecialCells(xlCellTypeConstants, xlNumbers) MyRng.Activate On Error GoTo 0 End Sub تفضل المرفق تحديد أقرب سلسلة أرقام متصلة عاموديا.rar

السلام عليكم جمعة مباركة الاخ الفاضل/ خالدالقدس ------حفظه الله والاخ الفاضل / هشام ---------حفظه الله اكرمكما الله وبارك فيكما ================================ لتحريك شريط التمرير الى الصف رقم 1 الشكل ده عبارة عن صورة من عرض ....اشرطة الادوات...مربع ادوات التحكم اختار صورة وضعها في اي مكان تريد في الصفحة ثم اذهب الى شريط الصيغة وامسح المعادلة المرتبطة بالصورة وضع المعادلة خاصتك مرفق ملف فيديو IMAGE.rar خبور خير

السلام عليكم بالنسبة لكود الفرز ممكن استخدام كود التصفية المتقدمة Sub G_AutoFilter() Range("A2:F14").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("I1:I2"), Unique:=True ActiveWindow.ScrollRow = 1 End Sub شاهد المرفق شكل وفرز_1.rar

السلام عليكم تفضل المرفق خبور خير شكل وفرز.rar

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

السلام عليكم من ادوات ...خيارات ...امان خيارات الخصوصية ابعد التشييك من ازالة المعلومات الشخصية من خصائص الملف عند الحفظ مرفق ملف فيديو خبور خير kh_d.rar

السلام عليكم الاخ الحبيب/ ابو عبدالله ------حفظه الله اكرمك الله في الدارين واثابك بدعائك اضعاف مضاعفة تقبل تحياتي وشكري

السلام عليكم تفضل المرفق ا1لمخالفات 02-2010.rar

السلام عليكم بعد اذن اخي بن علية حفظه الله استخدمت نفس كود طباعة الشهادات مع بعض التغييرات ويمكنك تغيير اعدادات نموذج الطباعة من هذه الجزئية في الكود '*********************************************** '*********************************************** ' اسم ورقة جميع الايصالات Const ShName As String = "جميع الايصالات" ' رقم اول صف للايصال Const FirstRow As Integer = 7 ' عدد صفوف الايصال Const CountRow As Integer = 30 ' رقم اول عمود للايصال Const FirstColumn As Integer = 2 'عدد اعمدة الشهادة التي تريد اظهارها في الطباعة Const CountColumn As Integer = 15 ' خلية تسلسل الايصالات Const Range_Index As String = "A7" ' خلية عدد كل الايصالات Const CountAll As String = "J3" '************************************************ '************************************************ شاهد المرفق طباعة الكل.rar

السلام عليكم الاخ الفاضل / هشام ------حفظه الله دي ارقام رموز الحروف الكبييرة الانجليزية شاهد الصورة: ويتم تحويل جميع الحروف المكتوبة بالانجليزية في التاكست الى حروف كبيرة باستخدام UCase(TextBox) ليتعرف عليها الكود =================================== الاخ الفاضل / abuzzouz------حفظه الله اكرمك الله واثابك بمثل دعائك اضعاف مضاعفة تقبلا تحياتي وشكري

السلام عليكم التصفية ليس لها علاقة بعمل الكود انا عملت التصفية فقط لاتاكد من صحة المنقول بالكود

السلام عليكم يمكنك استخدام الكود التالي: Private Sub Button_Click() If TextBox = "" Then MsgBox "فارغ" Else If Asc(UCase(TextBox)) >= 65 And Asc(UCase(TextBox)) <= 90 Then Range("C4") = TextBox.Value Else Range("B4") = TextBox.Value End If End If End Sub Abuzzouz.rar

السلام عليكم تفضل جزء من الطلب لان الصفحة الثانية عناوين الاعمدة غير موجودة في التقرير خبور خير ا1لمخالفات 02-2010.rar

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

السلام عليكم استخدم الكود التالي: Sub KH_ClearContents() Dim C As Range For Each C In Range("A1:A10") If C.Value = Range("C1").Value Then C.ClearContents End If Next End Sub

السلام عليكم تفضل المرفق نموذج شهادة.rar

السلام عليكم من القائمة ملف ..اعداد الصفحة..ورقة حفز ابيض واسود

السلام عليكم ساعطيك طريقتين للتسمية الطريقة الاولى : بتحديد النطاق ثم الذهاب الى مربع الاسم وكتابة الاسم الذي تريده ثم اضغط زر انتر مرفق شرح فيديو مع الصوت bosh.rar ====================================== الطريقة الثانية: مرفق شرح فيديو فيه الكفاية bosh1.rar ودمتم

السلام عليكم اخي الفاضل ارفق ملف فيه بيانات للطلاب وليس فارغ واعمل شهادة منسقة ومتكاملة البيانات وهل تريد استخراج شهادات للناجحين ودور ثاني ؟

السلام عليكم الاخ قصي دالة اوفيس دالة استخدمت كثيرا في الملفات وهي من المعادلا ت التي لا تستغني في كثير من الامور ولكنني ساعطيك تعليمات الدالة للتعرف على المزيد OFFSET إرجاع مرجع إلى نطاق عبارة عن رقم معين من الصفوف والأعمدة من خلية أو نطاق خلايا. من الممكن أن يكون المرجع الذي يتم إرجاعه عبارة عن خلية مفردة أو نطاق من الخلايا، يمكنك تحديد عدد الصفوف وعدد الأعمدة التي سيتم إرجاعها. بناء الجملة OFFSET(reference,rows,cols,height,width) Reference (المرجع) المرجع الذي تريد أن تستند إليه الإزاحة. يجب أن يكون المرجع مرجعاً لخلية أو نطاق من الخلايا المتجاورة؛ وإلا ستقوم OFFSET بإرجاع قيمة الخطأ #VALUE!. Rows (الصفوف) عدد الصفوف، لأعلى أو لأسفل، التي تريد أن تشير إليها الخلية العلوية اليمنى. يؤدي استخدام 5 كوسيطة الصفوف إلى أن تكون الخلية العلوية اليمنى في المرجع أسفل المرجع بخمسة صفوف. من الممكن أن تكون Rows موجبة (أي أسفل مرجع البدء) أو سالبة (أي أعلى مرجع البدء). Cols (الأعمدة) عدد الأعمدة، إلى اليمين أو اليسار، التي تريد أن تشير الخلية العلوية اليمنى من الناتج إليها. يؤدي استخدام 5 كوسيطة الأعمدة إلى أن تكون الخلية العلوية اليمنى في المرجع إلى يسار المرجع بخمسة صفوف. من الممكن أن تكون Cols موجبة (أي إلى يسار مرجع البدء) أو سالبة (أي إلى يمين مرجع البدء). Height (الارتفاع) الارتفاع، في عدد الصفوف، الذي تريده للمرجع الذي يتم إرجاعه. يجب أن تكون Height رقماً موجباً. Width (العرض) العرض، في عدد الأعمدة، الذي تريده للمرجع الذي يتم إرجاعه. يجب أن تكون Width رقماً موجباً. ملاحظات إذا كان مرجع إزاحة الصفوف والأعمدة فوق حافة ورقة العمل، تقوم OFFSET بإرجاع قيمة الخطأ #REF!. في حالة تجاهل height أو width، يفترض أنهما نفس ارتفاع وعرض المرجع. لا تنقل OFFSET فعلياً أي خلية أو تغيِّر التحديد؛ لكنها فقط تقوم بإرجاع مرجع. يمكن استخدام OFFSET مع أية دالة تتوقع وسيطة مرجع. فعلى سبيل المثال، تحسب الصيغة SUM(OFFSET(C2,1,2,3,1)) القيمة الإجمالية لنطاق يتكون من 3 صفوف وعمود واحد ويقع أسفل الخلية C2 بصف واحد وإلى اليسار منها بعمودين. اذا فهمت هذه التعليمات ستصبح الدالة لك مثل العجينة بين يديك ودمتم في حفظ الله