محمد الورفلي1

للرفع

السلام عليكم جميل يا استاذ محمود بارك الله فيك

السلام عليكم اطراء للموضوع وجدت بعض الاكواد للعباقرة في المنتدي فجمعتها واذ كان هناك خطاء ياريت الاستاذ جمال التعديل عليها ووضع لمساته السحرية (( جمع الكودين في كود واحد )) انظر المرفق ترحيل بقائمة منسدلة1.rar

السلام عليكم الاستاذ الكريم/ اسلام الشيمي بارك الله فيك علي الفيديو

السلام عليكم ارفق ملف وستجد ان شاء الله من يساعدك

السلام عليكم شكراً على الدعاء الطيب الله لايحرمك الاجركذالك وشكراً لك اخي (( زمزم ))

السلام عليكم لمسة جميل يااستاذ ابراهيم بارك الله فيك

وعليكم السلام الاستاذ s.nebala الشكر لله ومرحباً بك في هذا الصرح العلمي وستجد مايسر قلبك

للرفع الملفات خاصة ولايمكنني رفعها

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

السلام عليكم الفكرة جميلة محاولة صغيرة مني كشف النقوط 1.rar

السلام عليكم ورحمة الله اريد كود او طريقة تمنع عدم السماح بدخول قيمةعشوائية في تكست الشرح في المرفق تجربة1.rar

عليكم السلام الاخت الفاضلة بارك الله فيك على الاهتمام انا اقصد خاصية الكود في حد ذاته فيم يخص هذه الاسطر ActiveWindow.ScrollRow = 51 ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("J8:J67 هل ممكن الشرح بنفس طريق استاذ علي ملاحظة هذا شرح للاخ علي بارك الله فيه لااحد الاكواد 'هذا الكود يستخدم في حالة إذا كانت اول خليه في العمود بها اسم هذا العمود مثل الفصل .... التاريخ ' 'أخوكم في الله : علي المصري ' 'هذا الكود يستخدم في حالة إذا كانت اول خليه في العمود بها اسم هذا العمود مثل الفصل .... التاريخ ' 'أخوكم في الله : علي المصري ' Private Sub Worksheet_Activate() Dim MyRange As Range Dim myCell As Range Set MyRange = Range("G:G") 'هذا السطر يكتب به العمود المراد ابجدته Set myCell = Range("G1") ' هذا السطر تكتب به الخليه التي بها عنوان العمود MyRange.Sort Key1:=myCell, Order1:=xlAscending, Header:=xlYes End Sub الكود الثاني إذا كان العمود لا يحتوي راس له هل ممكن توضيح لطريق عمل هذالكود بنفس طريقة الاخ علي الكود وترجمة او توضيح للمعني بالعربي Sub Farz() ' ' ' farz ماكرو ' ' Range("B8:Q67").Select ActiveWindow.ScrollRow = 51 ActiveWindow.ScrollRow = 50 ActiveWindow.ScrollRow = 49 ActiveWindow.ScrollRow = 48 ActiveWindow.ScrollRow = 47 ActiveWindow.ScrollRow = 46 ActiveWindow.ScrollRow = 45 ActiveWindow.ScrollRow = 43 ActiveWindow.ScrollRow = 42 ActiveWindow.ScrollRow = 40 ActiveWindow.ScrollRow = 37 ActiveWindow.ScrollRow = 32 ActiveWindow.ScrollRow = 24 ActiveWindow.ScrollRow = 20 ActiveWindow.ScrollRow = 11 ActiveWindow.ScrollRow = 7 ActiveWindow.ScrollRow = 1 ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("J8:J67") _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("D8:D67") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("I8:I67") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("H8:H67") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("G8:G67") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").Sort .SetRange Range("B8:Q67") .Header = xlGuess .MatchCase = True .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub

السلام عليكم بارك الله فيك ::: ام عبد الله :: ياريت شرح مفصل للكود رقم 1 نكون شاكرين جداً على فكر اﻻكواد السابقة جميلة جداً كلها ولكن الكود رقم 1 شدني واريد شرح لكيفية عملها

السلام عليك ورحمة الله اخي الفاضل رجب والله مشعارف ايش انقولك ( ( بارك الله فيك ورزقك الله الخير ورحم الله والديك )) ::: أمين :::

Sub KH_Dwayr() Dim X As Integer, i As Integer, c As Integer, cc As Integer Dim myshp As Shape '=========================== Del X = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 For i = 11 To Cells(Rows.Count, "B").End(xlUp).Row Step 4 For cc = 1 To 10 ' هنا تحدد الاعمدة المطلوبة c = Choose(cc, 8, 9, 12, 13, 16, 17, 20, 21, 25, 27) With Cells(i, c) If Not IsEmpty(.Value) And Val(.Value) < 0.5 * Val(Cells(10, c)) Or .Value = "غ" Then Set myshp = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left + 2, .Top + 1, .Width - 2, 4 * .Height - 2) With myshp .Fill.Visible = msoFalse .Line.Weight = 2 .Line.ForeColor.SchemeColor = 10 .Line.Visible = msoTrue .Shadow.Visible = msoFalse End With End If End With Next Next ActiveWindow.Zoom = X Application.ScreenUpdating = True End Sub شاهد المرفق 2003 السلام عليكم كل عام وانتم طيبون بمناسبة العام الدراسي الجديد الاخوة الافاضل هل ممكن جعل مفتاح اضافة دوائر وحذف دوائر في مفتاح واحد

السلام عليكم شكراً الاخ العزيز علي القلب ((رجب جاويش ))

السلام عليكم ممكن اخفاء عمود معين وإظهارة في كود واحد إخفاء عمود.rar

السلام عليكم للرفع

السلام عليكم ممكن برنامج لاازالة حماية ملف اكسيل من الخارج

السلام عليكم الاستاذ العبقري ضاحي بسم الله ما شاء الله عمل اكثر من رائع

السلام عليكم جميل جداَ كل يوم نتعلم منكم شى جديد شكراً

السلام عليكم انظر الي هذه الخطوه ويمكن التعديل علي كل شي من الاساتذة مختبر.rar

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