بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
جلال الجمال_ابو أدهم
-
Posts
1,417 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
6
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه جلال الجمال_ابو أدهم
-
-
ضاحي الغريب شوقي ربيع حمادة عمر محمد طاهر
الساده الافاضل
تحياتى و ايام مباركهارجو منكم المشاركه دايما و عدم الغياب عنا
لان المنتدى كان فى وقت من الاوقات كان فيه فراغ غير طبيعى
التمس العذر للجميع والله و لكن كان فيه وقت لما لم ندخل على المنتدى
نحس ان فى حاجه غلط و نقصاناو عن شخصى كنت حزين الى ما وصل اليه المنتدى و الواحد يكون فرحان لما تأتى مشاركه
مثل هذه المشاركه بعد غيبه من فرسان هذا المنتدى
و يمكن الاطلاع على الرابط التالى علشان محدش يغيب علينا بعد كدهارجو من الله تعالى رجوع فرسان هذا المنتدى و خصوصا الغالى علينا عبدالله باقشير فك الله محنة بلاده
و بالتوفيق لمن استقل بمنتدى شخصى له و ايضا لا يحرمنا من مشاركاتهو رحم الله اخونا
الحسامي
Emad Al.Hosami
الحساميالحسامي
-
2
-
-
محمد الريفى
اخى الفاضل جزاك الله خيرا
-
1
-
-
تحياتى و ايام مباركه
تصفح الاتى
-
-
اخى الفاضل
تحياتى و ايام مباركهتابع المرفق
-
حمادة عمر
اخى الفاضل جزاك الله خيرا
تحياتى-
1
-
-
حمادة عمر
اخى الفاضل جزاك الله خيرا
تحياتى-
1
-
-
-
تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة _ بحث داخل شيت اكسلمشاركة من الفاضل أ / أبو حنــــين
مرفق الملف و الشرح
و لا تنسونا من صالح الدعاء
تحياتى
-
تحياتى و ايام مباركه
من هنا -
ناصرالمصرى
تحياتى و ايام مباركه
-
تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة تحويل من وإلى الهجريتم ارفاق كود الحل من الفاضل ا / عبدالله باقشير
مرفق الملف و الشرح
و لا تنسونا من صالح الدعاء
تحياتى
-
تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركةمرفق الملف و الشرح
و لا تنسونا من صالح الدعاء
تحياتى
-
1
-
-
تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة استخراج تقارير و التقاريرتم ارفاق كود الحل من الفاضل ا / عبدالله باقشير
مرفق الملف و الشرح
و لا تنسونا من صالح الدعاء
تحياتى
-
تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة طلب كود البحث بين تاريخين vbaتم ارفاق كود الحل من الفاضل ا / الـعيدروس
مرفق الملف و الشرح
و لا تنسونا من صالح الدعاء
تحياتى
-
أبو جاسم
اخى الفاضل مرفق المطلوب و اكثر من موضوعات ذات صله و هى موضوعات البحث مع الفلترة
من هناتحياتى
-
تم رفع هذا الكود فى مشاركة منفصله كيفية منع تكرار الأرقام والأسماء
حتى لا ننسى هذه المشاركة من الفاضل ا / عبدالله باقشيرPrivate Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Set ww = Application.WorksheetFunction If Not Intersect(Target, Range("B5:C" & Target.Row)) Is Nothing Then If ww.CountIf(ww.Index(Range(Cells(5, Target.Column), _ Cells(Target.Row, Target.Column)), 0, 1), Target.Value) > 1 Then MsgBox "الادخال : " & Target.Value & " مكرر سيتم حذفه ", vbMsgBoxRight, "ادخال مكرر" Cells(Target.Row, Target.Column).Select Selection = "" Exit Sub End If End If End Subمرفق الملف و الشرح
منع المتكررات بالكود
المثال على عمودين B و C
ويبدأ من الصف رقم 5 الى الاسفل
و بالمعادلات
و لا تنسونا من صالح الدعاء
تحياتى
-
مجدى يونس
الاخ و المعلم الفاضل جزاك الله خيرا
تحياتى -
تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة عدة ادخالات بفورم واحدتم ارفاق كود الحل من الفاضل ا / عبدالله باقشير
مرفق الملف و الشرح
فورم ترحيل و ادخال طبقا لرؤوس الاعمده.rar
__________________________________.rar
و فورم ادخال و ترحيل افقى للبيانات
مرفق الملف و الشرح
و لا تنسونا من صالح الدعاء
تحياتى
-
1
-
-
تم رفع هذا الكود فى مشاركة منفصله كيفية منع تكرار الأرقام والأسماء
حتى لا ننسى هذه المشاركة من الفاضل ا / asmo200666Sub DeleteDups() Dim x As Long Dim LastRow As Long LastRow = Range("A65536").End(xlUp).Row For x = LastRow To 1 Step -1 If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & x).Text) > 1 Then Range("A" & x).EntireRow.Delete End If Next x End Subمرفق الملف و الشرح
منع المتكررات بالكود
الغاء الصفوف التى بها تكرار فى العمود A اول باول
و لا تنسونا من صالح الدعاء
تحياتى
-
على متولى
اخى الفاضل جزاك الله خيرا
-
تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركةمرفق الملف مشاركة من الفاضل / عبدالله باقشير
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo khboor If Target.Column = 1 Then Range("B" & Target.Row).Value = Range("B" & Target.Row).Value + Range("A" & Target.Row).Value End If khboor: Exit Sub End Subمرفق الملف و الشرح
SSS.rarو لا تنسونا من صالح الدعاء
تحياتى
-
تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة كود توزيع الأسماء بالعدد الذي نبغاهتم ارفاق كود الحل من الفاضل_ أ / عبدالله باقشير
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
ارجوا الانتباه للتالي:
كشف الفصول يتسع كحد اقصى الى 90 طالب
مقسمة 45 صف لكل نصف من ورقة الكشف
عندما تختار عدد فصول معينة يكون ناتجه اكثر من 90 طالب
لايعمل الكود ويقوم باشعارك
طريقة عمل الكشوفات:
اكتب في مربع النص عدد الفصول المطلوبة وهو سيقوم بتقسيم الطلبة الموجودين
على هذه الفصول بترتيب متوازي بالنسبة لابجدة الاسماء والعدد لكل فصل
مع ترتيب البيانات تصاعديا حسب الابجدة بالنسبة للاسماء
تفضل المرفق ان شاء الله فيه الحل الذي تريد
ودمتم في حفظ الله وسلامته
مرفق الملف و الشرح
و لا تنسونا من صالح الدعاء
تحياتى
-
تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركةتم ارفاق كود الحل من الفاضل_ أ / أبو تامر_عمر الحسينى
مرفق الملف و الشرح
Copy_Every_Name_2_Sh_2_N_Wb.rar
و لا تنسونا من صالح الدعاء
تحياتى
-
1
-
محتاج برنامج فواتير مبيعات وارصدة الاصناف وحركه الاصناف والمشتريات
في منتدى الاكسيل Excel
قام بنشر
lightheart