المطلوب عمل يورز فورم يخرج منه قائمة

[محمد زيدان2024]

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

 

 

يوزر فورم.xlsb

تم تعديل يونيو 1 بواسطه محمد زيدان2024

[محمد هشام.]

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

بما انك لم تقم باظافة اليوزرفورم تمت اظافته من المشاركة السابقة لك والاشتغال عليه بنفس الفكرة ربما هدا ما تقصده 

Dim depart, Cnt, comment
Private Sub UserForm_Initialize()
  comment = " تحديد ورقة العمل"
  Me.Label1.Width = 900
  depart = Me.Label1.Left
  Message = " برنامج المخازن يرحب بكم . صل على محمد"
  Me.Label1.Caption = "**********" & Message & "**********" & Message & "************"
  Cnt = Len(Me.Label1.Caption): Me.ComboBox1 = comment
End Sub
'****************************
Private Sub UserForm_Activate()
  Me.Label1.Visible = True
  For x = depart To -(2.8 * Cnt - depart) Step -1
    Me.Label1.Left = x
    w = 0.04
    temp = Timer
    Do While Timer < temp + w
     DoEvents
    Loop
  Next x
  UserForm_Activate
  End Sub
 '***********************                        
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
 Set dico = CreateObject("Scripting.Dictionary")
 For Each c In ActiveWorkbook.Sheets
   dico(c.Name) = ""
 Next c
 dico.Remove (ActiveSheet.Name)
 Me.ComboBox1.List = dico.keys
 Me.ComboBox1.SetFocus
End Sub
'***********
Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(CStr(ComboBox1)).Activate
Me.ComboBox1 = comment
End Sub

 

 

 

يوزر فورم.xlsb

تم تعديل يونيو 2 بواسطه محمد هشام.

[محمد زيدان2024]

اخى الكريم @محمد هشام. مجهود تشكر عليه بس في تغيير ان الزر يكون CommandButton  او    Label  اللى موجود في يوزر فورم  يخرج من قائمة

مثال زى الصورة زر موجود في اليوزر فوروم عند الضغط عليه تظهر اسماء الصفحات

[محمد هشام.]

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

يمكنك تعديله بما يناسيك 

 

test.xlsm

تم تعديل يونيو 3 بواسطه محمد هشام.

[محمد زيدان2024]

بارك الله فيك مبدع كالعادة @محمد هشام.