الانتقال بين الصفحات بعد تحديد الاسم من القائمة

[اياد م]

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

سؤالين ::

الاول :: كيف طريقة تكبير الخط في القائمة المنسدلة 

الثاني ::

عند اختيار اسم من القائمة  في الصفحة الاولى يتغير الرقم  بالمعادلة

 

وعند الظغط على الكود تفتح شيت الرقم الخاصة بالاسم 

عملت الكود وفيه شي خطا منا عارف في وين الخطا 

----------------------------------------------------------------------------------------
'Sub تقييم()

  Set kn = [c17]

  Sheets("kn").Select
  
End Sub

--------------------------------------------------------------------------------------

ارجوا انني اوصلت المطلوب ... شاكرين ومقدرين لكم 

تقييم.xlsm

تم تعديل يناير 23, 2023 بواسطه اياد م

[أبو إيمان]

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

المطلوب الاول : يمكن وضع الكود التالي في حدث الورقة التي بها القائمة المنسدلة ( يقوم بتكبيير ورقة العمل بالكامل وتصغيرها مره اخرى )

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
  If Target.Validation.Type <> xlValidateList Then
    ActiveWindow.Zoom = 80
  Else
    ActiveWindow.Zoom = 150
150 نسبة التكبيير عند الضغط على القائمة المنسدلة 
  End If
End Sub

المطلوب الثاني 

Dim kn As String

   
  kn = Range("c17").Value
      Sheets(kn).Select
  

 

تم تعديل يناير 24, 2023 بواسطه أبو إيمان

[اياد م]

2 ساعات مضت, أبو إيمان said:

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

المطلوب الاول : يمكن وضع الكود التالي في حدث الورقة التي بها القائمة المنسدلة ( يقوم بتكبيير ورقة العمل بالكامل وتصغيرها مره اخرى )

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
  If Target.Validation.Type <> xlValidateList Then
    ActiveWindow.Zoom = 80
  Else
    ActiveWindow.Zoom = 150
150 نسبة التكبيير عند الضغط على القائمة المنسدلة 
  End If
End Sub

المطلوب الثاني 

Dim kn As String

   
  kn = Range("c17").Value
      Sheets(kn).Select
  

 

 

 

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

 

الاول ما رضى يتكبر الخط بعد ما حطيت الكود في حدث الورقة 

تم تعديل يناير 24, 2023 بواسطه اياد م

[أبو إيمان]

فضلا قم بتجربة المرفق 

الأماكن المشار اليها تحتوي على قوائم منسدلة 

عند الضغط على مكان القائمة يتم التكبير وعند الضغط في مكان أخر يتم التصغير

 

ملاحظة الكود الأصلي لاحد الأساتذة في المنتدى

 

 

تكبير حجم الشيت عند الظغط على قائمة منسدلة.xls