---------
设置隐藏列:
YanSe_BeiJing_1 =
RGB(135, 206, 235)
'设置需要突出的单元格的背景颜色
EL_App.Worksheets("数据字段设置1").Cells.EntireColumn.Hidden
= True
'隐藏所有列
'EL_App.Worksheets("数据字段设置1").Cells.EntireColumn.Hidden = False
'显示所有列
'EL_App.Worksheets("数据字段设置1").Columns("g:r").EntireColumn.Hidden =
True
'隐藏列:按条件
'显示列:按条件
'
EL_App.Worksheets("数据字段设置1").Columns("d:d,h:h,aa:ab,af:ah").EntireColumn.Hidden
= False
'
EL_App.Worksheets("数据字段设置1").Columns(4).EntireColumn.Hidden =
False
'---标上颜色,看的清楚
EL_App.Worksheets("数据字段设置1").Cells(1,
4).Interior.Color = YanSe_BeiJing_1
'该单元格标上颜色
<列表位置_4>
EL_App.Worksheets("数据字段设置1").Columns(4).EntireColumn.Hidden
= False
EL_App.Worksheets("数据字段设置1").Cells(1,
8).Interior.Color = YanSe_BeiJing_1
'该单元格标上颜色
<列表显示名称_8>
EL_App.Worksheets("数据字段设置1").Columns(8).EntireColumn.Hidden
= False
-----------------
设置隐藏行:
用range表示:
Range("A33:A35").EntireRow.Hidden = True
Private Sub Commanon1_Click()
If Commanon1.Caption =
"显示" Then
Range("10:10,13:13,22:22").EntireRow.Hidden =
False
Commanon1.Caption = "隐藏"
Else
Range("10:10,13:13,22:22").EntireRow.Hidden =
True
Commanon1.Caption = "显示"
End If
End Sub
----
用rows表示:
EL_App.Worksheets("数据字段设置1").Cells.EntireRow.Hidden = True
'隐藏所有行<不行>
EL_App.Worksheets("数据字段设置1").Cells.EntireRow.Hidden = False
'显示所有行<可行>
Worksheets("jch01-05").Rows(Hang).EntireRow.Hidden
= True
'隐藏行:按条件
Worksheets("jch01-05").Rows("2:4,7:9").EntireRow.Hidden
= True
'不可行
Worksheets("jch01-05").Rows("95:105").RowHeight = 0
'可行
Worksheets("jch01-05").Rows("95:105").EntireRow.Hidden
= True
'可行
------
用变量隐藏多行,下面重要
YiYue_ZhHang
=20
ZhHang = 30
Hang_FanWei = YiYue_ZhHang & ":" & ZhHang
Worksheets("jch01-05").Rows(Hang_FanWei).EntireRow.Hidden = True
'可行
设置行高
'---设置整表的表体属性(不用激活该页签也可以设置
'EL_App.Worksheets("jch01-06").Cells.RowHeight =
EL_App.Worksheets("重要字段提取1").Cells(3, 24).Value
'表体的行高 (可调)
'EL_App.Worksheets("jch01-06").Cells.Font.Size =
EL_App.Worksheets("重要字段提取1").Cells(4, 24).Value
'表体的字体大小(可调)
-------
'---设置标题栏的格式(不用激活该页签页可以直接设置
EL_App.Worksheets("jch01-05").Rows("1:1").HorizontalAlignment
= xlCenter
'标题栏左右居中(xlCenter)(不调)
EL_App.Worksheets("jch01-05").Rows("1:1").VerticalAlignment
= xlBottom
'标题栏上下居中(xlCenter居中)(xlBottom靠下)(不调)
EL_App.Worksheets("jch01-05").Rows("1:1").WrapText
= True
'标题栏自动换行(不调)
'EL_App.Worksheets("jch01-05").Rows("1:1").RowHeight =
EL_App.Worksheets("重要字段提取1").Cells(3, 22).Value
'设置标题栏的行高 (可调)
'EL_App.Worksheets("jch01-05").Rows("1:1").Font.Size =
EL_App.Worksheets("重要字段提取1").Cells(4, 22).Value
'设置标题栏字体大小(可调)
-----------------
注意事项:
'隐藏所有列
'显示所有列
'隐藏列:按条件(按条件隐藏列)
'隐藏连续的列,
'按列号隐藏列(用数字表示)
'按列标题隐藏列(用字母表示)
----------------
引申知识1:
vba设置excel的列宽
Columns("A").ColumnWidth = 8 Columns("B").ColumnWidth = 6
Columns("C").ColumnWidth = 10
如何用vba代码设定单元格列宽和行高？
Private Sub Commanon1_Click()
Range("f1").ColumnWidth = 6
End Sub
--
VBA如何自动调整列宽
Sub 调整列宽及行高()
Range("A1:H28").Columns.AutoFit
End Sub
----
给单元格表上底纹或背景色(颜色用变量表示)
-------------------
如果您有任何问题或建议或疑问,欢迎反馈和交流,您的要求就是我们的方向和动力
更多<数据分析>模板,将陆续发布,敬请期待
用友数据分析
欢迎访问:http://www.df-bi.com
更多数据分析模型,欢迎扫描"微信公众号"
或者查找微信公众号:"DF数据工厂" 或
"data_f"
加载中，请稍候......
加载中…
(2016-05-29 15:32:45)