اذهب الي المحتوي
أوفيسنا

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

05 عضو ذهبي
  • Posts

    1,100
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو محمد الورفلي1

  1. السلام عليكم جميل يا استاذ محمود بارك الله فيك
  2. السلام عليكم اطراء للموضوع وجدت بعض الاكواد للعباقرة في المنتدي فجمعتها واذ كان هناك خطاء ياريت الاستاذ جمال التعديل عليها ووضع لمساته السحرية (( جمع الكودين في كود واحد )) انظر المرفق ترحيل بقائمة منسدلة1.rar
  3. السلام عليكم الاستاذ الكريم/ اسلام الشيمي بارك الله فيك علي الفيديو
  4. السلام عليكم ارفق ملف وستجد ان شاء الله من يساعدك
  5. السلام عليكم شكراً على الدعاء الطيب الله لايحرمك الاجركذالك وشكراً لك اخي (( زمزم ))
  6. السلام عليكم لمسة جميل يااستاذ ابراهيم بارك الله فيك
  7. وعليكم السلام الاستاذ s.nebala الشكر لله ومرحباً بك في هذا الصرح العلمي وستجد مايسر قلبك
  8. اخي اكرامي صدقت لايفتج علي الصفحة الرئيسية لاني لااعرف الكود ممكن احد الاخوه يضف الكود المناسب لذالك ونتعلم منه وجزاكم الله خيراً
  9. السلام عليكم الفكرة جميلة محاولة صغيرة مني كشف النقوط 1.rar
  10. السلام عليكم ورحمة الله اريد كود او طريقة تمنع عدم السماح بدخول قيمةعشوائية في تكست الشرح في المرفق تجربة1.rar
  11. عليكم السلام الاخت الفاضلة بارك الله فيك على الاهتمام انا اقصد خاصية الكود في حد ذاته فيم يخص هذه الاسطر 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
  12. السلام عليكم بارك الله فيك ::: ام عبد الله :: ياريت شرح مفصل للكود رقم 1 نكون شاكرين جداً على فكر اﻻكواد السابقة جميلة جداً كلها ولكن الكود رقم 1 شدني واريد شرح لكيفية عملها
  13. السلام عليك ورحمة الله اخي الفاضل رجب والله مشعارف ايش انقولك ( ( بارك الله فيك ورزقك الله الخير ورحم الله والديك )) ::: أمين :::
  14. 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 السلام عليكم كل عام وانتم طيبون بمناسبة العام الدراسي الجديد الاخوة الافاضل هل ممكن جعل مفتاح اضافة دوائر وحذف دوائر في مفتاح واحد
  15. السلام عليكم شكراً الاخ العزيز علي القلب ((رجب جاويش ))
  16. السلام عليكم ممكن اخفاء عمود معين وإظهارة في كود واحد إخفاء عمود.rar
  17. السلام عليكم ممكن برنامج لاازالة حماية ملف اكسيل من الخارج
  18. السلام عليكم الاستاذ العبقري ضاحي بسم الله ما شاء الله عمل اكثر من رائع
  19. السلام عليكم جميل جداَ كل يوم نتعلم منكم شى جديد شكراً
  20. السلام عليكم انظر الي هذه الخطوه ويمكن التعديل علي كل شي من الاساتذة مختبر.rar
  21. السلام عليكم هذا العمل جميل ياريت تكون الاعدادات في الاختيار من البداية في قاعدة البيانات مثال (( وجود مسيحيين او لا توجد دول لا يوجد بها مسيحيين نهائ - النظام ثانوي او اعدادي - الرقم القومي او الوطني من كم رقم (( والرقم المخصص للذكر او الانثى في المرتبة العددية الكم وتكون قائمة منسدلة بها ارقام - نوع وعدد المواد - تغيير اسماء المواد تكون مرنه لاختلاف الاسماء بين الدول العربية - كذالك توزيع درجات المواد ... هذا حتي يتسنى لنا استخدام اعمالك انت والاستاذ القدير قنديل والله ولي التوفيق
×
×
  • اضف...

Important Information