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

عبدالله باقشير

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4796

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

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

  • Days Won

    57

 نوع المحتوي 

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

  1. عبدالله باقشير
    السلام عليكم غير هذه الاكواد في الملف لقد استخدمتها على اكثر من 63000 صف Dim ib As Boolean '----------------------------------------------------------- Private Sub CommandButton1_Click() ib = True Me.TextBox1 = Empty: Me.TextBox2 = Empty ib = False If Me.AutoFilterMode = False Then Me.Range("A5").Resize(Me.UsedRange.Rows.Count, 11).AutoFilter End Sub '-------------------------------------------------------------- Private Sub TextBox1_Change() Dim MySerch As String If ib Then Exit Sub If Me.FilterMode Then Me.ShowAllData If Me.TextBox1 = Empty Then Me.Range("A5").Resize(Me.UsedRange.Rows.Count, 11).AutoFilter Exit Sub End If MySerch = CStr(Me.TextBox1) Range("N3").Value = "=Search(""" & MySerch & """,E6)=1" Me.Range("A5").Resize(Me.UsedRange.Rows.Count, 11).AdvancedFilter xlFilterInPlace, Me.Range("N2:N3") End Sub '------------------------------------------------------------------ Private Sub TextBox2_Change() Dim MySerch As String If ib Then Exit Sub If Me.FilterMode Then Me.ShowAllData If Me.TextBox2 = Empty Then Me.Range("A5").Resize(Me.UsedRange.Rows.Count, 11).AutoFilter Exit Sub End If MySerch = CStr(Me.TextBox2) Range("N3").Value = "=Search(""" & MySerch & """,G6)=1" Me.Range("A5").Resize(Me.UsedRange.Rows.Count, 11).AdvancedFilter xlFilterInPlace, Me.Range("N2:N3") End Sub
  2. عبدالله باقشير
    السلام عليكم ابوحنين المبدع والنشيط جزاك الله خيراوبارك فيك تقبل تحياتي وشكري
  3. عبدالله باقشير
    انا لم اجرب الكود مع التاريخ لكن بامكانك انت غير بيانات عمود البحث الى تاريخ وابحث واشعرنا بالنتيجة ودمتم
  4. عبدالله باقشير
    اضافة الى تعديل الاخ ياسر حفظه الله افضل ان تحول عمل الكود في زر علشان تمنع تكرار عمل الكود في حالة اضافة اي حرف في التاكست ودمتم
  5. عبدالله باقشير
    السلام عليكم تمت بعض التعديلات المطلوبة شاهد المرفق 2007 تجربه فورم جديد - 2.rar
  6. عبدالله باقشير
    السلام عليكم جزاك الله خيرا تقبل تحياتي وشكري
  7. عبدالله باقشير
    السلام عليكم شاهد المرفق فيه ما اوردته سابقا وكود آخر بالتصفية المتقدمة ينفذ طلبك Private Sub TextBox2_Change() Dim MySerch As String If ib Then Exit Sub MySerch = CStr(Me.TextBox2) Range("N3").Value = "=Search(""" & MySerch & """,G6)=1" Me.Range("A5").Resize(Me.UsedRange.Rows.Count, 11).AdvancedFilter xlFilterInPlace, Me.Range("N2:N3") End Sub فلترة لرقم من تكست بوكس.rar
  8. عبدالله باقشير
    السلام عليكم لو البيانات في عمود البحث رقم بتنسيق نص يشتغل الكود ما دامت البيانات ارقام ولها نفس الطول مثل ملفك ممكن تستخدم الكود هذا العدد 5 هو طول الرقم في عمود البحث Private Sub TextBox2_Change() Dim c As Integer c = 5 - Len(TextBox2) If TextBox2 = "" Or c < 0 Then Selection.AutoFilter Field:=7 Else Range("Del").AutoFilter , Field:=7, Criteria1:=">=" & CStr(TextBox2) & String(c, "0"), Operator:=xlAnd, _ Criteria2:="<=" & CStr(TextBox2) & String(c, "9") End If End Sub وقد تجد اكثر من حل ودمتم في حفظ الله
  9. عبدالله باقشير
    السلام عليكم غير فعال not Enabled يعني متحجر وهذا لون التحجر اي انه لا يقبل التلوين ------------والله اعلم ممكن الكود ده بداية تفعيل الفورم TextBox1.TabStop = False او من الخصائص للتاكست اثناء التصميم TabStop = False ودمتم
  10. عبدالله باقشير
    لم افهم ايه المطلوب من الكود بتاعك لان فيه الكثير من الفلترة طيب الكود اللي انا عامله اين عمله في الشيت الاول او الثاني اذا كان في الشيت الاول حسب وضعك للكود وضعته بعد تحديد الشيت الثاني ؟؟؟؟؟؟؟؟؟؟
  11. عبدالله باقشير
    السلام عليكم تعديل بسيط على الكود Private Sub Workbook_Open() Dim pase If Sheet1.Cells(2, 10) = "" Then Exit Sub If Date > Sheet1.Cells(2, 10) Then m = MsgBox("ان كانت لديك كلمة المرور فاضغظ على نعم", vbCritical + vbYesNo, "تأكيد") If m = vbNo Then ThisWorkbook.Close False Else If m = vbYes Then pase = InputBox("ادخل كلمة المرور هنا", "كلمة المرور") If pase = Sheet1.Range("K2").Value Then Sheet1.Select Exit Sub GoTo 1 Else MsgBox "ليس لديك الحق لفتح البرنامج", vbCritical, "خطأ" ThisWorkbook.Close False End If: End If: End If: End If 1 End Sub جرب اشعرني بالنتيجة
  12. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته الاخ الفاضل / الشهابي __________ حفظه الله الاسم : ممكن يكون مدى - معادلة - نص - رقم يمكنك اظهار الاسماء في الملف بالكود التالي: Sub Kh_tName() Dim WN As Name For Each WN In ThisWorkbook.Names WN.Visible = True Next WN End Sub ويمكنك اخفائها Sub Kh_fName() Dim WN As Name For Each WN In ThisWorkbook.Names WN.Visible = False Next WN End Sub وبامكانك اظهار او اخفاء اسم لحالة ThisWorkbook.Names("xx").Visible=True للاخفاء False لم اطلع عليه ارسل الملف لنراه تقبل تحياتي وشكري
  13. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته الاخ الفاضل / القومي __________ حفظه الله جزاك الله خيرا وبارك الله فيك تقبل تحياتي وشكري
  14. عبدالله باقشير
    السلام عليكم استخدم المعادلة التالية =LEFT(A1;SEARCH("/";A1)-1) ودمتم في حفظ الله
  15. عبدالله باقشير
    السلام عليكم دي دالةقديمة عملتها بالكود يمكن تنفع معاك المرفق2003/2007 الفرق بين تاريخين.rar
  16. عبدالله باقشير
    السلام عليكم اخي الفاضل ابو الحسن --------حفظه الله احترامي وتقديري لشخصك الكريم اخي الفاضل ابو حنين--------حفظه الله مرورك عطر جزاكما الله خيرا تقبلا تحياتي وشكري
  17. عبدالله باقشير
    الطلب هذا يتطلب تعديل على زر كود اضافة التاريخ في الفورم لان هذا الزر بعمل للخلية النشطة والا سيعمل خطا تقبل تحياتي وشكري
  18. عبدالله باقشير
    السلام عليكم اخي الحبيب عبدالله تقريبا منشان يفعل التاكستات اللي تحسب النتائج انا قمت ببعض التعديلات البسيطة مع عملية البحث والتعديل ملاحظة: اولا: عندما تضغط زر بحث وتظهر فرمة البحث يمكنك مشاهدة نتائج البحث والتعديل عليها ولا يمكنك ادخال بيانات جديدة ( ستلاحظ ان الزر غير فعال) وللعودة لوضع الادخال تضغط زر انهاء البحث وذلك منشان ما يكونش تضارب بين ادخال الجديد والتعديل على القديم ثانيا: يمكنك نقل زر فتح الفورم الى اي ورقة وقدعدلت في الكود ما يلزم ذلك (تعريف ورقة البيانات) شاهد المرفق تجربه فورم جديد.rar
  19. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته الاخ الفاضل / سعد عابد __________ حفظه الله الاخ الفاضل / ابراهيم ابو ليلة __________ حفظه الله الاخ الفاضل / ابو انصارابو ليلة __________ حفظه الله الاخ الفاضل / ابو الحسن__________ حفظه الله جزاكم الله خيرا وبارك الله فيكم واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري
  20. عبدالله باقشير
    السلام عليكم جرب الكود التالي: Sub kh_AutoFilter() Dim c As Long, m As Long Dim f As Integer, v As Integer Cells.AutoFilter With Cells.Worksheet If .AutoFilterMode = False Then .Range("A3:K" & .UsedRange.Rows.Count).AutoFilter End If With .AutoFilter For f = 1 To .Range.Columns.Count c = WorksheetFunction.CountA(.Range.Columns(f)) If c > m Then m = c: v = f Next .Range.AutoFilter v, "<>" End With End With End Sub هل هو المطلوب
  21. عبدالله باقشير
    السلام عليكم مرحبا بعودتك ----------حفظك الله بالملف او بدونه وجزاك الله خيرا وبارك فيك تقبل تحياتي وشكري
  22. عبدالله باقشير
    السلام عليكم جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري
  23. عبدالله باقشير
    بشرك الله بالخير في الدنيا والآخرة و جزاك خيرا وبارك فيك تقبل تحياتي وشكري
  24. عبدالله باقشير
    السلام عليكم ورحمة الله وبركاته فورم للتقويم الميلادي والهجري لادراج التاريخ في الخلية النشطة يعمل على اكسل 2003 و 2007 حسب المرفق و يعمل على 2010 حسب بشارة الاخ رجب ================================== تستطيع نقل الفورم الى اي ملف من نافذة الاكواد اسحب الفورم الى ملفك واستخدم الكود التالي لاظهار الفورم Sub kh_ShowFormCalendar() FormCalendar.Show End Sub ==================================== ودمتم في حفظ الله ميلادي هجري1.rar
  25. عبدالله باقشير
    هذا تواضع منك اخي ابو حنين فانت اعمالك تدل عليك المهم اي شي غامض عندك في الكود اخبرني به وانا تحت امرك تقبل تحياتي وشكري
×
×
  • اضف...

Important Information

  I accept