Excel取消隐藏 vba程序一次取消10行
时间: 2024-05-22 14:12:48 浏览: 16
Sub Unhide10Rows()
Dim i As Long
'从第1行开始,每隔10行取消隐藏
For i = 1 To ActiveSheet.Rows.Count Step 10
ActiveSheet.Rows(i).EntireRow.Hidden = False
Next i
End Sub
相关问题
Excel里面全部都隐藏了 写一个vba程序 每次取消隐藏十行
Sub UnhideTenRows()
Dim i As Long
Dim j As Long
j = 0
For i = 1 To ActiveSheet.Rows.Count
If Rows(i).Hidden = True Then
Rows(i).Hidden = False
j = j + 1
End If
If j = 10 Then
Exit For
End If
Next i
End Sub
这段代码会逐行扫描表格,如果发现某一行是隐藏的,就取消隐藏;每取消一次,计数器j加一。当j等于10时,程序会停止执行。这样,每次运行这个程序,就会取消隐藏10行。
vba隐藏excel主程序
可以使用以下VBA代码隐藏Excel主程序:
```vb
Application.Visible = False
```
此代码将Excel应用程序窗口隐藏,但仍然可以在后台运行。要重新显示Excel应用程序窗口,可以使用以下代码:
```vb
Application.Visible = True
```
请注意,隐藏Excel应用程序窗口可能会对某些VBA代码产生影响,因为Excel应用程序窗口可能是一些VBA代码的前提条件。如果您在使用此代码时遇到问题,请确保测试所有代码路径。
相关推荐
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)