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

محمد زيدان2024 · يونيو 1

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

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

**محمد هشام.** · يونيو 2

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

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

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 بواسطه محمد هشام.