دوستان اکسل این امکان داره که بشه چند شیت به صورت همزمان unhide کرد؟
unhide کردن شیت های اکسل به صورت همزمان
Collapse
X
-
سلام دوست عزيز
با اين كد vba ميتونين هر چند تا شيت كه خواستين unhide كنيد.
اگه بخواين همه شيت ها رو با هم unhide كنيد از اين كد ميتونين استفاده كنيدکد:Sub unhideing() For Each sh In Sheets(Array("Sheet1", "sheet2", "sheet3")) sh.Visible = True Next End Sub
کد:Sub unhideing() For Each sh In Worksheets sh.Visible = True Next End Sub -
كليدهاي تركيبي Alt+F11 رو بزنيد. وارد محيط vba ميشيد.(visual basic)
از تب insert گزينه module رو انتخاب كنيد. در قسمت سفيد رنگ كدهايي كه خدمتتون دادم وارد كنيدکامنت
-
کامنت
-
-
کامنت
-
اگر از 2007 استفاده میکنید باید از مسیر file/option/general (اگر اشتباه نکنم) گزینه developer رو تیک بزنید ، و اگر از ورژن های بالاتر استفاده میکنید از customize Ribbon این تب رو فعال کنید و از طریق ابزار visual basic وارد vba editor بشید در غیر اینصورت باید مجدد نصب کنید
[CENTER]
[SIGPIC][/SIGPIC]
[/CENTER]کامنت
-
کامنت
-
دوست عزيز كدها رو كه كپي كردين كافيه از تب developer گزينه macro رو انتخاب كنيد. ليست ماكرو ها رو براتون مياره. unhiding رو انتخاب كنيد و run رو بزنيدکامنت





کامنت