注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

零售创新,创新那些事儿,SPSS,VBA

零售创新

 
 
 

日志

 
 
关于我

新浪微博,零售创新 研究经理,数据分析师 希望和市场研究和零售业的同事共同进步! 本博客发表的都是免费或试用的资料,如果有版权问题请发邮件wangli12a@163.com联系删除。 spss excel vba blog

网易考拉推荐

VBA 隐藏 行和列  

2013-03-08 10:38:54|  分类: VB和VBA知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
Columns(3).Select
Selection.EntireColumn.Hidden = True
Columns(3).Select
Selection.EntireColumn.Hidden = False


你确定是隐藏的吗?
Columns("D:E").Select
Selection.EntireColumn.Hidden = True '隐藏
Columns("D:E").Select
Selection.EntireColumn.Hidden = False '取消隐藏

Rows("2:7").Select
Selection.EntireRow.Hidden = True
Rows("2:7").Select
Selection.EntireRow.Hidden = False

Option Explicit
Private Sub Workbook_Open()   
 Dim sh As Worksheet   
 For Each sh In Sheets       
 sh.Cells.EntireColumn.Hidden = False     
   If sh.[b2] = "代理" Then          
  sh.Range("c1:d1, f1").EntireColumn.Hidden = True     
   ElseIf sh.[b2] = "非代理" Then     
       sh.Range("g1:h1").EntireColumn.Hidden = True   
     End If    
Next
End Sub
普通浏览复制代码
  1. VBA 隐藏 行和列 - 和平 - 学习SPSS,EXCEL各种统计软件Option Explicit
  2. VBA 隐藏 行和列 - 和平 - 学习SPSS,EXCEL各种统计软件Private Sub Workbook_Open()
  3. VBA 隐藏 行和列 - 和平 - 学习SPSS,EXCEL各种统计软件    Dim sh As Worksheet
  4. VBA 隐藏 行和列 - 和平 - 学习SPSS,EXCEL各种统计软件    For Each sh In Sheets
  5. VBA 隐藏 行和列 - 和平 - 学习SPSS,EXCEL各种统计软件        sh.Cells.EntireColumn.Hidden = False
  6. VBA 隐藏 行和列 - 和平 - 学习SPSS,EXCEL各种统计软件        If sh.[b2] = "代理" Then
  7. VBA 隐藏 行和列 - 和平 - 学习SPSS,EXCEL各种统计软件            sh.Range("c1:d1, f1").EntireColumn.Hidden = True
  8. VBA 隐藏 行和列 - 和平 - 学习SPSS,EXCEL各种统计软件        ElseIf sh.[b2] = "非代理" Then
  9. VBA 隐藏 行和列 - 和平 - 学习SPSS,EXCEL各种统计软件            sh.Range("g1:h1").EntireColumn.Hidden = True
  10. VBA 隐藏 行和列 - 和平 - 学习SPSS,EXCEL各种统计软件        End If
  11. VBA 隐藏 行和列 - 和平 - 学习SPSS,EXCEL各种统计软件    Next
  12. VBA 隐藏 行和列 - 和平 - 学习SPSS,EXCEL各种统计软件End Sub

应用于 WorkSheet对象的 Columns属性。

返回一个 Range对象,该对象代表指定工作表上的所有列。只读。

expression.Columns

expression   必需。该表达式返回“应用于”列表中的对象之一。

 

有关返回集合中单个成员的详细信息,请参阅返回集合中的对象

说明

在不使用对象识别符的情况下使用此属性等价于ActiveSheet.Columns

当对一个多重选定区域的 Range对象应用属性时,此属性返回的只是所选区域的第一个子区域中的列。例如,如果 Range对象有两个子区域 A1:B2 和 C3:D4,那么,Selection.Columns.Count 的返回值是 2,而不是 4。若要对一个可能包含多重选定区域的区域使用此属性,请用 Areas.Count方法测试一下此区域内是否包含多个子区域。如果确实包含多个子区域,可对此区域内的每一子区域进行循环。

示例

本示例将 Sheet1 的第一列(A 列)的字体设置为加粗。

Worksheets("Sheet1").Columns(1).Font.Bold = True

本示例将“myRange”区域第一列中每一单元格的值置为 0(零〕。

Range("myRange").Columns(1).Value = 0

本示例显示 Sheet1 中选定区域的列数。如果选定区域包含多个子区域,本示例将对每一子区域进行循环。

Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
    MsgBox "The selection contains " & _
        Selection.Columns.Count & " columns."
Else
    For i = 1 To areaCount
        MsgBox "Area " & i & " of the selection contains " & _
            Selection.Areas(i).Columns.Count & " columns."
    Next i
End If
  评论这张
 
阅读(755)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017