تعديل في الليست بوكس

[Akram Galal]

السادة الأفاضل أعضاء المنتدي

أرق التحيات وأطيب الأماني

أرجو المساعدة في الأتي:

لدي ملف من العبقري عبد الله بشقير يقوم بالبحث

ولكنه يظهر نتيجة البحث من العمود A إلي العمود K

وأريد أن لا يظهر في نتيجة البحث ( الليست بوكس ) العمود D والعمود G

وجزاكم الله خيراً .

بحث بفورم ممتاز.rar

تم تعديل أبريل 11, 2013 بواسطه Akram Galal

[احمد عبد الناصر]

السلام عليكم

 

جرب المرفق 

 

ملاحظة : التعديل يشمل طريقة العرض فقط بمعني ان ضغط زر نسخ اليست في ملف جديد سوف ينسخ كل الاعمدة .

 

تحياتي

+ملف بحث بفورم ممتاز.rar

[حمادة عمر]

السلام عليكم

الاخ الحبيب / احمد عبد الناصر

 

بارك الله فيك

تعديل جميل .... لقد اخبرتك سابقا انك متخصص في الليست بوكس

مبروك خبيرنا المعتمد الجديد علي الترقية المستحقة

والي المزيد من التقدم

جمعة مباركة

 

جزاك الله خيرا

[خالد القدس]

السلام عليكم

كود في منتهى الدقة كعادتك استاذ احمد

والف مبروك على الترقية المستحقة والى المزيد التقدم والترقي

[Akram Galal]

أ/ أحمد عبد الناصر

جزاك الله خيراً 

ولكني أريد أيضاً أن لا تظهر عناوين العمود D والعمود G في الكموبو بوكس

ولك مني كل الأحترام والتقدير .

تم تعديل أبريل 12, 2013 بواسطه Akram Galal

[احمد عبد الناصر]

السلام عليكم

 

استاذ حمادة شكرا لكلماتك و مرورك العطر 

 

استاذ خالد شكرا لمرورك العطر ,

 

لكن اسمح لي بالتنويه ان الكود بالكامل من صنع الاستاذ عبد الله باقشير و لم اغير فيه شيء و لكن عدلت في ال widths الخاص ببعض ال lables  ,اما الكود فكما هو . 

 

 

استاذ اكرم جرب المرفق بعد تعديل بسيط .

 

تحياتي

++ملف بحث بفورم ممتاز.rar

[Akram Galal]

بارك الله لك

وأراح قلبك يا أستاذ أحمد

100 / 100

وتستاهل 1000000 ترقية     

وزادك الله من فضله.

تم تعديل أبريل 12, 2013 بواسطه Akram Galal

[Akram Galal]

أستاذ أحمد عبد الناصر

أريد معرفة كيف قمت بإخفاء عناوين الأعمدة من الكمبو بوكس

قد قمت بغيير الكود من

If MyColmnFind > 3 Then MyColmnFind = MyColmnFind + 1

If MyColmnFind > 6 Then MyColmnFind = MyColmnFind + 1

ليصبح

If MyColmnFind > 2 Then MyColmnFind = MyColmnFind + 1

If MyColmnFind > 8 Then MyColmnFind = MyColmnFind + 1

 

ولم يتغير شيء 

أرجو أن توضح لنا طريقة إخفاء العناوين من الكمبو بوكس

وجزاك الله خيراً .

تم تعديل أبريل 12, 2013 بواسطه Akram Galal

[حمادة عمر]

السلام عليكم

الاخ الكريم / أكرم جلال

 

بارك الله فيك

وبعد اذن اخي الحبيب / احمد عبد الناصر  ... الي ان يصلك رده

شاهد ايضا الفرق في الكود بين هذا الجزء

With Me.ComboFind
    .Column = sRng.Value
    .ListIndex = 0
    .Style = 2
End With

وبين هذا الجزء والتغيير الذي تم فيه

With Me.ComboFind
    .Column = sRng.Value
    .RemoveItem (3)
    .RemoveItem (5)
    .ListIndex = 0
    .Style = 2
End With

جزاك الله خيرا

[أبو چيداء]

ممكن نفس الفورم بس تكون نتيجة الليست بوكس مرتبة حسب التاريخ وليس حسب ترتيبها في الجدول

[أبو چيداء]

ممكن نفس الفورم بس تكون نتيجة الليست بوكس مرتبة حسب التاريخ وليس حسب
ترتيبها في الجدول

[احمد عبد الناصر]

السلام عليكم

 

استاذ ابو جيداء جرب المرفق

 

تحياتي

ملف بحث بفورم ممتاز+SORT.rar

[Akram Galal]

أ/ احمد عبد الناصر

هل ممكن عمل معيار بحث أخر بحيث يتم البحث بمعيارين بحث معا

وشكرا

[أبو چيداء]

لو اخترت عمود رقم القيد وكتبت مثلا 1003 ستظهر نتيجة البحث فى الليست بوكس متكررة 11 مرة فما الحل

