mnbn.net
当前位置:首页 >> ExCEl中隐藏指定的行的宏编程怎么写? >>

ExCEl中隐藏指定的行的宏编程怎么写?

用按钮的方法较好,代码如下,详见附件 Private Sub CommandButton1_Click() If CommandButton1.Caption = "隐藏列" The...

隐藏5行:rows(5).hidden=true 隐藏8行:rows(8).hidden=true 显示5行,rows(5).hidden=false 显示8行,rows(8).hidden=false

比如说要隐藏第10行,然后再取消隐藏第10行。 为了大家更方便学习编写VBA。用记录宏的方法来做。 第一步:点击开发工具-记录宏图标。如图: 第二步:选择第10行,选择隐藏。 第三步:点击停止录制图标。 查看录制的宏如下: Sub Macro1() ' Macr...

VBA程序代码如下: SUB 宏1() IF SHEET1.RANGE("A1")="联络" THEN RANGE("4:6").HIDDEN IF SHEET1.RANGE("A1")="单位" THEN RANGE("11:12").HIDDENEND SUB

Range("L:R").EntireColumn.Hidden = True Columns("C:J").EntireColumn.Hidden = False 这样就可以的了。 你是想L到R隐藏,C到J显示。

以下代码隐藏指定的第2至10行。 Sub 隐藏指定行() Rows("2:10").EntireRow.Hidden = TrueEnd Sub

Sub 隐藏行() Dim i Rows("33:35").EntireRow.Hidden = True '33-35全隐藏 For i = 33 To 35 '判断第33行到第35行的A列数据 If Cells(i, 1) "" Then Rows(i).Hidden = False '如果不为空,取消隐藏 Next i End Sub 要自动调,那么空的单元格首先你...

Sub 隐藏行() Dim i% For i = 2 To 2000 '2000代表总行数,可以替换成你需要的数值 If Cells(i, 7) = "" Then Exit Sub Else If Cells(i, 7) = 0 Then Rows(i).EntireRow.Hidden = True End If End If Next End Sub 测试过是可以的

这个只需要 扩展一下就行了,你说的隐藏和显示功能都有了: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$3" Then If Target.Value = "╳" Then Rows("7:15").Hidden = True Else Rows("7:15").Hidden = False ...

Sub 删除行() For i = 2 To [E65536].End(3).Row If InStr(Range("E" & i), "数据") = 0 Or Not Range("G" & i) Then Range("E" & i).ClearContents Next Range("E:E").SpecialCells(4).EntireRow.Delete End Sub

网站首页 | 网站地图
All rights reserved Powered by www.mnbn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com