Ali994m قام بنشر سبتمبر 6, 2020 مشاركة قام بنشر سبتمبر 6, 2020 السلام عليكم أرجو المساعدة في اخفاء الشيتات عدا شيت محدد TEST.xlsm رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر سبتمبر 6, 2020 مشاركة قام بنشر سبتمبر 6, 2020 يمكنك الاستعانة بهذه الاكواد ولكن يجب تنشيط الصفحة التي لاتريد اخفاءها Sub UNHideAllSheetsTABS() Dim WS As Worksheet For Each WS In ThisWorkbook.Worksheets If WS.Name <> ActiveSheet.Name Then WS.Visible = xlSheetVisible Next WS End Sub Sub hide() Dim WS As Worksheet For Each WS In ThisWorkbook.Worksheets If WS.Name <> ActiveSheet.Name Then WS.Visible = xlSheetVeryHidden Next WS End Sub TEST.xlsm 1 رابط هذا التعليق شارك More sharing options...
Ali994m قام بنشر سبتمبر 6, 2020 الكاتب مشاركة قام بنشر سبتمبر 6, 2020 جزاك الله أخي لكن حصلت أخطاء أثناء اضافة للكود للزر في userform1 Private Sub CommandButton2_Click() Application.Visible = True Sheets("micro").Activate UserForm1.hide End Sub Private Sub CommandButton4_Click() Application.Visible = True Sheets("raw").Activate UserForm1.hide End Sub أرجو المساعدة في اضافة الكود للأزرار 1-2 أو شرح تعديل الكود ليتم اضافة اسم الصفحة التي لا يراد اخفاءها داخل الكود رابط هذا التعليق شارك More sharing options...
Ali994m قام بنشر سبتمبر 6, 2020 الكاتب مشاركة قام بنشر سبتمبر 6, 2020 المطلوب اغلاق جميع الصفحات عدا الصفحة micro عند الضغط على الزر CommandButton2 واغلاق جميع الصفحات عدا Raw عند الضغط على الزر CommandButton2 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر سبتمبر 6, 2020 مشاركة قام بنشر سبتمبر 6, 2020 كان وجب عليك توضيح هذا من البداية كما انك تكرر نفس رقم الزر commandbutton2 اعتقد ما تقصد به رقم 4 ملاحظة ليس في كل مرة ترد عليه تقوم بعمل اقتباس لمشاركتي هذا مضيعة للوقت الا في حالة الضرورة جرب هذا التعديل ليس لدي وقت للتجربة لكن اعتقد انه سيفي بالغرض Private Sub CommandButton2_Click() Application.Visible = True Sheets("micro").Activate Dim sh As Worksheet For Each sh In Worksheets(Array("RAW", "Date", "MICC", "REPORT", "LABLE")) sh.Visible = xlSheetVeryHidden Next sh UserForm1.hide End Sub Private Sub CommandButton4_Click() Application.Visible = True Sheets("raw").Activate Dim sh As Worksheet For Each sh In Worksheets(Array("MICRO", "Date", "MICC", "REPORT", "LABLE")) sh.Visible = xlSheetVeryHidden Next sh UserForm1.hide End Sub 1 رابط هذا التعليق شارك More sharing options...
Ali994m قام بنشر سبتمبر 6, 2020 الكاتب مشاركة قام بنشر سبتمبر 6, 2020 جزاك الله كل خير أخي نجح الكود على الزر الأول لكن حصل خطأعلى الزر الثاني رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالفتاح في بي اكسيل قام بنشر سبتمبر 6, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 6, 2020 قم بهذا التعديل Private Sub CommandButton2_Click() Application.Visible = True Dim sh As Worksheet With ThisWorkbook.Worksheets("micro") .Visible = xlSheetVisible .Activate End With For Each sh In ThisWorkbook.Worksheets(Array("RAW", "Date", "MICC", "REPORT", "LABLE")) sh.Visible = xlSheetVeryHidden Next sh UserForm1.Hide End Sub Private Sub CommandButton4_Click() Application.Visible = True Dim sh As Worksheet With ThisWorkbook.Worksheets("raw") .Visible = xlSheetVisible .Activate End With For Each sh In ThisWorkbook.Worksheets(Array("micro", "Date", "MICC", "REPORT", "LABLE")) sh.Visible = xlSheetVeryHidden Next sh UserForm1.Hide End Sub 1 رابط هذا التعليق شارك More sharing options...
Ali994m قام بنشر سبتمبر 6, 2020 الكاتب مشاركة قام بنشر سبتمبر 6, 2020 اجابة ممتازة جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها