السلام عليكم
===========
اخى ابو فيصل العزيز
نفترض عندى ملف اكسيل به sheet1 , sheet2, sheet3, sheet4, sheet5
ضع الكود التالى فى sheet1
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("Sheet1!A1") >= 50 Then
Sheets("Sheet4").Visible = False
Sheets("Sheet5").Visible = False
Sheets("Sheet2").Visible = True
Sheets("Sheet3").Visible = True
Else
Sheets("Sheet2").Visible = False
Sheets("Sheet3").Visible = False
Sheets("Sheet4").Visible = True
Sheets("Sheet5").Visible = True
End If
End Sub
قد زدت من عدد الصفحات لتتمكن من الاستفادة بالكود باكبر قدر ممكن
الحالة الاولى
---------- الكلام سيكون على الخلية A1
اذا كانت اقل من 50 سيقوم الكود باخفاء الشيتين 2 و 3 واظهار 4 و 5
الحالة الثانية
------------
اذا كانت قيمتها =50 سيقوم الكود باخفاء الشيتين 4 و 5 واظهار 2 و 3 ويمكنك التحكم بالكود بسهولة ويسر وتطوعه كما تشاء
تحياتى
New ورقة عمل Microsoft Excel.rar