محمد زيدان2024 قام بنشر يونيو 1 مشاركة قام بنشر يونيو 1 (معدل) المطلوب عمل يورز فورم يحتوى على زر شركة الحمد يخرج منه قائمة منسدلة باسماء الصفحات الموجودة في الشيت يوزر فورم.xlsb تم تعديل يونيو 1 بواسطه محمد زيدان2024 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يونيو 2 مشاركة قام بنشر يونيو 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 بواسطه محمد هشام. 2 رابط هذا التعليق شارك More sharing options...
محمد زيدان2024 قام بنشر يونيو 2 الكاتب مشاركة قام بنشر يونيو 2 اخى الكريم @محمد هشام. مجهود تشكر عليه بس في تغيير ان الزر يكون CommandButton او Label اللى موجود في يوزر فورم يخرج من قائمة مثال زى الصورة زر موجود في اليوزر فوروم عند الضغط عليه تظهر اسماء الصفحات رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر يونيو 3 أفضل إجابة مشاركة قام بنشر يونيو 3 (معدل) لست متاكدا من طلبك لاكنك ادا كنت تقصد اظهار اسماء اوراق العمل كما في الصورة المدرجة والتنقل بينها جرب هدا يمكنك تعديله بما يناسيك test.xlsm تم تعديل يونيو 3 بواسطه محمد هشام. 2 رابط هذا التعليق شارك More sharing options...
محمد زيدان2024 قام بنشر يونيو 3 الكاتب مشاركة قام بنشر يونيو 3 بارك الله فيك مبدع كالعادة @محمد هشام. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.