اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

جلال الجمال_ابو أدهم

06 عضو ماسي
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1,417

  • تاريخ الانضمام

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

  • Days Won

    6

 نوع المحتوي 

مشاركات المكتوبه بواسطه جلال الجمال_ابو أدهم

    بحث متقدم - سرعة عالية ومرونة باستخدام المصفوفات

    في منتدى الاكسيل Excel

    قام بنشر

    ياسر العربى

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

    و يرجى رفع الملف النهائى بعد اجراء جميع التعديلات على الكود الذى تم خلال المشاركات
    و هو ملفين ملف بحث الاصلى و الثانى ملف بحث بين تاريخين

    لانى بينى و بينك انا تهت بين الملفات فى المشاركات
    تحياتى

    موضوع مميز_فورم بحث واضافة و تعديل مع خاصية البحث بالفورم

    في منتدى الاكسيل Excel

    قام بنشر

    تم رفع هذا الكود فى مشاركة منفصله


    حتى لا ننسى هذه المشاركة  

     

    تم ارفاق كود الحل من الفاضل ا / أبوعبد الله

     

    دليل هاتف بسيط قمت بعمل تعديلات بسيطة عليه مثل إضافة ميزة فورم البحث بأي جزء من أي معلومة عن السجل المراد البحث عنه وبعض التعديلات البسيطة مثل إمكانية البحث بنقرة مزدوجة على أي خلية بعمود الأسماء وطريقة إضافة سجل جديد والشكر طبعاً موصول وأكيد لصاحب الملف فجزاه الله خير الجزاء.

     

     

    مرفق الملف

     

    TEL_INDEX______________.rar

     

     و لا تنسونا من صالح الدعاء

    تحياتى

    قائمة منسدلة تعرض بيانات عمودين

    في منتدى الاكسيل Excel

    قام بنشر

    تم رفع هذا الكود فى مشاركة منفصله


    حتى لا ننسى هذه المشاركة   قائمة منسدلة تحوي بيانات عمودين

     

    تم ارفاق كود الحل من الفاضل ا / أبوعبد الله

     

    مرفق الملف

     

    قائمة منسدلة تظهرعمودين - 1.rar

     

     

    قائمة منسدلة تظهرعمودين رد.rar

     و لا تنسونا من صالح الدعاء

    تحياتى

    بحث بالاسم فى ليست بوكس يسع لعدد 20 عمود

    في منتدى الاكسيل Excel

    قام بنشر

    تم رفع هذا الكود فى مشاركة منفصله


    حتى لا ننسى هذه المشاركة   زيادة عدد الاعمدة لتصل الي 20 عمود في الليست بوكس

     

    تم ارفاق كود الحل من الفاضل ا / طلعت محمد حسن

     

    كلمة المرور 111

     

    مرفق الملف

     

    attachment.rar

     

     و لا تنسونا من صالح الدعاء

    تحياتى

    بالكود_ بحث فى قائمة منسدلة_بحساسية الاحرف

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه جلال الجمال_ابو أدهم

    تم رفع هذا الكود فى مشاركة منفصله


    حتى لا ننسى هذه المشاركة    بحث عن طريق قائمة منسدلة

     

    تم ارفاق كود الحل من الفاضل ا / أبوعبد الله

     

     

    مرفق الملف

     

    البحث في قائمة -1.rar

     

    البحث في قائمة.rar

     

     و لا تنسونا من صالح الدعاء

    تحياتى

    كود و فلاش_ربط مربع التحرير والسرد بقائمة منسدلة للاسماء

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه جلال الجمال_ابو أدهم

    تم رفع هذا الكود فى مشاركة منفصله


    حتى لا ننسى هذه المشاركة   

     

    تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير

     

     

    مرفق الملف

     

    jamal.rar

     

    kh_com.rar

     

     و لا تنسونا من صالح الدعاء

    تحياتى

    بالكود_sumif_لجمع قيم كثيرة_مع ترتيب ابجدى تلقائى

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه جلال الجمال_ابو أدهم

    تم رفع هذا الكود فى مشاركة منفصله


    حتى لا ننسى هذه المشاركة   

     

    تم ارفاق كود الحل من الفاضل ا / أبوعبد الله

     

    مرفق الملف

     

    sumif.rar

     

     و لا تنسونا من صالح الدعاء

    تحياتى

    • Like 1

    كود مميز جاهز_كود بحث مع فلترة البيانات

    في منتدى الاكسيل Excel

    قام بنشر

    مرفق الكود المستخدم لل زر 

    Sub SearchBox()
Dim myButton As OptionButton
Dim SearchString As String
Dim ButtonName As String
Dim sht As Worksheet
Dim myField As Long
Dim DataRange As Range
Dim mySearch As Variant
  Set sht = ActiveSheet
  On Error Resume Next
    sht.ShowAllData
  On Error GoTo 0
  Set DataRange = sht.Range("A3:f1000")
  mySearch = sht.Shapes("UserSearch").TextFrame.Characters.Text
  If IsNumeric(mySearch) = True Then
    SearchString = "=" & mySearch
  Else
    SearchString = "=*" & mySearch & "*"
  End If
  For Each myButton In sht.OptionButtons
    If myButton.Value = 1 Then
      ButtonName = myButton.Text
      Exit For
    End If
  Next myButton
  On Error GoTo HeadingNotFound
    myField = Application.WorksheetFunction.Match(ButtonName, DataRange.Rows(1), 0)
  On Error GoTo 0
  DataRange.AutoFilter _
    Field:=myField, _
    Criteria1:=SearchString, _
    Operator:=xlAnd
  sht.Shapes("UserSearch").TextFrame.Characters.Text = ""
Exit Sub
HeadingNotFound:
  MsgBox "The column heading [" & ButtonName & "] was not found in cells " & DataRange.Rows(1).Address & ". " & _
    vbNewLine & "Please check for possible typos.", vbCritical, "Header Name Not Found!"
  
End Sub

    و لاسترجاع البيانات المفلترة
      

    Sub ClearFilter_Click()
  On Error Resume Next
    ActiveSheet.ShowAllData
  On Error GoTo 0
End Sub

     

    • Like 1

    كود_تفعيل خاصية حذف وإخفاء الأوراق

    في منتدى الاكسيل Excel

    قام بنشر

    تم رفع هذا الكود فى مشاركة منفصله

     


    حتى لا ننسى هذه المشاركة   

     

    تم ارفاق كود الحل من الفاضل ا / أبوعبد الله

     

    تفعيل خاصية حذف وإخفاء الأوراق" وكلمة الحماية لتنفيذ الأمر هي 123

     

    مرفق الملف

    تعطيل و تفعيل خاصية_حذف و اخفاء الاوراق

     

     و لا تنسونا من صالح الدعاء

    تحياتى

     

    جدول دينامكى_اضافة سطر جديد مع الترصيد_اوتو

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه جلال الجمال_ابو أدهم

    تم رفع هذا الكود فى مشاركة منفصله


    حتى لا ننسى هذه المشاركة     الجدول الديناميكي

     

    تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير

     

     

    مرفق الملف

     

    جدول دينامكى.rar

     

    و اضافة اخرى


    مشاركة من ا /  عادل حنفي _ ا / أبوعبد الله

     

    مرفق الملف

    مشروع حسابات العملاء _جدول ديناميكى.rar

     

     و لا تنسونا من صالح الدعاء

    تحياتى

    • Like 1
×
×
  • اضف...

Important Information

  I accept