أبو حنــــين قام بنشر أكتوبر 11, 2013 قام بنشر أكتوبر 11, 2013 (معدل) السلام عليكم هذه احدى طرق التكملة التلقائية و طريقة العمل تكون كالتالي 1 اضغط مرتين في أي خلية و في أي ورقة تظهر لك قائمة الاسماء 2 إما ان تكمل الكتابة او تستعمل الاسهم للذهاب الى الاسم المختار 3 تضغط مفتاح انتر لاختيار الاسم 4 لإلغاء العملية اضغط مفتاحح إشاب Esc تكملة تلقائية.rar تم تعديل أكتوبر 11, 2013 بواسطه أبو حنين
أبو عبد الملك السوفي قام بنشر أكتوبر 11, 2013 قام بنشر أكتوبر 11, 2013 السلام عليكم جزاك الله خيرا استاذنا أبو حنين
أبو حنــــين قام بنشر أكتوبر 11, 2013 الكاتب قام بنشر أكتوبر 11, 2013 أخي أبو سما جزاك الله خيرا على المرور =============== أخي أبو جيداء جزاك الله خيرا على المرور ----------------------- حفظكم الله و رعاكم
محمد السيد الشاطر قام بنشر أكتوبر 11, 2013 قام بنشر أكتوبر 11, 2013 الاستاذ الكبير أبو حنين زادك الله علما فكرة ولا أروع تقبل تحياتى
أبو حنــــين قام بنشر أكتوبر 11, 2013 الكاتب قام بنشر أكتوبر 11, 2013 أخي الأستاذ محمد السيد جزاك الله خيرا على المرور =============== أخي الأستاذ هاني مصطفى جزاك الله خيرا على المرور ----------------------- حفظكم الله و رعاكم
عبدالله باقشير قام بنشر أكتوبر 11, 2013 قام بنشر أكتوبر 11, 2013 السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري
أبو حنــــين قام بنشر أكتوبر 11, 2013 الكاتب قام بنشر أكتوبر 11, 2013 السلام عليكم أخي عبد الله باقشير مروركم دائما يسعدنا و يزيدنا فخرا جزاك الله خيرا حفظكم الله و رعاكم
أبو حنــــين قام بنشر أكتوبر 12, 2013 الكاتب قام بنشر أكتوبر 12, 2013 أخي عبد السلام زاوي جزاك الله خيرا على المرور و أعتذر عن عدم رؤية ردكم إلا الآن ----------------------- حفظكم الله و رعاكم
أبو محمد عباس قام بنشر أكتوبر 12, 2013 قام بنشر أكتوبر 12, 2013 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب ابو حنين حفظكم الباري عز وجل واعطاكم الصحة والعافية عمل اكثر من رائع وتسلم ايدك على هذا العمل الراقي والرائع جعله الله سبحانه وتعالى في ميزان حسناتك تقبل فائق احترامي وتقديري
أبو حنــــين قام بنشر أكتوبر 12, 2013 الكاتب قام بنشر أكتوبر 12, 2013 الأخ الحبيب : عباس السماوي جزاك الله خيرا على المرور ----------------------- حفظكم الله و رعاكم
عبدالرحمن بدوى قام بنشر مارس 11, 2016 قام بنشر مارس 11, 2016 جزاكم الله خيرا ولكنى حاولت تكملتها وواجهتنى مشكلة عدم الاكمال التلقائى فى الفورم الرجاء المساعدة وإن امكن لو شرح مبسط للكود autocomplete.rar
الصـقر قام بنشر مارس 12, 2016 قام بنشر مارس 12, 2016 بعد اذن استاذى ابوحنين استاذى الكريم عبدالرحمن بدوى فى هذا الكود 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 تقبل تحياتى 2
أبو قاسم قام بنشر مارس 12, 2016 قام بنشر مارس 12, 2016 (معدل) جزاك الله خير اخي الصقر هل ممكن نحدد عمود معين عند الضغط دبل كليك يظهر الفورم مثلا العمود E و العمود M فقط لاكن باقي الاعمدة لايظهر الفورم وجزاك الله خير تم تعديل مارس 12, 2016 بواسطه أبو قاسم
الصـقر قام بنشر مارس 12, 2016 قام بنشر مارس 12, 2016 نفضل اخى الكريم شاهد المرفق هل هو ما تريد تقبل تحياتى التكملة التلقائيه.zip
أبو قاسم قام بنشر مارس 12, 2016 قام بنشر مارس 12, 2016 جزاك الله خير فقط استفسار بسيط كيف استطيع ان احدد فقط عدد من الشيتات التي يظهر فيها واستثنى شيتات من الظهور فمثلا شيت البيانات ما اريد ظهورة فيها وهل يكون عملي اذا تم وضعة في ملف فية بيانات مهمة ولك كل الشكر والتقدير
الصـقر قام بنشر مارس 12, 2016 قام بنشر مارس 12, 2016 اخى الكريم المرفق تم حذف الكود من حدث المصنف ThisWorkbook ووضع الكود فى حدث الشيت 1 بامكانك نسخه ووضع فى حدث اى شيت اخر تقبل تحياتى التكملة التلقائيه.zip
أبو قاسم قام بنشر مارس 12, 2016 قام بنشر مارس 12, 2016 جزاك الله خير تقبل تحياتي واشكر روحك المتعاونة والمعطاءة وحب الخير للاخرين ربنا يوفقك 1
عبدالرحمن بدوى قام بنشر مارس 13, 2016 قام بنشر مارس 13, 2016 في ١٢/٣/٢٠١٦ 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 قام بنشر مارس 13, 2016 (معدل) اخى الفاضل الاستاذ القدير // الصقر السلام عليكم ورحمته الله وبركاته اولا اسمح لى أن أشكر الاستاذ الفاضل // ابو حنين الغائب عنا حضورا والحاضر دائما فى قلوبنا اشكر سيادتكم على هذا التعديل الطيب المبارك فبارك الله فيكم وزادكم من علمه هناك تعديلا أخر استاذى الفاضل وهو استفسار لذات الموضوع تم رفعه من الاخ الاستاذ // ناصر المصرى منذ عدة أيام واقتبس هذه الملحوظة من الاخ / ناصر المصرى بالمرفق الاصلى الخاص بالقدير الاستاذ الفاضل أبو حنين فهو من اليسار الى اليمين وبالتالى تظهر القائمة من داخل الخلية المراد الاختيار فيها من خلال الليست بوكس أما إذا حولنا اتجاه الشيت من اليمين الى اليسار وهو المطلوب فالقائمة هنا تكون بعيده عن الخلية المراد الاختيار فيها فهل من سبيل لحل هذه الجزئية وأزيد " مع ملاحظة عدم ظهور الاسم الاخير كاملا بالليست بوكس " نرجو الافادة وجزاكم الله خيرا تم تعديل مارس 13, 2016 بواسطه سعيد بيرم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.