unhide کردن شیت های اکسل به صورت همزمان

[tahamtan]

دوست عزیز من alt+f11 میزنم وارد فضایی که شما میگی نمیشه. آیا باید تنظیمات خاصی انجام بدم قبلش؟

[Amir Ghasemiyan]

ببخشید این کدهای vba در کدوم قسمت اکسل باید وارد کنم؟ من تا الان کد نویسی در اکسل انجام ندادم.ممنون میشم در این مورد هم راهنماییم کنید

كليدهاي تركيبي Alt+F11 رو بزنيد. وارد محيط vba ميشيد.(visual basic)
از تب insert گزينه module رو انتخاب كنيد. در قسمت سفيد رنگ كدهايي كه خدمتتون دادم وارد كنيد

[tahamtan]

ببخشید این کدهای vba در کدوم قسمت اکسل باید وارد کنم؟ من تا الان کد نویسی در اکسل انجام ندادم.ممنون میشم در این مورد هم راهنماییم کنید

[Amir Ghasemiyan]

سلام
دوستان اکسل این امکان داره که بشه چند شیت به صورت همزمان unhide کرد؟

سلام دوست عزيز
با اين كد vba ميتونين هر چند تا شيت كه خواستين unhide كنيد.

Sub unhideing()
For Each sh In Sheets(Array("Sheet1", "sheet2", "sheet3"))
    sh.Visible = True
Next
End Sub

اگه بخواين همه شيت ها رو با هم unhide كنيد از اين كد ميتونين استفاده كنيد

Sub unhideing()
For Each sh In Worksheets
    sh.Visible = True
Next
End Sub

[tahamtan]

سلام
دوستان اکسل این امکان داره که بشه چند شیت به صورت همزمان unhide کرد؟