怎样定位中间所有的列，(己解决)谢谢!

gzy001 · 发表于 2010-4-14 20:27

各位，我好多列，怎样用VB隐藏中间所有的列，只剩前面4列和再后的一列，能办到吗？我的列随时都在增加，谢谢!

[ 本帖最后由 gzy001 于 2010-4-16 13:06 编辑 ]

cflood · 发表于 2010-4-14 20:51

rows("5:" & range("A65536").end(xlup).row-1).hidden=true

gzy001 · 发表于 2010-4-15 20:20

谢谢，你是隐藏行，而我要求隐藏的是列，麻烦有什么办法，谢谢。

cflood · 发表于 2010-4-15 20:33

看一看range.end的帮助

gzy001 · 发表于 2010-4-15 22:18

谢谢，能帮我做一个吗，搞了半天也没弄明白，麻烦了!!!

lb_bn · 发表于 2010-4-15 22:49

clm = [iv1].end(1).column
[e1].resize(1,clm-1).entirerow.hidden = true

gzy001 · 发表于 2010-4-16 12:03

谢谢，我试了一早上，没反应，不知是什么地方出差，麻烦给看一下。

lb_bn · 发表于 2010-4-16 12:43

可能楼主的第1行没有数据。
建议楼主上传附件。

gzy001 · 发表于 2010-4-16 12:47

谢谢了，弄好了，只要把行改为列就好了(row-Column)，谢谢。

clm = [iv3].End(1).Column ‘以行3为判断条件
[e3].Resize(1, clm - 5).EntireColumn.Hidden = True
以上我试了，没错。

[ 本帖最后由 gzy001 于 2010-4-16 22:14 编辑 ]

lb_bn · 发表于 2010-4-16 13:08

不好意思，我写错了．

用户名		自动登录	找回密码
密码			免费注册

[原创] 怎样定位中间所有的列，(己解决)谢谢!

回复 2楼 cflood 的帖子

回复 4楼 cflood 的帖子

回复 6楼 lb_bn 的帖子

回复 7楼 gzy001 的帖子

回复 6楼 lb_bn 的帖子

回复 9楼 gzy001 的帖子

浏览过的版块