بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|

محمد الورفلي1
05 عضو ذهبي-
Posts
1,100 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو محمد الورفلي1
-
مساعدة في عد سماح ادخال عشوائي في فورم
محمد الورفلي1 replied to محمد الورفلي1's topic in منتدى الاكسيل Excel
للرفع -
برجاء مساعدتى فى ترتيب الاسماء وفقاً لكل عمود
محمد الورفلي1 replied to محمد فاروق محمود's topic in منتدى الاكسيل Excel
السلام عليكم جميل يا استاذ محمود بارك الله فيك -
رقم تسلسلي مكرر في حال كان نفس رقم الطالب
محمد الورفلي1 replied to emo0o0o's topic in منتدى الاكسيل Excel
السلام عليكم اطراء للموضوع وجدت بعض الاكواد للعباقرة في المنتدي فجمعتها واذ كان هناك خطاء ياريت الاستاذ جمال التعديل عليها ووضع لمساته السحرية (( جمع الكودين في كود واحد )) انظر المرفق ترحيل بقائمة منسدلة1.rar -
السلام عليكم الاستاذ الكريم/ اسلام الشيمي بارك الله فيك علي الفيديو
-
رقم تسلسلي مكرر في حال كان نفس رقم الطالب
محمد الورفلي1 replied to emo0o0o's topic in منتدى الاكسيل Excel
السلام عليكم ارفق ملف وستجد ان شاء الله من يساعدك -
برنامج المصحف المعلم
محمد الورفلي1 replied to محمد الورفلي1's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
السلام عليكم شكراً على الدعاء الطيب الله لايحرمك الاجركذالك وشكراً لك اخي (( زمزم )) -
المساعدة في تفعيل خاصية الحذف بفورم البحث
محمد الورفلي1 replied to عاشق الاسلام's topic in منتدى الاكسيل Excel
السلام عليكم لمسة جميل يااستاذ ابراهيم بارك الله فيك -
ممكن برنامج لاازالة حماية ملف اكسيل من الخارج
محمد الورفلي1 replied to محمد الورفلي1's topic in منتدى الاكسيل Excel
للرفع الملفات خاصة ولايمكنني رفعها -
برنامج نقوط الفرح!! أرجو التكملة
محمد الورفلي1 replied to اكرامى رمضان's topic in منتدى الاكسيل Excel
اخي اكرامي صدقت لايفتج علي الصفحة الرئيسية لاني لااعرف الكود ممكن احد الاخوه يضف الكود المناسب لذالك ونتعلم منه وجزاكم الله خيراً -
برنامج نقوط الفرح!! أرجو التكملة
محمد الورفلي1 replied to اكرامى رمضان's topic in منتدى الاكسيل Excel
السلام عليكم الفكرة جميلة محاولة صغيرة مني كشف النقوط 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
-
ممكن برنامج لاازالة حماية ملف اكسيل من الخارج
محمد الورفلي1 replied to محمد الورفلي1's topic in منتدى الاكسيل Excel
السلام عليكم للرفع -
السلام عليكم ممكن برنامج لاازالة حماية ملف اكسيل من الخارج
-
برنامج أوفيسنا للتحاليل الطبية - ضاحي الغريب
محمد الورفلي1 replied to ضاحي الغريب's topic in منتدى الاكسيل Excel
السلام عليكم الاستاذ العبقري ضاحي بسم الله ما شاء الله عمل اكثر من رائع- 29 replies
-
- ضاحي الغريب
- يوزفورم
-
(و2 أكثر)
موسوم بكلمه :
-
السلام عليكم جميل جداَ كل يوم نتعلم منكم شى جديد شكراً
-
قاعدة بيانات خاصة بمختبر تحاليل طبية بالاكسل
محمد الورفلي1 replied to ammar444's topic in منتدى الاكسيل Excel
السلام عليكم انظر الي هذه الخطوه ويمكن التعديل علي كل شي من الاساتذة مختبر.rar -
السلام عليكم هذا العمل جميل ياريت تكون الاعدادات في الاختيار من البداية في قاعدة البيانات مثال (( وجود مسيحيين او لا توجد دول لا يوجد بها مسيحيين نهائ - النظام ثانوي او اعدادي - الرقم القومي او الوطني من كم رقم (( والرقم المخصص للذكر او الانثى في المرتبة العددية الكم وتكون قائمة منسدلة بها ارقام - نوع وعدد المواد - تغيير اسماء المواد تكون مرنه لاختلاف الاسماء بين الدول العربية - كذالك توزيع درجات المواد ... هذا حتي يتسنى لنا استخدام اعمالك انت والاستاذ القدير قنديل والله ولي التوفيق
- 51 replies
-
- ضاحي الغريب
- Userform
-
(و3 أكثر)
موسوم بكلمه :