تكملة تلقائية

[أبو حنــــين]

السلام عليكم

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

 

1 اضغط مرتين في أي خلية و في أي ورقة  تظهر لك قائمة الاسماء

2 إما ان تكمل الكتابة او تستعمل الاسهم للذهاب الى الاسم المختار

3 تضغط مفتاح انتر لاختيار الاسم

4 لإلغاء العملية اضغط مفتاحح  إشاب  Esc

تكملة تلقائية.rar

تم تعديل أكتوبر 11, 2013 بواسطه أبو حنين

[أبو عبد الملك السوفي]

السلام عليكم

جزاك الله خيرا استاذنا أبو حنين

[حمادة عمر]

[أبو چيداء]

تسلم ايديك ابو حنين

[أبو حنــــين]

أخي أبو سما

جزاك الله خيرا على المرور

===============

أخي أبو جيداء

جزاك الله خيرا على المرور

-----------------------

حفظكم الله و رعاكم

[محمد السيد الشاطر]

_{الاستاذ الكبير أبو حنين زادك الله علما  فكرة ولا أروع}       

_{تقبل تحياتى}

[هاني مصطفي]

 

 

 

تسلم الايادي

ايها العبقري / ابو حنين

[أبو حنــــين]

أخي الأستاذ محمد السيد

جزاك الله خيرا على المرور

===============

أخي الأستاذ هاني مصطفى

جزاك الله خيرا على المرور

-----------------------

حفظكم الله و رعاكم

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

السلام  عليكم

 

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

 

تقبلوا تحياتي وشكري

[أبو حنــــين]

السلام عليكم

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

مروركم دائما يسعدنا و يزيدنا فخرا

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

حفظكم الله و رعاكم

[أبو حنــــين]

أخي عبد السلام زاوي

جزاك الله خيرا على المرور

و أعتذر عن عدم رؤية ردكم إلا الآن

-----------------------

حفظكم الله و رعاكم

[أبو محمد عباس]

بسم الله الرحمن الرحيم

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

الاستاذ والاخ الحبيب ابو حنين حفظكم الباري عز وجل واعطاكم الصحة والعافية

عمل اكثر من رائع وتسلم ايدك على هذا العمل الراقي والرائع

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

تقبل فائق احترامي وتقديري

[أبو حنــــين]

الأخ الحبيب : عباس السماوي

جزاك الله خيرا على المرور

-----------------------

حفظكم الله و رعاكم

[عبدالرحمن بدوى]

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

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

الرجاء المساعدة

وإن امكن لو شرح مبسط للكود

autocomplete.rar

[الصـقر]

بعد اذن استاذى ابوحنين

استاذى الكريم عبدالرحمن بدوى

فى هذا الكود

Private Sub TextBox1_Change()
With Me
.Height = 125
.Move ActiveCell.Left + 16, ActiveCell.Top + .Height: End With
If TextBox1 = "" Then UserForm1.Height = 25.5
With Sheets("ÈíÇäÇÊ")
LR = .Cells(.Rows.Count, "A").End(xlUp).Row: ListBox1.Clear: For j = 2 To LR
If .Cells(j, 2) Like TextBox1 & "*" Then
UserForm1.Height = 125: ListBox1.AddItem .Cells(j, 2)
End If: Next: End With
If TextBox1 = "" Or ListBox1.ListCount = 0 Then Me.Height = 25.5
If TextBox1 <> "" And ListBox1.ListCount = 1 Then
ListBox1.ListIndex = 0: ActiveCell = ListBox1.Text: ActiveCell.Columns.EntireColumn.AutoFit
Unload Me
End If
End Sub

احذف الاربع اسطر التاليه

If TextBox1 <> "" And ListBox1.ListCount = 1 Then
ListBox1.ListIndex = 0: ActiveCell = ListBox1.Text: ActiveCell.Columns.EntireColumn.AutoFit
Unload Me
End If

تقبل تحياتى

[أبو قاسم]

جزاك الله خير اخي الصقر هل ممكن نحدد عمود معين عند الضغط دبل كليك يظهر الفورم مثلا العمود E  و العمود  M فقط لاكن باقي الاعمدة لايظهر الفورم

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

تم تعديل مارس 12, 2016 بواسطه أبو قاسم

[الصـقر]

نفضل اخى الكريم

شاهد المرفق هل هو ما تريد

تقبل تحياتى

التكملة التلقائيه.zip

[أبو قاسم]

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

ولك كل الشكر والتقدير

[الصـقر]

اخى الكريم

المرفق تم حذف الكود من حدث المصنف ThisWorkbook

ووضع الكود فى حدث الشيت 1

بامكانك نسخه ووضع فى حدث اى شيت اخر 

تقبل تحياتى

التكملة التلقائيه.zip

[أبو قاسم]

جزاك الله خير تقبل تحياتي واشكر روحك المتعاونة والمعطاءة وحب الخير للاخرين ربنا يوفقك

[عبدالرحمن بدوى]

في ١٢‏/٣‏/٢٠١٦ at 10:25, الصـقر said:

بعد اذن استاذى ابوحنين

استاذى الكريم عبدالرحمن بدوى

فى هذا الكود

Private Sub TextBox1_Change()
With Me
.Height = 125
.Move ActiveCell.Left + 16, ActiveCell.Top + .Height: End With
If TextBox1 = "" Then UserForm1.Height = 25.5
With Sheets("ÈíÇäÇÊ")
LR = .Cells(.Rows.Count, "A").End(xlUp).Row: ListBox1.Clear: For j = 2 To LR
If .Cells(j, 2) Like TextBox1 & "*" Then
UserForm1.Height = 125: ListBox1.AddItem .Cells(j, 2)
End If: Next: End With
If TextBox1 = "" Or ListBox1.ListCount = 0 Then Me.Height = 25.5
If TextBox1 <> "" And ListBox1.ListCount = 1 Then
ListBox1.ListIndex = 0: ActiveCell = ListBox1.Text: ActiveCell.Columns.EntireColumn.AutoFit
Unload Me
End If
End Sub

احذف الاربع اسطر التاليه

If TextBox1 <> "" And ListBox1.ListCount = 1 Then
ListBox1.ListIndex = 0: ActiveCell = ListBox1.Text: ActiveCell.Columns.EntireColumn.AutoFit
Unload Me
End If

تقبل تحياتى

جزاكم الله خيرا أخى الفاضل

[أبو عبد الرحمن سعيد]

اخى الفاضل الاستاذ القدير // الصقر

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

اولا اسمح لى أن أشكر الاستاذ الفاضل // ابو حنين  

الغائب عنا حضورا والحاضر دائما فى قلوبنا

اشكر سيادتكم على هذا التعديل الطيب المبارك فبارك الله فيكم وزادكم من علمه

هناك تعديلا أخر استاذى الفاضل وهو استفسار لذات الموضوع تم رفعه من الاخ الاستاذ // ناصر المصرى منذ عدة أيام

واقتبس هذه الملحوظة من الاخ /  ناصر المصرى

بالمرفق الاصلى الخاص بالقدير الاستاذ الفاضل أبو حنين فهو من اليسار الى اليمين وبالتالى تظهر

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

أما إذا حولنا اتجاه الشيت من اليمين الى اليسار وهو المطلوب

فالقائمة هنا تكون بعيده عن الخلية المراد الاختيار فيها

فهل من سبيل لحل هذه الجزئية وأزيد " مع ملاحظة عدم ظهور الاسم الاخير كاملا بالليست بوكس "

نرجو الافادة وجزاكم الله خيرا

تم تعديل مارس 13, 2016 بواسطه سعيد بيرم