用宏指定单元格

lmx

各位版主和老师帮忙写个宏的程序：

当我在sheet1表中按指定Sheet2的G5按钮时，则直接进入到Sheet2的G5，而C——F列均可以看不见，前三列为A、B、G列。按另外按钮时，前三列为A、B、AA列（C——Z列可以看不见），具体见附件，谢谢！！！

hwc2ycy

1. Sub test1()
   
2.     Worksheets("Sheet2").Columns("c:f").Hidden = True
   
3.     Application.Goto Worksheets("sheet2").Range("g5")
   
4. End Sub
   
5. 
   
6. Sub test2()
   
7.     Worksheets("sheet2").Columns("c:z").Hidden = True
   
8.     Application.Goto Worksheets("sheet2").Range("g25")
   
9. End Sub

复制代码

要取消冻结首先方才能隐藏列。

开心妙妙

用宏程序指定单元格.rar (15.88 KB, 下载次数: 7)

2014-1-3 13:08 上传

点击文件名下载附件
原工作表设了保护，无法操作，要有密码才可以在原工作表设

lmx

hwc2ycy 发表于 2014-1-3 12:58
要取消冻结首先方才能隐藏列。

谢谢版主的帮助！！！我需要冻结窗口和有几列需要隐藏，还需要对某些单元格进行保护（有的单元格中国有函数），您看看如何写宏的程序。再次表示感谢！！！

hwc2ycy

技巧操作里，冻结窗口是可以隐藏的，我再试试。

hwc2ycy

保护单元格的公式，只需要设置单元格对象的FormulaHidden为TRUE，保险起见可以再设置单元格对象的Locked为TRUE。

1. Sub test1()
   
2.     With Worksheets("sheet2")
   
3.         .Unprotect
   
4.         .Columns("c:f").Hidden = True
   
5.         Application.Goto .Range("g5")
   
6.         .Protect
   
7.     End With
   
8. 
   
9. End Sub
   
10. 
    
11. Sub test2()
    
12.     With Worksheets("sheet2")
    
13.         .Unprotect
    
14.         .Columns("c:z").Hidden = True
    
15.         Application.Goto .Range("g25")
    
16.         .Protect
    
17.     End With
    
18. End Sub

复制代码

hwc2ycy

1. Sub test1()
   
2.     With Worksheets("sheet2")
   
3.         .Unprotect
   
4.         .Columns.Hidden = False
   
5.         .Columns("c:f").Hidden = True
   
6.         Application.Goto .Range("g5")
   
7.         .Protect
   
8.     End With
   
9. 
   
10. End Sub
    
11. 
    
12. Sub test2()
    
13.     With Worksheets("sheet2")
    
14.         .Unprotect
    
15.         .Columns.Hidden = False
    
16.         .Columns("c:z").Hidden = True
    
17.         Application.Goto .Range("g25")
    
18.         .Protect
    
19.     End With
    
20. End Sub

复制代码

应该得先取消原先的隐藏，再来重新设置比较好。

开心妙妙

用宏程序指定单元格.rar (17.6 KB, 下载次数: 4)

2014-1-3 13:24 上传

点击文件名下载附件
保护密码123

lmx

hwc2ycy 发表于 2014-1-3 13:20
应该得先取消原先的隐藏，再来重新设置比较好。

感谢！！！运行挺好，但我需要将S、T、Z、AR、AY、BB及以后的列均隐藏，我还需要从第5行要C5使用冻结窗口功能，您看看如何写程序。