أكاديمية الصقر للتدريب

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


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





طلب تعديل كود بحت في ليست بوكس

السلام عليكم ورحمة الله وبركاته طلب مساعده اريد الغاء اختيار البحث من الكومبو بوكس اما بي الكود او حرف من اسم اريد بمجرد ..


موضوع مغلق


26-12-2020 10:08 مساء
محمدعبدالسلام
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 166
الجنس : ذكر
تاريخ الميلاد : 19-6-1981
يتابعهم : 2
يتابعونه : 3
قوة السمعة : 185
 offline 

السلام عليكم ورحمة الله وبركاته

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


rEtvq_4
 
 
  فاتورة(5).xlsm   تحميل xlsm مرات التحميل :(12)
الحجم :(42.33) KB



أفضل إجابة مقدمة من hassona229 وهي:
وعليكم السلام ورحمه الله وبركاته
اضف هذه الاكواد

    If IsNumeric(Me.TextFind) = True Then
        MyColmnFind = 1
    Else
        MyColmnFind = 2
    End If


بعد هذا السطر


Colmn = ""
عرض الإجابة




27-12-2020 06:55 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif طلب تعديل كود بحت في ليست بوكس
وعليكم السلام
اطلع على الموضوع التالي لعله يفيدك في طلبك إن شاء الله
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

27-12-2020 08:53 صباحا
مشاهدة مشاركة منفردة [2]
محمدعبدالسلام
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 166
الجنس : ذكر
تاريخ الميلاد : 19-6-1981
يتابعهم : 2
يتابعونه : 3
قوة السمعة : 185
 offline 
look/images/icons/i1.gif طلب تعديل كود بحت في ليست بوكس
السلام عليكم اخي ياسر جزاك الله حيرا على الاهتمام بالموضوع
لكن اخي هده طريقة في الموضوع لا تناسب طلبي اوملف العمل الخاص لدي
 اريد الغاء اختيا نوع البحت من الكومبو بوكس نهائيا اريد البحث بتيكست بوكس اريد لما اقوم بكتابه رقم كود صنف او حرف يتم فلترات البيانات في اللست بوكس دون اختيار نوع البحث من الكومبو بوكس



Private Sub TextFind_Change()
Dim MyValue
Dim MyAr() As String
Dim R As Integer, i As Integer, ii As Integer
Dim MyColmnFind As Integer, LastRow As Integer

MyColmnFind = Me.ComboFind.ListIndex + 1
If MyColmnFind = 0 Then Exit Sub
If MyColmnFind = 3 Then Me.TextFind = ""
Me.ListFind.Clear
With Rng.Worksheet
LastRow = .Range("A65536").End(xlUp).Row
End With
Colmn = ""
With Rng
For R = 2 To LastRow
If .Cells(R, MyColmnFind) Like "*" & TextFind & "*" Then
Colmn = Colmn & R & " "
ii = ii + 1
ReDim Preserve MyAr(1 To ContColmn, 1 To ii)
For i = 1 To ContColmn
MyValue = .Cells(R, i).Value2
MyAr(i, ii) = MyValue
Next
End If
Next

End With
If ii Then Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0
End Sub
Private Sub UserForm_Activate()
Set Rng = Sheet2.Range("A1").Resize(1, 2)
With Me.ComboFind
.Column = Rng.Value
.ListIndex = 1
.Style = 2
End With
R = Range("D62").End(xlUp).Row
Label15.Caption = 60 - R
TextFind_Change
End Sub

30-12-2020 04:47 مساء
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif طلب تعديل كود بحت في ليست بوكس
وعليكم السلام ورحمه الله وبركاته
اضف هذه الاكواد

    If IsNumeric(Me.TextFind) = True Then
        MyColmnFind = 1
    Else
        MyColmnFind = 2
    End If


بعد هذا السطر


Colmn = ""

31-12-2020 03:56 مساء
مشاهدة مشاركة منفردة [4]
محمدعبدالسلام
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 166
الجنس : ذكر
تاريخ الميلاد : 19-6-1981
يتابعهم : 2
يتابعونه : 3
قوة السمعة : 185
 offline 
look/images/icons/i1.gif طلب تعديل كود بحت في ليست بوكس

جزاك الله عنا كل خير 
وفيت المطلوب استاذنا الافاضل
بارك الله فيك اخي الكريم جزاك الله خيرا

31-12-2020 06:15 مساء
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif طلب تعديل كود بحت في ليست بوكس
الحمد لله الذي بنعمته تتم الصالحات 
وجزاكم مثله اخى الكريم 



الكلمات الدلالية
تعديل ، ليست ، بوكس ،


 










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

الساعة الآن 02:37 صباحا