作者:乔山办公网日期:
返回目录:excel表格制作
第一个问题是target后面不能跟row,target直接就代表当前单元格:
将function函数放在模块中,执行正常:
步骤如下:
1.原数据,将zdA列为空的行隐藏回
2.Alt+F11,在sheet1中输入如下代码
Sub main()
For i = 1 To 6
If Cells(i, 1) = "" Then
Rows(i).Hidden = True
End If
Next i
End Sub
3.F5执行代码,关闭,返回答Excel,结果如下:
Sub ShowColumn()
Sheets("输入你要操作的工作表名称").Columns("c:z").Hidden = False
End Sub
一、VB代码如下:e799bee5baa6e79fa5e98193e78988e69d83333
Private Sub Command1_Click()
Dim S() As String, i As Integer, j As Integer
Dim xlApp
Dim xlBook
Dim xlSheet
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False '不显示对话框
Set xlBook = xlApp.Workbooks.Open(App.Path & "\1.xls")
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets("Sheet1")
i = xlSheet.Cells(1, 13) '取M1值
xlSheet.Rows.EntireRow.Hidden = False '先取消所有隐藏,后根据条件再确定隐藏行数
If i > 8 And i <= 20 Then xlSheet.Rows("1:1").EntireRow.Hidden = True
If i >= 21 And i < 30 Then xlSheet.Rows("1:2").EntireRow.Hidden = True
If i >= 31 Then xlSheet.Rows("1:3").EntireRow.Hidden = True
Set xlApp = Nothing '释放xlApp对象
End Sub
二、EXCEL中的VBA宏代码如下:
Sub 宏1()
Dim i As Integer
i = Cells(1, 13) '取M1值
Rows.EntireRow.Hidden = False '先取消所有隐藏,后根据条件再确定隐藏行数
If i > 8 And i <= 20 Then Rows("1:1").EntireRow.Hidden = True
If i >= 21 And i < 30 Then Rows("1:2").EntireRow.Hidden = True
If i >= 31 Then Rows("1:3").EntireRow.Hidden = True
End Sub