[احمد عبد الناصر]

السلام عليكم

 

معذرة , فعندما تكون النتيجة صف واحد تنشيء هذه المشكلة .

 

حسنا جرب هذا التعديل

 

تحياتي

 

ملف بحث بفورم ممتاز++SORT.rar

[أبو چيداء]

اقصد عندما تبحث عن طريق اي شى غير التاريخ تظهر النتيجة مكررة 11 مرة بعدد الاعمدة

[أبو چيداء]

ممكن اعرف اين التغيير

[احمد عبد الناصر]

السلام عليكم

 

لم افهم هل معني كلامك ان الملف عمل معك بطريقة صحيحة ام لا .؟!

 

عامتا هذا السطر 

aad = Range("bb2:bl" & UBound(WorksheetFunction.Transpose(MyAr)) + 1).Address

تحول الي هذا 

aad = Range("bb2:bl" & ii + 1).Address

تحياتي

[أبو چيداء]

شكرا لك استاذنا احمد عبدالناصر

[Jihad72]

On 4/22/2013 at 9:52 AM, احمد عبد الناصر said:

السلام عليكم

 

معذرة , فعندما تكون النتيجة صف واحد تنشيء هذه المشكلة .

 

حسنا جرب هذا التعديل

 

تحياتي

 

ملف بحث بفورم ممتاز++SORT.rar

يسعد صباحك اخي عبد الناصر وجزاك الله خيرا

لكن حين البحث ينبغي ان يكون هناك منطقية، فالبحث عن الاسم لا باس ان ياتي بجميع الاسماء التي تحتوي على حرف او حرفين او ثلاث ويفلتر البحث كلما اضفت حرفا آخر، أما حين البحث عن الارقام بالكود مثلا او رقم الحساب، فلا باس ان يتصرف كما في الاسماء، ولكن ماذا عن المبيعات؟ أو العمر اي السن وما شابهها؟

ألا يجب ان يكون الامر محسوما ويعطي الرقم نفسه فقط؟

حين البحث عن كمية منصرفة 5 تظهر النتائج 5 و 51 و 53 و550 

 

وأيضا اردت اضافة اعمدة الى اليسار لكن البحث لم يشملها، حاولت بعدد الاعمدة تغيير من 11 الى 15 او اكثر لكن دون جدوى

آمل منكم بيان كيفية توسيع البحث في حال اضافة عدد من الاعمدة وليس فقط تغيير الكود بل الشرح

مشكورين جميعا

ملف بحث بفورم ممتاز++SORT A.rar

[ابن الملك]

12 ساعات مضت, Jihad72 said:

يسعد صباحك اخي عبد الناصر وجزاك الله خيرا

لكن حين البحث ينبغي ان يكون هناك منطقية، فالبحث عن الاسم لا باس ان ياتي بجميع الاسماء التي تحتوي على حرف او حرفين او ثلاث ويفلتر البحث كلما اضفت حرفا آخر، أما حين البحث عن الارقام بالكود مثلا او رقم الحساب، فلا باس ان يتصرف كما في الاسماء، ولكن ماذا عن المبيعات؟ أو العمر اي السن وما شابهها؟

ألا يجب ان يكون الامر محسوما ويعطي الرقم نفسه فقط؟

حين البحث عن كمية منصرفة 5 تظهر النتائج 5 و 51 و 53 و550 

 

وأيضا اردت اضافة اعمدة الى اليسار لكن البحث لم يشملها، حاولت بعدد الاعمدة تغيير من 11 الى 15 او اكثر لكن دون جدوى

آمل منكم بيان كيفية توسيع البحث في حال اضافة عدد من الاعمدة وليس فقط تغيير الكود بل الشرح

مشكورين جميعا

ملف بحث بفورم ممتاز++SORT A.rar

أساتذتى الاعزاء 

بجد عمل رائع جدا جدا

 

ولكن هل من الممكن من  شرح الكود لنى حاولت أقراه لكن مفهمتش ولا حاجه 

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

أنا عندى أعمده أكبر وأيضا بيانات أكثر

 

'     عدد الاعمدة
Private Const ContColmn As Integer = 11
'     تنسيق التاريخ
Private Const DateFormt As String = "yyyy/mm/dd"

Private sRng As Range
Private sColmn


Private Sub ButtonFind_Click()
Dim MyValue
Dim MyAr() As String
Dim ib As Boolean
Dim R As Integer, i As Integer, ii As Integer
Dim MyColmnFind As Integer, LastRow As Integer
Dim dt1 As Date, dt2 As Date
'-------------------------
MyColmnFind = Me.ComboFind.ListIndex + 1
If MyColmnFind = 0 Then Exit Sub
If MyColmnFind = 3 Then Me.TextFind = ""
'-------------------------
Me.ListFind.Clear
'-------------------------
With sRng.Worksheet
    LastRow = .Range("A65536").End(xlUp).Row
    If IsDate(Me.TextDate1) Then dt1 = DateValue(Me.TextDate1) Else dt1 = WorksheetFunction.Min(.Range("C2").Resize(LastRow)): Me.TextDate1 = Format(dt1, DateFormt)
    If IsDate(Me.TextDate2) Then dt2 = DateValue(Me.TextDate2) Else dt2 = WorksheetFunction.Max(.Range("C2").Resize(LastRow)): Me.TextDate2 = Format(dt2, DateFormt)
