پرسش پنهان و آشکار کردن چند ستون در چند شیت با استفاده از vba

[svh1367]

با سلام خدمت دوستان عزیز
من یه اکسل دارم که چنتا شیت داره در شیت اولش چنتا کلید گذاشتم که باید با کلید بر روی اونها چنتا ستون مشخص تو شیتهای بعد هاید بشن و با کلید دوباره آشکار بشن. اکسلمو ارسال کردم.
هرکی بتونه یه کد برای این کارم بگه ممنونش میشم.

[iranweld]

با سلام

کد ذیل را برای شیت دوم تست کنید

Sub Macro1()

  If Sheets("Sheet2").Columns("C:F").EntireColumn.Hidden = True Then
  
  Sheets("Sheet2").Columns("C:F").EntireColumn.Hidden = False

msgbox "unhide"
  
  Else
  


 Sheets("Sheet2").Columns("C:F").EntireColumn.Hidden = True

msgbox "Hide" 
  
  End If
  
End Sub 

[svh1367]

سلام
روزتون بخیر
این کد اوکیه فقط وقتی کپی میکنم برای شیتای دیگه چون زیاد آشنایی با vba ندارم درست در نمیاد اگه لطف کنید شیت 3 هم تو همین کد بزارید ممنون میشم.دیگه بقیه اشو خودم کپی میکنم.
من میخوام وقتی این کد اجرا بشه تو همه شیتا اعمال بشه.
خیلی خیلی ممنون ازتون

[iranweld]

فایل پیوست را بررسی بفرمایید.

Sub Macro1()

  If Sheets("Sheet2").Columns("C:G").EntireColumn.Hidden = True Then
  
  Sheets("Sheet2").Columns("C:G").EntireColumn.Hidden = False


Sheets("Sheet2").Select
  
  Else
  


 Sheets("Sheet2").Columns("C:G").EntireColumn.Hidden = True


Sheets("Sheet2").Select
  
  End If
  
End Sub

Sub Macro2()

  If Sheets("Sheet3").Columns("C:H").EntireColumn.Hidden = True Then
  
  Sheets("Sheet3").Columns("C:H").EntireColumn.Hidden = False


Sheets("Sheet3").Select
  
  Else
  


 Sheets("Sheet3").Columns("C:H").EntireColumn.Hidden = True


Sheets("Sheet3").Select
  
  End If
  
End Sub

Sub Macro3()

  If Sheets("Sheet4").Columns("C:G").EntireColumn.Hidden = True Then
  
  Sheets("Sheet4").Columns("C:G").EntireColumn.Hidden = False


Sheets("Sheet4").Select
  
  Else
  


 Sheets("Sheet4").Columns("C:G").EntireColumn.Hidden = True


Sheets("Sheet4").Select
  
  End If
  
End Sub 

[svh1367]

خیلی عذرخواهی میکنم اذیتتون میکنم
من میخوام تو همون شیت1 وقتی کلیک میکنم رو محصول شوینده در شیت 2،3،4 همه ستون ها هاید بشه فقط محصول شوینده بمونه یعنی وقتی توشیت 1 کلیک میکنم رو محصول شوینده تو شیت 2 ستون e,f هاید بشه تو شیت3 ستون eتاh هاید بشه و تو شیت 4 ستون eتاg هاید بشه. وقتی دوباره کلیک کنم همشون آن هاید بشه.
به همین ترتیب تو شیت 1 اگه کلیک کنم رو محصول خوراکی تو شیت 2 ستون dوf هاید بشه یعنی ستون e بمونه و تو شیت 3 ستون d,e,g,h هاید بشه و تا آخر

[svh1367]

سلام

- - - Updated - - -

دستم به دامنت کمکم کن
من میخوام تو همون شیت1 وقتی کلیک میکنم رو محصول شوینده در شیت 2،3،4 همه ستون ها هاید بشه فقط محصول شوینده بمونه یعنی وقتی توشیت 1 کلیک میکنم رو محصول شوینده تو شیت 2 ستون e,f هاید بشه تو شیت3 ستون eتاh هاید بشه و تو شیت 4 ستون eتاg هاید بشه. وقتی دوباره کلیک کنم همشون آن هاید بشه.
به همین ترتیب تو شیت 1 اگه کلیک کنم رو محصول خوراکی تو شیت 2 ستون dوf هاید بشه یعنی ستون e بمونه و تو شیت 3 ستون d,e,g,h هاید بشه و تا آخر