التخلص من الفراغات داخل القائمة المنسدلة

[ابوصلاح]

من المعلوم ان دالة OFFSET تخلصك من الفراغ  داخل القائمة المنسدلة  (الفراغ الذي هو اسفل القائمة)

لكن كيف يمكن التخلص من الفراغ ان كان في وسط القائمة

التخلص من الفراغ في القائمة المنسدلة.zip

[سليم حاصبيا]

السلام عليكم

اخي ابو صلاح اليك المطلوب

قائمة دون فراغات و دون تكرار.rar

[ابوصلاح]

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

حل رائع بس عاوز دراسة بالنسبة لي طبعا لاني مبتدئ

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

تفضل أبو صلاح

كنت قد اعددت لك الملف منذ باكر ولكن انقطع النت لفترة ، فسبقني السباق ، المبدع الخلاق سليم بيه ، ولكن لحسن الحظ أنه أعطاك ملف غير الملف الذي ترغب بالعمل عليه (سبقتك يا سلم)

التخلص من الفراغ في القائمة المنسدلة.rar

[سليم حاصبيا]

برافو استاذ ياسر 

لازمها تصفيقة ولا ايييييه ؟؟؟؟!!!!

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

برافو استاذ ياسر 

لازمها تصفيقة ولا ايييييه ؟؟؟؟!!!!

شكلك زعلت يا أخ سليم .. بلاش كلمة أستاذ أنا أخوك يا سليم

[سليم حاصبيا]

ما عاش اللي يزعل منك يا اخي 

هو انا بزعل ليه 

انا اصلي بهزّر

[علي المصري]

ابداع من مبدعين

استاذنا الفاضل سلم واستاذنا الفاضل ياسر

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

 

لي سؤال

هل يمكن التحكم في حجم خط القائمة؟

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

الأخ الحبيب علي المصري تفضل المرفق التالي .. فيه تحايل بالأكواد لأظهار ComboBox بدلا من القائمة المنسدلة ويمكن التحكم في حجم الخط من خلالها

Data Validation Combo box.rar

[ابوصلاح]

السادة الافاضل اقول يعجز اللسان عن الشكر

شكرا لكم جميعا

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

ولما يعجز اللسان عن الشكر ..

أليست جزاكم الله خيراً تفي بالشكر ؟

يكفينا منكم دعوة بظهر الغيب

[محمود_الشريف]

أخى فى الله 

الأستاذ الكبير // سليم حاصبيا

الأستاذ القدير // ياسر خليل

 

بارك الله فيكم وجزاكم الله خير الخير

 

وبعد اذن الأستاذ القدير // ياسر خليل

فيما يختص بسؤال الأستاذ الكريم // على المصرى

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

يعمل على تكبير حجم خط القائمة  ويعتبر كخدعة لذلك الأمر

ويوضع الكود فى حدث الورقة التى بها القائمة المنسدله

والكود هو كالتالى :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
On Error Resume Next
If Target.Validation.Type <> 3 Then
    ActiveWindow.Zoom = 100
Else
    ActiveWindow.Zoom = 150
End If
End Sub

[علي المصري]

الاساتذ الأفاضل

الاستاذ ياسر  - الاستاذ محمود

لكما جزيل الشكر على سرعة الرد والأكواد

 

ولكن لي طلب عند الاستاذ ياسر

 

اريد شرح للكود الخاص بحضرتك

 

شكرا

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

الأخ الحبيب علي المصري

الموضوع ببساطة مجرد خدعة .. اضغط على Design Mode سيظهر لك ComboBox باسم ComboTemp غير خصائصه كما تريد واخرج من الـ Design Mode وهناك أكواد مرتبطة بهذا الكومبوبوكس

يمكنك الإطلاع عليها تعمل على إخفائه والتعامل معه والتعامل مع الخلايا المرتبطة به

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

 

أخى فى الله 

الأستاذ الكبير // سليم حاصبيا

الأستاذ القدير // ياسر خليل

 

بارك الله فيكم وجزاكم الله خير الخير

 

وبعد اذن الأستاذ القدير // ياسر خليل

فيما يختص بسؤال الأستاذ الكريم // على المصرى

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

يعمل على تكبير حجم خط القائمة  ويعتبر كخدعة لذلك الأمر

ويوضع الكود فى حدث الورقة التى بها القائمة المنسدله

والكود هو كالتالى :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
On Error Resume Next
If Target.Validation.Type <> 3 Then
    ActiveWindow.Zoom = 100
Else
    ActiveWindow.Zoom = 150
End If
End Sub

حل رائع رائع أخي وحبيبي محمود الشريف

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

[ابو الآء]

استاذى الفاضل

YasserKhalil

بارك الله فيك

استاذى الفاضل

 

سليم حاصبيا

بارك الله فيك

عاوزين شرح للحلول 

اخى سليم الحل بتاع حضرتك ينفع فى تحديد مدى للطباعه حسب البيانات

[محمد لطفى]

السلام عليكم

الاساذ الكبير / ياسر

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

الموضوع اعجبنى كثيرا ولكنى

لم اتمكن من تنفيذ المطلوب بالاكواد برجاء الشرح الوافى

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

السلام عليكم

الاساذ الكبير / ياسر

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

الموضوع اعجبنى كثيرا ولكنى

لم اتمكن من تنفيذ المطلوب بالاكواد برجاء الشرح الوافى

أخي محمد

الموضوع به أكثر من ملف .. ما هو الكود الذي تريد تطبيقه ؟؟

وضح طلبك أكثر إذا تشعبت الأمور

[ابوصلاح]

 

ولما يعجز اللسان عن الشكر ..

أليست جزاكم الله خيراً تفي بالشكر ؟

يكفينا منكم دعوة بظهر الغيب

 

حقا ما تقول لكن يعجز اللسان بلاغيا هي شكر عموما جعله الله في ميزان حسناتك