End With

'-------------------------
sColmn = ""
With sRng
    For R = 2 To LastRow
        Select Case .Cells(R, 3).Value2: Case dt1 To dt2
            ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1
            If ib Then
                sColmn = sColmn & R & " "
                ii = ii + 1
                ReDim Preserve MyAr(1 To ContColmn, 1 To ii)
                For i = 1 To ContColmn
                    If IsDate(.Cells(R, i)) Then MyValue = Format(.Cells(R, i).Value2, DateFormt) _
                    Else MyValue = .Cells(R, i).Value2
                    MyAr(i, ii) = MyValue
                Next
            End If
        End Select
    Next
End With
If ii Then
'****************************************************
aad = Range("bb2:bl" & ii + 1).Address
Range(aad) = WorksheetFunction.Transpose(MyAr)
Range(aad).Sort key1:=[bd2]
myar1 = Range(aad)
For irt = 1 To UBound(myar1)
myar1(irt, 3) = Format(Cells(irt + 1, "bd"), DateFormt)
Next
Me.ListFind.List = myar1: Me.ListFind.ListIndex = 0
Range(aad).Clear
'*******************************************************
End If
End Sub

Private Sub ButtonSaveFil_Click()
Dim iC As Integer
iC = Me.ListFind.ListCount
If iC = 0 Then GoTo 1
'------------------------
Application.ScreenUpdating = False
With Workbooks.Add(xlWBATWorksheet)
    With .Sheets(1)
        .Range("A1").Resize(1, ContColmn).Value = sRng.Value
        .Range("A2").Resize(iC, ContColmn).Value = Me.ListFind.List
        .UsedRange.Columns.AutoFit
    End With
End With
Application.ScreenUpdating = True
Unload Me
1
End Sub

Private Sub ButtonSelect_Click()
Dim iNdx As Integer
iNdx = Me.ListFind.ListIndex
If iNdx = -1 Then GoTo 1
iNdx = Split(Trim(sColmn))(iNdx)
Application.Goto sRng.Worksheet.Range("A" & iNdx)
Unload Me
1:
End Sub

' تعدي البحث بالتاريخ
Private Sub ComboFind_Change()
Dim vbol As Boolean
vbol = CBool(Me.ComboFind.ListIndex + 1 = 3)
Me.TextFind.Visible = Not vbol
End Sub

Private Sub ListFind_Change()
Me.ButtonSelect.Enabled = CBool(Me.ListFind.ListIndex + 1)
Me.ButtonSaveFil.Enabled = CBool(Me.ListFind.ListCount)
End Sub

Private Sub TextDate1_AfterUpdate()
Me.TextDate1 = Format(Me.TextDate1, DateFormt)
End Sub

Private Sub TextDate2_AfterUpdate()
Me.TextDate2 = Format(Me.TextDate2, DateFormt)
End Sub



Private Sub UserForm_Activate()
Dim wColmn
'-----------------------------
Set sRng = ورقة1.Range("A1").Resize(1, ContColmn)
'-----------------------------
For i = 1 To ContColmn
    With Me.Controls("Lab" & i)
        .Caption = sRng(i)
        wColmn = wColmn & .Width & " "
    End With
Next
'-----------------------------
wColmn = Join(Split(Trim(wColmn)), ",")
'-----------------------------
With Me.ListFind
    .ColumnCount = ContColmn
    .ColumnWidths = wColmn
End With
'-----------------------------
With Me.ComboFind
    .Column = sRng.Value
    .ListIndex = 0
    .Style = 2
End With
'-----------------------------
Me.ButtonSaveFil.Enabled = False
Me.ButtonSelect.Enabled = False
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set sRng = Nothing
End Sub

سا محونى لو طلبى ثقيل 

 

 

[ياسر خليل أبو البراء]

أخي الكريم ابن الملك

يفضل طرح موضوع جديد لطلبك .. وحاول تجزأ الطلب لأن مش هتلاقي حد عنده الوقت يشرح الكود كله مرة واحدة

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

تقبل تحياتي

[ابن الملك]

11 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم ابن الملك

يفضل طرح موضوع جديد لطلبك .. وحاول تجزأ الطلب لأن مش هتلاقي حد عنده الوقت يشرح الكود كله مرة واحدة

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

تقبل تحياتي

عودا حميدا استاذى الغالى / ياسر خليل

الف حمدلله على سلامة حضرتك 

 

علم وجارى تنفيذ المطلوب سوف اقوم بتجزءه السؤال .

تقبل حياتى