ابو زين قام بنشر ديسمبر 14, 2018 مشاركة قام بنشر ديسمبر 14, 2018 السلام عليكم ورحمة الله اخواني الكرام لو تكرمتم.... المطلوب التنقل بين الشيتات المخفية من خلال قائمة التحقق في المثال ادناه ولكم فائق الاحترام name.xlsx رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 14, 2018 مشاركة قام بنشر ديسمبر 14, 2018 وعليكم السلام يجب عليك استخدام خاصية البحث بالمنتدى https://www.officena.net/ib/topic/42212-تمت-الاجابة-إخفاء-أوراق-العمل-والتنقل-بينها-من-الشيت-الرئيسي/ 1 رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر ديسمبر 14, 2018 مشاركة قام بنشر ديسمبر 14, 2018 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim Ws2 As Worksheet If Replace(Target.Address, "$", "") = "I8" Then Set Ws2 = Worksheets(Target.Text) Ws2.Activate End If End Sub name.xlsm 1 رابط هذا التعليق شارك More sharing options...
ابو زين قام بنشر ديسمبر 14, 2018 الكاتب مشاركة قام بنشر ديسمبر 14, 2018 جزاكم الله خير انا اتعلم كيف اصطاد منكم رابط هذا التعليق شارك 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.