اخفاء ورقة من الاوراق في الكمبوبكس

[احمد مبارك]

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

عندي ملف مكون من ثلاث اوراق اريد اخفاء ورقةdata اريدها ماتظهر في الكمبوبوكس

اخفاء ورقة عمل في الكمبوبوكس.xlsm

[محمد هشام.]

تفضل اخي ربما هذا طلبك 

اخفاء ورقة عمل في الكمبوبوكسM-H.xlsm

[عبدالفتاح في بي اكسيل]

@Mohamed Hicham  المطلوب  باليوزرفورم وليس  داخل  الورقة  كما فعلتها 

@احمد مبارك  كيف  نعرف   اذا  كان  باليوزرفورم او  داخل  الورقة  لم  تشرح ذلك  ولم  تضع  زر  لليوزرفورم حتى  يعلم  الاعضاء 

مجرد  صدفة عند  دخول محرر الاكواد  وجدت  اليوزرفورم 

جرب  هذا  الكود

Private Sub UserForm_Initialize()
Dim i As Long
For i = 2 To Sheets.Count
Me.ComboBox1.AddItem Sheets(i).Name
Next i
End Sub

اخفاء ورقة عمل في الكمبوبوكس.xlsm

[محمد هشام.]

في 14‏/8‏/2022 at 15:55, عبدالفتاح في بي اكسيل said:

@Mohamed Hicham  المطلوب  باليوزرفورم وليس  داخل  الورقة  كما فعلتها 

@احمد مبارك  كيف  نعرف   اذا  كان  باليوزرفورم او  داخل  الورقة  لم  تشرح ذلك  ولم  تضع  زر  لليوزرفورم حتى  يعلم  الاعضاء 

مجرد  صدفة عند  دخول محرر الاكواد  وجدت  اليوزرفورم 

جرب  هذا  الكود

Private Sub UserForm_Initialize()
Dim i As Long
Dim sh As Long
sh = Sheets.Count
For i = 2 To sh
Me.ComboBox1.AddItem Sheets(i).Name
Next i
End Sub

 

اخفاء ورقة عمل في الكمبوبوكس.xlsm 22.35 kB · 0 downloads

فعلا لم أنتبه لوجود اليوزرفورم 🤔🤔🤔

[عبدالفتاح في بي اكسيل]

@احمد مبارك

يجدر  بك اختيار  افضل  اجابة بناء  على  المنشور  الثالث واقفال الموضوع .