اكمال تلقائي بواسطة اي جزء من الكلمة في القوائم المنسدلة office365

[anas nasli]

السلام عليكم

اعمل على اوفيس365

الاكمال التلقائي بواسطة اي جزء من الكلمة في القوائم المنسدلة كان يعمل بشكل نظامي في اوفيس365

ثم توقف فجأة وعدت للعمل عن طريق فتح القائمة المنسدلة وتحديد البند المطلوب

الطريقة الاولى كانت توفر في الوقت كثيرأ

هل يوجد لهذه المشكلة

وشكرا مسبقا لجهودكم

[lionheart]

Check the settings: Make sure the autocomplete option is turned on. To do this, go to File > Options > Advanced > Editing options and ensure that the "Enable AutoComplete for cell values" checkbox is ticked

[anas nasli]

شكرا استاذي الكريم

ولكن هذا الخيار مفعل

 

[anas nasli]

اعزائي الخبراء

مرفق ملف حركة لاكثر من صندوق باستخدام القائمة المنسدلة

انا استخدم اوفيس365

سابقا عند كتابة اي احرف من السطر المطلوب يتم اظهار الكلمة و السطر

الان لايتم الا بكتابة السطر كامل او الاختيار من القائمة المنسدلة

ارجو من حضرتكم حل لهذه المشكلة لسهولة العمل وإفادتنا بخبرتكم وتجاربكم

ولكم جزيل الشكر

حركة الصندوق.xlsb

[محمد هشام.]

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

اليك حل بديل بالاكواد 

اول خطوة قم بتسمية نطاق عمود  التصنيف بالشكل التالي 

=OFFSET(التعريف!$E$3;;;COUNTA(التعريف!$E:$E)-1)

2) وقم باظافة عنصر Combobox في اول خلية للقائمة المنسدلة G3

3) ضع هدا الكود في حدث شيت صفحة الادخال 

Dim F(), MH, Rng
Private Sub ComboBox1_Change()
Dim MH()
MH = Application.Transpose([liste])
Me.ComboBox1.List = MH
If Me.ComboBox1.ListIndex = -1 And IsError(Application.Match(Me.ComboBox1, MH, 0)) Then
   Me.ComboBox1.List = Filter(MH, Me.ComboBox1.Text, True, vbTextCompare)
   Me.ComboBox1.DropDown
End If
  ActiveCell.Value = Me.ComboBox1
   If ComboBox1.Value <> "" Then
ComboBox1.BackColor = RGB(255, 255, 255)
    Else
        ComboBox1.BackColor = &HFFFF00
  End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lr As Long
Dim sh1 As Worksheet: Set sh1 = Worksheets("صفحة الادخال")
Dim sh2 As Worksheet: Set sh2 = Worksheets("التعريف")
  
lr = sh1.Range("A" & Rows.Count).End(xlUp).Row
 Set wsdata = Range("G3:G" & lr)
   If Not Intersect(wsdata, Target) Is Nothing And Target.Count = 1 Then
      If MH <> "" Then If IsError(Application.Match(Range(MH), F, 0)) Then Range(MH) = ""
   F = Application.Transpose(sh2.Range("Liste"))
    Me.ComboBox1.Height = Target.Height + 4
    Me.ComboBox1.Width = Target.Width
    Me.ComboBox1.Top = Target.Top
    Me.ComboBox1.Left = Target.Left
    Me.ComboBox1 = Target
    Me.ComboBox1.Visible = True
    Me.ComboBox1.Activate
    MH = Target.Address
  Else
    Me.ComboBox1.Visible = False
  End If
End Sub
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Set Rng = ActiveCell
  If KeyCode = 13 Then
    If IsError(Application.Match(Rng, F, 0)) Then Rng = ""
    Rng.Offset(1).Select
  End If
End Sub
Private Sub ComboBox1_DropButtonClick()
lr = Worksheets("التعريف").Cells(Rows.Count, 5).End(xlUp).Row
ComboBox1.List = Sheet2.Range("E2:E" & lr).Value
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  If Not iGblInhibitTextBoxEvents Then
  ComboBox1.Value = ""
  End If
End Sub

3) دوبل كليك على combobox وابحث باي حرف في اي مكان في السطر  .                                                                                                                                                             

حركة الصندوق.xlsb

[anas nasli]

الف شكر لمتابعتكم الموضوع

ولخيرتكم التي منحتونا بعضها

 

[elmansyeswa]

جعله الله فى ميزان حسناتك