- 帖子
- 75
- 主題
- 19
- 精華
- 0
- 積分
- 135
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2007 010
- 閱讀權限
- 20
- 註冊時間
- 2010-5-18
- 最後登錄
- 2013-10-26
|
隐藏列
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "恢复" Then
Cells.Columns.Hidden = False
CommandButton1.Caption = "隐藏"
Else
CommandButton1.Caption = "恢复"
col = ActiveSheet.UsedRange.Columns.Count
rowss = ActiveSheet.UsedRange.Rows.Count
For i = 2 To col
If Application.WorksheetFunction.CountA(Range(Cells(4, i), Cells(rowss, i))) = 0 Then Columns(i).Hidden = True
Next i
End If
End Sub |
|
發表於 2010-7-6 09:35
| 
