- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
回復 1# ShaoQiang
試試看- Sub test()
- ' hide 巨集
- If Rows("2:9").EntireRow.Hidden = True Then
- Rows("2:9").EntireRow.Hidden = False ' 取消隱藏A2-A9
- Else
- Rows("2:9").EntireRow.Hidden = True ' 隱藏A2-A9
- End If
- End Sub
複製代碼 |
|